No title

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi

APLIKASI LAUNDRY VB 6.0 Peminat silakan hubungi : Email : [email protected] Facebook : [email protected] (Uus Rusmawan) Phone : 0812 8438 1118 Program ini digunakan untuk pendataan pada sebuah usaha pencucian pakaian. Proses yang terjadi dalam program ini adalah sebagai berikut: 1.

Tahap awal adalah melakukan pendataan pada tabel – tabel master (barang, kasir, konsumen, dan kurir)

2.

Kemudian membuat program penyerahan barang cucian yang diserahkan oleh konsumen

3.

Membuat program pengiriman barang cucian dari perusahaan kepada konsumen

4.

Membuat laporan

4.1 Merancang Database Dan Bentuk Relasi Tabel Langkah awal yang harus dilakukan adalah membuat database dengan nama DBLOUNDRY.mdb, kemudian membuat beberapa tabel yang diperlukan antara lain : 1.

Tabel Barang, yang teridri dari field : a.

Kode Barang

b. Nama Barang c. 2.

Tarif

Tabel Kasir, yang terdiri dari field : a.

Kode kasir

b. Nama kasir c. 3.

Password kasir

Tabel Konsumen, yang terdiri dari field : a.

Kode konsumen

b. Nama konsumen c.

Alamat

d. Telepon 4.

Tabel Kurir, yang terdiri dari field : a.

Kode kurir

b. Nama kurir 5.

Tabel Pesanan, yang teridir dari field:

1

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi c.

Nomor pesanan

d. Tanggal e.

Total item

f.

Total harga

g. Aung muka h. Sisa i.

Nomor konsumen

j.

Kode kasir

k. Tanggal minta dikirim l. 6.

Keterangan

Tabel Detail Pesanan, yang terdiri dari field : a.

Nomor pesanan

b. Kode barang c.

Tarif

d. Jumlah cucian 7.

Tabel Pengiriman, yang terdiri dari field : a.

Nomor pesanan

b. Nomor pengiriman c.

Tanggal pengiriman

d. Total e.

Uang muka

f.

Sisa

g. Dibayar h. Kembali i.

Nomor konsumen

j.

Kode kasir

k. Kode kurir 8.

Tabel Detail Pengiriman, yang terdiri dari field : a.

Nomor pengiriman

b. Kode barang c.

Tarif

d. Jumlah kirim 9.

Dan dua buah tabel temporer sebagai tempat dilakukannya transaksi

2


Bentuk relasi tabel pada program loundry ini terlihat pada gambar di bawah ini

Gambar 4.1 Bentuk Relasi Tabel

Membuat Modul Tujuan dibuat modul adalah agar koneksi ke database dapat dilakukan dengan efektif dan efisien. Buatlah sebuah module kemudian ketiklah program di bawah ini : Public Public Public Public Public Public Public Public Public Public

Conn As New ADODB.Connection RSBarang As ADODB.Recordset RSKasir As ADODB.Recordset RSKonsumen As ADODB.Recordset RSPesanan As ADODB.Recordset RSDetailPsn As ADODB.Recordset RSKurir As ADODB.Recordset RSPengiriman As ADODB.Recordset RSDetailKrm As ADODB.Recordset RSTransaksi As ADODB.Recordset

Public Sub BukaDB() Dim STR As String Set Conn = New ADODB.Connection Set RSBarang = New ADODB.Recordset Set RSKasir = New ADODB.Recordset Set RSKonsumen = New ADODB.Recordset Set RSPesanan = New ADODB.Recordset Set RSDetailPsn = New ADODB.Recordset Set RSKurir = New ADODB.Recordset Set RSPengiriman = New ADODB.Recordset Set RSDetailKrm = New ADODB.Recordset Set RSTransaksi = New ADODB.Recordset Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBLoundry.mdb" End Sub

3


4.3 Login

Gambar 4.2 Form Login

4.4. Kasir

Gambar 4.3 Form Kasir

4.5 Konsumen

Gambar 4.4 Form Konsumen

4


4.6 Kurir

Gambar 4.5 Form Kurir

4.7

Penyerahan Cucian

Gambar 4.6 Form Penyerahan Cucian

