Membuat Laporan Visual Basic Dengan Form Tambahan

Membuat Laporan Visual Basic Dengan Form Tambahan
Dulu saya sudah menjelaskan bagaimana cara membuat laporan dengan CRYSTAL REPORT dan DATA REPORT. Sedangkan pada kesempatan kali ini saya akan menerangkan cara membuat laporan dengan hanya menggunakan form tambahan saja. Tapi memang kode kode nya terlihat susah padahal kalau kita mengerti, inti dari kode kode tersebut hanya sedikit saja.
Seperti biasa saya mengajarkannya dengan metode langsung praktek dan kemudian saya berikan penjelasan. Mulailah dengan membuka program visual basic anda yang sudah jadi lalu buatlah sebuah form tambahan yang baru yang tidak ada isinya. BERI NAMA FORM TERSEBUT MISALKAN DENGAN NAMA LAYAR DAN SIMPAN DENGAN NAMA LAYAR.frm. Fungsi dari form kosong ini hanyalah digunakan sebagai background atau layar laporan yang akan kita buat.
Kemudian ketiklah kode kode dibawah ini sebagai contoh dan letakkan pada tombol untuk mencetak laporan anda. (nama field disesuaikan dengan program yang anda buat). KODE DIBAWAH INI ADALAH HANYA KODE UNTUK MENAMPILKAN LAPORAN TERSEBUT (PREVIEW).
Private Sub CMDPRINT_Click()
LAYAR.Show
Dim grs As String
grs = String$(107, “~”)
LAYAR.Cls
LAYAR.Print
LAYAR.FontName = “Times New Roman”
LAYAR.FontBold = True
LAYAR.FontSize = 12
LAYAR.Print Tab(39); “PT XYZ”
LAYAR.Print Tab(31); “(Distributor Penjualan buku)”
LAYAR.Print Tab(28); “Jl. Condet Raya No.83 Cililitan Jakarta Timur”
LAYAR.Print Tab(31); “Telp.8003149 – 8003524 Fax. 8002147″;
LAYAR.Print
LAYAR.FontBold = False
LAYAR.FontSize = 10
LAYAR.Print Tab(2); grs
LAYAR.FontItalic = True
LAYAR.Print Tab(2); “Print date :”; Format(Date, “DD-MM-YY”)
LAYAR.Print Tab(2); “Print time :”; Time
LAYAR.FontItalic = False
LAYAR.Print Tab(2); grs
LAYAR.FontBold = True
LAYAR.Print Tab(2); “KODE”;
LAYAR.Print Tab(17); “JUDUL BUKU”;
LAYAR.Print Tab(45); “JENIS”;
LAYAR.Print Tab(60); “PENGARANG”;
LAYAR.Print Tab(85); “PENERBIT”;
LAYAR.Print Tab(105); “TAHUN”;
LAYAR.Print Tab(115); “HARGA”;
LAYAR.Print Tab(125); “STOK”;
LAYAR.FontBold = False
LAYAR.Print Tab(2); grs
With Data1
.Refresh
If Not .Recordset.EOF Then
.Recordset.MoveFirst
Do While Not .Recordset.EOF
LAYAR.Print Tab(2); .Recordset!Kode_buku;
LAYAR.Print Tab(17); .Recordset!Judul_buku;
LAYAR.Print Tab(50); .Recordset!Jenis_buku;
LAYAR.Print Tab(70); .Recordset!Karang_buku;
LAYAR.Print Tab(100); .Recordset!Terbit_buku;
LAYAR.Print Tab(130); .Recordset!Tahun_buku;
LAYAR.Print Tab(140); .Recordset!Harga_buku;
LAYAR.Print Tab(150); .Recordset!Stok_buku;
.Recordset.MoveNext
Loop
End If
LAYAR.Print Tab(2); grs
LAYAR.Print Tab(2); “Jumlah buku : “; .Recordset.RecordCount
End With
Call cetak
Printer.EndDoc
Printer.KillDoc
Exit Sub
End Sub
Selanjutnya ketikan kode kode dibawah ini dengan membuat sebuah SUB baru yang sebagai contoh disini bernama SUB CETAK. (nama field disesuaikan dengan program yang anda buat). Isi dari kode dibawah ini dengan kode yang diatas hampir sama hanya berbeda sedikit saja. KODE DIBAWAH INI ADALAH KODE UNTUK MENCETAK LAPORAN TERSEBUT.
Sub cetak()
LAYAR.Show
Dim grs As String
grs = String$(107, “~”)
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.FontName = “Times New Roman”
Printer.FontBold = True
Printer.FontSize = 12
Printer.Print Tab(39); “PT XYZ”
Printer.Print Tab(31); “(Distributor Penjualan buku)”
Printer.Print Tab(28); “Jl. Condet Raya No.83 Cililitan Jakarta Timur”
Printer.Print Tab(31); “Telp.8003149 – 8003524 Fax. 8002147″;
Printer.Print
Printer.FontBold = False
Printer.FontSize = 10
Printer.Print Tab(2); grs
Printer.FontItalic = True
Printer.Print Tab(2); “Print date :”; Format(Date, “DD-MM-YY”)
Printer.Print Tab(2); “Print time :”; Time
Printer.FontItalic = False
Printer.Print Tab(2); grs
Printer.FontBold = True
Printer.Print Tab(2); “KODE”;
Printer.Print Tab(17); “JUDUL BUKU”;
Printer.Print Tab(50); “JENIS”;
Printer.Print Tab(70); “PENGARANG”;
Printer.Print Tab(95); “PENERBIT”;
Printer.Print Tab(110); “TAHUN”;
Printer.Print Tab(120); “HARGA”;
Printer.Print Tab(130); “STOK”;
Printer.FontBold = False
Printer.Print Tab(2); grs
With Data1
.Refresh
If Not .Recordset.EOF Then
.Recordset.MoveFirst
Do While Not .Recordset.EOF
Printer.Print Tab(2); .Recordset!Kode_buku;
Printer.Print Tab(17); .Recordset!Judul_buku;
Printer.Print Tab(50); .Recordset!Jenis_buku;
Printer.Print Tab(70); .Recordset!Karang_buku;
Printer.Print Tab(100); .Recordset!Terbit_buku;
Printer.Print Tab(120); .Recordset!Tahun_buku;
Printer.Print Tab(130); .Recordset!Harga_buku;
Printer.Print Tab(140); .Recordset!Stok_buku;
.Recordset.MoveNext
Loop
End If
Printer.Print Tab(2); grs
Printer.Print Tab(2); “Jumlah buku : “; .Recordset.RecordCount
End With
End Sub


PENJELASAN DARI LISTING PROGRAM DIATAS:
- Perbedaan yang nyata dari 2 kode diatas adalah: kalau kode untuk menampilkan laporan kebanyakan dimulai dengan kata LAYAR sedangkan kode untuk mencetak laporan kebanyakan dimulai dengan kata PRINTER.
- Kata LAYAR digunakan hanya untuk menampilkan laporan saja sedangkan Kata PRINTER digunakan untuk mencetak laporan tersebut.
- Perintah .SHOW digunakan untuk menampilkan form kosong yang tadi dibuat. Sebagai contoh dalam tutorial ini untuk memanggil form yang bernama LAYAR tadi.
- GRS disini masksudnya digunakan untuk membuat Garis yang didefinisikan mempunyai tipe data String. Sedangkan angka disitu contohnya 107 maksudnya adalah panjang dari garis tersebut (Maaf kalau salah).
- CLS disini maksudnya adalah Clear Screen yang digunakan untuk mengosongkan data data yang ada didalam form laporan tersebut ketika form itu dipanggil (Maaf kalau salah).
- FONT NAME digunakan untuk menentukan jenis text atau tulisan yang ada pada laporan yang akan ditampilkan tersebut.
- FONT BOLD digunakan untuk mempertebal tulisan. Jika statusnya TRUE maka tulisan tersebut menjadi tebal, tapi jika statusnya FALSE maka tulisan tersebut tidak tebal.
-FONT ITALIC digunakan untuk memiringkan tulisan. Jika statusnya TRUE maka tulisan tersebut menjadi miring, tapi jika statusnya FALSE maka tulisan tersebut tidak miring.
- FONT SIZE digunakan untuk menentukan ukuran besar kecilnya tulisan.
- PRINT TAB (ANGKA) digunakan untuk mengatur posisi tulisan. Untuk posisi tulisan yang berupa angka tersebut anda bisa mengira ngiranya sendiri. Rubahlah angka tersebut menurut perkiraan anda lalu jalankan form tersebut untuk mengetahui hasilnya. Jika posisi tulisannya masih berantakan, rubahlah angka angka tersebut dengan mengira ngira posisi yang tepat dengan menambahkan angka itu atau menguranginya.
- PRINT DATE digunakan untuk menambahkan tanggal hari ini pada laporan yang dibuat.
- PRINT TIME digunakan untuk menambahkan waktu hari ini pada laporan yang dibuat.
- LAYAR.PRINT TAB (2); GRS maksudnya digunakan untuk membuat garis di layar laporan pada posisi yang telah ditentukan.
- LAYAR.Print Tab(2); Data1.recordset!kode_buku; maksudnya adalah isi dari field kode buku yang ada di database akan ditampilakan di layar laporan pada posisi yang telah ditentukan. Begitu juga dengan penjelasan dari field field yang lain yang ada dibawahnya.
- RECORD COUNT digunakan untuk menghitung jumlah data yang ada.
- CALL CETAK maksudnya adalah untuk memanggil SUB CETAK yang tadi kita buat diatas.
- END DOC sebagai akhir dari dokumen yang ditampilakan (Maaf kalau salah).
- KILL DOC digunakan untuk menghapus semua data laporan yang ditampilkan tadi dari form yang kosong itu sehingga form kosong tersebut akan kosong kembali dan tampilannya menghilang.
Cukup sekian saja tentang cara membuat laporan dengan form kosong ini. Saya menyadari kekurangan saya sangat banyak sekali dalam pembuatan tutorial yang kali ini karena itu saya mohon saran dan koreksinya pada bagian komentar agar tutorial ini bisa lebih berguna dan tidak menyesatkan bagi yang membutuhkannya. Saya mohon maaf kalau ada tulisan tulisan yang salah.Kebenaran hanya datang dari Allah. WASSALAMUALAIKUM !
By: OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com

