Sunday, April 21, 2013

Contoh Program Absensi Sederhana

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


Field
Data Type
Size
NRP
Text
10
Nama
Text
35
Jurusan
Text
50
Matkul
Text
50
Masuk
Byte
Sakit
Byte
Izin
Byte
Alpa
Byte
Total
Byte

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 :


    

  1. Public ConN As New ADODB.Connection
    2. 

  2. Public RsAbsen As New ADODB.Recordset
    3. 

  3.  
    4. 

  4. Sub koneksi()
    5. 

  5. Set ConN = New ADODB.Connection
    6. 

  6. Set RsAbsen = New ADODB.Recordset
    7. 

  7. ConN.Open "Provider=microsoft.jet.oledb.4.0;data source = "  
    8. 

  8. & App.Path & "\latihan.mdb"
    9. 

  9. End Sub
    10.

Kemudian Save Module yang sudah kita isi dengan kode perintah diatas,,
Setelah itu isikan kode berikut pada Form
    

  1. Private Sub Form_Activate()
    2. 

  2.  
    3. 

  3. Call koneksi
    4. 

  4. Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data 
    5. 

  5. source=" & App.Path & "\latihan.mdb"
    6. 

  6. Adodc1.RecordSource = "absen"
    7. 

  7. Adodc1.Refresh
    8. 

  8. Set DataGrid1.DataSource = Adodc1
    9. 

  9. DataGrid1.Refresh
    10. 

  10. End Sub
    11. 

  11.  
    12. 

  12. Private Sub Form_Load()
    13. 

  13. Text1.Text = ""
    14. 

  14. Text2.Text = ""
    15. 

  15. Combo1.Text = ""
    16. 

  16. Combo2.Text = ""
    17. 

  17. Combo3.Text = ""
    18. 

  18. Label11.Caption = 0
    19. 

  19. Label12.Caption = 0
    20. 

  20. Label13.Caption = 0
    21. 

  21. Label14.Caption = 0
    22. 

  22. Label15.Caption = 0
    23. 

  23. Combo1.AddItem "Sistem Informasi"
    24. 

  24. Combo1.AddItem "Teknik Informatika"
    25. 

  25. Combo1.AddItem "Manajemen Informatika"
    26. 

  26. Combo1.AddItem "Komputer Akuntansi"
    27. 

  27. Combo2.AddItem "Pemprograman Visual I"
    28. 

  28. Combo2.AddItem "Pemprograman Visual II"
    29. 

  29. Combo3.AddItem "Hadir"
    30. 

  30. Combo3.AddItem "Tidak Hadir"
    31. 

  31. Option1.Value = False
    32. 

  32. Option2.Value = False
    33. 

  33. Option3.Value = False
    34. 

  34. Option1.Enabled = False
    35. 

  35. Option2.Enabled = False
    36. 

  36. Option3.Enabled = False
    37. 

  37. Text1.Enabled = False
    38. 

  38. Text2.Enabled = False
    39. 

  39. Combo1.Enabled = False
    40. 

  40. Combo2.Enabled = False
    41. 

  41. Combo3.Enabled = False
    42. 

  42. End Sub
    43.

Kemudian buat function cari data, sub tampilkan data dan kosong seperti dibawah ini :

    

  1. Function CariData()
    2. 

  2.     Call koneksi
    3. 

  3.     RsAbsen.Open "Select * From absen where nrp='" & Text1 & "'", ConN
    4. 

  4. End Function
    5. 

  5.  
    6. 

  6. Private Sub TampilkanData()
    7. 

  7. Text2 = RsAbsen!nama
    8. 

  8. Combo1.Text = RsAbsen!jurusan
    9. 

  9. Combo2.Text = RsAbsen!matkul
    10. 

  10. Label11.Caption = RsAbsen!masuk
    11. 

  11. Label12.Caption = RsAbsen!sakit
    12. 

  12. Label13.Caption = RsAbsen!izin
    13. 

  13. Label14.Caption = RsAbsen!alpa
    14. 

  14. Label15.Caption = RsAbsen!total
    15. 

  15. End Sub
    16. 

  16.  
    17. 

  17.  
    18. 

  18.  
    19. 

  19. Private Sub kosong()
    20. 

  20. Text1.Text = ""
    21. 

  21. Text2.Text = ""
    22. 

  22. Combo1.Text = ""
    23. 

  23. Combo2.Text = ""
    24. 

  24. Combo3.Text = ""
    25. 

  25. Label11.Caption = 0
    26. 

  26. Label12.Caption = 0
    27. 

  27. Label13.Caption = 0
    28. 

  28. Label14.Caption = 0
    29. 

  29. Label15.Caption = 0
    30. 

  30. Option1.Value = False
    31. 

  31. Option2.Value = False
    32. 

  32. Option3.Value = False
    33. 

  33. Option1.Enabled = False
    34. 

  34. Option2.Enabled = False
    35. 

  35. Option3.Enabled = False
    36. 

  36. End Sub
    37.

