Jumat, 20 Januari 2012

Form Server - Client Pegawai


Project Form Pegawai


Dim IPServer As String

Sub Hapus()
    Nip.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 Pegawai(Nip,Nama,Jeniskelamin,Jabatan)" & _
                "values('" & Nip.Text & _
                "','" & Nama.Text & _
                "','" & Gol.Text & _
                "','" & Jeniskelamin.Text & _
                "','" & Jabatan.Text & "')"
        Case 1
            SQL = "UPDATE Pegawai SET Nama='" & Nama.Text & "'," & _
                "Gol= '" & Gol.Text & "'," & _
                "Jeniskelamin= '" & Jeniskelamin.Text & "'," & _
                "Jabatan= '" & Jabatan.Text & "'," & _
                "where Nip='" & Nip.Text & "'"
        Case 2
            SQL = "DELETE FROM Pewagai WHERE Nip='" & Nip.Text & "'"
        End Select
        MsgBox "Pemprosesan RECORD Database telah berhasil...!", vbInformation, "Pegawai"
        Call Hapus
        Nip.SetFocus
End Sub

Private Sub CmdProses_Click(Index As Integer)
    Select Case Index
    Case 0
        Call Hapus
        Nip.SetFocus
    Case 1
     If CmdProses(1).Caption = "&Simpan" Then
        SQL = "INSERT INTO Pegawai(Nip,Nama,Gol,Jeniskelamin,Jabatan)" & _
        "values('" & Nip.Text & _
        "','" & Nama.Text & _
        "','" & Gol.Text & _
        "','" & Jeniskelamin.Text & _
        "','" & Jabatan.Text & "')"
        WS.SendData "INSERT-" & SQL
        
    Else
        SQL = "UPDATE pegawai set " & _
            "nama= '" & Nama.Text & _
            "',jabatan='" & Jabatan.Text & _
            "' where Nip='" & Nip.Text & "'"
        WS.SendData "UPDATE-" & SQL
       
    End If
    Case 2
        x = MsgBox("Yakin RECORD Pegawai Akan Dihapus...!", vbQuestion + vbYesNo, "Pegawai")
        If x = vbYes Then
        WS.SendData "DELETE-" & Nip.Text
       
        End If
        Call Hapus
        Nip.SetFocus
    Case 3
        Call Hapus
        Nip.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 Nip.Text = "" Then Exit Sub
WS.SendData "SEARCH-" & Nip.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 = Nip.Text
Call Hapus
Kode.Text = x
Call RubahCMD(Me, False, True, False, True)
CmdProses(1).Caption = "&Simpan"
Nama.SetFocus
Case "RECORD"
xData2 = Split(xData1(1), "/")
    Nama.Text = xData2(0)
    Gol.Text = xData2(1)
    Jeniskelamin.Text = xData2(2)
    Jabatan.Text = xData2(3)
   
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
Nip.Enabled = False
Nama.SetFocus
Case "DEL"

MsgBox "penghapusan data berhasil !"
Call Hapus
Case "EDIT"

MsgBox "pengeditan record berhasil !"
Call Hapus
End Select
End Sub







Project Form Menu Utama

Private Sub F1_Click()
Form1.Show
End Sub

Private Sub C_Click()
End
End Sub


Private Sub Form_Activate()
Text1 = Time
Text2 = Date
End Sub

Private Sub MDIForm_Load()

End Sub

Project Form Login



Private Sub command1_click()
If Txt1.Text = "Nano Pranata" And Txt2.Text = "Tembung" Then
MsgBox ("Pasword Anda Benar")
Else
MsgBox ("Pasword Anda Salah")
txt = ""
txt = ""
txt.SetFocus
End Sub


Private Sub Form_Load()

End Sub








Module

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



Form Server - Client Pegawai