5


Gambar 4.7 Struk Penyerahan Cucian

4.8

Pengiriman Cucian

Gambar 4.8 Form Penyerahan Cucian

6

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 4.9

Jejak Transaksi

Dua buah form berikut ini dugunakan sebagai sarana untuk melihat kembali data hasil transaksi yang pernah terjadi.

Gambar 4.9 Rincian Penyerahan Cucian

Koding : Private Sub Form_Load() On Error Resume Next 'buka database Call BukaDB 'bersihkan dulu list List1.Clear 'cari nomor NomorPsn di tabel pesanan RSPesanan.Open "Select Distinct NomorPsn from pesanan ", Conn 'tampilkan di list Do Until RSPesanan.EOF List1.AddItem RSPesanan!NomorPsn RSPesanan.MoveNext Loop Conn.Close End Sub 'ketika salah satu NomorPsn dipilih, maka... Private Sub list1_click() 'buka database Call BukaDB Conn.CursorLocation = adUseClient 'cari data pesanan yang NomorPsnnya dipilih RSPesanan.Open "select * from pesanan where NomorPsn='" & List1.Text & "'", Conn RSPesanan.Requery 'jika ditemukan tampilkan TanggalPsnnya If Not RSPesanan.EOF Then Text8 = RSPesanan!TanggalPsn: Text5 = RSPesanan!Ket 'buka tabel Konsumen yang ada di tabel pesanan sesuai noor NomorPsn RSKonsumen.Open "select * from Konsumen where NomorKsm='" & RSPesanan!NomorKsm & "'", Conn 'jika ditemukan tampilkan data-datanya

7

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi If Not RSKonsumen.EOF Then Text2 = RSKonsumen!NamaKsm Text3 = RSKonsumen!AlamatKsm Text4 = RSKonsumen!TeleponKsm End If 'buka tabel kasir yang kodenya disimpan di tabel pesanan berdasarkan nomor NomorPsn RSKasir.Open "select * from Kasir where KodeKsr='" & RSPesanan!Kodeksr & "'", Conn 'jika ditemukan tampilkan kode dan nama kasir If Not RSKasir.EOF Then Text7 = RSKasir!Namaksr End If Conn.Close 'hubungkan objek adodc ke database Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBLoundry.mdb" 'tampilkan nama barang, harga Pesanan, jumlah Pesanan dan total di tabel pesanan,detail Pesanan yang NomorPsnnya dipilih dalam list Adodc1.RecordSource = "select NamaBrg as [Nama Barang], detailpsn.Tarif as Harga,JumlahPsn as Jumlah, detailpsn.Tarif*JumlahPsn as Total from Barang,DetailPsn where DetailPsn.kodeBrg=Barang.kodeBrg and NomorPsn='" & List1.Text & "'" Adodc1.Refresh 'hubungkan datagrid1 dengan objek adodc Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh 'tampilkan total dan item Call Total Call Item End Sub Private Sub List1_keyPress(Keyascii As Integer) If Keyascii = 27 Then Unload Me End Sub 'mencari jumlah total item barang Function Item() Adodc1.Recordset.MoveFirst Jumlah = 0 Do While Not Adodc1.Recordset.EOF Jumlah = Jumlah + Adodc1.Recordset!Jumlah Adodc1.Recordset.MoveNext Loop Text9 = Jumlah End Function 'mencari jumlah total harga Pesanan Function Total() Adodc1.Recordset.MoveFirst Jumlah = 0 Do While Not Adodc1.Recordset.EOF Jumlah = Jumlah + Adodc1.Recordset!Total Adodc1.Recordset.MoveNext Loop Text10 = Jumlah End Function

Rincian penyerahan cucian

8


Gambar 4.10 Rincian Pengiriman Cucian

