Setelah kita melihat contoh aplikasi program penerimaan siswa baru sekolah mengemudi menggunakan visual basic 6.0, selanjutnya kita akan membuat form transaksi pendaftaran.
Pertama-tama buat terlebih dahulu formnya seperti dibawah ini, juga beri name masing-masing :



Catatan :
A. Tambahkan crystalreport beri name "cr"
B. tambahkan tabel grid, beri name "grid"
C. Tambahkan textbox baru dengan nama "kode biaya", dan sembunyikan tampilannya (Properties > visible=false)
D. Buatlah Timer
1. Buat variabel paling atas
Dim a, b As String

2. Buatlah Sub baru dengan nama Sub aktif (), dan pastekan kode berikut :
cbtambah.Enabled = True
cbsimpan.Enabled = True
cbbatal.Enabled = True
tnotrans.Enabled = True
tnosiswa.Enabled = True
tnamasiswa.Enabled = True
tkodebiaya.Enabled = True
tnamatingkatan.Enabled = True
tjpertemuan.Enabled = True
tbiayatingkatan.Enabled = True
tbiayadaftar.Enabled = True
tjenisbayar.Enabled = True
tcicilan.Enabled = True
x2.Enabled = True
x3.Enabled = True
tsisa.Enabled = True
tobay.Enabled = True
ubay.Enabled = True
ukem.Enabled = True
tkelas.Enabled = True

3. Buatlah Sub baru dengan nama Sub nonaktif (), dan pastekan kode berikut :
cbtambah.Enabled = False
cbsimpan.Enabled = False
cbbatal.Enabled = False
tnotrans.Enabled = False
tnosiswa.Enabled = False
tnamasiswa.Enabled = False
tkodebiaya.Enabled = False
tnamatingkatan.Enabled = False
tjpertemuan.Enabled = False
tbiayatingkatan.Enabled = False
tbiayadaftar.Enabled = False
tjenisbayar.Enabled = False
tcicilan.Enabled = False
x2.Enabled = False
x3.Enabled = False
tsisa.Enabled = False
tobay.Enabled = False
ubay.Enabled = False
ukem.Enabled = False
tkelas.Enabled = False

4. Buatlah Sub baru dengan nama Sub bersih (), dan pastekan kode berikut :
tnotrans.Text = ""
tnamasiswa.Text = ""

 tnamatingkatan.Text = ""
tjpertemuan.Text = ""
tbiayatingkatan.Text = "0"
tbiayadaftar.Text = "0"

 tcicilan.Text = "0"
x2.Value = False
x3.Value = False
tsisa.Text = "0"
tobay.Text = "0"
ubay.Text = "0"
ukem.Text = "0"

5. Buatlah Sub baru dengan nama Sub tampil (), dan pastekan kode berikut :
Call koneksi
 rspendaftaran.Open "select*from tpendaftaran", KON
 Set grid.DataSource = rspendaftaran

6. Buatlah Sub baru dengan nama Sub aktifuser (), dan pastekan kode berikut :
fmenu.mlog.Enabled = True
fmenu.mganti.Enabled = True
    fmenu.mdata.Enabled = True
    fmenu.mdatabiaya.Enabled = False
    fmenu.mdatauser.Enabled = False
    fmenu.mdatasiswa.Enabled = True
    fmenu.mjadwal.Enabled = True
    fmenu.mtransaksi.Enabled = True
    fmenu.mlaporan.Enabled = True
    fmenu.mlogout.Enabled = True
    fmenu.mloguser.Enabled = False
    fmenu.mmobil.Enabled = False
    fmenu.mjam.Enabled = False

7. Buatlah form_load (), dan pastekan kode berikut :
Call koneksi
Call nonaktif
Call bersih
Call tampil

 cbtambah.Enabled = True
kodeuser.Enabled = False
namauser.Enabled = False
Me.Height = 9720
Me.Width = 19995
Me.Left = 100
Me.Top = 0
ubay.MaxLength = 7
kodeuser.Text = fmenu.StatusBar.Panels(2)
namauser.Text = fmenu.StatusBar.Panels(4)

8. Klik Pada Cbtambah dan pastekan kode berikut (deklarasi=click):
Call koneksi
rspendaftaran.Open "select*from tpendaftaran order by notrans_daftar desc", KON
With rspendaftaran
 If .BOF And .EOF Then
  tnotrans.Text = "TRP" + Format(Date, "YYMM") + "001"
  Else
   tnotrans.Text = "TRP" + Format(Date, "YYMM") + Right(Str(Val(Right(.Fields("notrans_daftar"), 3)) + 1001), 3)
   End If
   End With

 Call tampil
tnosiswa.Enabled = True
tnosiswa.SetFocus
tnosiswa.Clear
rsdatasiswa.Open "select*from tsiswa", KON
rsdatasiswa.MoveFirst
Do Until rsdatasiswa.EOF
 tnosiswa.AddItem (rsdatasiswa.Fields("nis"))
 rsdatasiswa.MoveNext
