LISTING PROGRAM BUKU CLIENT

Dim IPServer As String

Sub Hapus()

    Kode.Enabled = True

    clearFORM Me

    Call RubahCMD(Me, True, False, False, False)

    CmdProses(1).Caption = "&Simpan"

End Sub

Sub ProsesDB(Log As Byte)

    Select Case Log

        Case 0

            SQL = "INSERT INTO Buku(kode,judul,penerbit,karangan,Bulan/Tahun,)" & _

                "values('" & Kode.Text & _

                "','" & Judul.Text & _

                "','" & Penerbit.Text & _

                "','" & Karangan.Text & _

                "','" & Bulan / Tahun.Text & "')"

        Case 1

            SQL = "UPDATE Buku SET judul='" & Judul.Text & "'," & _

                "penerbit='" & Penerbit.Text & "'," & _

                "karangan='" & Karangan.Text & "'," & _

                "harga='" & Bulan / Tahun.Text & "'," & _

                "where Kode='" & Kode.Text & "'"

        Case 2

            SQL = "DELETE FROM Buku WHERE Kode='" & Kode.Text & "'"

        End Select

        MsgBox "Pemprosesan RECORD Database telah berhasil...!", vbInformation, "Buku"

        Call Hapus

        Kode.SetFocus

End Sub

Private Sub CmdProses_Click(Index As Integer)

    Select Case Index

    Case 0

        Call Hapus

        Kode.SetFocus

    Case 1

     If CmdProses(1).Caption = "&Simpan" Then

        SQL = "INSERT INTO Buku(kode,judul,penerbit,karangan,Bulan/Tahun)" & _

        "values('" & Kode.Text & _

        "','" & Judul.Text & _

        "','" & Penerbit.Text & _

        "','" & Karangan.Text & _

        "','" & Bulan / Tahun.Text & "')"

        WS.SendData "INSERT-" & SQL

       

    Else

        SQL = "UPDATE buku set " & _

            "judul= '" & Judul.Text & _

            "penerbit= '" & Penerbit.Text & _

            "karangan= '" & Karangan.Text & _

            "',Bulan/Tahun='" & Bulan / Tahun.Text & _

            "' where kode='" & Kode.Text & "'"

        WS.SendData "UPDATE-" & SQL

       

    End If

    Case 2

        X = MsgBox("Yakin RECORD Buku Akan Dihapus...!", vbQuestion + vbYesNo, "Buku")

        If X = vbYes Then

        WS.SendData "DELETE-" & Kode.Text

       

        End If

        Call Hapus

        Kode.SetFocus

    Case 3

        Call Hapus

        Kode.SetFocus

    Case 4

        Unload Me

    End Select

End Sub

Private Sub Form_Load()

    Call Hapus

    MulaiKoneksi

End Sub

Private Sub Kode_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Kode.Text = "" Then Exit Sub

WS.SendData "SEARCH-" & Kode.Text

End If

End Sub

Sub MulaiKoneksi()

IPServer = "192.168.10.1"

IPClient = WS.LocalIP

WS.Connect IPServer, 1000

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

DoEvents

End

End Sub

Private Sub WS_Dataarrival(ByVal bytesTotal As Long)

Dim xkrim As String

Dim xData1() As String

Dim xData2() As String

WS.GetData xKirim, vbString, bytesTotal

xData1 = Split(xKirim, "-")

Select Case xData1(0)

Case "NOTHING"

X = Kode.Text

Call Hapus

Kode.Text = X

Call RubahCMD(Me, False, True, False, True)

CmdProses(1).Caption = "&Simpan"

Judul.SetFocus

Case "RECORD"

xData2 = Split(xData1(1), "/")

Judul.Text = xData2(0)

Penerbit.Text = xData2(1)

Karangan.Text = xData2(2)

harga.Text = xData2(3)

Call RubahCMD(Me, False, True, True, True)

CmdProses(1).Caption = "&Edit"

Kode.Enabled = False

Judul.SetFocus

Penerbit.SetFocus

Karangan.SetFocus

Case "DEL"

MsgBox "penghapusan data berhasil !"

Call Hapus

Case "EDIT"

MsgBox "pengeditan record berhasil !"

Call Hapus

End Select

End Sub