FORM BUKU/CLIENT

 

TAMPILAN LOGIN

Dim A As Byte

Dim B As Byte

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Text1.MaxLength = 30

Text2.MaxLength = 10

Text2.PasswordChar = "x"

Text2.Enabled = False

End Sub

Private Sub Text1_Keypress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 27 Then End

If KeyAscii = 13 Then

    Call KOneksI

    RSOperator.Open "Select NamaOpr from Operator where NamaOpr ='" & Text1 & "'", ConN

    If RSOperator.EOF Then

        A = A + 1

        If 1 - A = 0 Then

            MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _

                    "Nama '" & Text1 & "' tidak dikenal"

            Text1 = "Lotar"

            Text1.SetFocus

        ElseIf 2 - A = 0 Then

            MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _

                    "Nama '" & Text1 & "' tidak dikenal"

            Text1 = ""

            Text1.SetFocus

        ElseIf 3 - A = 0 Then

            MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _

                    "Nama '" & Text1 & "' tidak dikenal" & Chr(13) & _

                    "Kesempatan habis, Ulangi dari awal"

            Unload Me

        End If

    Else

        Text1.Enabled = False

        Text2.Enabled = True

        Text2.SetFocus

    End If

End If

End Sub

Private Sub Text2_Keypress(KeyAscii As Integer)

KeyAscii = Asc(UCase(Chr(KeyAscii)))

If KeyAscii = 27 Then End

Dim KodeOperator As String

Dim NamaOperator As String

If KeyAscii = 13 Then

    Call KOneksI

    RSOperator.Open "Select * from Operator where NamaOpr ='" & Text1 & "' and passwordOpr='" & Text2 & "'", ConN

    If RSOperator.EOF Then

        B = B + 1

        If 1 - B = 0 Then

            MsgBox "Kesempatan ke " & B & " Salah"

            Text2 = ""

            Text2.SetFocus

        ElseIf 2 - B = 0 Then

            MsgBox "Kesempatan ke " & B & " Salah"

            Text2 = ""

            Text2.SetFocus

        ElseIf 3 - B = 0 Then

            MsgBox "Kesempatan ke " & B & " Salah"

            Unload Me

        End If

    Else

       

        Me.Visible = False

        Menu.Show

       

        Menu.STBar.Panels(1).Text = Login.Text1

        Menu.STBar.Panels(2).Text = RSOperator!STATUSOPR

        Menu.STBar.Panels(3).Text = RSOperator!KODEOPR

        Menu.STBar.Panels(3).Visible = False

       

       

    End If

End If

End Sub

TAMPILAN MENU

Private Sub Fn1_Click()

FrmClient.Show

End Sub

Private Sub mnkeluar_Click()

Unload Me

End Sub

TAMPILAN FORM BUKU

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