Membuat EXE Dan SETUP Untuk Program Microsoft Visual Basic

Membuat Setup untuk suatu program bisa tidak terlalu susah. Karena disini kita menggunakan sebuah wizard yang menuntun kita untuk melakukan sesuatu dari pertama hingga akhir. Dengan mengubah program menjadi sebuah setup, maka orang yang memakai program yang kita buat tidak akan mengetahui bagaimana cara kita membuat program tersebut. Dan dengan setup pula jika ada orang yang ingin menggunakan program kita di komputer lain, maka kita tinggal menekan tombol setup tersebut dan program pun langsung terinstall pada komputer itu. Sekarang saya terangkan caranya.
1. Bukalah project dan form program VB yang ingin dibuatkan setup nya.
2. Buanglah tool tool yang tidak dipakai tapi muncul pada toolbox program anda caranya dengan klik kanan pada toolbox lalu pilih components. Beri tanda checklist pada SELECTED ITEMS ONLY untuk melihat toolbox yang sedang aktif.
3. Dan untuk pengujian, hilangkanlah semua tanda checklist yang ada pada toolbok yang aktif tadi baik itu controls, designers, ataupun inserteable objects. Jika tanda checklist tersebut tidak bisa dihapus atau muncul pesan, biarkan saja. Sedang yang bisa dihapus hilangkan saja tanda checklist tersebut. Tekan Apply atau Oke.
4. Selanjutnya kita akan membuat Exe. Caranya adalah pilih File pada bagian menu lalu pilih MAKE (nama project) EXE.
5. Masukan nama file dan tempat untuk meletakkan file exe tersebut lalu tekan Oke.
6. Pembuatan Exe selesai dan lihatlah hasilnya.
7. Perhatian, jika pembuatan Exe gagal, berarti masih ada kesalahan dalam listing program anda. Periksalah kesalahan tersebut dan benarkan. Atau mungkin karena ada sebuah tool yang aktif tapi tidak dipakai untuk membuangnya ikuti langkah nomor 2.
8. Sekarang kita akan membuat Setup.
9. Pilih ADD-INS pada bagian menu.
10.Pilih ADD-INS MANAGER.
11. Cari PACKAGE AND DEPLOYMENT WIZARD. Lalu dipilih.
12. Beri tanda checklist pada bagian LOADED/UNLOADED dan LOAD ON STARTUP. Lalu tekan Oke.
13. Pilih kembali ADD-INS pada bagian menu. Dan disitu akan muncul tulisan baru yaitu PACKAGE AND DEPLOYMENT WIZARD lalu pilihlah tulisan tersebut.
Terkadang muncul tulisan untuk men save ulang program anda, pilih Yes.
14. Setelah muncul layar baru, pilihlah yang PACKAGE.
Terkadang muncul tulisan untuk mengompile ulang program anda (membuat Exe), pilih tombol Yes.
15. Pada layar selanjutnya (Package Type) pilih yang standard setup package. Klik Next.
16. Pada layar Package Folder, pilihlah folder yang berisi program yang telah anda buat. Klik tombol Next.
17. Pada layar DAO Driver, masukanlah driver driver yang dibutuhkan oleh program anda. Lalu klik Next.
18. Pada layar Include Files, masukan semua file yang anda ingin ikut sertakan kedalam package atau paket program yang dibuat termasuk database, gambar, icon, atau file file lainnya. Dan buanglah yang tidak perlu dengan menghilangkan tanda checklist.
19. Silahkan Klik Next terus menerus untuk ke layar berikutnya.
20. Pada layar Cab Option terdapat 2 pilihan yaitu: Single Cab dan Multiple Cab.
21. Pada layar selanjutnya di Installation title masukan nama dari setup yang anda buat.
22. Pada layar Start up Menu Item, letakkan tempat menaruh shortcut program anda apabila nanti sudah terinstall pada bagian Start menu yang diinginkan.
23. Pada layar Install Location, pilihlah tempat untuk meletakkan file file program anda dengan cara menggantinya pada bagian Install location yang ada disitu.
24. Pada layar Shared Files, pilihlah file apa aja yang akan di sharing atau dibagi.
25. Pada layar akhir, berilah judul script dari pembuatan setup ini agar nanti bisa digunakan kembali untuk membuat setup program yang lain dengan format yang sama dengan script tersebut.
26. Tekan tombol Finish untuk menyelesaikan pembuatan Setup ini.
PERHATIAN: untuk pembuatan setup dengan menggunakan software software tambahan seperti Crystal Report atau sebagainya agak sedikit susah dan jika salah maka akan muncul pesan error pada bagian akhir dari pembuatan setup tersebut. Saya sarankan bagi yang belum paham untuk menggunakan software pembuat package yang lain seperti Astrum atau yang lainnya.
Demikianlah penjelasan mengenai pembuatan Setup dari saya. Kalau ada yang salah saya mohon maaf karena saya juga sedang baru belajar. Untuk masukan masukan silahkan tulis dibagian komentar. Terima Kasih banyak untuk membaca blog ini. Bye !
By: OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com

Membuat Laporan Dengan DATA REPORT

Sekarang kita latihan bagaimana caranya membuat laporan dengan Data Report yang ada pada Microsoft Visual Basic. Memang hasil laporannya tidak terlalu bagus dibandingkan dengan Crystal Report, tapi jika anda bisa mengolahnya pasti tidak akan kalah. Cara membuatnya pun tidak terlalu susah. Ikuti langkah langkah berikut ini:
- Buka Project dan Form dari program Visual Basic yang ingin dibuat laporannya.
- Yang akan kita lakukan pertama kalinya adalah membuat data environment nya dahulu.
- Pada bagian menu pilih PROJECT. Lalu pilih ADD DATA ENVIRONMENT. Jika belum ada maka klik kanan pada Toolbox lalu pilih Components. Lalu pada bagian Designers beri tanda checklist pada Data Environment. Tekan Apply dan Oke.
- Setelah Add Data Environment dipilih, maka akan muncul Data Environment 1.
- Di layar Data Environment, klik kanan pada CONNECTION1. lalu pilih PROPERTIES.
- Di layar Link Properties, pilih MICROSOFT JET 4.0 OLE DB PROVIDER. Lalu klik tombol NEXT.
- Di bagian CONNECTION, cari dan pilih atau masukan database anda dengan cara menekan tombol yang ada di nomor 1 (select or enter database name).
- Tekan tombol TEST CONNECTION apakah koneksi ke database tersebut telah berhasil dilakukan atau belum.
- Jika berhasil, maka akan muncul bahwa koneksi telah sukses. Tekan tombol Oke pada pesan tersebut.
- Lalu tekan tombol OKE yang ada di layar Data Link Properties.
- Selanjutnya klik kanan pada Connection1 lalu pilih ADD COMMAND. Maka akan muncul Command 1.
- Lalu klik kanan pada Command 1 tersebut dan pilihlah properties.
- Command Name diganti jika perlu saja.
- Pada bagian connection, pilihlah connection 1.
- Lalu di bagian SOURCE OF DATA gantilah DATABASE OBJECT menjadi TABLE.
- Sedangkan bagian OBJECT NAME nya gantilah dengan nama table yang anda buat.
- Tekan APPLY dan OKE.
- Perhatikan pada layar Data Environment terlihat bahwa sekarang di dalam Command 1 terdapat field field Table yang akan kita buat laporannya (klik tanda plus).
- Kalau barusan kita membuat Data Environmen yang digunakan sebagai penghubung ke Database, maka sekarang kita membuat Data Report nya.
- Pada bagian menu pilih PROJECT. Lalu pilih ADD DATA REPORT. Jika belum ada maka klik kanan pada Toolbox lalu pilih Components. Lalu pada bagian Designers beri tanda checklist pada Data Report. Tekan Apply dan Oke.
- Setelah Add Data Report dipilih, maka akan muncul layar Data Report 1.
- Letakkan atau Drag semua field yang ada di Command 1 (tempatnya di Data Environment 1) ke dalam Layar Data Report pada bagian DETAIL.
- Perhatikanlah setelah field tersebut di drag, terdapat 2 bagian field disana yaitu yang ada di sebelah kiri (Label) dan yang ada di sebelah kanan (Textbox).
- Pindahkan semua label (bagian kiri) ke bagian PAGE HEADER dari Data Report.
- Sedangkan untuk semua Textbox (bagian kanan) pindahkan tepat dibawah label dari masing masing textbox tersebut tapi tetap di pada bagian DETAIL.
- Jika perlu anda juga bisa menambahkan judul laporan pada REPORT HEADER dengan menggunakan RPTLABEL yang ada di Toolbox Data Report.
- Selanjutnya kita harus menyambungkan Data Report tersebut dengan Data Environment yang telah dibuat sebelumnya. Caranya adalah klik pada bagian atas Data Report tersebut (bagian ini terletak dibawah bagian atas dari layar Project 1 Data Report 1).
- Pada bagian Propertiesnya gantilah hal hal berikut:
Data source: Data Environment
Data member: Command 1
- Untuk tahap akhir jalankan Data Report tersebut tentunya dengan cara pilih PROJECT yang ada di bagian menu lalu pilih PROJECT PROPERTIES. Dan pada bagian STARTUP OBJECT, diganti menjadi nama Data Report yang barusan kita buat (Data Report 1). Tekan Oke.
- Hasil dari laporan tersebut akan tampil.
- Sekarang tergantung anda sendiri jika anda pintar dalam mendisain atau memperbagus bentuk dari laporan ini, maka pasti laporan tersebut menjadi kelihatan lebih indah.
Demikianlah cara membuat laporan dengan Data Report pada Microsoft Visual Basic. Selamat mencoba tutorial ini dan saya doakan mudah mudahan berhasil.
Jangan lupa untuk melihat tutorial saya yang lain yang berjudul membuat laporan dengan Crystal Report, Insya Allah bermanfaat. Amin. Wassalamualaikum !!!
By: OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com

