Buat Database dengan nama Perpustakaan dan buat 1 table dengan nama Anggota
|
FIelds
|
Type
|
Size
|
Ket
|
|
Kdanggota
|
Text
|
8
|
PK
|
|
Nmanggota
|
Text
|
30
|
|
|
Alamat
|
Text
|
50
|
|
|
Jenis_kel
|
Text
|
7
|
Buat Project dengan nama PerpustakaanKu dan Form dengan nama Form_anggota
Ketentuan:
1. Form dalam keadaan aktif, kosong dan tanggal beserta jam tampil
2. Tombol “Data Baru” untuk menampilkan Kode Anggota secara otomatis dengan format F1204001 (F – 2 digit tahun – 2 digit bulan – 3 digit urutan data)
3. Tombol “Simpan” untuk menyimpan data yang sudah di input dan jika sudah tersimpan maka data di TextBox akan terhapus dan tampil pada DataGrid
4. Untuk mencari data, isi kode anggota yang sudah ada di Txtkode lalu tekan tombol “Cari”. Jika ditemukan maka tampil data nama, alamat dan jenis kelaminnya.
5. Tombol “Ubah” untuk mengubah data yang sudah dicari dengan menonaktifkan TextBox kode anggota
6. Tombol “Hapus” untuk menghapus data
7. Tombol “Keluar” untuk keluar dari form
Listing:
Dim isidata As Boolean
Private Sub bersih()
kd.Text = “”
nm.Text = “”
almt.Text = “”
opt1.Value = False
opt2.Value = False
End Sub
Private Sub tampildata()
Adodc1.Refresh
With Adodc1.Recordset
kd.Text = .Fields(“kdanggota”)
nm.Text = .Fields(“nmanggota”)
almt.Text = .Fields(“alamat”)
If .Fields(“jenis_kel”) = “Pria” Then
opt1.Value = True
Else
opt2.Value = True
End If
End With
End Sub
Sub aktif()
kd.Enabled = True
nm.Enabled = True
almt.Enabled = True
opt1.Enabled = True
opt2.Enabled = True
End Sub
Private Sub baru_Click()
isidata = True
bersih
nomor
nm.SetFocus
End Sub
Private Sub cari_Click()
With Adodc1.Recordset
.Find “kdanggota='” & kd.Text & “‘”
If .EOF Then
MsgBox “kode” + kd.Text + “Tidak ada”, vbInformation, “Info”
kd.Text = “”
Else
DataGrid1.Refresh
nm.Text = .Fields(“nmanggota”)
almt.Text = .Fields(“alamat”)
If .Fields(“jenis_kel”) = “Pria” Then
opt1.Value = True
Else
opt2.Value = True
End If
End If
End With
End Sub
Private Sub Form_Load()
aktif
bersih
tgl.Text = Date
jam.Text = Time
End Sub
Sub nomor()
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
a = “001”
Else
Adodc1.Recordset.MoveLast
a = (Val(Right(Adodc1.Recordset.Fields(“kdanggota”), 3)) + 1)
a = Right((“00” + Trim(Str(a))), 3)
End If
kd.Text = “F” + Format(Date, “yy”) & Format(Date, “mm”) & a
End Sub
Private Sub hapus_Click()
p = MsgBox(“Benar Ingin dihapus?”, vbQuestion + vbYesNo, “Tanya”)
If p = vbYes Then
Adodc1.Recordset.Delete
bersih
Else
bersih
End If
End Sub
Private Sub keluar_Click()
End
End If
End Sub
Private Sub simpan_Click()
Adodc1.Refresh
With Adodc1.Recordset
If isidata = True Then
.AddNew
End If
.Fields(“kdanggota”) = kd.Text
.Fields(“nmanggota”) = nm.Text
.Fields(“alamat”) = almt.Text
If opt1.Value = True Then
a = “Pria”
Else
a = “Wanita”
End If
.Fields(“jenis_kel”) = a
.Update
End With
bersih
DataGrid1.Refresh
End Sub
Private Sub ubah_Click()
isidata = False
kd.Enabled = False
End Sub
****BRAVO****
artikel is all in 