Random post

Home Program Visual Basic Penerimaan Siswa Baru Sekolah Mengemudi √ Instruksi Listing Form Transaksi Registrasi Penerimaan Siswa Gres Sekolah Mengemudi Vb6

Wednesday, October 17, 2018

√ Instruksi Listing Form Transaksi Registrasi Penerimaan Siswa Gres Sekolah Mengemudi Vb6

Diterbitkan

Setelah kita melihat contoh aplikasi kegiatan penerimaan siswa gres sekolah mengemudi memakai visual basic 6.0, selanjutnya kita akan menciptakan form transaksi pendaftaran.
Pertama-tama buat terlebih dahulu formnya menyerupai dibawah ini, juga beri name masing-masing :



Catatan :
A. Tambahkan crystalreport beri name "cr"
B. tambahkan tabel grid, beri name "grid"
C. Tambahkan textbox gres 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 gres dengan nama Sub aktif (), dan pastekan instruksi 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 gres dengan nama Sub nonaktif (), dan pastekan instruksi 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 gres dengan nama Sub higienis (), dan pastekan instruksi 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 gres dengan nama Sub tampil (), dan pastekan instruksi berikut :
Call koneksi
 rspendaftaran.Open "select*from tpendaftaran", KON
 Set grid.DataSource = rspendaftaran

6. Buatlah Sub gres dengan nama Sub aktifuser (), dan pastekan instruksi 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 instruksi 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 instruksi 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 instruksi 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 instruksi berikut (deklarasi=click):
Call bersih
Call nonaktif
cbtambah.Enabled = True

11. Klik Pada bmenu dan pastekan instruksi 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 instruksi 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 instruksi berikut (deklarasi=click):
tkodebiaya.Enabled = True

14. Klik Pada tkodebiaya dan pastekan instruksi 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 instruksi 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 instruksi 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 instruksi 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 instruksi 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 instruksi berikut :
tjam.Text = Time
tgl.Text = Format(Date, "yyyy-m-d")





Sumber http://www.hendrisetiawan.com

Artikel Terkait

hiyahiya

Next Post
Previous Post