Membuat Laporan Dengan CRYSTAL REPORT

Ada banyak cara untuk membuat sebuah laporan yang dipakai oleh suatu program. Cara satu cara yang dipakai adalah dengan menggunakan Crystal Report. Dengan software ini laporan mudah dibuat dan lebih terlihat rapi. Yang dimaksud laporan disini adalah laporan yang dibuat untuk program microsoft visual basic. Bisa dibilang ini adalah lanjutan dari tulisan saya yang sebelumnya yaitu tentang pembuatan program penjualan buku yang telah kita pelajari. Tapi tentunya pada komputer anda harus sudah terinstall software Crystal Report ini terlebih dahulu jika ingin mempelajarinya.
Setelah Crystal Report terinstall, langkah2 yang harus dilakukan berikutnya adalah:
1. Buka program Crystal Report (CR).
2. Pada layar Welcome terlihat ada 3 pilihan.
- Using The Report Expert untuk membuat laporan secara otomatis.
- As A Blank Report untuk membuat laporan secara manual.
- Open An Existing Report untuk membuka laporan yang sudah pernah dibuat.
3. Untuk tutorial ini kita memakai yang USING THE REPORT EXPERT.
4. Pada CR gallery pilihlah yang STANDARD maka akan muncul layar berikutnya.
5. Pada bagian pertama kita disuruh memasukan Data dari laporan yang ingin kita buat. pilihlah yang DATABASE jika anda membuat laporan untuk program yang berhubungan dengan database.
6. Pada Data Explorer, pilih DATABASE FILES.
7. lalu pilih FIND DATABASE FILE dan carilah database yang telah anda buat.
8. Setelah database dipilih, maka terlihatlah semua Table yang ada di database tersebut.
9. Pilihlah nama Table yang anda butuhkan dengan menekan tombol ADD. Dan disini juga boleh memasukan banyak Table.
10. Untuk nama Table yang dipilih maka akan terlihat ada tanda checklist pada Table tersebut dan Table tersebut langsung masuk pada bagian DATA yaitu pada daftar Table yang akan digunakan untuk laporan (Tables available for reports).
11. Jika sudah pilihlah tombol CLOSE pada Data Explorer tadi.
12. Berikutnya pada bagian LINKS. Jika Table anda mempunyai hubungan antar Table (Relationships/Links) maka secara otomatis akan dihubungkan melalui index atau primary key antar Table tersebut.
13. Pada bagian FIELDS, masukanlah field field yang anda ingin masukan ke dalam laporan dengan cara menekan tombol ADD untuk memasukan satu persatu atau ADD ALL untuk memasukan semua field sekaligus.
14. Di bagian ini, anda juga bisa membatalkan atau menghapus field field yang telah anda masukan ke dalam laporan dengan menekan tombol REMOVE untuk menghapus satu persatu atau REMOVE ALL untuk menghapus semua field sekaligus.
15. Anda bisa mengatur posisi dari field field tadi dengan menekan tombol panah keatas atau panah kebawah sehingga field yang anda pilih bisa bertukar posisi.
16. Anda juga bisa mengganti nama field tadi dengan merubahnya pada bagian COLUMN HEADING.
17. Untuk bagian bagian seterusnya anda bisa menekan tombol NEXT untuk meneruskan proses pembuatan laporan itu sampai terakhir atau anda juga bisa menekan tombol BACK bila ada bagian yang ingin dirubah. Jadi dalam pembuatan laporan disini anda bisa melewati beberapa proses atau bagian yang ada.
18. Untuk bagian bagian selanjutnya adalah hanya tambahan saja (Optional) yaitu Group, Total, TopN, Chart, Select, dan yang terakhir adalah Style. Lewati saja bagian yang menurut anda tidak diperlukan, sampai akhirnya pada bagian Style.
19. GROUP digunakan untuk mengelompokkan field field laporan anda menjadi suatu kelompok. Misalnya anda bisa mengelompokkan field field yang ada di table transaksi menjadi berdasarkan tanggal, maka hasil laporan pun akan tersusun dan dekelompokan berdasarkan tanggal.
20. Bagian TOTAL dan TOP N tidak akan bisa dipilih jika anda tidak memilih GROUP.
21. Bagian TOTAL digunakan untuk menyisipkan suatu perhitungan dari suatu field ke dalam laporan. Contohnya anda bisa menambahkan jumlah total kesuluruhan dari semua data transaksi anda.
22. Bagian TOP N digunakan untuk mengurutkan suatu group.
23. Selanjutnya anda juga bisa menambahkan sebuah diagram atau Chart pada bagian CHART dan bisa disusun secara vertikal (keatas) atau horizontal (kesamping). Disitu terdapat berbagai macam diagram yang bisa anda pakai.
24. Bagian SELECT bisa anda gunakan untuk menambahkan suatu sub laporan.
25. Yang terakhir adalah bagian STYLE. Anda bisa memilih gaya laporan anda sendiri apakah ingin menampilkannya agar tersusun menjadi sebuah Table atau tanpa Table atau ada juga beberapa pilihan lainnya.
26. Jangan lupa untuk menambahkan judul dari Laporan tersebut pada kotak TITLE.
27. ADD PICTURE digunakan untuk menambahkan sebuah gambar ke dalam laporan anda jika itu diperlukan.
28. Jika semua sudah diatur, tinggal menekan tombol FINISH untuk mengakhirinya.
29. Hasil laporan akhirnya dimunculkan dan anda bisa melihat isi data dari laporan itu.
30. Perlu diperhatikan bahwa di layar tampilan tersebut terdapat dua bagian yaitu:
- DESIGN untuk mendisain atau merubah dan mengutak atik laporan tadi. Pada bagian ini isi data tidak diperlihatkan.
- PREVIEW untuk melihat isi dari data yang didisain (data diperlihatkan). Sebenarnya anda juga bisa mengutak atik laporan anda pada bagian ini.
31. Anda bisa menambahkan field, group, total, garis, kotak, tulisan, gambar atau hal hal lain dengan menekan INSERT pada bagian menu. Dengan tool tool tersebut laporan anda bisa jadi kelihatan lebih indah.
32. Bahkan di laporan ini juga banyak terdapat tool yang mirip dengan yang ada di microsoft office word. Misalnya untuk membuat huruf tebal, miring, garis bawah atau membuat tulisan menjadi ke kiri, kanan, tengah atau rata dan sebagainya.
33. Jangan lupa untuk menyimpan laporan yang telah anda buat.
CARA MENGHUBUNGKAN CRYSTAL REPORT KE VISUAL BASIC
- Buka project dan form yang ingin dibuatkan laporannya.
- Klik kanan pada Toolbox dan pilih Component.
- Pada bagian Controls, pilihlah Crystal Report Control. Tekan Apply dan Oke.
- Setelah Tool Crystal Report muncul pada toolbox, letakkanlah di dalam form tersebut.
- Contoh rumus yang dituliskan di listing programnya:
Crystalreport1.ReportFileName = App.Path & “\NamaLaporan.rpt”
Crystalreport1.WindowState = crptMaximized
Crystalreport1.RetrieveDataFiles
Crystalreport1.Action = 1
Demikianlah cara membuat laporan dengan Crystal Report. Mudah kan? Dan coba perhatikan hasil laporan anda pasti terlihat lebih rapi dibandingkan apabila anda membuatnya dengan cara yang lain. Sekian dan Terima kasih. Wassalam !
By: OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com

Membuat Program Penjualan Visual Basic 8 : Membuat Form Laporan

Membuat Program Penjualan Visual Basic 8 : Membuat Form Laporan
Dengan adanya laporan kita dapat mengetahui seluruh data apa saja yang masuk ke dalam database program penjualan ini. Ada banyak cara untuk membuat sebuah laporan. Dan cara yang saya pakai saat ini adalah dengan menggunakan software tambahan yang bernama Crystal Report. Bagi anda yang tidak punya Crystal Report, anda dapat membaca tutorial yang lain yang judulnya Membuat Laporan Dengan Data Report. Dan bagi anda yang punya Crystal Report, anda dapat melihat cara membuat laporannya pada Tutorial Membuat Laporan Dengan Crystal Report. Pada Tutorial yang ini saya hanya membahas pembuatan form laporan beserta listing programnya saja.

8. Membuat FORM LAPORAN
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:

