WELCOME to JF's ZONE

Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Data.SqlClient
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService
    Dim connSTR As String = "SERVER=JEFF-PC;DATABASE=PEMESANAN;INTEGRATED SECURITY=TRUE"
    Dim conn As SqlConnection
    Dim comm As SqlCommand
    Dim reader As SqlDataReader
    Sub New()
        conn = New SqlConnection
        conn.ConnectionString = connSTR
    End Sub
    Function returnConnStr() As String
        Return conn.ConnectionString
    End Function
    <WebMethod()> _
    Public Function HelloWorld() As String
       Return "Hello World"
    End Function
    <WebMethod()> _
      Function InsertBarang(ByVal id_barang As String, ByVal nama_barang As String, ByVal harga_beli As String, ByVal harga_jual As String, ByVal stok As String)
        Try
            conn.Open()
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = "insert into barang values ('" & id_barang & "', '" & nama_barang & "', '" & harga_beli & "', '" & harga_jual & "', '" & stok & "')"

            comm.ExecuteNonQuery()
            conn.Close()
            Return "Data Tersimpan"

        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
     Function InsertPelanggan(ByVal id_pelanggan As String, ByVal nama_pelanggan As String, ByVal alamat As String, ByVal telepon As String)
        Try
            conn.Open()
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = "insert into pelanggan values ('" & id_pelanggan & "', '" & nama_pelanggan & "', '" & alamat & "', '" & telepon & "')"

            comm.ExecuteNonQuery()
            conn.Close()
            Return "Data Tersimpan"

        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
    Function InsertPemasok(ByVal id_pemasok As String, ByVal nama_pemasok As String, ByVal alamat As String, ByVal telepon As String)
        Try
            conn.Open()
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = "insert into pemasok values ('" & id_pemasok & "', '" & nama_pemasok & "', '" & alamat & "', '" & telepon & "')"

            comm.ExecuteNonQuery()
            conn.Close()
            Return "Data Tersimpan"

        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
    Function CekBarang(ByVal idbarang As String)
        Try
            Dim row1 As Integer = 0
            Dim bool As Boolean
            comm = New SqlCommand
            comm.CommandText = "select count(*) from barang where id_barang = '" & idbarang & "'"
            comm.Connection = conn
            conn.Open()
            row1 = comm.ExecuteScalar()

            If row1 > 0 Then
                bool = True
                Return bool
            Else
                bool = False
                Return bool
            End If

            conn.Close()
        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
    Function TotalHargaJual(ByVal idbarang As String, ByVal jumlahjual As Integer)
        conn.Open()
        comm = New SqlCommand
        comm.Connection = conn
        comm.CommandText = "select harga_jual from barang where id_barang ='" & idbarang & "'"
        Dim jumlah As Integer
        Dim total_harga As Integer
        jumlah = comm.ExecuteScalar()
        total_harga = jumlahjual * jumlah
        conn.Close()
        Return total_harga
    End Function
    <WebMethod()> _
    Function TotalHargaBeli(ByVal idbarang As String, ByVal jumlahbeli As Integer)
        conn.Open()
        comm = New SqlCommand
        comm.Connection = conn
        comm.CommandText = "select harga_beli from barang where id_barang ='" & idbarang & "'"
        Dim jumlah As Integer
        Dim total_harga As Integer
        jumlah = comm.ExecuteScalar()
        total_harga = jumlahbeli * jumlah
        conn.Close()
        Return total_harga
    End Function
    <WebMethod()> _
    Function UpdateKeluar(ByVal idbarang As String, ByVal jumlahjual As String)
        Try
            conn.Open()
            Dim total As Integer
            Dim sub1 As String = ("select stok from barang where id_barang = '" & idbarang & "'")
            Dim comm1 As SqlCommand = New SqlCommand(sub1, conn)
            Dim stok As Object = comm1.ExecuteScalar
            total = stok - jumlahjual
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = "update barang set stok = '" & total & "' where id_barang = '" & idbarang & "'"

            comm.ExecuteNonQuery()
            Dim jumlah As String
            jumlah = total
            conn.Close()
            Return "jumlah stok sekarang = " + jumlah

        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
    Function UpdateMasuk(ByVal idbarang As String, ByVal jumlahbeli As String)
        Try
            conn.Open()
            Dim total As Integer
            Dim sub1 As String = ("select stok from barang where id_barang = '" & idbarang & "'")
            Dim comm1 As SqlCommand = New SqlCommand(sub1, conn)
            Dim stok As Object = comm1.ExecuteScalar
            total = stok + jumlahbeli
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = "update barang set stok = '" & total & "' where id_barang = '" & idbarang & "'"

            comm.ExecuteNonQuery()
            Dim jumlah As String
            jumlah = total
            conn.Close()
            Return "jumlah stok sekarang = " + jumlah

        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
    Function InsertTransJual(ByVal idpenjualan As String, ByVal idbarang As String, ByVal tanggaljual As String, ByVal jumlahjual As String, ByVal idpelanggan As String, ByVal totalharga As String, ByVal status As String)
        Try
            conn.Open()
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = "insert into penjualan values ('" & idpenjualan & "', '" & idbarang & "', '" & tanggaljual & "', '" & jumlahjual & "', '" & idpelanggan & "', '" & totalharga & "', '" & status & "')"

            comm.ExecuteNonQuery()
            conn.Close()
            Return "Data Tersimpan"

        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
  Function InsertTransBeli(ByVal idpembelian As String, ByVal idbarang As String, ByVal tanggalbeli As String, ByVal jumlahbeli As Integer, ByVal idpemasok As String, ByVal totalharga As Integer)
        Try
            conn.Open()
            comm = New SqlCommand
            comm.Connection = conn
            comm.CommandText = "insert into pembelian values ('" & idpembelian & "', '" & idbarang & "', '" & tanggalbeli & "', '" & jumlahbeli & "', '" & idpemasok & "', '" & totalharga & "')"

            comm.ExecuteNonQuery()
            conn.Close()
            Return "Data Tersimpan"

        Catch ex As Exception
            Return ex.Message()
        End Try
    End Function
    <WebMethod()> _
       Function incbarang()
        conn.Open()
        Dim strQuery As String = "select count(id_barang)+1 from barang"
        comm = New SqlCommand(strQuery, conn)
        Dim cek
        Dim jumlah As String = comm.ExecuteScalar
        cek = "B" + jumlah
        conn.Close()
        Return cek
    End Function
    <WebMethod()> _
      Function incpelanggan()
        conn.Open()
        Dim strQuery As String = "select count(id_pelanggan)+1 from pelanggan"
        comm = New SqlCommand(strQuery, conn)
        Dim cek
        Dim jumlah As String = comm.ExecuteScalar
        cek = "P" + jumlah
        conn.Close()
        Return cek
    End Function
    <WebMethod()> _
     Function incpemasok()
        conn.Open()
        Dim strQuery As String = "select count(id_pemasok)+1 from pemasok"
        comm = New SqlCommand(strQuery, conn)
        Dim cek
        Dim jumlah As String = comm.ExecuteScalar
        cek = "S" + jumlah
        conn.Close()
        Return cek
    End Function
    <WebMethod()> _
   Function inctranjual()
        conn.Open()
        Dim strQuery As String = "select count(id_penjualan)+1 from penjualan"
        comm = New SqlCommand(strQuery, conn)
        Dim cek
        Dim jumlah As String = comm.ExecuteScalar
        cek = "FJ" + jumlah
        conn.Close()
        Return cek
    End Function
    <WebMethod()> _
  Function inctranbeli()
        conn.Open()
        Dim strQuery As String = "select count(id_pembelian)+1 from pembelian"
        comm = New SqlCommand(strQuery, conn)
        Dim cek
        Dim jumlah As String = comm.ExecuteScalar
        cek = "FB" + jumlah
        conn.Close()
        Return cek
    End Function
    <WebMethod()> _
    Function txhrgbelibarang(ByVal idbarang As String)

        conn.Open()
        Dim cek As String
        comm = New SqlCommand
        comm.Connection = conn
        comm.CommandText = "SELECT harga_beli FROM barang where id_barang = '" & idbarang & "'"
        cek = comm.ExecuteScalar()
        Return cek
        conn.Close()
    End Function
    <WebMethod()> _
   Function txhrgjualbarang(ByVal idbarang As String)

        conn.Open()
        Dim cek As String
        comm = New SqlCommand
        comm.Connection = conn
        comm.CommandText = "SELECT harga_jual FROM barang where id_barang = '" & idbarang & "'"
        cek = comm.ExecuteScalar()
        Return cek
        conn.Close()
    End Function
    <WebMethod()> _
   Function txstokbarang(ByVal idbarang As String)

        conn.Open()
        Dim cek As String
        comm = New SqlCommand
        comm.Connection = conn
        comm.CommandText = "SELECT stok FROM barang where id_barang = '" & idbarang & "'"
        cek = comm.ExecuteScalar()
        Return cek
        conn.Close()
    End Function
    <WebMethod()> _
  Function txnamabarang(ByVal idbarang As String)

        conn.Open()
        Dim cek As String
        comm = New SqlCommand
        comm.Connection = conn
        comm.CommandText = "SELECT nama_barang FROM barang where id_barang = '" & idbarang & "'"
        cek = comm.ExecuteScalar()
        Return cek
        conn.Close()
    End Function
End Class