BERLATIH MEMBUAT DATABASE TAHAP 1 :
Program Pembuatan Form Input Pegawai menggunakan ADODC. Gambar Form Inputnya sebagai berikut:
SKRIP PROGRAM FORM INPUT PEGAWAI
Private Sub tombolnormal()
cmdtambah.Enabled = True
cmdubah.Enabled = True
cmdhapus.Enabled = True
cmdsimpan.Enabled = False
cmdbatal.Enabled = False
cmdcari.Enabled = True
End Sub
Private Function cekdata() As Integer
If Not Text1.Text Like “bsh###” Then
cekdata = 0
Text1.SetFocus
SendKeys “{Home}+{End}”
Exit Function
End If
If Text2.Text = “” Then
cekdata = 0
Text2.SetFocus
SendKeys “{Home}+{End}”
Exit Function
End If
If Text3.Text = “” Then
cekdata = 0
Text3.SetFocus
SendKeys “{Home}+{End}”
Exit Function
End If
cekdata = 1
End Function
Private Sub cmdbatal_Click()
Adodc1.Recordset!kode = “”
Adodc1.Recordset.CancelUpdate
Adodc1.Recordset.MoveLast
Adodc1.Recordset.Delete
End Sub
Private Sub cmdcari_Click()
yangdicari = InputBox(“masukkan kode pegawai “, “perhatian”)
Adodc1.Recordset.Find “kode=’” + yangdicari + “‘”
If Adodc1.Recordset.EOF Then
MsgBox “data tidak ada”, , “empty”
Adodc1.Refresh
End If
End Sub
Private Sub cmdhapus_Click()
Adodc1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdsimpan_Click()
If Not Adodc1.Recordset.EditMode = adEditNone Then
hasil = cekdata()
If hasil = 1 Then
Adodc1.Recordset.Update
Call tombolnormal
Else
MsgBox “pengisian salah”, vbOKOnly, “perhatian”
Exit Sub
End If
End If
Call tombolnormal
End Sub
Private Sub cmdtambah_Click()
Adodc1.Recordset.AddNew
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
End Sub
Private Sub cmdubah_Click()
Call tombolnormal
End Sub
Private Sub Form_Load()
Call tombolnormal
End Sub
