BUAT APLIKASI SISTEM INFORMASI SEKOLAH (bagian 1)

Hai……….kali ini saya berbagi bagaimana membuat sendiri aplikasi Sistem Informasi Sekolah (Sisfo Sekolah) menggunakan Visual Basic dan Ms. Access sebagai databasenya.

Di bagian pertama ini saya akan berbagi bagaimana membuat Halaman Utama, dan Entry Profil Sekolah

 

Langsung disimak ya…….

Persiapan :

Buat dahulu folder baru dengan nama “sisfo” (tanpa tanda petik) di C:\sisfo

Tahap 1 : Buat Database.

Buatlah sebuah database dengan menggunakan ms. Acces dengan nama database sisfoDB dengan table didalamnya dengan nama table “profil”. image

Untuk lebih jelasnya silahkan baca MEMBUAT DATABASE MENGGUNAKAN MICROSOFT ACCESS 2007.

Tahap 2 : Membuat Disain Aplikasi.

Jalankan Visual basic, klik Standard EXE.

Jika sudah, tambahkan komponen “Adodc” dengan cara klik Project – Component atau tekan Ctrl + T pada keyboard.

Contreng Microsoft ADO Data Control 6.0 (OLEDB) – Apply – OK.image

(gambar dibawah icon Adodc)imageBuatlah Form Aplikasi sesuai dengan ketentuan berikut :

Untitled-1image

Tahap 3 : Koneksi Database.

Untuk seting koneksi database, klik Kanan pada komponen Adodc – klik Adodc Properties hingga muncul tampilan tampilan seperti gambar dibawah.imageKlik Build – klik Microsoft Jet 4.0 OLE DB Provider – Next.imageLangkah selanjutkan, masukkan database dengan klik icon (…), imagejika sudah coba test koneksi dengan klik Test Connection dan jika terkoneksi dengan database maka hasilnya seperti gambar berikut :imageKembali ke properti Adodc, pilih tab RecordSource dan pada Command Text (SQL) ketikkan perintah :

  1. select * from profil

image

Jika sudah klik Apply – Ok

o…ya…….. kalau masih belum jelas, silahkan baca tutorial CARA KONEKSI DATABASE DI VISUAL BASIC

Tahap 4 : Menulis Source Code.

Untuk menuliskan source kodenya silahkan ikuti langkah berikut :

Klik View – Code dan tuliskan kodenya sebagai berikut :

  1. Private Sub kosong()
  2. 'fungsi ini digunakan untuk mengosongkan textbox
  3. txtNama.Text = ""
  4. txtJln.Text = ""
  5. txtDesa.Text = ""
  6. txtKec.Text = ""
  7. txtKab.Text = ""
  8. txtProv.Text = ""
  9. txtTelp.Text = ""
  10. End Sub
  11. Private Sub enable_true()
  12. 'fungsi ini digunakan untuk mengaktifkan textbox
  13. txtNama.Enabled = True
  14. txtJln.Enabled = True
  15. txtDesa.Enabled = True
  16. txtKec.Enabled = True
  17. txtKab.Enabled = True
  18. txtProv.Enabled = True
  19. txtTelp.Enabled = True
  20. End Sub
  21. Private Sub enable_false()
  22. 'fungsi ini digunakan untuk mengunci textbox
  23. txtNama.Enabled = False
  24. txtJln.Enabled = False
  25. txtDesa.Enabled = False
  26. txtKec.Enabled = False
  27. txtKab.Enabled = False
  28. txtProv.Enabled = False
  29. txtTelp.Enabled = False
  30. End Sub

 

