Cara Membuat Form Transaksi Servis Motor Dengan Mudah Menggunakan VB 6.0

Oleh peistar

Monday, 8 May 2017

Bagikan :

Tweet

Tutorial yang akan saya buat kali ini mengenai cara membuat Form Transaksi data servis dan jual beli suku cadang motor. Dengan adanya aplikasi ini pihak bengkel/perusahaan dapat lebih mudah dalam melakukan transaksi .

Untuk membuat aplikasi ini saudara terlebih dahulu harus mengistal Bahasa Pemrograman Visual Basic 6.0 dan membuat database serta mendesain Form Transaksi seperti gambar dibawah ini.

Rancangan Form

Rancangan Tabel

Langkah selanjutnya saudara dapat memasukan Coding Program pada Button/Tombol yang telah kita tentukan dengan cara : klik 2 kali pada Button => Masukan Coding => Sesuaikan urutan Field pada Tabel.

Coding Program :

- Button Data Baru :

Set RS = New ADODB.Recordset

RS.Open ("select * FROM ServisMotor WHERE No_Faktur in(select max(No_Faktur) from ServisMotor)order by No_Faktur desc"), Conek

RS.Requery

         

Dim otomatis As Integer

With RS

If .EOF Then

Text1 = "F7M001"

Else

otomatis = (Right(!No_Faktur, 3)) + 1

Text1 = "F7M" & Format(otomatis, "000")

End If

End With

- Button Simpan :

Set RS = New ADODB.Recordset

If Text1.Text = "" Then

MsgBox "Isi Data Dulu Coy", vbCritical, "Peringatan!"

Text1.SetFocus

ElseIf Text6.Text = "" Then

MsgBox "Isi Harga Dulu Coy", vbCritical, "Peringatan!"

Text6.SetFocus

ElseIf Text9.Text < 0 Then

MsgBox "Stok Ndak Cukuik!!!", vbCritical, "Peringatan"

Else

Conek.Execute "insert into ServisMotor values ('" & Text1.Text & "','" & DTPicker1.Value & "','" & Combo1.Text & "','" & Combo2.Text & "','" & Combo4.Text & "','" & Text6.Text & "','" & Text7.Text & "')"

'bersih

Conek.Execute ("update Barang set Stok = '" & Text9.Text & "' where Kd_Barang = '" & Combo2.Text & "'")

'bersih

Tampil_Data

Text1.SetFocus

End If

- Button Menutup Form :

Unload Me

- Button Cetak Faktur :

CrystalReport1.ReportFileName = App.Path & "\Faktur.rpt"

CrystalReport1.SelectionFormula = "{QueryPembayaran.No_Faktur}='" & Combo3.Text & "'"

CrystalReport1.RetrieveDataFiles

CrystalReport1.WindowState = crptMaximized

CrystalReport1.Action = 0

- Coding DataGrid1 dengan Procedure Click

Text1 = DataGrid1.Columns(0).Text

DTPicker1 = DataGrid1.Columns(1).Text

Combo1 = DataGrid1.Columns(2).Text

Text2 = DataGrid1.Columns(3).Text

Combo2 = DataGrid1.Columns(4).Text

Text3 = DataGrid1.Columns(5).Text

Text4 = DataGrid1.Columns(6).Text

Combo4 = DataGrid1.Columns(7).Text

Text5 = DataGrid1.Columns(8).Text

Text6 = DataGrid1.Columns(9).Text

Text7 = DataGrid1.Columns(9).Text

Selamat mencoba...!!!. Pastikan saudara mengikuti langkah-langkah pengerjaanya dengan benar, salam kompak selalu untuk kita semua. Mari selalu berbagi ilmu bersama kami disini di www.Peiindostar.com. Wasalam...!!!

Tag : Pemrograman Visual Basic 6.0