Membuat coding pada data anggota perpustakaan

Membuat coding pada data anggota perpustakaan

kita langsung saja ke tkp

langkah pertama klik 2x pada command input.

Akan  muncul tammpilan seperti gambaaar di bawah ini.ketik kan coding di bawah private tersebut..

Langkah selanjutnya sama aja seperti langkah pertama tadi,  di bawah  ini coding-codingnya .
cmd input
On Error GoTo a
Data1.Recordset.AddNew
Text1.SetFocus
a:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True

cmd save
On Error GoTo b
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveLast
b:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True


cmd edit
On Error GoTo c
Data1.Recordset.Edit

c:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True

cmd delete
On Error GoTo d
Data1.Recordset.Delete
Data1.Refresh
Data1.Recordset.MoveLast
d:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True






 cmd search
On Error Resume Next
Dim kode As String
kode = InputBox("ketik NIP:")
Data1.Recordset.Index = "idxnip"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
response = MsgBox("Data Tidak Ditemukan!", 0, "Pencarian Data")
End If

cmd exit
If (MsgBox("YAKIN ANDA INGIN KELUAR?", vbYesNo, "KELUAR") = vbYes) Then
   Unload Me
End If

kita kemabli lagi ke database tersebut ke mennu bar pilih add ins sama seperti langkah pertama membuat database, tapi yang ini hanya membuka file yang telah disimpan ., klik kanan pada perpus pilih desaign.

Hanya perlu di ubah bagian add index di ketik idxnis setelah itu close, yang terakhir ini untuk pencarian coding data.

jalankan program tersebut, jika berhasil seperti gambar di bawah ini.

SELAMAT MENCOBA.........................