Program Absensi Sederhana Dengan Visual Basic 6.0

Trik Hebat Visual Basic

Program Absensi Sederhana Dengan Visual Basic 6.0 

Setelah membahas tentang program simpan, edit dan hapus, pada artikel kali ini saya akan coba membuat program absensi sederhana menggunakan visual basic 6 yang menampilkan perhitungan banyaknya kehadiran dan total tidak masuk siswa, program absensi ini bisa teman-teman kembangkan lagi sesuai dengan kebutuhan, semoga bisa membantu teman-teman yang ingin belajar visual basic.. ^_^

Daripada lama-lama dan tambah bingung, lebih baik kita mulai saja pembahasannya,, :D

pertama kita buat dulu database untuk absensi nya dengan nama latihan.mdb, kemudian isi field-field databasenya seperti ini :

Nama Database : latihan.mdb

Nama Tabel       : Absen

Buatlah database nya

Setelah membuat database selesai, lalu buat desain form absen seperti ini :

Componen tambahan pada Toolbox :

Adodc dan DataGrid

 

 Jika sudah, kita buat module baru, Klik Menu Project > Add Module > Open,,Kemudian akan muncul jendela kode, tuliskan kode perintah berikut :

Public ConN As New ADODB.Connection
Public RsAbsen As New ADODB.Recordset

Sub koneksi()
Set ConN = New ADODB.Connection
Set RsAbsen = New ADODB.Recordset
ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\latihan.mdb"
End Sub

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,

Setelah itu isikan kode berikut pada Form

Private Sub Form_Activate()

Call koneksi
Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan.mdb"
Adodc1.RecordSource = "absen"

Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption

Demikanlah artikel Tentang Program Absensi Sederhana Dengan Visual Basic 6.0 |

Trik Hebat Visual Basic

sumber: http://komputerkampus.com/