NAME	CAPTION/TEXT	KETERANGAN
Flaporan	Laporan	Form
Label1	Tanggal	Label
Label2	Tanggal Awal	Label
Label3	Tanggal Akhir	Label
Label4	Bulan	Label
Label5	Tahun	Label
Label7	Tahun	Label
Label8	Tekan Preview	Label
Cmdexit	&exit	Command Button
Cmdpreview	&preview	Command Button
Frame1	Harian	Frame
Frame2	Mingguan	Frame
Frame3	Bulanan	Frame
Frame4	Tahunan	Frame
Data1	-	Data
CR	-	Crystal Report
Combo1	-	Combo
Combo2	-	Combo
Combo3	-	Combo
Combo4	-	Combo
Combo5	-	Combo
Combo6	Keseluruhan	Combo
Combo7	-	Combo

Adapun Listing Program dari Form Login ini adalah:


Private Sub CMDEXIT_Click()
Unload Me
End Sub

Private Sub Combo6_Click()
If Combo6.Text = "HARIAN" Then
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo1.Text = ""
Else
If Combo6.Text = "MINGGUAN" Then
Frame2.Visible = True
Frame1.Visible = False
Frame3.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo2.Text = ""
Else
If Combo6.Text = "BULANAN" Then
Frame3.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame4.Visible = False
Label8.Visible = False
Combo3.Text = ""
Else
If Combo6.Text = "TAHUNAN" Then
Frame4.Visible = True
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
Label8.Visible = False
Combo7.Text = ""
Else
If Combo6.Text = "KESELURUHAN" Then
Label8.Visible = True
Frame4.Visible = False
Frame2.Visible = False
Frame1.Visible = False
Frame3.Visible = False
End If
End If
End If
End If
End If
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/buku.mdb"
Data1.RecordSource = "select * from Table_transaksi"
Data1.RecordSource = "Select Distinct Tgl_faktur From table_transaksi order By 1"
Data1.Refresh
Do Until Data1.Recordset.EOF
    Combo1.AddItem Data1.Recordset!Tgl_faktur
    Combo2.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
    Combo3.AddItem Format(Data1.Recordset!Tgl_faktur, "YYYY ,MM, DD")
    Data1.Recordset.MoveNext
Loop

For i = 1 To 12
    Combo4.AddItem i
Next i
For i = 1 To 20
    Combo5.AddItem 2000 + i
Next i
For i = 1 To 20
    Combo7.AddItem 2000 + i
Next i
End Sub

KETERANGAN 1:
-Combo1 diisi dengan semua field Tanggal faktur yang ada di database.
-Combo2 juga diisi dengan semua field Tanggal faktur yang ada di database tapi dengan memakai format Tahun, Bulan, Hari contoh: 2009/03/20
-Combo3 juga diisi dengan semua field Tanggal faktur yang ada di database dan dengan memakai format seperti pada combo2.
-Combo4 diisi dengan angka dari 1 sampai 12
-Combo5 diisi dengan angka 2001 sampai 2020
-Combo7 diisi dengan angka 2001 sampai 2020
Private Sub CMDPREVIEW_Click()
On Error Resume Next
If Frame1.Visible = True Then
    cr.SelectionFormula = "Totext({table_transaksi.Tgl_faktur})=’" & Combo1 & "’"
    cr.ReportFileName = App.Path & "\Transaksi.rpt"
    cr.WindowState = crptMaximized
    cr.RetrieveDataFiles
    cr.Action = 1
Else
If Frame2.Visible = True Then
    cr.SelectionFormula = "{table_transaksi.Tgl_faktur} in date (" & Combo2.Text & ") to date (" & Combo3.Text & ")"
    cr.ReportFileName = App.Path & "\Transaksi.rpt"
    cr.WindowState = crptMaximized
    cr.RetrieveDataFiles
    cr.Action = 1
Else
If Frame3.Visible = True Then
Data1.RecordSource = "select * from table_transaksi where month(Tgl_faktur)=’" & Val(Combo4) & "’ and year(Tgl_faktur)=’" & (Combo5) & "’"
    cr.SelectionFormula = "Month({table_transaksi.Tgl_faktur})=" & Val(Combo4.Text) & " and Year({table_transaksi.Tgl_faktur})=" & Val(Combo5.Text)
    cr.ReportFileName = App.Path & "\Transaksi.rpt"
    cr.WindowState = crptMaximized
    cr.RetrieveDataFiles
    cr.Action = 1
Else
If Frame4.Visible = True Then
    Data1.RecordSource = "select * from table_transaksi where year(Tgl_faktur)=’" & (Combo7) & "’"
    cr.SelectionFormula = "Year({table_transaksi.Tgl_faktur})=" & Val(Combo7.Text)
    cr.ReportFileName = App.Path & "\Transaksi.rpt"
    cr.WindowState = crptMaximized
    cr.RetrieveDataFiles
    cr.Action = 1
Else
    cr.ReportFileName = App.Path & "\Transaksi.rpt"
    cr.WindowState = crptMaximized
    cr.RetrieveDataFiles
    cr.Action = 1
End If
End If
End If
End If
End Sub

KETERANGAN 2 :
-Selection Formula disini berfungsi untuk menyeleksi suatu data tertentu saja.
-Report File Name adalah nama dari Report/laporan yang kita buat dengan Crystal Report.
-Window State berguna untuk pengaturan besarnya layar laporan. Jika Crpt maximezed berarti layar laporan diperbesar sampai maximal.
-Retrieve Data Files dipakai agar apabila data yang ada di program penjualan berubah, maka data yang ada di laporan juga ikut berubah.
-Action disini adalah perintahnya.

KETERANGAN 3 :
-Frame1 mengambil data dari Table Transaksi yang Tanggal Faktur nya sama dengan yang dipilih di Combo1. Tapi sebelumnya Type data Tanggal Faktur dirubah menjadi Text (aslinya adalah Date/Time).
-Frame2 mengambil data dari Table Transaksi yang Tanggal Faktur nya adalah antara Tanggal yang dipilih di Combo2 dan Combo3.
– Frame3 mengambil data dari Table Transaksi yang Bulan faktur nya sama dengan yang dipilih di Combo4 dan Tahun faktur nya sama dengan yang dipilih di Combo5.
-Frame4 mengambil data dari Table Transaksi yang Tahun Faktur nya sama dengan yang dipilih di Combo7.
-Jika Tidak ada frame yang muncul berarti tidak memakai rumus Selection Formula, sehingga data akan ditampilkan semuanya dari awal hingga akhir.

- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Flaporan” dan menyimpannya dengan nama ”Laporan.frm”.
- Sekali lagi saya ingatkan agar anda membaca juga cara Membuat Laporan Dengan Data Report dan cara Membuat Laporan Dengan Crystal Report.
Akhirnya selesai sudahlah semua tutorial belajar membuat program penjualan buku dengan menggunakan microsoft visual basic ini. Mudah mudahan bisa menjadi ilmu yang bermanfaat di dunia dan akhirat. Mohon maaf kalau seandainya pengetahuan yang saya berikan hanya sedikit karena saya juga masih belajar. Hanya Allah lah yang maha luas ilmunya. Dan saya mengharapkan komentar anda semua untuk membuat saya dan blog ini menjadi semakin maju. Atas perhatiannya saya ucapkan banyak terima kasih.
Wassalamualaikum !!!

By: OPIX HOLMES
opix.holmes@yahoo.com
http://www.islamicunderground.com

Membuat Program Penjualan Visual Basic 7 : Membuat Form Login

Membuat Program Penjualan Visual Basic 7 : Membuat Form Login
Form Login fungsinya sangat penting sekali karena jika form ini tidak ada, maka program yang telah kita buat bisa dipakai oleh orang lain selain yang berhak untuk memakainya. Dengan Form Login seorang user dipaksa untuk memasukan ID dan Password yang membuat tidak semua orang bisa mengaksesnya. Bagi user yang sudah memiliki ID dan password terbagi menjadi 2 yaitu: Administrator User dan Limited User. Administrator dapat menggunakan seluruh isi dari program ini tanpa ada batasan sedangkan Limited dibatasi hanya pada beberapa form tertentu saja misalnya form transaksi atau laporan.

7. Membuat FORM LOGIN
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:

NAME	CAPTION/TEXT	KETERANGAN	TAMBAHAN
Txtkd	-	Textbox
Txtpass	-	Textbox
Txttype	-	Textbox
Cmdcancel	&cancel	Command Button
Data1	-	Data
Login	Form Login	Form

Adapun Listing Program dari Form Login ini adalah:
Private Sub Form_Activate()
TXTKD.SetFocus
TXTKD.Text = ""
TXTPASS.Text = ""
TXTPASS.Enabled = False
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/BUKU.mdb"
Data1.RecordSource = "select * from Table_user"
End Sub
Private Sub TXTKD_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Data1.Recordset.FindFirst "Id_user=’" & TXTKD.Text & "’" & ""
    If Not Data1.Recordset.NoMatch Then
    TXTPASS.Enabled = True
    TXTPASS.SetFocus
    Else
    MsgBox "ID TIDAK TERDAFTAR"
    TXTKD.Text = ""
    End If
End If
End Sub
Private Sub TXTPASS_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Data1.Recordset.FindFirst "Id_user=’" & TXTKD.Text & "’" & " And " & "pass_user=’" & TXTPASS.Text & "’"
If Not Data1.Recordset.NoMatch Then
    fTransaksi.TXTKASIR.Text = TXTKD.Text
    Menuutama.TXTTYPE.Text = Data1.Recordset!Type_user
    Menuutama.txtuser.Text = Data1.Recordset!Id_user
    Unload Me
    Menuutama.show
