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”.

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.

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

Tahap 3 : Koneksi Database.

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

1. select * from profil

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

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

Technorati Tags: contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module