Koding: Private Sub Form_Load() On Error Resume Next 'buka database Call BukaDB 'bersihkan dulu list List1.Clear 'cari nomor NomorKrm di tabel Pengiriman RSPengiriman.Open "Select Distinct NomorKrm from Pengiriman ", Conn 'tampilkan di list Do Until RSPengiriman.EOF List1.AddItem RSPengiriman!Nomorkrm RSPengiriman.MoveNext Loop Conn.Close End Sub 'ketika salah satu NomorKrm dipilih, maka... Private Sub list1_click() On Error Resume Next 'buka database Call BukaDB 'Conn.CursorLocation = adUseClient 'cari data Pengiriman yang NomorKrmnya dipilih RSPengiriman.Open "select * from Pengiriman where NomorKrm='" & List1.Text & "'", Conn RSPengiriman.Requery 'jika ditemukan tampilkan TanggalKrmnya If Not RSPengiriman.EOF Then Tanggal = RSPengiriman!TanggalKrm TotalHrg = RSPengiriman!Total DP = RSPengiriman!DP Sisa = RSPengiriman!Sisa Dibayar = RSPengiriman!Dibayar Kembali = RSPengiriman!Kembali

9

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi End If 'buka tabel Konsumen yang ada di tabel Pengiriman sesuai noor NomorKrm RSKonsumen.Open "select * from Konsumen where NomorKsm='" & RSPengiriman!NomorKsm & "'", Conn 'jika ditemukan tampilkan data-datanya If Not RSKonsumen.EOF Then Text2 = RSKonsumen!NamaKsm Text3 = RSKonsumen!AlamatKsm Text4 = RSKonsumen!TeleponKsm End If 'buka tabel Kurir yang kodenya disimpan di tabel Pengiriman berdasarkan nomor NomorKrm RSKurir.Open "select * from Kurir where KodeKrr='" & RSPengiriman!KodeKrr & "'", Conn 'jika ditemukan tampilkan kode dan nama Kurir If Not RSKurir.EOF Then 'Text6 = RSKurir!KodeKrr Pengirim = RSKurir!NamaKrr End If Conn.Close 'hubungkan objek adodc ke database Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBLoundry.mdb" 'tampilkan nama barang, harga Pengiriman, jumlah Pengiriman dan total di tabel Pengiriman,detail Pengiriman yang NomorKrmnya dipilih dalam list Adodc1.RecordSource = "select NamaBrg as [Nama Barang], detailkrm.Tarif as Harga,JumlahKrm as Jumlah, detailkrm.Tarif*JumlahKrm as Total from Barang,DetailKrm where DetailKrm.kodeBrg=Barang.kodeBrg and NomorKrm='" & List1.Text & "'" Adodc1.Refresh 'hubungkan datagrid1 dengan objek adodc Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh 'tampilkan total dan item Call Total Call Item End Sub Private Sub List1_keyPress(Keyascii As Integer) If Keyascii = 27 Then Unload Me End Sub 'mencari jumlah total item barang Function Item() Adodc1.Recordset.MoveFirst Jumlah = 0 Do While Not Adodc1.Recordset.EOF Jumlah = Jumlah + Adodc1.Recordset!Jumlah Adodc1.Recordset.MoveNext Loop Text9 = Jumlah End Function 'mencari jumlah total harga Pengiriman Function Total() Adodc1.Recordset.MoveFirst Jumlah = 0 Do While Not Adodc1.Recordset.EOF Jumlah = Jumlah + Adodc1.Recordset!Total Adodc1.Recordset.MoveNext Loop Text10 = Jumlah End Function

4.10 Laporan

10

www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Laporan dibuat menjadi beberapa bagian, yaitu laoran peyerahan cucian dan pengirimannya. Laporan penyerahan cucianpun dibagi dua, yaitu laporan yang telah diakumulasikan dan laporan yang rinci. Hal yang sama dibuat untuk laporan pengiriman cucian. Dalam buku ini contoh laporan yang dibahas hanya laporan penyerahan cucian saja, tapi dalam CD pendukung buku semua laporan telah dibuat lengkap.

Gambar 4.11 Form Laporan Penyerahan Cucian

11


Gambar 4.12 Laporan Harian (Rinci)

Gambar 4.13 Laporan Mingguan (Rinci)

12


Gambar 4.14 Laporan Bulanan (Rinci)

Gambar 4.15 Laporan Akumulasi Harian

13


Gambar 4.16 Laporan Akumulasi Mingguan

Gambar 4.17 Laporan Akumulasi Bulanan

14

No title

Recommend Documents