Cari Blog Ini

Kamis, 07 Juli 2011

Program Penjualan Tiket

assalammualaikum
saya cuma sekedar ingin berbagi kalian yang ingin belajar visual basic,,saya mw ksih contoh cara membuat program penjualan
1) buka VB.6 d komputer kalian
2)kalian buat form sbnyak 3 kali dan 1 mdichil,dan from d jadiakan anak,,dengan cara mengganti MDICHILD yang td.a false mnjadi true
4)buka form1,,dengan membuat dasien seprti ini:
5)dasien ini menggunakan componen ADO Data Contro 6 dan DataGrid control 6,,untuk mendapatkan componen ini klik knan pda tool lalu plih componen pilh ADO Data Control dan DataGrid
6)pada Tombol comend SAVE ini code.a seperti ini :

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_plg = Text1.Text
Adodc1.Recordset!nama_plg = Text2.Text
Adodc1.Recordset!alamat = Text3.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub

7)setelah itu buka form2 dan dasien seperti ini hampir sama seperti dasien form1 :
8)tombol comend SAVE isi code ini:

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!kode_mkp = Text1.Text
Adodc1.Recordset!nama_mkp = Text2.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub
9)setealh itu buka form3 dan buat dasien nya juga,seprti ini :
10)Code tomol camend SAVE isi dengan ini :

Private Sub Command1_Click()
Adodc1.Recordset.AddNew
Adodc1.Recordset!tanggal = Text1.Text
Adodc1.Recordset!kode_plg = Text2.Text
Adodc1.Recordset!kode_mkp = Text3.Text
Adodc1.Recordset!tujuan = Text4.Text
Adodc1.Recordset.Update
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub
 11)terakhir kita ke MDI,Tampilan awal pda program

sekian pemberitahuan dari saya,,jika ad yang kurang d mengerti bsa d tanyakan lwat email febryrisdianto27@yahoo.com
atw memberi koment pda blogspot ini
wassalammualaikum wr wb

Tidak ada komentar:

Posting Komentar