Else
    MsgBox "PASSWORD SALAH"
    TXTPASS.Text = ""
    TXTPASS.SetFocus
    End If
End If
End Sub

Private Sub CMDCANCEL_Click()
Unload Me
End Sub
Peringatan: Jika Form Menu utama (menuutama) atau form transaksi (ftransaksi) belum dibuat maka sebaiknya anda membuatnya terlebih dahulu.

- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Login” dan menyimpannya dengan nama ”Login.frm”.

- Sekian saja untuk tutorial pembuatan Form Login. Terima kasih atas perhatiannya jika anda masih setia untuk megikuti tutorial pembuatan penjualan buku ini. Kita bertemu pada tutorial yang selanjutnya Insya Allah.

By: OPIX HOLMES
opix.holmes@yahoo.com
http://www.islamicunderground.com

Membuat Program Penjualan Visual Basic 6 : Membuat Menu Utama

Membuat Program Penjualan Visual Basic 6 : Membuat Menu Utama
Menu Utama digunakan sebagai pusat dari semua form yang telah kita buat. Melalui form inilah kita mengakses semua form yang ada. Dengan Form menu utama ini anda tinggal menekan nama form yang dicari, maka form yang kita pilih akan segera muncul. Pada form menu utama ini anda boleh menghiasnya sesuka anda. Buatlah seindah mungkin agar user menjadi tetap tertarik untuk memakain program ini.

6. Membuat FORM MENU UTAMA
- Buatlah sebuah form baru
– Tekanlah Icon MENU EDITOR yang ada pada bagian atas toolbar. Atau bisa juga klick kanan pada Form lalu pilih MENU EDITOR.
– Pada layar Menu Editor anda disuruh memasukan Caption dan Name form yang ingin kita tuju bila user menekannya (maksudnya sub menu).
– Untuk tutorial ini terdapat beberapa sub menu yang akan kita buat :
1. FILE di dalamnya terdapat 3 bagian yaitu: File buku, Pelanggan, dan User.
2. TRANSAKSI di dalamnya terdapat Input Transaksi dan Cari Transaksi.
3. LAPORAN (akan memanggil form laporan yang akan kita buat pada tutorial lain).
4. EXIT terbagi menjadi 2 yaitu: Log Off dan Close All.
- Tekan tombol Next untuk memasukan sub menu yang selanjutnya
– Tekan tombol Insert untuk menyisipkan sub menu diantara sub menu yang lain
– Tekan tombol Delete untuk menghapus sebuah sub menu
- Tekan tombol panah Kanan untuk memasukan sub menu ke dalam sub menu yang lain
– Tekan tombol panah Kiri untuk mengeluarkan sub menu dari sub menu yang lain
– Tekan tombol panah Atas untuk meletakan sub menu di atas sub menu yang lain
– Tekan tombol panah Bawah untuk meletakan sub menu di bawah sub menu yang lain
- Adapun yang harus anda masukan di dalam Menu Editor tersebut adalah:

CAPTION	NAME	POSISI
File	File	Sub Menu Utama
Buku	Filebuku	Di dalam sub menu File
Pelanggan	Filepelanggan	Di dalam sub menu File
User	Fileuser	Di dalam sub menu File
Transaksi	Transaksi	Sub Menu Utama
Input Transaksi	Penjualan	Di dalam sub menu Transaksi
Cari Transaksi	Browse	Di dalam sub menu Transaksi
Laporan	Laporan	Sub Menu Utama
Exit	Exit	Sub Menu Utama
Log Off	Logoff	Di dalam sub menu Exit
Close All	Closeall	Di dalam sub menu Exit

- Jika semua sudah dimasukan silahkan tekan tombol Oke.
- Adapun Listing Program dari Form Menu Utama ini adalah:
Private Sub BROWSE_Click()
FBrowse.Show
End Sub
Private Sub CLOSEALL_Click()
End
End Sub
Private Sub FILEBUKU_Click()
Buku.Show
End Sub
Private Sub FILEPELANGGAN_Click()
Pelanggan.Show
End Sub
Private Sub FILEUSER_Click()
If txttype.Text = "ADMINISTRATOR" Then
User.Show
Else
MsgBox "ANDA TIDAK DAPAT MENGAKSES, HANYA ADMINISTRATOR YANG BISA MENGAKSES !!!", vbOKOnly, "PERINGATAN"
End If
End Sub
Private Sub Laporan_Click()
fLaporan.Show
End Sub
Private Sub LOGOFF_Click()
Unload Me
Login.Show
End Sub
Private Sub PENJUALAN_Click()
fTransaksi.Show
End Sub
- Jangan lupa untuk mengganti NAME dari form ini di properties menjadi ”menuutama” dan menyimpannya dengan nama ”menu.frm”.
- Cukup sekian untuk belajar kali ini. Jika ada pertanyaan silahkan kirimkan di kolom komentar dan Insya Allah kalau saya mengerti akan saya jawab langsung. Thanx !

By: OPIX HOLMES
opix.holmes@yahoo.com
http://www.islamicunderground.com

Membuat Program Penjualan Visual Basic 5 : Membuat Form Pencarian Transaksi

Form pencarian transaksi ini digunakan untuk mengetahui dan mencari semua data transaksi yang telah masuk ke database. Untuk pencarian pada form ini terbagi menjadi 3 pilihan yaitu pencarian berdasarkan nomor faktur, kode buku, atau kode pelanggan. Jika anda tidak memakai form ini juga tidak apa apa karena sebenarnya data transaksi juga bisa dilihat melalui laporan transaksi yang akan kita bahas pada tutorial yang lain. Baiklah sekarang kita mulai saja belajar ini.
5. Membuat FORM PENCARIAN TRANSAKSI
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:
NAME CAPTION/TEXT KETERANGAN TAMBAHAN
Combo1 - Combo box
Txtfind - Textbox
Cmdfind &find Command button
Cmdexit &exit Command button
Data1 - Data
Data2 - Data
Data3 - Data
Data4 - Data
Dbgrid1 - Dbgrid
Dbgrid2 - Dbgrid
Dbgrid3 - Dbgrid
Dbgrid4 - Dbgrid
Fbrowse Form Pencarian Transaksi Form
Cmdprint &print Command Button Jika punya Crystal Report
CR - Crystal Report Jika punya Crystal Report
CR2 &print Crystal Report Jika punya Crystal Report
CR3 - Crystal Report Jika punya Crystal Report
Adapun Listing Program dari Form Pencarian Transaksi ini adalah:
Private Sub Form_Load()
Data1.DatabaseName = App.Path & “/buku.mdb”
Data1.RecordSource = “select * from Table_transaksi”
Data1.Refresh
DBGrid1.Refresh
Data2.DatabaseName = App.Path & “/buku.mdb”
Data2.RecordSource = “select * from Table_detail”
Data2.Refresh
DBGrid2.Refresh
Data3.DatabaseName = App.Path & “/buku.mdb”
Data3.RecordSource = “select * from Table_transaksi”
Data3.Refresh
DBGrid3.Refresh
Data4.DatabaseName = App.Path & “/buku.mdb”
Data4.RecordSource = “select * from Table_detail”
Data4.Refresh
DBGrid4.Refresh
End Sub
Private Sub Combo1_Click()
TXTFIND.Text = “”
TXTFIND.SetFocus
If Combo1.Text = “NOMOR FAKTUR” Then
DBGrid1.Visible = True
Data1.Visible = True
DBGrid2.Visible = True
Data2.Visible = True
DBGrid3.Visible = False
DBGrid4.Visible = False
Data3.Visible = False
Data4.Visible = False
Else
If Combo1.Text = “KODE PELANGGAN” Then
DBGrid3.Visible = True
Data3.Visible = True
DBGrid4.Visible = False
Data4.Visible = False
DBGrid1.Visible = False
DBGrid2.Visible = False
Data1.Visible = False
Data2.Visible = False
Else
If Combo1.Text = “KODE BUKU” Then
DBGrid4.Visible = True
Data4.Visible = True
DBGrid3.Visible = False
Data3.Visible = False
DBGrid1.Visible = False
DBGrid2.Visible = False
Data1.Visible = False
Data2.Visible = False
End If
End If
End If
End Sub
Private Sub TXTFIND_Change()
If TXTFIND.Text = “” Then
Data1.RecordSource = “select*from Table_transaksi”
Data1.Refresh
DBGrid1.Refresh
Data2.RecordSource = “select*from Table_detail”
Data2.Refresh
DBGrid2.Refresh
Data3.RecordSource = “select*from Table_transaksi”
Data3.Refresh
DBGrid3.Refresh
Data4.RecordSource = “select*from Table_detail”
Data4.Refresh
DBGrid4.Refresh
End If
End Sub
Private Sub CMDFIND_Click()
If Combo1.Text = “” Or TXTFIND.Text = “” Then
MsgBox “masih ada DATA YANG HARUS DIISI”
Else
If Combo1.Text = “NOMOR FAKTUR” Then
Data1.RecordSource = “SELECT*FROM Table_transaksi WHERE No_faktur=’” & TXTFIND.Text & “‘”
DBGrid1.Refresh
Data1.Refresh
Data2.RecordSource = “SELECT*FROM Table_detail WHERE No_faktur=’” & TXTFIND.Text & “‘”
DBGrid2.Refresh
Data2.Refresh
If Data1.Recordset.EOF And Data2.Recordset.EOF Then
MsgBox “DATA TIDAK ADA !”
TXTFIND.SetFocus
TXTFIND.Text = “”
End If
Else
If Combo1.Text = “KODE PELANGGAN” Then
Data3.RecordSource = “SELECT*FROM Table_transaksi WHERE Kode_pelanggan=’” & TXTFIND.Text & “‘”
DBGrid3.Refresh
Data3.Refresh
If Data3.Recordset.EOF Then
MsgBox “DATA TIDAK ADA !”
TXTFIND.SetFocus
TXTFIND.Text = “”
End If
Else
If Combo1.Text = “KODE BUKU” Then
Data4.RecordSource = “SELECT*FROM Table_detail WHERE Kode_buku=’” & TXTFIND.Text & “‘”
DBGrid4.Refresh
Data4.Refresh
If Data4.Recordset.EOF Then
MsgBox “DATA TIDAK ADA !”
TXTFIND.SetFocus
TXTFIND.Text = “”
End If
End If
End If
End If
End If
End Sub
Private Sub CMDEXIT_Click()
Unload Me
End Sub
Private Sub CMDPRINT_Click()
‘If Combo1.Text = “” Or TXTFIND.Text = “” Then
‘MsgBox “MASIH ADA DATA YANG HARUS DIISI”
‘End If
‘If Combo1.Text = “NOMOR FAKTUR” Then
‘CR.ReportFileName = App.Path & “\TRANSAKSI2.rpt”
‘CR.SelectionFormula = “({Table_detail.No_faktur}=’” & TXTFIND.Text & “‘)”
‘CR.WindowState = crptMaximized
‘CR.RetrieveDataFiles
‘CR.Action = 1
‘Else
‘If Combo1.Text = “KODE PELANGGAN” Then
‘cr2.ReportFileName = App.Path & “\TRANSAKSI2.rpt”
‘cr2.SelectionFormula = “({Table_Transaksi.Kode_pelanggan}=’” & TXTFIND.Text & “‘)”
‘cr2.WindowState = crptMaximized
‘cr2.RetrieveDataFiles
‘cr2.Action = 1
‘Else
‘If Combo1.Text = “KODE BUKU” Then
‘cr2.ReportFileName = App.Path & “\TRANSAKSI2.rpt”
‘cr2.SelectionFormula = “({Table_detail.Kode_buku}=’” & TXTFIND.Text & “‘)”
‘cr2.WindowState = crptMaximized
‘cr2.RetrieveDataFiles
‘cr2.Action = 1
‘End If
‘End If
‘End If
End Sub
PERHATIAN: CMDPRINT hanya dipakai jika anda mempunyai software pembuat laporan yang bernama CRYSTAL REPORT. Jika tidak punya, silahkan hapus rumusnya. Tapi jika anda punya, gunakan listing program tersebut dan hilangkan tanda petik di depan rumusnya. Untuk keterangan lebih lanjut baca Tutorial Membuat Laporan dengan Crystal Report.
Pada listing program kali ini saya kira tidak ada yang perlu dijelaskan karena semuanya sudah saya jelaskan pada tutorial tutorial yang sebelumnya. Sebenarnya anda bisa saja membuat form ini lebih sederhana dari yang saya buat. Karena pada form ini saya memakai banyak Data Control dan Dbgrid sehingga kelihatan ruwet.
Adapun cara memakai Fomr Pencarian Transaksi ini adalah :
1. Pilihlah pada combo box yang ada apakah anda ingin mencari data transaksi berdasarkan Nomor faktur atau Kode buku atau kode pelanggan.
2. Jika kriteria pencarian sudah dipilih, selanjutkan masukan kode data yang dicari.
3. Tekan tombol Find untuk memunculkan data tersebut.
4. Data akan ditampilkan dan anda bisa melihat perbedaan dari kriteria pencarian yang telah anda pilih:
Jika memilih Kode buku maka muncul data transaksi berdasarkan buku.
Jika memilih Kode Pelanggan maka muncul data transaksi berdasarkan pelanggan.
Jika memilih Nomor Faktur maka yang muncul adalah data transaksi berdasarkan nomor faktur yang terdiri dari 2 bagian yaitu Data Transaksi itu sendiri dan Data Detail dari Transaksi tersebut.
5. Tekan tombol Exit untuk keluar dari form ini.
- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Fbrowse” dan menyimpannya dengan nama ”browse.frm”.
Untuk tutorial berikutnya kita akan membuat Form Menu Utama jadi, jangan sampai ketinggalan untuk membacar tutorial saya yang berikutnya. Mudah mudahan bermanfaat bagi yang sudah jago atau bagi yang masih belajar seperti saya. Amin !
By: OPIX HOLMES
opix.holmes@yahoo.com
www.islamicunderground.wordpress.com

