Kode Listing Form Transaksi Pembuatan SIM A Peneriman Siswa Baru Sekolah Mengemudi VB6

Advertisement
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")



0 Komentar untuk "Kode Listing Form Transaksi Pembuatan SIM A Peneriman Siswa Baru Sekolah Mengemudi VB6"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!
Baca Aturan Berkomentar

Back To Top