Untuk pencarian data, masukkan kode perintah berikut pada Text1 dengan procedure Lostfocus :

    

  1. Private Sub Text1_LostFocus()
    2. 

  2. On Error Resume Next
    3. 

  3. Call CariData
    4. 

  4.         If Not RsAbsen.EOF Then
    5. 

  5.             TampilkanData
    6. 

  6.             Text1.Enabled = False
    7. 

  7.             Text2.Enabled = False
    8. 

  8.             Combo1.Enabled = False
    9. 

  9.             Combo2.Enabled = False
    10. 

  10.             MsgBox "NRP Sudah Ada"
    11. 

  11.             Command1.Enabled = False
    12. 

  12.         End If
    13. 

  13. End Sub
    14.

Pada Combo3 atau combo untuk kehadiran, isikan kode berikut untk proses perhitungan absen masuk :
    

  1. Private Sub Combo3_Click()
    2. 

  2. If Combo3.Text = "Hadir" Then
    3. 

  3. Option1.Enabled = False
    4. 

  4. Option2.Enabled = False
    5. 

  5. Option3.Enabled = False
    6. 

  6. Label11.Caption = Val(Label11.Caption) + 1
    7. 

  7. Else
    8. 

  8. Option1.Enabled = True
    9. 

  9. Option2.Enabled = True
    10. 

  10. Option3.Enabled = True
    11. 

  11. End If
    12. 

  12. End Sub
    13.


Kemudain Pada Option 1, 2 dan 3, isikan kode perintah untuk menghitung absen alasan tidak hadir dan total tidak hadir :
    

  1. Private Sub Option1_Click()
    2. 

  2. If Option1.Value = True Then
    3. 

  3. Label12.Caption = Val(Label12.Caption) + 1
    4. 

  4. Else
    5. 

  5. Label12.Caption = Val(Label12.Caption) + 0
    6. 

  6. End If
    7. 

  7. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) 
    8. 

  8. + Val(Label14.Caption)
    9. 

  9. End Sub
    10. 

  10.  
    11. 

  11. Private Sub Option2_Click()
    12. 

  12. If Option2.Value = True Then
    13. 

  13. Label13.Caption = Val(Label13.Caption) + 1
    14. 

  14. Else
    15. 

  15. Label13.Caption = Val(Label13.Caption) + 0
    16. 

  16. End If
    17. 

  17. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) 
    18. 

  18. + Val(Label14.Caption)
    19. 

  19. End Sub
    20. 

  20.  
    21. 

  21. Private Sub Option3_Click()
    22. 

  22. If Option3.Value = True Then
    23. 

  23. Label14.Caption = Val(Label14.Caption) + 1
    24. 

  24. Else
    25. 

  25. Label14.Caption = Val(Label14.Caption) + 0
    26. 

  26. End If
    27. 

  27. Label15.Caption = Val(Label12.Caption) + Val(Label13.Caption) 
    28. 

  28. + Val(Label14.Caption)
    29. 

  29. End Sub
    30.