Membuat Program Penjualan Visual Basic 4 : Membuat Form Transaksi

Membuat Program Penjualan Visual Basic 4 : Membuat Form Transaksi
Selamat datang kembali di tutorial belajar VB. Pada kali ini kita akan belajar yang lebih sulit lagi yaitu membuat form transaksi yang merupakan inti dari program ini dibuat. Kalau yang namanya penjualan sudah pasti ada transaksi yang terjadi disitu. Pada tutorial yang ke 1 dulu kita sudah membuat sebanyak 7 Table dan yang akan kita bahas disini adalah semua table tersebut yang dijadikan satu di dalam form transaksi ini. Sudah siap? Bismillahirrohmanirrohim !
4. Membuat FORM TRANSAKSI
- Buat form baru lagi lalu isikan dengan isi dan properties dibawah ini:

NAME	CAPTION/TEXT	KETERANGAN	TAMBAHAN
Label1	No Faktur	Label
Label2	Kode Pelanggan	Label
Label3	Nama Pelanggan	Label
Label4	Nomor Hp/Telpon	Label
Label5	Alamat	Label
Label6	ID User	Label
Label7	Kode Buku	Label
Label8	Nama Buku	Label
Label9	Stok Buku	Label
Label10	Harga Buku	Label
Label11	Biaya Pengiriman	Label
Label12	Jumlah beli	Label
Label13	Total Harga	Label
Label14	Total Bayar	Label
Label15	Uang bayar	Label
Label16	Uang Kembali	Label
Label17	Masukan Kode Buku	Label
Label18	Masukan Kode Pelanggan	Label
txtnofak	-	Textbox
txtkdpel	-	Textbox
txtnmpel	-	Textbox
txttelpon	-	Textbox
txtalamat	-	Textbox
txtkasir	-	Textbox
txtkdbuku	-	Textbox
txtnmbuku	-	Textbox
txtstok	-	Textbox
txtharga	-	Textbox
txtkirim	-	Textbox
txtjumbel	-	Textbox
txttohar	-	Textbox
txttobay	-	Textbox
txtubar	-	Textbox
txtukem	-	Textbox
txtfindb	-	Textbox
txtfindp	-	Textbox
txtjam	-	Textbox
txttgl	-	Textbox
cmdfindp	Find Pelanggan	Command Button
cmdfindb	Find Barang	Command Button
Cmdadd	&add	Command Button
Cmdclear	&clear	Command Button
Cmdsave	&save	Command Button
Cmdexit	&exit	Command Button
Cmdlagi	lagi	Command Button
Cmdselesai	selesai	Command Button
Optdalam	Dalam kota	Command Button
Optluar	Luar kota	Command Button
Opttidak	Tidak dikirim	Command Button
Timer1	-	Timer	Interval : 10
Dbgrid1	-	Dbgrid	Data source: data6
Dbgrid2	-	Dbgrid	Data source: data2
Dbgrid3	-	Dbgrid	Data source: data1
Data1		Data
Data2		Data
Data3		Data
Data4		Data
Data5		Data
Data6		Data
Data7		Data
FTransaksi	Transaksi	Form
Frame1	Biaya Pengiriman Buku	Frame
Frame2	Buku	Frame	Visible: False
Frame3	Pelanggan	Frame	Visible: False
Frame4	-	Frame
Frame5	-	Frame
CR	-	Crystal Report	Jika Punya CR

Adapun Listing Program dari Form Transaksi Ini Adalah :
Private Sub Form_Activate()
Call nonaktif
Call kosong
TXTKASIR.Text = Menuutama.txtuser.Text
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "/buku.mdb"
Data1.RecordSource = "select * from Table_buku order by Kode_buku"
Data2.DatabaseName = App.Path & "/buku.mdb"
Data2.RecordSource = "select * from Table_pelanggan"
Data3.DatabaseName = App.Path & "/buku.mdb"
Data3.RecordSource = "select * from Table_transaksi"
Data4.DatabaseName = App.Path & "/buku.mdb"
Data4.RecordSource = "select * from Table_detail"
Data5.DatabaseName = App.Path & "/buku.mdb"
Data5.RecordSource = "select * from Table_user"
Data6.DatabaseName = App.Path & "/buku.mdb"
Data6.RecordSource = "select * from Table_bantu"
Data7.DatabaseName = App.Path & "/buku.mdb"
Data7.RecordSource = "select * from Table_bayar"
End Sub

Private Sub CMDADD_Click()
Call Auto
Call aktif
CMDFINDP.Enabled = True
CMDADD.Enabled = False
CMDEXIT.Enabled = False
End Sub

Private Sub CMDCLEAR_Click()
Call kosong
Call hapus_grid
Call nonaktif
CMDADD.Enabled = True
CMDEXIT.Enabled = True
End Sub

Private Sub CMDEXIT_Click()
Unload Me
Menuutama.Show
End Sub

Sub aktif()
CMDCLEAR.Enabled = True
CMDSAVE.Enabled = False
End Sub

