Membuat program absensi di Visual Basic 6.0
Pada kesempatan yang berbahagia ini saya akan sedikit berbagi Ilmu dan Pengetahuan saya kepada kalian.Nah jadi pembuatan ini dengan menggunakan metode tertentu yang menampilkan perhitungan banyaknya kehadiran dan total tidak masuk siswa,Program Absensi ini bisa kamu kembangkan lagi dengan modal keilmuan kamu tentang Visual Basic 6.0 ini …Insya Allah bermanfaat untuk menambah pengetahuan temen-temen sekalian yaa…hmmm..
Oke langsung saja kita mulai dengan pembahasan awal tentang pembuatan Program Absensi sederhana dengan visual basic 6.0 ,Ini:
Nah setelah selesai
klik ‘Build the Table’àmaka akan muncul Absen di bawah properties klik kanan pada pilihan AbsenàOpenàklik Update àYesàaddàthe finishing klik Close..lihat gambar berikut.
Database telah selesai maka kita masuk ke project1 visual basic kembali.
Keterangan : Pada tulisan yang bercetak miring tersebut paste kan objek yang telah kamu copy sebelumnya.
Kemudian save Module ditempat yang kamu inginkan
Langkah selanjutnya adalah masuk pengkodean yang ada di form caranya dengan menklik dua kali atau lebih secara cepat pada form . cara lainnya yaitu dengan mengklik viewàCode
Lalu masukkan Kode di bawah ini.
Kode telah selesai langkah terakhir adalah mengkoneksikan Data Grid dengan ADODC.
Caranya sangat mudah klik data grid di design pada menu properties klik datasource => ubah ke ADODC1.
Terima kasih temen-temen semoga bermanfaat...
Oke langsung saja kita mulai dengan pembahasan awal tentang pembuatan Program Absensi sederhana dengan visual basic 6.0 ,Ini:
- Pertama kita masuk dulu Visual basic 6.0 nya
- Klik Standard EXE lalu Open
- Kedua kita terlebih dahulu membuat Database untuk absensi nya ,namun jika kalian belum tau cara membuat database nya ..Insya Allah saya akan menjelaskannya secara runtut.
- Membuka Database : Di menu pojok Kanan klik Add-Ins àVisual data Manager ,atau Lihat gambar dibawah
- Kemudian kamu akan masuk ke menu tab baru,setelah muncul klik file - New à Microsoft Access Version 7.0 MDB…lalu beri nama “Latihan.mdb” (tanpa tanda kutip).
- Letakkan file/simpan file sesuai dengan yang kamu inginkan.
Pembuatan Field-field di database : Nah setelah kita membuka database nya maka langkah selanjutnya adalah : masuk ke Vis data à klik file àOpen DataBaseàMicrosoft Access ,lalu cari file yang telah kamu simpan tadi setelah itu klik Ok
- Setelah Muncul Silahkan Buka Properties => klik kanan pada pilihan “Latihan.MDB” =>New Table
- Kemudian kamu buat tabel rancangan di bawah ,sesuai dengan desain gambar paling bawah!!!
klik ‘Build the Table’àmaka akan muncul Absen di bawah properties klik kanan pada pilihan AbsenàOpenàklik Update àYesàaddàthe finishing klik Close..lihat gambar berikut.
Database telah selesai maka kita masuk ke project1 visual basic kembali.
Oke temen-temen langkah selanjutnya ialah membuat component-component dalam form dengan memasukkan toolbox tertentu namun akan menambahkan compenent-component lain pada tool box yaituà Microsoft data grid control 6.0 (OLEDB) àMicrosoft ADO Data Control 6.0 (OLEDB)
Caranya adalah Klik kanan pada tool box atau dengan menggunakan “Ctrl + T” àklik componentàlalu centang Microsoft data grid control 6.0 (OLEDB) dan Microsoft ADO Data Control 6.0 (OLEDB),lihat gambar
Caranya adalah Klik kanan pada tool box atau dengan menggunakan “Ctrl + T” àklik componentàlalu centang Microsoft data grid control 6.0 (OLEDB) dan Microsoft ADO Data Control 6.0 (OLEDB),lihat gambar
Setelah di centang sekarang temen-temen buat design Form nya.
Untuk design form kamu membutuhkan component-component berikut ini
Nah setelah pembuatan design selesai sekarang kita koneksikan ADODC dengan database caranya adalah klik kanan pada Adodc1 di disegin nya à Pilih ADODC propertiesàklik build àklik “Microsoft Jet 4.0 OLE DB provider àklik next ,kalau lebih jelasnya lihat gambar di bawah ini.
Kemudian Kita masuk pada tahap selanjutnya yaitu membuat module
Untuk design form kamu membutuhkan component-component berikut ini
Nah setelah pembuatan design selesai sekarang kita koneksikan ADODC dengan database caranya adalah klik kanan pada Adodc1 di disegin nya à Pilih ADODC propertiesàklik build àklik “Microsoft Jet 4.0 OLE DB provider àklik next ,kalau lebih jelasnya lihat gambar di bawah ini.
Kemudian Kita masuk pada tahap selanjutnya yaitu membuat module
Caranya: klik project -->add module -->;open lalu masukkan kode 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=D:\Latihan.mdb;Persist Security Info=False"
End Sub
Keterangan : Pada tulisan yang bercetak miring tersebut paste kan objek yang telah kamu copy sebelumnya.
Kemudian save Module ditempat yang kamu inginkan
Langkah selanjutnya adalah masuk pengkodean yang ada di form caranya dengan menklik dua kali atau lebih secara cepat pada form . cara lainnya yaitu dengan mengklik viewàCode
Lalu masukkan Kode di bawah ini.
Private Sub Form_Activate()
Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Latihan.mdb;Persist Security Info=False"
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 = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Fakultas Kedokteran"
Combo1.AddItem "Fakultas Hukum"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Tehnik"
Combo1.AddItem "Fakultas MIPA"
Combo1.AddItem "Pendidikan IPA"
Combo1.AddItem "Ilmu Bahasa"
Combo1.AddItem "Penddidikan Sastra"
Combo1.AddItem "Lainnya"
Combo2.AddItem "Pendidikan Dokter"
Combo2.AddItem "Pendidikan Dokter Gigi"
Combo2.AddItem "Pendidikan Kimia"
Combo2.AddItem "Pendidikan Biologi"
Combo2.AddItem "Pendidikan Matematika"
Combo2.AddItem "Pendidikan Fisika"
Combo2.AddItem "Tehnik Nuklir"
Combo2.AddItem "Tehnik Kimia"
Combo2.AddItem "Tehnik Mesin"
Combo2.AddItem "Tehnik Elektro"
Combo2.AddItem "Tehnik Pertambangan"
Combo2.AddItem "Tehnik Informatika"
Combo2.AddItem "Sastra Indonesia"
Combo2.AddItem "Sastra Inggris"
Combo2.AddItem "Sastra Jerman"
Combo2.AddItem "Sastra Prancis"
Combo2.AddItem "Kimia"
Combo2.AddItem "Fisika"
Combo2.AddItem "Matematika"
Combo2.AddItem "Biologi"
Combo2.AddItem "Tehnik Geologi"
Combo2.AddItem "Tehnik Perkapalan"
Combo2.AddItem "Tehnik Sipil"
Combo2.AddItem "Tehnik Arsitektur"
Combo2.AddItem "Geofisika"
Combo2.AddItem "Tehnik Kelautan"
Combo2.AddItem "Tehnik Industri"
Combo2.AddItem "Tehnik Lingkungan"
Combo2.AddItem "Farmasi"
Combo2.AddItem "Psikologi"
Combo2.AddItem "Ilmu Filsafat"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub
Function CariData()
Call koneksi
RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
End Function
Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matkul
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub
Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub
Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
If Not RsAbsen.EOF Then
TampilkanData
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
MsgBox "NRP Sudah Ada"
Command1.Enabled = False
End If
End Sub
Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub
Private Sub Command1_Click()
Dim SQLSimpan As String
SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
ConN.Execute SQLSimpan
Form_Activate
Call kosong
End Sub
Private Sub Command2_Click() ' Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
Text2.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Command2.Caption = "Edit"
Else
Dim SQLAbsen As String
SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
ConN.Execute SQLAbsen
Form_Activate
Call kosong
Command2.Caption = "Edit Data"
End If
End Sub
Private Sub Command3_Click() 'Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
ConN.Execute SQLAbsen
Form_Activate
Call kosong
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub
Private Sub Command5_Click()
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub
Private Sub Command6_Click()
Text1.Enabled = True
Text2.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Text1.SetFocus
End Sub
Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Latihan.mdb;Persist Security Info=False"
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 = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Combo1.AddItem "Fakultas Kedokteran"
Combo1.AddItem "Fakultas Hukum"
Combo1.AddItem "Manajemen Informatika"
Combo1.AddItem "Tehnik"
Combo1.AddItem "Fakultas MIPA"
Combo1.AddItem "Pendidikan IPA"
Combo1.AddItem "Ilmu Bahasa"
Combo1.AddItem "Penddidikan Sastra"
Combo1.AddItem "Lainnya"
Combo2.AddItem "Pendidikan Dokter"
Combo2.AddItem "Pendidikan Dokter Gigi"
Combo2.AddItem "Pendidikan Kimia"
Combo2.AddItem "Pendidikan Biologi"
Combo2.AddItem "Pendidikan Matematika"
Combo2.AddItem "Pendidikan Fisika"
Combo2.AddItem "Tehnik Nuklir"
Combo2.AddItem "Tehnik Kimia"
Combo2.AddItem "Tehnik Mesin"
Combo2.AddItem "Tehnik Elektro"
Combo2.AddItem "Tehnik Pertambangan"
Combo2.AddItem "Tehnik Informatika"
Combo2.AddItem "Sastra Indonesia"
Combo2.AddItem "Sastra Inggris"
Combo2.AddItem "Sastra Jerman"
Combo2.AddItem "Sastra Prancis"
Combo2.AddItem "Kimia"
Combo2.AddItem "Fisika"
Combo2.AddItem "Matematika"
Combo2.AddItem "Biologi"
Combo2.AddItem "Tehnik Geologi"
Combo2.AddItem "Tehnik Perkapalan"
Combo2.AddItem "Tehnik Sipil"
Combo2.AddItem "Tehnik Arsitektur"
Combo2.AddItem "Geofisika"
Combo2.AddItem "Tehnik Kelautan"
Combo2.AddItem "Tehnik Industri"
Combo2.AddItem "Tehnik Lingkungan"
Combo2.AddItem "Farmasi"
Combo2.AddItem "Psikologi"
Combo2.AddItem "Ilmu Filsafat"
Combo3.AddItem "Hadir"
Combo3.AddItem "Tidak Hadir"
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
End Sub
Function CariData()
Call koneksi
RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
End Function
Private Sub TampilkanData()
Text2 = RsAbsen!nama
Combo1.Text = RsAbsen!jurusan
Combo2.Text = RsAbsen!matkul
Label11.Caption = RsAbsen!masuk
Label12.Caption = RsAbsen!sakit
Label13.Caption = RsAbsen!izin
Label14.Caption = RsAbsen!alpa
Label15.Caption = RsAbsen!total
End Sub
Private Sub kosong()
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label11.Caption = 0
Label12.Caption = 0
Label13.Caption = 0
Label14.Caption = 0
Label15.Caption = 0
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
End Sub
Private Sub Text1_LostFocus()
On Error Resume Next
Call CariData
If Not RsAbsen.EOF Then
TampilkanData
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
MsgBox "NRP Sudah Ada"
Command1.Enabled = False
End If
End Sub
Private Sub Combo3_Click()
If Combo3.Text = "Hadir" Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Label11.Caption = Val(Label11.Caption) + 1
Else
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
End If
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label12.Caption = Val(Label12.Caption) + 1
Else
Label12.Caption = Val(Label12.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label13.Caption = Val(Label13.Caption) + 1
Else
Label13.Caption = Val(Label13.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Label14.Caption = Val(Label14.Caption) + 1
Else
Label14.Caption = Val(Label14.Caption) + 0
End If
Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) + Val(Label14.Caption)
End Sub
Private Sub Command1_Click()
Dim SQLSimpan As String
SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul) values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & Combo2.Text & "')"
ConN.Execute SQLSimpan
Form_Activate
Call kosong
End Sub
Private Sub Command2_Click() ' Kode Perintah Untuk tombol Edit
If Command2.Caption = "Edit Data" Then
Text1.Enabled = False
Text2.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Command2.Caption = "Edit"
Else
Dim SQLAbsen As String
SQLAbsen = "Update absen Set nama='" & Text2.Text & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" & Combo1.Text & "' where nrp='" & Text1 & "'"
ConN.Execute SQLAbsen
Form_Activate
Call kosong
Command2.Caption = "Edit Data"
End If
End Sub
Private Sub Command3_Click() 'Kode Perintah Untuk Tombol Absen
Dim SQLAbsen As String
SQLAbsen = "Update absen Set masuk= '" & Label11.Caption & "'," & " sakit='" & Label12.Caption & "'," & " izin='" & Label13.Caption & "'," & " alpa='" & Label14.Caption & "'," & " total='" & Label15.Caption & "' where nrp='" & Text1 & "'"
ConN.Execute SQLAbsen
Form_Activate
Call kosong
End Sub
Private Sub Command4_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
DataGrid1.Refresh
End Sub
Private Sub Command5_Click()
pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", vbQuestion + vbYesNo, "Keluar")
If pesan = vbYes Then
Unload Me
Else
End If
End Sub
Private Sub Command6_Click()
Text1.Enabled = True
Text2.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Text1.SetFocus
End Sub
Kode telah selesai langkah terakhir adalah mengkoneksikan Data Grid dengan ADODC.
Caranya sangat mudah klik data grid di design pada menu properties klik datasource => ubah ke ADODC1.
Selessai deh ...kira-kira seperti ini hasilnya temen-temen
Terima kasih temen-temen semoga bermanfaat...
Komentar
Posting Komentar