Random post

Home Program Visual Basic Penerimaan Siswa Baru Sekolah Mengemudi √ Arahan Listing Form Transaksi Pembuatan Sim A Peneriman Siswa Gres Sekolah Mengemudi Vb6

Wednesday, October 17, 2018

√ Arahan Listing Form Transaksi Pembuatan Sim A Peneriman 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 pembuatan sim.
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 "kodetingkat", pada properties (visible=false)
D. Tambahkan timer

1. Buatlah Sub gres dengan nama Sub aktif() dan pastekan isyarat 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 gres dengan nama Sub nonaktif() dan pastekan isyarat 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 gres dengan nama Sub bersih() dan pastekan isyarat berikut  :
tnotrans.Text = ""

 tnamasiswa.Text = ""

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

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

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

10. Klik pada cbsimpan dan pastekan isyarat 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 isyarat 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 isyarat 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 isyarat 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 isyarat 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 isyarat 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 isyarat berikut (deklarasi=click) :
tjam.Text = Time
tltgl.Text = Format(Date, "yyyy-m-d")




Sumber http://www.hendrisetiawan.com

Artikel Terkait

hiyahiya

Next Post
Previous Post