Setelah kita melihat contoh aplikasi program penerimaan siswa baru sekolah mengemudi menggunakan visual basic 6.0, selanjutnya kita akan membuat form transaksi pembuatan sim.
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 "kodetingkat", pada properties (visible=false)
D. Tambahkan timer

1. Buatlah Sub baru dengan nama Sub aktif() dan pastekan kode berikut :
tnotrans.Enabled = True
tnosiswa.Enabled = True
tnamasiswa.Enabled = True
tkodebiaya.Enabled = True
tbiayasim.Enabled = True
tobay.Enabled = True
ttempat.Enabled = True
tubay.Enabled = True
tukem.Enabled = True
cbtambah.Enabled = True
cbsimpan.Enabled = True

 cbbatal.Enabled = True

2. Buatlah Sub baru dengan nama Sub nonaktif() dan pastekan kode berikut  :
tnotrans.Enabled = False
tnosiswa.Enabled = False
tnamasiswa.Enabled = False
tkodebiaya.Enabled = False
tbiayasim.Enabled = False
tobay.Enabled = False
ttempat.Enabled = False
tubay.Enabled = False
tukem.Enabled = False
cbtambah.Enabled = False
cbsimpan.Enabled = False
cbbatal.Enabled = False

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

 tnamasiswa.Text = ""

 tbiayasim.Text = ""
tobay.Text = ""
ttempat.Text = ""
tubay.Text = ""
tukem.Text = ""

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

5. Buatlah Sub baru dengan nama Sub simpan() dan pastekan kode berikut  :
Call koneksi
rspembuatansima.Open "insert into tpembuatansima set notrans_sim='" & tnotrans & "',nis='" & tnosiswa & "',kodebiaya='" & tkodebiaya & "',tempat='" & ttempat & "',totbay_sim='" & tobay & "',kodeuser='" & kodeuser & "',tgl_sim='" & tltgl & "'", KON
MsgBox "Data Sudah Tersimpan", vbInformation
Call tampil

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  :
Me.Left = 100
Me.Top = 0
Call bersih
Call tampil
Call nonaktif
cbtambah.Enabled = True
kodeuser.Enabled = False
namauser.Enabled = False
kodetingkat.Visible = False
Me.Height = 9405
Me.Width = 15300
kodeuser.Text = fmenu.StatusBar.Panels(2)
namauser.Text = fmenu.StatusBar.Panels(4)

 tubay.MaxLength = 6
tnosiswa.Clear

8. Pastekan variabel paling atas  :
Dim a, b As String

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

10. Klik pada cbsimpan dan pastekan kode berikut (deklarasi=click) :
Call koneksi
rspembuatansima.Open "select*from tpembuatansima where nis='" & tnosiswa.Text & "'", KON
If rspembuatansima.EOF Then

 Call simpan
cr.SelectionFormula = "Totext({tpembuatansima.notrans_sim})= '" & tnotrans.Text & "'"
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\strukpembuatansim.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1

 Call tampil
Call bersih
Call nonaktif
cbtambah.Enabled = True
Else
a = rspembuatansima!nis
MsgBox "Data Dengan NIS " & a & " Sudah Terisi", vbCritical, "SIMPAN"
Call bersih
Call nonaktif

 cbtambah.Enabled = True

 End If


11. Klik pada cbtambah dan pastekan kode berikut (deklarasi=click) :
Call koneksi
rspembuatansima.Open "select*from tpembuatansima order by notrans_sim desc", KON
With rspembuatansima
 If .BOF And .EOF Then
  tnotrans.Text = "TRPS" + Format(Date, "YYMM") + "001"
  Else
   tnotrans.Text = "TRPS" + Format(Date, "YYMM") + Right(Str(Val(Right(.Fields("notrans_sim"), 3)) + 1001), 3)
   End If
   End With

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

12. 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
fbuatsim.Hide
Call aktifuser
End If

13. Klik pada tkodebiaya dan pastekan kode berikut (deklarasi=click) :
cbsimpan.Enabled = True
kodetingkat.Text = tkodebiaya
Call koneksi
rsbiaya.Open "select*from tbiaya where kodebiaya='" & kodetingkat.Text & "'", KON
If rsbiaya.EOF Then
tbiayasim.Text = ""
Else
tbiayasim.Text = rsbiaya!biayasim
tobay.Text = tbiayasim.Text
ttempat.Text = "Polres Karawang"
tubay.Enabled = True
tubay.SetFocus
tkodebiaya.Enabled = False
End If

14. Klik pada tnosiswa dan pastekan kode berikut (deklarasi=click) :
Call koneksi
rspembuatansima.Open "select*from tpembuatansima where nis='" & tnosiswa.Text & "'", KON
If rspembuatansima.EOF Then
tkodebiaya.Enabled = True
tkodebiaya.Clear
rspendaftaran.Open "select*from tpendaftaran where nis='" & tnosiswa.Text & "'", KON
tkodebiaya.AddItem (rspendaftaran.Fields("kodebiaya"))

 rsdatasiswa.Open "select*from tsiswa where nis='" & tnosiswa.Text & "'", KON
tnamasiswa.Text = rsdatasiswa.Fields("namasiswa")

cbbatal.Enabled = True

 tnamasiswa.Enabled = False
tbiayasim.Enabled = False

 tobay.Enabled = False
ttempat.Enabled = False

 Else
a = rspembuatansima!nis
MsgBox "Data Dengan NIS " & a & " Sudah Terisi", vbCritical, "SIMPAN"
End If

15. Klik pada tubay dan pastekan kode berikut (deklarasi=click) :
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0

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

16. Klik pada timer dan pastekan kode berikut (deklarasi=click) :
tjam.Text = Time
tltgl.Text = Format(Date, "yyyy-m-d")