Loop
cbtambah.Enabled = False
cbbatal.Enabled = True

9. Klik Pada cbsimpan dan pastekan kode berikut (deklarasi=click):
Call koneksi
rspendaftaran.Open "insert into tpendaftaran set notrans_daftar='" & tnotrans & "',nis='" & tnosiswa & "',kodebiaya='" & tkodebiaya & "',kelas='" & tkelas & "',jenisbayar='" & tjenisbayar & "',jb_cicilan='" & tcicilan & "',sisa='" & tsisa & "',totbay_daftar='" & tobay & "',kodeuser='" & kodeuser & "',tgl_daftar='" & tgl & "'", KON
MsgBox "Data Sudah Tersimpan", vbInformation
cr.SelectionFormula = "Totext({tpendaftaran.notrans_daftar})= '" & tnotrans.Text & "'"
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\strukpendaftaran.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Call tampil
Call bersih
Call nonaktif

 cbtambah.Enabled = True


10. Klik Pada cbbatal dan pastekan kode berikut (deklarasi=click):
Call bersih
Call nonaktif
cbtambah.Enabled = True

11. Klik Pada bmenu dan pastekan kode berikut (deklarasi=click):
a = MsgBox("Yakin Untuk Menutup Form Ini Dan kembali ke Menu Utama ?", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
fpendaftaran.Hide
Call aktifuser
End If

12. Klik Pada tnosiswa dan pastekan kode berikut (deklarasi=click):
Call koneksi
rspendaftaran.Open "select*from tpendaftaran where nis='" & tnosiswa.Text & "'", KON
If rspendaftaran.EOF Then

 rsdatasiswa.Open "select*from tsiswa where nis='" & tnosiswa.Text & "'", KON
tnamasiswa.Text = rsdatasiswa.Fields("namasiswa")
tkodebiaya.Clear
rsbiaya.Open "select*from tbiaya", KON
rsbiaya.MoveFirst
Do Until rsbiaya.EOF
 tkodebiaya.AddItem (rsbiaya.Fields("kodebiaya"))
 rsbiaya.MoveNext
Loop
tkelas.Enabled = True
Else
a = rspendaftaran!nis
MsgBox "Data Dengan NIS " & a & " Sudah Terisi", vbCritical, "SIMPAN"
End If

13. Klik Pada tkelas dan pastekan kode berikut (deklarasi=click):
tkodebiaya.Enabled = True

14. Klik Pada tkodebiaya dan pastekan kode berikut (deklarasi=click):
tnosiswa.Enabled = False
tjenisbayar.Enabled = True
Call koneksi
kodebiaya.Text = tkodebiaya.Text
rsbiaya.Open "select*from tbiaya where kodebiaya='" & kodebiaya.Text & "'", KON
If rsbiaya.EOF Then
End
Else
tnamatingkatan.Text = rsbiaya.Fields("namatingkatan")
tjpertemuan.Text = rsbiaya.Fields("jpertemuan")
tbiayatingkatan.Text = rsbiaya.Fields("biayatingkatan")
tbiayadaftar.Text = rsbiaya.Fields("biayadaftar")
End If

15. Klik Pada x2 dan pastekan kode berikut (deklarasi=click):
tcicilan.Text = Val(tbiayatingkatan.Text) / 2
tsisa.Text = tcicilan.Text
tobay.Text = Val(tcicilan.Text) + Val(tbiayadaftar.Text)
cbsimpan.Enabled = True
ubay.Enabled = True
ubay.SetFocus

16. Klik Pada Cbtambah dan pastekan kode berikut (deklarasi=click):
tcicilan.Text = Val(tbiayatingkatan.Text) / 3
tsisa.Text = Val(tcicilan.Text) * 2
tobay.Text = Val(tcicilan.Text) + Val(tbiayadaftar.Text)
ubay.Enabled = True
cbsimpan.Enabled = True
ubay.SetFocus

17. Klik Pada ubay dan pastekan kode berikut (deklarasi=keypress):
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0

 If KeyAscii = 13 Then
ukem.Text = Val(ubay.Text) - Val(tobay.Text)
If Val(ubay.Text) < Val(tobay.Text) Then
MsgBox ("Jumlah uang yang dimasukan KURANG !"), vbCritical
ubay.Text = Clear
ukem.Text = Clear
End If
End If

18. Klik Pada tjenisbayar dan pastekan kode berikut (deklarasi=click):
If tjenisbayar.Text = "Tunai" Then
tobay.Text = Val(tbiayatingkatan.Text) + Val(tbiayadaftar.Text)
ubay.Enabled = True
ubay.SetFocus
cbsimpan.Enabled = True
x2.Enabled = False
x3.Enabled = False
Else
x2.Enabled = True
x3.Enabled = True

 End If

19. Klik Pada timer dan pastekan kode berikut :
tjam.Text = Time
tgl.Text = Format(Date, "yyyy-m-d")