Terakhir isikan kode perintah untuk command simpan, edit, absen, hapus, isi data dan selesai :

    

  1. Private Sub Command1_Click()   'Kode Perintah Untuk tombol Simpan
    2. 

  2. Dim SQLSimpan As String
    3. 

  3.             SQLSimpan = "Insert Into absen (nrp,nama,jurusan,matkul)
    4. 

  4.  values ('" & Text1 & "','" & Text2 & "','" & Combo1.Text & "','" & 
    5. 

  5. Combo2.Text & "')"
    6. 

  6.             ConN.Execute SQLSimpan
    7. 

  7.             Form_Activate
    8. 

  8.             Call kosong
    9. 

  9. End Sub
    10. 

  10.  
    11. 

  11.  
    12. 

  12. Private Sub Command2_Click()     ' Kode Perintah Untuk tombol Edit
    13. 

  13. If Command2.Caption = "Edit Data" Then
    14. 

  14. Text1.Enabled = False
    15. 

  15.             Text2.Enabled = True
    16. 

  16.             Combo1.Enabled = True
    17. 

  17.             Combo2.Enabled = True
    18. 

  18.             Combo3.Enabled = True
    19. 

  19. Command2.Caption = "Edit"
    20. 

  20. Else
    21. 

  21.  
    22. 

  22. Dim SQLAbsen As String
    23. 

  23.             SQLAbsen = "Update absen Set nama='" & Text2.Text
    24. 

  24.  & "'," & " matkul='" & Combo2.Text & "'," & " jurusan='" 
    25. 

  25.  & Combo1.Text & "' where nrp='" & Text1 & "'"
    26. 

  26.             ConN.Execute SQLAbsen
    27. 

  27.             Form_Activate
    28. 

  28.             Call kosong
    29. 

  29.             Command2.Caption = "Edit Data"
    30. 

  30.             End If
    31. 

  31. End Sub
    32. 

  32.  
    33. 

  33. Private Sub Command3_Click()   'Kode Perintah Untuk Tombol Absen
    34. 

  34. Dim SQLAbsen As String
    35. 

  35.             SQLAbsen = "Update absen Set masuk= '" & Label11.Caption 
    36. 

  36. & "'," & " sakit='" & Label12.Caption & "'," & "
    37. 

  37.  izin='" & Label13.Caption & "'," & " alpa='" &
    38. 

  38.  Label14.Caption & "'," & " total='" & 
    39. 

  39. Label15.Caption & "' where nrp='" & Text1 & "'"
    40. 

  40.             ConN.Execute SQLAbsen
    41. 

  41.             Form_Activate
    42. 

  42.             Call kosong
    43. 

  43. End Sub
    44. 

  44.  
    45. 

  45. Private Sub Command4_Click()    'KOde Perintah Untuk Tombol Hapus
    46. 

  46. Adodc1.Recordset.Delete
    47. 

  47. Adodc1.Recordset.Update
    48. 

  48. DataGrid1.Refresh
    49. 

  49. End Sub
    50. 

  50.  
    51. 

  51. Private Sub Command5_Click()    'Kode Perintah Untuk Tombol Selesai
    52. 

  52. pesan = MsgBox("Anda Yakin Ingin Keluar Dari Program ini?", 
    53. 

  53. vbQuestion + vbYesNo, "Keluar")
    54. 

  54. If pesan = vbYes Then
    55. 

  55. Unload Me
    56. 

  56. Else
    57. 

  57. End If
    58. 

  58. End Sub
    59. 

  59.  
    60. 

  60. Private Sub Command6_Click()   'Kode Perintah Untuk Tombol Isi Data
    61. 

  61. Text1.Enabled = True
    62. 

  62.             Text2.Enabled = True
    63. 

  63.             Combo1.Enabled = True
    64. 

  64.             Combo2.Enabled = True
    65. 

  65.             Combo3.Enabled = True
    66. 

  66.             Text1.SetFocus
    67. 

  67. End Sub
    68.

Source : http://masvisualbasic.blogspot.com


Posted by at
Labels:

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)
Kebahagiaan sejati bukanlah pada saat kita berhasil meraih apa yg kita perjuangkan, melainkan bagaimana kesuksesan kita itu memberi arti atau membahagiakan orang lain.