Dan lanjutkan copas source code berikut :

  1. Private Sub cmdBatal_Click()
  2. 'perintah ketika tombol BATAL di klik
  3. 'akan memanggil fungsi kosong dan enable_false
  4. kosong
  5. enable_false
  6. cmdUpdate.Enabled = False
  7. cmdHapus.Enabled = False
  8. cmdSimpan.Enabled = False
  9. Adodc1.RecordSource = "select * from profil"
  10. Adodc1.Refresh
  11. End Sub
  12. Private Sub cmdHapus_Click()
  13. 'perintah ketika tombol HAPUS di klik
  14. Adodc1.Recordset.Delete
  15. cmdBatal.Value = True
  16. End Sub
  17. Private Sub cmdKeluar_Click()
  18. 'perintah ketika tombol keluar di klik
  19. Unload Me
  20. End Sub
  21. Private Sub cmdSimpan_Click()
  22. 'perintah ketika tombol simpan di klik
  23. 'maka terjadi pengecekan pada inputan di tiap-tiap textbox
  24. If txtNama.Text = "" Then
  25. MsgBox "Masukkan Nama Sekolah"
  26. ElseIf txtJln.Text = "" Then
  27. MsgBox "Masukkan Nama Jalan"
  28. ElseIf txtDesa.Text = "" Then
  29. MsgBox "Masukkan Nama Desa"
  30. ElseIf txtKec.Text = "" Then
  31. MsgBox "Masukkan Nama Kecamatan"
  32. ElseIf txtKab.Text = "" Then
  33. MsgBox "Masukkan Nama Kabupaten"
  34. ElseIf txtProv.Text = "" Then
  35. MsgBox "Masukkan Nama Provinsi"
  36. ElseIf txtTelp.Text = "" Then
  37. MsgBox "Masukkan Nomor Telepon"
  38. Else
  39. 'jika semua data inputan tidak ada yang kosong maka data akan di simpan di database
  40. Adodc1.Recordset.AddNew
  41. Adodc1.Recordset!nama = txtNama.Text
  42. Adodc1.Recordset!jalan = txtJln.Text
  43. Adodc1.Recordset!desa = txtDesa.Text
  44. Adodc1.Recordset!kec = txtKec.Text
  45. Adodc1.Recordset!kab = txtKab.Text
  46. Adodc1.Recordset!prov = txtProv.Text
  47. Adodc1.Recordset!telp = txtTelp.Text
  48. Adodc1.Recordset.Update
  49. cmdBatal.Value = True
  50. End If
  51. End Sub
  52. Private Sub cmdUpdate_Click()
  53. 'perintah ketika tombol update di klik
  54. 'maka terjadi pengecekan pada inputan di tiap-tiap textbox
  55. If txtJln.Text = "" Then
  56. MsgBox "Masukkan Nama Jalan"
  57. ElseIf txtDesa.Text = "" Then
  58. MsgBox "Masukkan Nama Desa"
  59. ElseIf txtKec.Text = "" Then
  60. MsgBox "Masukkan Nama Kecamatan"
  61. ElseIf txtKab.Text = "" Then
  62. MsgBox "Masukkan Nama Kabupaten"
  63. ElseIf txtProv.Text = "" Then
  64. MsgBox "Masukkan Nama Provinsi"
  65. ElseIf txtTelp.Text = "" Then
  66. MsgBox "Masukkan Nomor Telepon"
  67. Else
  68. 'jika semua data inputan tidak ada yang kosong maka data akan di update di database
  69. 'berbeda dengan code untuk simpan jika melakukan update data
  70. 'code Adodc1.Recordset.AddNew tidak ditulis
  71. Adodc1.Recordset!jalan = txtJln.Text
  72. Adodc1.Recordset!desa = txtDesa.Text
  73. Adodc1.Recordset!kec = txtKec.Text
  74. Adodc1.Recordset!kab = txtKab.Text
  75. Adodc1.Recordset!prov = txtProv.Text
  76. Adodc1.Recordset!telp = txtTelp.Text
  77. Adodc1.Recordset.Update
  78. cmdBatal.Value = True
  79. cmdBatal.Value = True
  80. End If
  81. End Sub
  82. Private Sub DataGrid1_Click()
  83. 'perintah ketika datagrid di klik
  84. 'maka terjadi pengecekan apakah di datagrid terdapat data
  85. If Adodc1.Recordset.BOF = True And Adodc1.Recordset.EOF = True Then
  86. MsgBox "data kosong"
  87. Else
  88. 'jika terdapat data maka akan ditampilkan di textbox masing-masing
  89. txtNama.Text = Adodc1.Recordset!nama
  90. txtJln.Text = Adodc1.Recordset!jalan
  91. txtDesa.Text = Adodc1.Recordset!desa
  92. txtKec.Text = Adodc1.Recordset!kec
  93. txtKab.Text = Adodc1.Recordset!kab
  94. txtProv.Text = Adodc1.Recordset!prov
  95. txtTelp.Text = Adodc1.Recordset!telp
  96. cmdUpdate.Enabled = True
  97. cmdHapus.Enabled = True
  98. enable_true
  99. End If
  100. End Sub
  101. Private Sub txtDesa_KeyPress(KeyAscii As Integer)
  102. 'perintah ketika terjadi penekanan tombol enter pada txt_jenis
  103. 'maka cursor akan mengarah ke txtDesa
  104. If KeyAscii = 13 Then
  105. txtKec.SetFocus
  106. End If
  107. End Sub
  108. Private Sub txtJln_KeyPress(KeyAscii As Integer)
  109. 'perintah ketika terjadi penekanan tombol enter pada txtJln
  110. 'maka cursor akan mengarah ke txt_jenis
  111. If KeyAscii = 13 Then
  112. txtDesa.SetFocus
  113. End If
  114. End Sub
  115. Private Sub txtKab_KeyPress(KeyAscii As Integer)
  116. 'perintah ketika terjadi penekanan tombol enter pada txt_produksi
  117. 'maka cursor akan mengarah ke txtKab
  118. If KeyAscii = 13 Then
  119. txtProv.SetFocus
  120. End If
  121. End Sub
  122. Private Sub txtKec_KeyPress(KeyAscii As Integer)
  123. 'perintah ketika terjadi penekanan tombol enter pada txt_produksi
  124. 'maka cursor akan mengarah ke txtKec
  125. If KeyAscii = 13 Then
  126. txtKab.SetFocus
  127. End If
  128. End Sub
  129. Private Sub txtNama_KeyPress(KeyAscii As Integer)
  130. 'perintah ketika terjadi penekanan tombol enter pada txtNama,
  131. 'maka terjadi pengecekan inputan, jika kosong akan muncul pesan Masukkan Nama Sekolah
  132. If KeyAscii = 13 Then
  133. If txtNama.Text = "" Then
  134. MsgBox "Masukkan Nama Sekolah"
  135. Else
  136. 'pengecekan apakah nama sekolah ada di database
  137. Adodc1.RecordSource = "select * from profil where nama='" & txtNama.Text & "'"
  138. Adodc1.Refresh
  139. 'jika ada maka data akan di tampilkan di text box masing-masing
  140. If Adodc1.Recordset.BOF = False And Adodc1.Recordset.EOF = False Then
  141. txtJln.Text = Adodc1.Recordset!jalan
  142. txtDesa.Text = Adodc1.Recordset!desa
  143. txtKec.Text = Adodc1.Recordset!kec
  144. txtKab.Text = Adodc1.Recordset!kab
  145. txtProv.Text = Adodc1.Recordset!prov
  146. txtTelp.Text = Adodc1.Recordset!telp
  147. cmdUpdate.Enabled = True
  148. cmdHapus.Enabled = True
  149. enable_true
  150. End If
  151. 'jika tidak ada maka tombol simpan akan aktif dan cursor mengarah ke txtJln
  152. If Adodc1.Recordset.RecordCount = 0 Then
  153. cmdSimpan.Enabled = True
  154. enable_true
  155. txtJln.SetFocus
  156. End If
  157. End If
  158. End If
  159. End Sub
  160. Private Sub txtProv_KeyPress(KeyAscii As Integer)
  161. 'perintah ketika terjadi penekanan tombol enter pada txt_produksi
  162. 'maka cursor akan mengarah ke txtProv
  163. If KeyAscii = 13 Then
  164. txtTelp.SetFocus
  165. End If
  166. End Sub
  167. Private Sub txtTelp_KeyPress(KeyAscii As Integer)
  168. 'perintah ketika terjadi penekanan tombol enter pada txtTelp
  169. 'maka cursor akan mengarah ke tombol simpan
  170. If KeyAscii = 13 Then
  171. cmdSimpan.SetFocus
  172. End If
  173. End Sub

 

