Membuat Form data Entri ke Database

Pada dasarnya data entri yaitu memasukkan dan menyimpan sejumlah data ke dalam database untuk kelak di jadikan laporan kepada pihak yang berkepentingan. untuk membuat form entrian, baik data entri siswa, data entri operator, data entri nilai, dan data entri lain-lain, sama aja kok caranya.
dibawah ini adalah contoh data entri siswa, buatlah tampilan di form designer setidaknya sama seperti gambar di bawah ini, tapi kalau emang nggak sama juga nggak apa-apa kok, nggak dosa..


kalau udah, buat databasenya seperti di form login tadi.
kemudian masukkan dan pelajari sourcecode dibawah ini :

SourceCode :

Dim dbsiswa As Database 'deklarasi database siswa
Dim rssiswa As Recordset 'deklarasi recordset siswa

Private Sub Hapus()
Text1 = ""
Text2 = ""
Combo2 = ""
Text3 = "" 'sub buat clear text
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
End Sub

Private Sub IsiKombo()
Set rssiswa = dbsiswa.OpenRecordset("siswa") 'sub buat menampilkan isi combo dari database
rssiswa.Index = "idxsiswa" 'idxsiswa adalah nama indek database siswa
Combo1.Clear
Do While Not rssiswa.EOF
Combo1.AddItem rssiswa!no_pendaftaran 'no_pendaftaran ini adalah Primary key nya
rssiswa.MoveNext
Loop
Combo1 = ""
Hapus
End Sub

Private Sub Tampil()
On Error Resume Next
Text1 = rssiswa!nama_siswa
Text2 = rssiswa!alamat_siswa
Combo2 = rssiswa!jenis_kelamin
Text3 = rssiswa!tempat_lahir 'sub buat menampilkan keseluruhan database siswa entri
Text4 = rssiswa!tanggal_lahir
Text5 = rssiswa!asal_sekolah
Text6 = rssiswa!no_stk
Text7 = rssiswa!nama_ortu
End Sub

Private Sub UpdateData()
rssiswa!no_pendaftaran = Combo1
rssiswa!nama_siswa = Text1
rssiswa!alamat_siswa = Text2
rssiswa!jenis_kelamin = Combo2
rssiswa!tempat_lahir = Text3 'sub buat memperbaharui database
rssiswa!tanggal_lahir = Text4
rssiswa!asal_sekolah = Text5
rssiswa!no_stk = Text6
rssiswa!nama_ortu = Text7
rssiswa.Update
Combo1 = ""
IsiKombo
End Sub

Private Sub Command2_Click()
rssiswa.Seek "=", Combo1
If Not rssiswa.NoMatch Then
rssiswa.delete 'sub buat menghapus database
Combo1 = ""
Hapus
IsiKombo
End If
End Sub

Private Sub Command3_Click()
Combo1 = ""
Text1 = ""
Text2 = ""
Combo2 = ""
Text3 = "" 'sub buat membatalkan edit database
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
End Sub

Private Sub Form_Load()
Set dbsiswa = OpenDatabase(App.Path & "\PSB.mdb") 'sub buat load dari database yang kamu bikin
IsiKombo
End Sub

Private Sub Command4_Click()
Unload Me 'sub menutup form
End Sub

Private Sub Combo1_Change()
rssiswa.Seek "=", Combo1.Text
If rssiswa.NoMatch Then
Hapus
Else
Tampil
End If
End Sub

Private Sub Combo1_Click()
Combo1_Change
End Sub

Private Sub Command1_Click()
rssiswa.Seek "=", Combo1
If Not rssiswa.NoMatch Then
rssiswa.edit 'sub buat menyimpan di database
Else
rssiswa.AddNew
End If
UpdateData
End Sub

'______________________________
'semoga berhasil.....

'salam,
'http://knifemare.blogspot.com

silahkan berexpresi sendiri untuk memodifikasinya..

Related Posts by Categories