Sub nonaktif()
CMDFINDB.Enabled = False
CMDFINDP.Enabled = False
TXTKASIR.Enabled = False
TXTNOFAK.Enabled = False
TXTKDPEL.Enabled = False
TXTNMPEL.Enabled = False
TXTTELPON.Enabled = False
TXTALAMAT.Enabled = False
TXTKDBUKU.Enabled = False
TXTNMBUKU.Enabled = False
TXTSTOK.Enabled = False
TXTHARGA.Enabled = False
TXTJUMBEL.Enabled = False
TXTTOHAR.Enabled = False
TXTTOBAY.Enabled = False
TXTUBAR.Enabled = False
TXTUKEM.Enabled = False
TXTKIRIM.Enabled = False
OPTDALAM.Enabled = False
OPTLUAR.Enabled = False
OPTTIDAK.Enabled = False
CMDCLEAR.Enabled = False
CMDSAVE.Enabled = False
CMDLAGI.Enabled = False
CMDSELESAI.Enabled = False
End Sub

Sub kosong()
TXTNOFAK.Text = ""
TXTKDPEL.Text = ""
TXTNMPEL.Text = ""
TXTALAMAT.Text = ""
TXTTELPON.Text = ""
TXTKDBUKU.Text = ""
TXTNMBUKU.Text = ""
TXTSTOK.Text = ""
TXTHARGA.Text = ""
TXTJUMBEL.Text = ""
TXTTOHAR.Text = ""
TXTUBAR.Text = ""
TXTUKEM.Text = ""
TXTTOBAY.Text = ""
TXTKIRIM.Text = ""
OPTDALAM.Value = False
OPTLUAR.Value = False
OPTTIDAK.Value = False
End Sub

Private Sub CMDFINDB_Click()
Frame2.Visible = True
TXTFINDB.SetFocus
End Sub

Private Sub CMDFINDP_Click()
Frame3.Visible = True
TXTFINDP.SetFocus
End Sub
VISIBLE digunakan sebagai pilihan apakah suatu objek akan ditampilkan atau disembunyikan.
Jika VISIBLE = TRUE maka objek akan ditampilkan.
Jika VISIBLE = FALSE maka objek akan disembunyikan.
Private Sub TXTFINDB_Change()
Data1.RecordSource = "SELECT*FROM Table_buku WHERE Kode_buku LIKE’*" & TXTFINDB.Text & "*’"
DBGrid3.Refresh
Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "DATA TIDAK ADA !"
    End If
End Sub
Private Sub TXTFINDB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTKDBUKU.Text = Data1.Recordset!Kode_buku
TXTNMBUKU.Text = Data1.Recordset!Judul_buku
TXTSTOK.Text = Data1.Recordset!Stok_buku
TXTHARGA.Text = Data1.Recordset!Harga_buku
Frame2.Visible = False
TXTJUMBEL.Enabled = True
TXTJUMBEL.SetFocus
TXTFINDB.Text = ""
CMDFINDB.Enabled = False
End If
End Sub
Private Sub TXTFINDP_Change()
Data2.RecordSource = "SELECT*FROM Table_pelanggan WHERE Kode_pelanggan LIKE’*" & TXTFINDP.Text & "*’"
DBGrid2.Refresh
Data2.Refresh
    If Data2.Recordset.EOF Then
    MsgBox "DATA TIDAK ADA !"
    End If
End Sub
Private Sub TXTFINDP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTKDPEL.Text = Data2.Recordset!Kode_pelanggan
TXTNMPEL.Text = Data2.Recordset!Nama_Pelanggan
TXTTELPON.Text = Data2.Recordset!Telp_pelanggan
TXTALAMAT.Text = Data2.Recordset!Almt_pelanggan
Frame3.Visible = False
CMDFINDB.Enabled = True
CMDFINDP.Enabled = False
TXTFINDP.Text = ""
End If
End Sub

Private Sub CMDLAGI_Click()
CMDFINDB.Enabled = True
CMDSELESAI.Enabled = False
CMDLAGI.Enabled = False
TXTJUMBEL.Text = ""
End Sub

Private Sub CMDSELESAI_Click()
OPTDALAM.Enabled = True
OPTLUAR.Enabled = True
OPTTIDAK.Enabled = True
    If Data6.Recordset.RecordCount = 0 Then
    Data6.Recordset.AddNew
    Data6.Recordset!Nofak = TXTNOFAK.Text
    Data6.Recordset!Kode_buku = TXTKDBUKU.Text
    Data6.Recordset!Jumlah_beli = TXTJUMBEL.Text
    Data6.Recordset!Total_harga = Val(TXTTOHAR.Text)
    Data6.Recordset.Update
    Data6.Refresh
    DBGrid1.Refresh
    TXTTOBAY.Text = Val(TXTTOBAY.Text) + Val(TXTTOHAR.Text)
   End If
CMDLAGI.Enabled = False
CMDSELESAI.Enabled = False
TXTJUMBEL.Enabled = False
End Sub
Maksud dari If Data6.Recordset.RecordCount = 0 Then  dst… yang ada pada CmdSelesai ini adalah jika isi dari field data6 (Table_bantu) masih kosong maka terjadi penyimpanan data dan isi data txttobay adalah txttobay yang lama ditambah dengan txttohar.

Private Sub OPTDALAM_Click()
If OPTDALAM.Value = True Then
TXTKIRIM.Text = 5000
TXTTOBAY.Text = Val(TXTTOBAY.Text) + Val(TXTKIRIM.Text)
TXTUBAR.Enabled = True
TXTUBAR.SetFocus
OPTLUAR.Enabled = False
OPTTIDAK.Enabled = False
TXTUBAR.SetFocus
End If
End Sub
Private Sub OPTLUAR_Click()
If OPTLUAR.Value = True Then
TXTKIRIM.Text = 10000
TXTTOBAY.Text = Val(TXTTOBAY.Text) + Val(TXTKIRIM.Text)
TXTUBAR.Enabled = True
TXTUBAR.SetFocus
OPTDALAM.Enabled = False
OPTTIDAK.Enabled = False
TXTUBAR.SetFocus
End If
End Sub
Private Sub OPTTIDAK_Click()
If OPTTIDAK.Value = True Then
TXTKIRIM.Text = 0
TXTTOBAY.Text = Val(TXTTOBAY.Text) + Val(TXTKIRIM.Text)
TXTUBAR.Enabled = True
TXTUBAR.SetFocus
OPTLUAR.Enabled = False
OPTDALAM.Enabled = False
TXTUBAR.SetFocus
End If
End Sub
Maksud dari VALUE pada Option Button adalah:
Jika VALUE = TRUE berarti Option Button tersebut dipilih.
Jika VALUE = FALSE berarti Option Button tersebut tidak dipilih.
Keterangan dari data biaya pengirimannya adalah:
Jika yang dipilih adalah OptDalam (dalam kota) maka biaya kirimnya adalah 5000
Jika yang dipilih adalah OptLuar(luar kota) maka biaya kirimnya adalah 10000
Jika yang dipilih adalah OptTidak (tidak dikirim) maka biaya kirimnya adalah 0
Total bayar berisi penjumlahan dari Total bayar yang lama ditambah  biaya kirim tersebut.

Private Sub TXTJUMBEL_Change()
TXTTOHAR.Text = Val(TXTJUMBEL.Text) * Val(TXTHARGA.Text)
End Sub
Private Sub TXTJUMBEL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(TXTJUMBEL.Text) > Val(TXTSTOK.Text) Then
MsgBox "stok terbatas"
Else
     Data6.Recordset.AddNew
    Data6.Recordset!No_faktur = TXTNOFAK.Text
    Data6.Recordset!Kode_buku = TXTKDBUKU.Text
Data6.Recordset!Jumlah_beli = Val(TXTJUMBEL.Text)
    Data6.Recordset!Total_harga = Val(TXTTOHAR.Text)
    Data6.Recordset.Update
    Data6.Refresh
    DBGrid1.Refresh
TXTTOBAY.Text = Val(TXTTOBAY.Text) + Val(TXTTOHAR.Text)
TXTJUMBEL.Text = ""
TXTTOHAR.Text = ""
CMDFINDB.Enabled = False
CMDLAGI.Enabled = True
CMDSELESAI.Enabled = True
TXTKDBUKU.Text = ""
TXTNMBUKU.Text = ""
TXTSTOK.Text = ""
TXTHARGA.Text = ""
TXTJUMBEL.Enabled = False
End If
End If
End Sub
Perhatikan bahwa TxtJumbel (jumlah beli) disitu ada 2 bagian yaitu CHANGE dan KEYPRESS.
CHANGE: Pada txtjumbel ketika ditulis suatu data maka secara langsung akan terjadi perkalian antara txtjumbel dan txtharga dan hasilnya akan ditaruh di txttohar (total harga).
KEYPRESS: Pada txtjumbel ketika ditekan Enter maka akan terjadi perhitungan data stok, Jika angka yang dimasukan pada txtjumbel lebih besar daripada angka yang ada di txtstok maka akan muncul pesan bahwa Stok terbatas. Tapi jika lebih kecil maka akan terjadi proses penyimpanan data.

Private Sub TXTUBAR_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Val(TXTUBAR.Text) < Val(TXTTOBAY.Text) Then
MsgBox "uang bayar kurang"
Else
TXTUKEM.Text = Val(TXTUBAR.Text) – Val(TXTTOBAY.Text)
CMDSAVE.Enabled = True
CMDSAVE.SetFocus
End If
End If
End Sub
Pada txtubar apabila ditekan Enter maka akan terjadi perhitungan data sebagai berikut:
Jika angka yang dimasukan pada txtubar (uang bayar)  lebih kecil dari angka yang ada di txttobay (total bayar) maka akan muncul pesan bahwa uang bayar kurang.
Tapi jika lebih besar maka terjadi pengurangan antara txtubar dikurangi dengan txttobay yang hasilnya diletakkan pada txtukem (uang kembali).