Tahap 5 : Membuat Form Menu

Untuk membuat form menu silahkan klik Project – Add MDI Form dan pilih MDI Form – klik Open.

Ganti Caption MDI Form menjadi “.::: SISTEM INFORMASI SEKOLAH :::.” Dan Name ganti dengan “Utama” serta ganti Windowsstate dari Normal menjadi Maximized

image

Sudah ya…?

Tekan Ctrl + E pada keyboard untuk menampilkan Menu Editor buat menu pada MDI Form.

Dan hasinya seperti gambar berikut :

Klik menu Entry Profil Sekolah dan tuliskan source codenya sebagai berikut :

  1. Private Sub mnEps_Click()
  2. Form1.Show
  3. End Sub

Dan untuk menu Keluar source codenya adalah :

  1. Private Sub mnKeluar_Click()
  2. End
  3. End Sub

Jika semuanya telah selesai dibuat, sekarang klik Form 1 (profil) pada property ganti MDI Child dari nilai False menjadi nilai True. Kemudian lanjutkan dengan klik Project – Project1 Properties… ganti Startup object dari “Form1” menjadi “Utama”.

Sekarang Jalankan Aplikasinya dengan menekan tombol F5.

 

Selamat Belajar dan……

Kita jumpa pada tulisan berikut dengan judul MEMBUAT LAPORAN PROFIL SEKOLAH

Share this article :
 

+ comments + 1 comments

October 15, 2014 at 4:06 PM

Teman - teman kesulitan untuk Belajar Komputer karena kesibukan? kini kami memfasilitasi kursus komputer jarak jauh via online, silahkan kunjungi website kami di asianbrilliant.com, Master Komputer, Kursus Online

Ayah, Bunda..butuh guru untuk mengajar anak-anak dirumah ? kami memfasilitasi 1000 guru untuk anak-anak ayah dan bunda datang kerumah, silahkan kunjungi website kami di smartsukses.com, Bimbingan Belajar, Les Private

Post a Comment

Terima Kasih Sudah Meninggalkan Komentar...

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. ingin berbagi - All Rights Reserved
Template Created by Creating Website Published by Mas Template
Proudly powered by Blogger