TUGAS SERVER CLIENT

INPUT SERVER

LISTING PROGRAM 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,Gol,jeniskel,jabatan)" & _ "values('" & Nip.Text & _ "','" & Nama.Text & _ "','" & Gol.Text & _ "','" & JenisKel.Text & _ "','" & Jabatan.Text & "')" Case 1 SQL = "UPDATE Pegawai SET Nama='" & Nama.Text & "'," & _ "Gol='" & Gol.Text & "'," & _ "Jeniskel='" & JenisKel.Text & "'," & _ "Jabatan='" & Jabatan.Text & "' " & _ "where Nip='" & Nip.Text & "'" Case 2 SQL = "DELETE FROM Pegawai WHERE Nip='" & Nip.Text & "'" End Select MsgBox "Pemprosesan RECORD Database telah berhasil...!", vbInformation, "Data Pegawai" DB.BeginTrans DB.Execute SQL, adCmdTable DB.CommitTrans Call Hapus Adodc1.Refresh Nip.SetFocus End Sub Sub TampilPegawai() On Error Resume Next Nip.Text = RS!Nip Nama.Text = RS!Nama Gol.Text = RS!Gol JenisKel.Text = RS!JenisKel Jabatan.Text = RS!Jabatan 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 Call ProsesDB(0) Else Call ProsesDB(1) End If Case 2 x = MsgBox("Yakin RECORD Pegawai Akan Dihapus...!", vbQuestion + vbYesNo, "Pegawai") If x = vbYes Then ProsesDB 2 Call Hapus Nip.SetFocus Case 3 Call Hapus Nip.SetFocus Case 4 Unload Me End Select End Sub Private Sub Form_Load() Call OPENDB Call Hapus MulaiServer End Sub Private Sub Nip_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Nip.Text = "" Then MsgBox "Masukkan Nip Pegawai...!", vbInformation, "Pegawai" Nip.SetFocus Exit Sub End If SQL = "SELECT * FROM Pegawai WHERE Nip='" & Nip.Text & "'" If RS.State = adStateOpen Then RS.Close RS.Open SQL, DB, adOpenDynamic, adLockOptimistic If RS.RecordCount <> 0 Then TampilPegawai Call RubahCmd(Me, False, True, True, True) CmdProses(1).Caption = "&Edit" Nip.Enabled = False Else x = Nip.Text Call Hapus Nip.Text = x Call RubahCmd(Me, False, True, False, True) CmdProses(1).Caption = "&Simpan" End If Nama.SetFocus End If End Sub Sub MulaiServer() ws.LocalPort = 1000 ws.Listen End Sub Private Sub WS_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID Me.Caption = "Server - Client" & ws.RemoteHostIP & "Connect" 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, "-") Select Case xData1(0) Case "SEARCH" SQL = "SELECT * FROM Pegawai WHERE Nip='" & xData1(1) & "'" If RS.State = adStateOpen Then RS.Close RS.Open SQL, DB, adOpenDynamic, adLockOptimistic If RS.RecordCount <> 0 Then ws.SendData "RECORD-" & RS!Nama & "/" & RS!Gol & "/" & RS!JnsKelamin & "/" & RS!Jabatan Else ws.SendData "NOTHING-DATA" End If Case "INSERT" DB.BeginTrans DB.Execute xData1(1), adCmdTable DB.CommitTrans ws.SendData "INSERT-xxx" Adodc1.Refresh Case "EDIT" DB.BeginTrans DB.Execute xData1(1), adCmdTable DB.CommitTrans ws.SendData "EDIT-xxx" Adodc1.Refresh Case "DELETE" SQL = "DELETE FROM Pegawai" & -"where Nip='" & xData1(1) & "'" DB.Execute SQL, adCmdTable ws.SendData "DEL-SUKSES" End Select End Sub FORM LOGIN

LISTING PROGRAM Dim i As Byte Private Sub CommandOK_Click() Select Case Index Case 0 PanggilMENU Case 1 End End Select End Sub Private Sub Form_Load() NamaUser.Text = "" PasswordUser.Text = "" i = 1 End Sub Sub PanggilMENU() If NamaUser.Text = "IKA" And PasswordUser.Text = "KARTIKA" Then MsgBox "Semoga sukses..." & vbCrLf & _ "DATA PEGAWAI MAS_TI" & vbCrLf & _ "" & vbCrLf & _ "PEGAWAI YANG MASIH AKTIP", vbInformation + vbOKOnly, "Passsword" Unload Me Form_menu.Show Else If i > 2 Then MsgBox "Maaf...!" & vbCrLf & _ "Anda tidak berhak menggunakan program ini !", vbInformation + vbOKOnly, "Password" End Else MsgBox "Maaf...!" & vbCrLf & _ "Password anda SALAH", vbInformation + vbOKOnly, "Password" End If NamaUser.Text = "" PasswordUser.Text = "" NamaUser.SetFocus i = i + 1 End If End Sub Private Sub NamaUser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If NamaUser.Text = "" Then Exit Sub PasswordUser.SetFocus End If End Sub Private Sub PasswordUser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If PasswordUser.Text = "" Then Exit Sub CommandOK.SetFocus End If End Sub FROM MENU SERVER

LISTING PROGRAM Private Sub F1_Click() FormPegawai.Show End Sub Private Sub mnc_Click() End End Sub MODULE SERVER Public DB As New ADODB.Connection Public RS As New ADODB.Recordset Public RS2 As New ADODB.Recordset Public SQL As String Sub OPENDB() If DB.State = adStateOpen Then DB.Close DB.CursorLocation = adUseClient DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MASDA\db1.mdb;Persist Security Info=False" End Sub 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 DATABASE PROGRAM DATA PEGAWAI