Private Sub Timer1_Timer()
TXTTGL.Text = Date
TXTJAM.Text = Time
End Sub
Listing ini digunakan untuk memunculkan tanggal dan waktu terjadinya transaksi (hari itu juga)
Txttgl berisi Tanggal terjadinya transaksi.
txtjam berisi Jam terjadinya transaksi.
Diperlukan Tool TIMER dan jangan lupa untuk merubah INTERVAL nya pada properties.

Sub hapus_grid()
    If Data6.Recordset.RecordCount <= 0 Then
        Exit Sub
    End If
        Data6.Recordset.MoveFirst
        Do While Not Data6.Recordset.EOF
        Data6.Recordset.Delete
        Data6.Recordset.MoveNext
    Loop
End Sub

Sub hapus_bayar()
If Data7.Recordset.RecordCount <= 0 Then
        Exit Sub
    End If
        Data7.Recordset.MoveFirst
        Do While Not Data7.Recordset.EOF
        Data7.Recordset.Delete
        Data7.Recordset.MoveNext
    Loop
End Sub

Private Sub CMDSAVE_Click()
‘TABLE DETAIL DAN TABLE BANTU
While Not Data6.Recordset.EOF
    Data4.Recordset.AddNew
                 Data4.Recordset!No_faktur = Data6.Recordset!No_faktur
                Data4.Recordset!Kode_buku = Data6.Recordset!Kode_buku
                Data4.Recordset!Jumlah_beli = Data6.Recordset!Jumlah_beli
                Data4.Recordset!Total_harga = Data6.Recordset!Total_harga
‘ PENGURANGAN STOK
                 Data1.Recordset.MoveFirst
                Data1.Recordset.FindFirst "Kode_buku= ‘" & Data6.Recordset!Kode_buku & "’"
                                 If Not Data1.Recordset.NoMatch Then
                                 Data1.Recordset.Edit
                                 Data1.Recordset!Stok_buku = Val(Data1.Recordset!Stok_buku) – Val(Data6.Recordset!Jumlah_beli)
                                Data1.Recordset.Update
                                Data1.Refresh
                                End If
     Data4.Recordset.Update
    Data6.Recordset.MoveNext
    N = N + 1
Wend  
    Data4.Refresh
    Data6.Refresh
    ‘TABLE TRANSAKSI
    Data3.Recordset.AddNew
    Data3.Recordset!No_faktur = TXTNOFAK.Text
    Data3.Recordset!Tgl_faktur = TXTTGL.Text
    Data3.Recordset!Kode_pelanggan = TXTKDPEL.Text
    Data3.Recordset!Total_bayar = TXTTOBAY.Text
    Data3.Recordset!Id_user = TXTKASIR.Text
    Data3.Recordset!Biaya_kirim = TXTKIRIM.Text
    Data3.Recordset.Update
    Data3.Refresh
    ‘TABLE BAYAR
    Data7.Recordset.AddNew
    Data7.Recordset!No_faktur = TXTNOFAK.Text
    Data7.Recordset!Uang_bayar = TXTUBAR.Text
    Data7.Recordset!Uang_kembali = TXTUKEM.Text
    Data7.Recordset.Update
    Data7.Refresh

‘MENCETAK FAKTUR
‘CR.ReportFileName = App.Path & "\Faktur.rpt"
‘CR.SelectionFormula = "({Table_detail.No_faktur}=’" & TXTNOFAK.Text & "’)"
‘CR.WindowState = crptMaximized
‘CR.RetrieveDataFiles
‘CR.Action = 1

CMDADD.Enabled = True
CMDSAVE.Enabled = False
Call kosong
Call nonaktif
Call hapus_grid
Call hapus_bayar
CMDEXIT.Enabled = True
End Sub
Dalam Tombol Save ini terjadi Penyimpanan data pada beberapa Table yaitu: Table Detail (diambil dari Table Bantu), Table Transaksi (diambil dari form), dan Table Bayar (diambil dari form).
Isi dari Table Detail didapat dari isi dari Table Bantu. Sedangkan isi Table Bantu itu sendiri didapat dari data yang dimasukan pada form transaksi ini.
Pada Penyimpanan data ke dalam Table Detail terjadi perintah perulangan yaitu WHILE WEND karena data Table Bantu yang akan disimpan ke dalam Table Detail berjumlah banyak sehingga berulang ulang memasukannya.
Contoh dari perulangan itu adalah apabila ada pelanggan yang membeli buku banyak yang berbeda beda pastinya semua itu hanya dicatat dalam 1 faktur atau 1 struk saja. Makanya disini terjadi pengulangan. Karena tidak mungkin setiap 1 pelanggan yang membeli buku yang banyak harus menggunakan banyak faktur juga.
Didalam penyimpanan Table Detail diatas juga terjadi PENGURANGAN STOK.
Maksud Listing Programnya adalah:
FINDFIRST dipakai untuk mencari kode_buku yang ada pada data1 (Table_buku) yang sama dengan kode_buku yang ada pada data6 (Table_bantu).
Dan jika data tersebut ditemukan maka stok_buku yang ada di data1 (Table_buku) akan dikurangi oleh Jumlah_beli yang ada di data6 (Table_bantu).
Dan setelah data tersebut di Save, maka terjadi perintah untuk memanggil Sub Hapus_Grid dan Sub Hapus_bayar.
Dengan adanya  Sub Hapus_Grid  tersebut, maka semua data yang ada di data6 (table_bantu) akan dikosongkan karena sudah disimpan pada data4 (table_detail).
Dan dengan adanya  Sub Hapus_Bayar  tersebut, maka semua data yang ada di data7 (table_bayar) juga akan dikosongkan karena sudah dipakai dan ditampilkan di dalam Faktur.

MENCETAK FAKTUR hanya dipakai jika anda mempunyai software pembuat laporan yang bernama CRYSTAL REPORT. Jika tidak punya, silahkan hapus rumusnya. Tapi jika anda punya, gunakan listing program tersebut dan hilangkan  tanda petik di depan rumusnya. Untuk keterangan lebih lanjut baca Tutorial Membuat Laporan dengan Crystal Report.

Private Sub Auto()
Data3.RecordSource = "select * from Table_Transaksi Where No_faktur In(Select Max(No_faktur)From Table_Transaksi)Order By No_faktur Desc"
Data3.Refresh
    Dim Urutan As String * 10
    Dim Hitung As Long
    With Data3.Recordset
        If .EOF Then
            Urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "0001"
            No_faktur = Urutan
        Else
            If Left(!No_faktur, 6) <> Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) Then
                Urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "0001"
            Else
                Hitung = (!No_faktur) + 1
                Urutan = (Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2)) + Right("0000" & Hitung, 4)
            End If
        End If
        TXTNOFAK.Text = Urutan
    End With
End Sub
Sub AUTO ini digunakan untuk memunculkan nomor faktur secara otomatis.
Jumlah karakter dari nomor faktur ini adalah 10 digit angka yang terdiri dari: 2 angka pertama untuk Tahun faktur, 2 angka berikutnya untuk Bulan faktur, 2 angka berikutnya untuk Tanggal faktur dan 4 angka terakhir digunakan untuk Nomor faktur.
Contoh: jika ada Nomor Faktur yang bertuliskan 0806250099 maka
Tahun faktur tersebut adalah 08 (2008)
Bulan faktur tersebut adalah 06 (Juni)
Tanggal faktur tersebut adalah 25
Nomor faktur tersebut adalah 0099
PERHATIAN: untuk memakai nomor faktur otomatis ini, settingan waktu komputer anda harus berformat ”dd/mm/yy”  (2 digit angka hari/bulan/tahun). Contoh: 30/12/09.
Jika belum dirubah, maka rubahlah format tanggal tersebut dari CONTROL PANEL lalu pilihlah REGIONAL AND LANGUAGE OPTIONS lalu tekan tombol CUSTOMIZE dan pilih DATE lalu rubahlah SHORT DATE FORMAT menjadi dd/mm/yy jika sudah tekan Oke.

CARA MEMAKAI FORM TRANSAKSI INI:
1. Klik Add, untuk memasukan data transaksi yang baru
2. Klik tombol find yang ada disamping kode pelanggan lalu masukan kode pelanggan pada kotak pencarian data kemudian tekan enter.
3. Klik tombol find yang ada disamping kode buku lalu masukan kode buku pada kotak pencarian data kemudian tekan enter.
4. Masukan jumlah beli, lalu tekan enter.
5. Klik tombol Lagi untuk membeli buku yang lainnya lagi.
6. Klik tombol Selesai bila semua buku yang diinginkan sudah selesai dimasukkan.
7. Pilih cara pengiriman buku yang telah disediakan.
8. Masukan uang bayar pada tempat yang disediakan.
9. Klik Save, untuk menyimpan data atau Klik Clear, untuk mengosongkan dan membatalkan data yang akan disimpan.
10. Klik Exit untuk keluar.
- Jangan lupa untuk mengganti Name dari form ini di properties menjadi ”Ftransaksi” dan menyimpannya dengan nama ”Transaksi.frm”.

Demikianlah pembahasan tentang program transaksi yang memang sangat panjang dan lebar. Tapi jika anda mengerti maka terasa tidak terlalu sulit untuk membuatnya. Selamat menikmati tutorial selanjutnya !

By: OPIX HOLMES
opix.holmes@yahoo.com
http://www.islamicunderground.com