Tutorial Cara Membuat Aplikasi Surat Masuk Bagian Satu - Di artikel berikut kita akan mencoba membuat aplikasi surat masuk. Contoh aplikasi ini bisa anda baca pada postingan saya yang lalu yaitu Aplikasi Agenda Surat Masuk dan Surat Keluar.
Cara membuat aplikasi surat masuk ini akan saya uraikan secara detail agar mudah anda ikuti.
Sebelum anda mencoba mempraktekkan tutorial ini, saya harap anda sudah membaca postingan saya yang lainnya yaitu artikel yang berjudul tutorial membuat aplikasi surat masuk dan keluar mebbgunakan ms.accsess part 1 dan part 2 Karena tutorial cara membuat aplikasi surat masuk ini masih ada kaitannya dengan tutorial tersebut.
Berikut step by step cara membuat aplikasi surat masuk :
1. Buat sebuah tabel dengan field-field seperti pada gambar di bawah. Atur field NoUrut menjadi Primary Key, Atur type data sesuai tabel disamping. Simpan tabel dan beri nama tbl_SuratMasuk.
2. Buatlah sebuah form. Pada jendela Property Sheet aturlah property form
3. Klik pada kotak disudut kiri atas form. Kemudian pada jendela Property Sheet klik Record Source yang dilingkari merah seperti pada gambar di bawah. Disini kita akan membuat perintah sql dengan menggunakan query pada Form.
4. Pada jendela query yang muncul, tambahkan tabel tbl_SuratMasuk yang telah kita buat sebelumnya pada point nomor 1 di atas. Klik dua kali pada tanda asterik “*” dan field NoUrut untuk memasukkan pada kolom dibawahnya.
5. Jika sudah selesai tutuplah jendela query dengan mengklik tanda “x”. Klik Yes pada pesan yang muncul
6. Selanjutnya klik Add Existing Fields pada Menu Format untuk memunculkan jendela Field List
7. Lanjutkan dengan memindahkan field-field tadi ke dalam form dengan cara klik dua kali pada Field di dalam jendela field list
8. Selanjutnya seleksi semua label seperti yang dilingkari merah pada gambar di bawah. Tekan tombol Delete pada keyboard untuk menghapusnya.
9. Setelah terhapus hasilnya terlihat seperti gambar di bawah. Selanjutnya Klik Kanan pada tulisan Detail di dalam form, pilih Form Header/Footer. Fungsi dari Form Header/Footer ini adalah untuk tempat menaruh judul field.
10. Selanjutnya dengan menggunakan Label, kita akan membuat judul kolom untuk field-field tadi. Aturlah Field seperti pada gambar di bawah. Posisikan letak field agar sejajar dengan judul kolom pada Form Header. Simpan form dan beri nama frm_SuratMasukDetail.
11. Selanjutnya aturlah property sheet pada Tab Event, sesuaikan pengaturan seperti pada petunjuk
12. Buat lagi sebuah form dan atur property form sesuaikan dengan pengaturan yang ditandai merah seperti gambar di bawah. Simpan form dan beri nama frm_Surat
13. Tambahkan Tab Control kedalam form frm_Surat tadi. Atur letak Tab Control sehingga posisinya ditengah
14. Klik pada Tab yang Pertama, gantilah nama Tab tersebut di property Sheet dan beri nama Surat &Masuk
15. Selanjutnya kita akan menghapus Tab yang kedua. Klik kanan pada Tab yang kedua, pilih Delete Page sehingga yang tersisa hanya satu Tab Page, yaitu Tab Page Surat Masuk
16. Selanjutnya di Menu Design klik menu Subform/Subreport Lalu klik pada Tab Page Surat Masuk yang telah kita buat pada point 15 di atas. Disini kita akan menggabungkan form frm_Surat sebagai form Utama. Sedangkan form frm_SuratMasukDetail kita akan jadikan sebagai Subform.
17. Selanjutnya akan muncul jendela Subform Wizard seperti gambar di bawah. Klik pada frm_SuratMasukDetail yang telah kita buat sebelumnya pada point 2 s/d 10 di atas.
18. Aturlah letak Subform frm_SuratMasukDetail sehingga hasilnya tampak lebih rapi
19. Selanjutnya buat lagi sebuah tabel dengan struktur field seperti gambar di bawah. Simpan tabel dan beri nama tbl_Sifat. Aturlah primary key pada field KodeSifat.
20. Pada menu View, pilih Datasheet View. Selanjutnya isilah tabel dengan menginput 5 (lima) record
21. Sekarang kita akan membuat sebuah form lagi. Form ini akan berfungsi sebagai tempat user untuk menambah atau menginput data-data Surat Masuk. Aturlah property form sesuai gambar di bawah. Jika sudah selesai, simpanlah form dan beri nama frm_SuratMasukBaru.
22. Tambahkan komponen Label, Text Box, Combo Box, Rectangle serta Command Button kedalam form. Kemudian aturlah posisi komponen tersebut di dalam form
23. Selanjutnya kita akan memberi nama pada komponen-kompenen tersebut pada property sheet agar memudahkan dalam menuliskan kode programnya.
24. Selanjutnya kita akan membuat script kode program pada command button Simpan. Klik kanan pada tombol Simpan, pilih Build Event lalu klik Code Builder lalu klik OK
Tulis/copy dan paste script kode program di bawah ini di Tombol Simpan
Private Sub cmdSimpan_Click()
If IsNull(Me!NoSurat) Then
Beep
MsgBox "Anda Belum mengisi Nomor Suratnya", vbCritical, "PERINGATAN"
Me!NoSurat.SetFocus
Exit Sub
End If
If IsNull(Me!TglSurat) Then
Beep
MsgBox "Anda Belum mengisi Tanggal Suratnya", vbCritical, "PERINGATAN"
Me!TglSurat.SetFocus
Exit Sub
End If
If IsNull(Me!TglTerima) Then
Beep
MsgBox "Anda Belum mengisi Tanggal Terima Surat", vbCritical, "PERINGATAN"
Me!TglTerima.SetFocus
Exit Sub
End If
If IsNull(Me!Perihal) Then
Beep
MsgBox "Anda Belum mengisi Perihal Surat", vbCritical, "PERINGATAN"
Me!Perihal.SetFocus
Exit Sub
End If
If IsNull(Me!Pengirim) Then
Beep
MsgBox "Anda Belum mengisi Pengirim Surat", vbCritical, "PERINGATAN"
Me!Pengirim.SetFocus
Exit Sub
End If
If IsNull(Me!KodeSifat) Then
Beep
MsgBox "Anda Belum memilih Sifat Surat", vbCritical, "PERINGATAN"
Me!KodeSifat.SetFocus
Exit Sub
End If
Dim db As Database, s As String, rs As Recordset
Set db = CurrentDb
s = "SELECT tbl_SuratMasuk.* FROM tbl_SuratMasuk;"
Set rs = db.OpenRecordset(s)
rs.AddNew
rs!NoUrut = Me!NoUrut
rs!NoSurat = Me!NoSurat
rs!TglSurat = Me!TglSurat
rs!TglTerima = Me!TglTerima
rs!Perihal = Me!Perihal
rs!Pengirim = Me!Pengirim
rs!KodeSifat = Me!KodeSifat
rs!Uraian = Me!Uraian
rs.Update
Forms!frm_Surat.Refresh
DoCmd.Close
End Sub
Dengan cara yang sama seperti pada tombol Simpan di atas, tulis/copy paste script kode program di bawah ini di Tombol Batal
Private Sub cmdBatal_Click()
If MsgBox("Surat Masuk Batal Disimpan ?", 33 + 256, "PERHATIAN") = 1 Then
DoCmd.Close
Else
End If
End Sub
itu dulu sebagian dari artikel perancangan aplikasi surat masuk dan keluar menggunakan ms. access
untuk kelanjutanya silahkan lihat dipostingan selanjutnya artikel perancangan aplikasi surat masuk dan keluar menggunakan ms. access part 2
dan untuk artikel lengkap beserta gambar klik disini
No comments:
Post a Comment