Membuat Program Database Sederhana Dan Mudah Dimengerti

Saya anggap anda sudah bisa membuat database pada microsoft accses
Database berisi

No_anggota Char ( 5 )
Nama_anggota Text ( 20 )
Alamat Text ( 30 )
Telepon Integer (15)



Dim dbrental As Database
Dim rsanggota As Recordset

Private Sub Cmdbatal_Click()
blankform
Txtno.SetFocus
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdsimpan_Click()
rsanggota.AddNew
rsanggota!noanggota = Txtno.Text
rsanggota!namaanggota = Txtnama.Text
rsanggota!alamat = Txtalamat.Text
rsanggota!phone = Txttelp.Text
rsanggota.Update
Beep
blankform
Txtno.SetFocus
Cmdsimpan.Enabled = False
End Sub
Sub blankform()
Txtno.Text = ""
Txtnama.Text = ""
Txtalamat.Text = ""
Txttelp.Text = ""
End Sub
Private Sub Form_Load()
Set dbrental = OpenDatabase("c:\rental.mdb")
Set rsanggota = dbrental.OpenRecordset("anggota")
Txtno.MaxLength = 10
Txtnama.MaxLength = 25
Txtalamat.MaxLength = 30
Txttelp.MaxLength = 12
blankform
aktif
Cmdsimpan.Enabled = True
End Sub
Sub nonaktif()
Txtnama.Enabled = False
Txtalamat.Enabled = False
Txttelp.Enabled = False
End Sub
Sub aktif()
Txtnama.Enabled = True
Txtalamat.Enabled = True
Txttelp.Enabled = True
End Sub
Private Sub Txtno_Change()
Dim panjang As Byte
panjang = Len(Txtno.Text)
If panjang < 10 Then
Exit Sub
End If
rsanggota.Index = "noanggota"
rsanggota.Seek "=", Txtno.Text
If rsanggota.NoMatch Then
aktif
Cmdsimpan.Enabled = True
Beep
Txtnama.SetFocus
Else
Beep
x = MsgBox("no.anggota :" & Txtno.Text & " sudah dipakai " & _
UCase(rsanggota!namaanggota) & Chr(10) & _
"Masukan No Anggota Baru !!", , "no salah")
Txtno.Text = ""
End If
End Sub
Private Sub Txtno_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub

Ingin artikel Blog ini langsung ke Email anda? Silahkan masukan alamat email anda untuk berlangganan.

Masukan Alamat Email Anda :

Postingan yang Berhubungan

• Google Adsense
• Harga keyword Google Adsense Per klik Termahal
• Dapat Duit dari AdsenseCamp
• Tips Agar Di terima google Adsense
• Cara Curang Agar Di terima google Adsense
• Menghasilkan Uang Melalui Affiliate Marketing
• Google Melarang Menaruh Iklan Adsense Di Blog Auto Blog
• Tips Cepat terindeks Search engine
• Kenapa Blog Gue Di tolak Google ADsense..??
• Hati-Hati dengan Click Fraud
• Kelebihan Program Affiliate Amazon
• Pay Per Click (PPC)
• Iklan ClixSense
• Cari Dollar Lewat AdBrite
• Kumpulin Dollar Lewat Bux.to
• Tambah Penghasilan Lewat Ziddu
• Cari Dollar Lewat Bidvertiser
• Temanku Dapet $30 dari readbud tiap bulan..?
• Temanku Dapat Dollar Dengan Review Tanpa Website
• Panduan Paypal
• Fungsi Ping Blog?
• Cara Berjualan Produk Amazon.com
• Cara Berjualan Produk Ebay.com
• Cara Berjualan Produk Bhineka.com