CL

Program 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, Tahun)" & _

                "values('" & Kode.Text & _

                "','" & Judul.Text & _

                "','" & Penerbit.Text & _

                "','" & Karangan.Text & _

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

        Case 1

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

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

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

                "Tahun='" & 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, Tahun)" & _

        "values('" & Kode.Text & _

        "','" & Judul.Text & _

        "','" & Penerbit.Text & _

        "','" & Karangan.Text & _

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

        WS.SendData "INSERT-" & SQL

       

    Else

        SQL = "UPDATE buku set " & _

            "Judul= '" & Judul.Text & _

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

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

            "',Tahun='" & 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)

Tahun.Text = xData2(3)

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

CmdProses(1).Caption = "&Edit"

Kode.Enabled = False

Judul.SetFocus

Case "DEL"

MsgBox "penghapusan data berhasil !"

Call Hapus

Case "EDIT"

MsgBox "pengeditan record berhasil !"

Call Hapus

End Select

End Sub

Modul

Public SQL As String

Sub ClearFORM(f As Form)

    Dim ctl As Control

    For Each ctl In f

        If TypeOf ctl Is TextBox Then ctl.Text = ""

        If TypeOf ctl Is ComboBox Then ctl.Text = ""

    Next

End Sub

Sub center(f As Form)

    f.Move (Screen.Width - f.Width) / 2, (Screen.Height - f.Height) / 4

End Sub

Sub RubahCMD(f As Form, L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)

    f.CmdProses(0).Enabled = L0

    f.CmdProses(1).Enabled = L1

    f.CmdProses(2).Enabled = L2

    f.CmdProses(3).Enabled = L3

End Sub