Kode Listing Form Transaksi Pendaftaran Penerimaan 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 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")




0 Komentar untuk "Kode Listing Form Transaksi Pendaftaran Penerimaan Siswa Baru Sekolah Mengemudi VB6"

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

Back To Top