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