1. Form Karyawan
LISTING PROGRAM KARYAWAN
Sub Hapus()
Nik.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 karyawan(nik,nama,golongan,jabatan, bagian)" & _
"values('" & Nik.Text & _
"','" & Nama.Text & _
"','" & golongan.Text & _
"','" & jabatan.Text & _
"','" & bagian.Text & "')"
Case 1
SQL = "UPDATE karyawan Set nama='" & Nama.Text & "'," & _
"Golongan='" & golongan.Text & "'," & _
"Jabatan='" & jabatan.Text & "'," & _
"Bagian='" & bagian.Text & "'," & _
"where Nik='" & Nik.Text & "'"
Case 2
SQL = " DELETE * FROM karyawan WHERE Nik='" & Nik.Text & "'"
End Select
MsgBox "Pemrosesan RECORD Database telah berhasil....!", vbInformation, "Data karyawan"
Call Hapus
Nik.SetFocus
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 Label3_Click()
End Sub
Private Sub Nik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Nik.Text = "" Then Exit Sub
WS.SendData "SEARCH-" & Nik.Text
End If
End Sub
Private Sub CmdProses_Click(Index As Integer)
Select Case Index
Case 0
Call Hapus
Nik.SetFocus
Case 1
If CmdProses(1).Caption = "&Simpan" Then
SQL = "Insert into karyawan(Nik, Nama,Golongan,Jabatan, Bagian)" & _
"Nama='" & Nama.Text & _
"',Golongan='" & golongan.Text & _
"',Jabatan='" & jabatan.Text & _
"',Bagian='" & bagian.Text & _
"'Where Nik='" & Nik.Text & "'"
WS.SendData "INSERT-" & SQL
Else
SQL = "UPDATE karyawan set " & _
WS.SendData "UPDATE-" & SQL
End If
Case 2
X = MsgBox("Yakin RECORD karyawan Akan Dihapus.....!", vbQuestion + vbYesNo, "karyawan")
If X = vbYes Then
WS.SendData "DELETE-" & Nik.Text
End If
Call Hapus
Nik.SetFocus
Case 3
Call Hapus
Nik.SetFocus
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Load()
Call Hapus
MulaiKoneksi
End Sub
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim xKirim As String
Dim xData1() As String
Dim xData2() As String
WS.GetData xKirim, vbString, bytesTotal
xData1 = Split(xKirim, "-")
xData2 = Split(xData1(1), "/")
Select Case xData1(0)
Case "NOTHING"
X = Nik.Text
Call Hapus
Nik.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)
golongan.Text = xData2(1)
jabatan.Text = xData2(2)
bagian.Text = xData2(3)
Call RubahCMD(Me, False, True, True, True)
CmdProses(1).Caption = "&Edit"
Nik.Enabled = False
Nama.SetFocus
Case "DEL"
MsgBox "Penghapusan Data Berhasil!"
Call Hapus
Case "EDIT"
MsgBox "Pengeditan Record Berhasil!"
Call Hapus
Case "INSERT"
MsgBox "Penginputan Data Record Berhasil!"
Call Hapus
End Select
End Sub
MODUL FORM KARYAWAN
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
2. FORM LOGIN
Private Sub Command1_Click()
If username.Text = "sari" And pass.Text = "1234" Then
Menu.Show
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
3. FORM MENU UTAMA
Menu.Show
End Sub
Private Sub Karyawan_Click()
FrmKaryawan.Show
End Sub
Tidak ada komentar:
Posting Komentar