Home Program Visual Basic Penerimaan Siswa Baru Sekolah Mengemudi √ Isyarat Listing Form Biaya Penerimaan Siswa Gres Sekolah Mengemudi Vb6

Tuesday, October 30, 2018

√ Isyarat Listing Form Biaya 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 ganti password.
Pertama-tama buat terlebih dahulu formnya menyerupai dibawah ini, juga beri name masing-masing :


Catatan :
A. Buat textbox gres dan beri name "tnamatingkatan2" pada propertiesya ubah visible ke false
B. Tambahkan crystalreport beri name "cr"
C. tambahkan tabel grid, beri name "grid"

1. Klik pada tjpertemuan dan pastekan koding berikut (ubah deklarasi ke change) :
If tjpertemuan.Text = "0" Then
MsgBox "Angka Tidak Valid", vbCritical
tjpertemuan.Text = ""
Else
End If

2. Klik pada tbiayatingkat dan pastekan koding berikut (ubah deklarasi ke change) :
If tbiayatingkat.Text = "0" Then
MsgBox "Angka Tidak Valid", vbCritical
tbiayatingkat.Text = ""
Else
End If

3. Klik pada tbpendaftaran dan pastekan koding berikut (ubah deklarasi ke change):
If tbpendaftaran.Text = "0" Then
MsgBox "Angka Tidak Valid", vbCritical
tbpendaftaran.Text = ""
Else
End If

4. Klik pada tbiayasim dan pastekan koding berikut (ubah deklarasi ke change):
If tbiayasim.Text = "0" Then
MsgBox "Angka Tidak Valid", vbCritical
tbiayasim.Text = ""
Else
End If

5. Klik pada cbtambah dan pastekan koding berikut (ubah deklarasi ke click):
Call koneksi
Call bersih
Call aktif

 rsbiaya.Open "select*from tbiaya order by kodebiaya desc", KON
With rsbiaya
If .BOF And .EOF Then
tkodebiaya.Text = "KB" + "01"
Else
tkodebiaya.Text = "KB" + Right(Str(Val(Right(.Fields("kodebiaya"), 2)) + 101), 2)
End If
End With
tkodebiaya.Enabled = False
tnamatingkatan.SetFocus
cbbatal.Enabled = True
cbsunting.Enabled = False
cbperbarui.Enabled = False
cbhapus.Enabled = False
Call tampil
tbpendaftaran.Enabled = True
cbtambah.Enabled = False

6. Klik pada cbsimpan dan pastekan koding berikut (ubah deklarasi ke click):
Call biayatingkat
If tkodebiaya.Text = "" Or tnamatingkatan.Text = "" Or tjpertemuan.Text = "" Or tbiayatingkat.Text = "" Or tbpendaftaran.Text = "" Or tbiayasim.Text = "" Then
MsgBox "Data Belum terisi semua", vbCritical
ElseIf Len(tnamatingkatan.Text) < 3 Then MsgBox "Nama tingkatan harus lebih dari 2 karakter", vbCritical tnamatingkatan.SetFocus ElseIf tjpertemuan.Text > 30 Then
MsgBox "Jumlah pertemuan harus kurang dari 30 pertemuan", vbCritical
tjpertemuan.SetFocus
ElseIf Len(tbiayatingkat.Text) < 5 Then MsgBox "Biaya tingkatan harus lebih dari 4 karakter", vbCritical tbiayatingkat.SetFocus ElseIf Len(tbpendaftaran.Text) < 5 Then MsgBox "Biaya registrasi harus lebih dari 4 karakter", vbCritical tbpendaftaran.SetFocus ElseIf Len(tbiayasim.Text) < 5 Then MsgBox "Biaya pembuatan sim harus lebih dari 4 karakter", vbCritical tbiayasim.SetFocus Else Call simpan End If


7. Klik pada cbsunting dan pastekan koding berikut (ubah deklarasi ke click:
Call koneksi
rsbiaya.Open "select*from tbiaya where kodebiaya='" & tcari.Text & "'", KON
With rsbiaya
tkodebiaya.Text = .Fields("kodebiaya")
tnamatingkatan.Text = .Fields("namatingkatan")
tjpertemuan.Text = .Fields("jpertemuan")
tbiayatingkat.Text = .Fields("biayatingkatan")
tbpendaftaran.Text = .Fields("biayadaftar")
tbiayasim.Text = .Fields("biayasim")
End With
Call aktif
tkodebiaya.Enabled = False
cbsunting.Enabled = False
cbhapus.Enabled = False
cbbatal.Enabled = True
cbtambah.Enabled = False
cbsimpan.Enabled = False
tnamatingkatan2.Text = tnamatingkatan.Text

8. Klik pada cbperbarui dan pastekan koding berikut (ubah deklarasi ke click:
If tkodebiaya.Text = "" Or tnamatingkatan.Text = "" Or tjpertemuan.Text = "" Or tbiayatingkat.Text = "" Or tbpendaftaran.Text = "" Or tbiayasim.Text = "" Then
MsgBox "Data Belum terisi semua", vbCritical
ElseIf Len(tnamatingkatan.Text) < 3 Then MsgBox "Nama tingkatan harus lebih dari 2 karakter", vbCritical tnamatingkatan.SetFocus ElseIf tjpertemuan.Text > 30 Then
MsgBox "Jumlah pertemuan harus kurang dari 30 pertemuan", vbCritical
tjpertemuan.SetFocus
ElseIf Len(tbiayatingkat.Text) < 5 Then MsgBox "Biaya tingkatan harus lebih dari 4 karakter", vbCritical tbiayatingkat.SetFocus ElseIf Len(tbpendaftaran.Text) < 5 Then MsgBox "Biaya registrasi harus lebih dari 4 karakter", vbCritical tbpendaftaran.SetFocus ElseIf Len(tbiayasim.Text) < 5 Then MsgBox "Biaya pembuatan sim harus lebih dari 4 karakter", vbCritical tbiayasim.SetFocus Else Call nama_perbarui End If


9. Klik pada cbhapus dan pastekan koding berikut (ubah deklarasi ke click:
Call koneksi
a = MsgBox("Yakin Ingin Hapus Data ini?", vbQuestion + vbYesNo, "tanya")
If a = vbYes Then
rsbiaya.Open "delete from tbiaya where kodebiaya='" & tcari.Text & "'", KON
MsgBox "Data telah terhapus", vbInformation
bersih
tcari.Text = ""
Call nonaktif
cbtambah.Enabled = True
cbcari.Enabled = True
tcari.Enabled = True
End If
Call tampil

10. Klik pada cbbatal dan pastekan koding berikut (ubah deklarasi ke click:
Call bersih
Call nonaktif
cbtambah.Enabled = True
cbcari.Enabled = True
tcari.Enabled = True

11. Klik pada cbcari dan pastekan koding berikut (ubah deklarasi ke click:
Call koneksi
rsbiaya.Open "select*from tbiaya where kodebiaya='" & tcari.Text & "'", KON

 If rsbiaya.EOF Then
MsgBox "Data Tidak Ditemukan", vbCritical
Call bersih
tcari.SetFocus
Else
With rsbiaya
tkodebiaya.Text = .Fields("kodebiaya")
tnamatingkatan.Text = .Fields("namatingkatan")
tjpertemuan.Text = .Fields("jpertemuan")
tbiayatingkat.Text = .Fields("biayatingkatan")
tbpendaftaran.Text = .Fields("biayadaftar")
tbiayasim.Text = .Fields("biayasim")
End With
Call nonaktif
tkodebiaya.Enabled = False
cbsunting.Enabled = True
cbhapus.Enabled = True
cbbatal.Enabled = True
End If

12. Klik pada cetak dan pastekan koding berikut (ubah deklarasi ke click) dan sesuaikan penyimpanannya:
cr.ReportFileName = "D:\Perkuliahan\Tugas Akhir\Tugas Akhir\program\Laporan\databiaya.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1

13. Klik pada bmenu dan pastekan koding berikut (ubah deklarasi ke click:
a = MsgBox("Yakin Untuk Menutup Form Ini Dan kembali ke Menu Utama ?", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
fbiaya.Hide
Call aktifadmin
End If

14. Buat form_load dan pastekan koding berikut :
Me.Left = 100
Me.Top = 0
Call bersih
Call nonaktif
Call tampil
cbtambah.Enabled = True
tcari.Enabled = True
cbcari.Enabled = True
Me.Height = 7950
Me.Width = 17490
tnamatingkatan.MaxLength = 20
tbiayatingkat.MaxLength = 7
tjpertemuan.MaxLength = 2
tbpendaftaran.MaxLength = 6
tbiayasim.MaxLength = 6

15. Buat SUB aktif dan pastekan koding berikut :
cbtambah.Enabled = True
cbsimpan.Enabled = True
cbsunting.Enabled = True
cbperbarui.Enabled = True
cbhapus.Enabled = True
cbbatal.Enabled = True
tkodebiaya.Enabled = True
tnamatingkatan.Enabled = True
tjpertemuan.Enabled = True
tbiayatingkat.Enabled = True
tbpendaftaran.Enabled = True
tbiayasim.Enabled = True
tcari.Enabled = True
cbcari.Enabled = True

16. Buat SUB nonaktif dan pastekan koding berikut :
cbtambah.Enabled = False
cbsimpan.Enabled = False
cbsunting.Enabled = False
cbperbarui.Enabled = False
cbhapus.Enabled = False
cbbatal.Enabled = False
tkodebiaya.Enabled = False
tnamatingkatan.Enabled = False
tjpertemuan.Enabled = False
tbiayatingkat.Enabled = False
tbpendaftaran.Enabled = False
tbiayasim.Enabled = False
tcari.Enabled = False
cbcari.Enabled = False

17. Buat SUB higienis dan pastekan koding berikut :
tkodebiaya.Text = ""
tnamatingkatan.Text = ""
tjpertemuan.Text = ""
tbiayatingkat.Text = ""
tbpendaftaran.Text = ""
tbiayasim.Text = ""
tcari.Text = ""

18. Buat SUB tampil dan pastekan koding berikut :
Call koneksi
rsbiaya.Open "select*from tbiaya", KON
Set grid.DataSource = rsbiaya

19. Buat SUB nama_perbarui dan pastekan koding berikut :
Dim a As String
Call koneksi
rsbiaya.Open "select*from tbiaya where namatingkatan='" & tnamatingkatan & "'", KON

 If rsbiaya.EOF Then

 Call perbarui

 ElseIf tnamatingkatan2.Text = tnamatingkatan.Text Then
Call perbarui
Else
a = rsbiaya!namatingkatan
MsgBox "Nama " & a & " Sudah Terisi", vbCritical, "Perbarui"
tnamatingkatan.SetFocus
End If

20. Buat SUB perbarui dan pastekan koding berikut :
Call koneksi
rsbiaya.Open "update tbiaya set kodebiaya='" & tkodebiaya & "',namatingkatan='" & tnamatingkatan & "',jpertemuan='" & tjpertemuan & "',biayatingkatan='" & tbiayatingkat & "',biayadaftar='" & tbpendaftaran & "',biayasim='" & tbiayasim & "' where kodebiaya='" & tkodebiaya.Text & "'", KON

 MsgBox "Data Berhasil di Update", vbInformation, "Info"
bersih
Call tampil
Call nonaktif
cbtambah.Enabled = True
cbcari.Enabled = True
tcari.Enabled = True

21. Buat SUB simpan dan pastekan koding berikut :
Call koneksi
rsbiaya.Open "insert into tbiaya values('" & tkodebiaya & "','" & tnamatingkatan & "','" & tjpertemuan & "','" & tbiayatingkat & "','" & tbpendaftaran & "','" & tbiayasim & "')", KON
MsgBox "Data Sudah Tersimpan", vbInformation
Call tampil
Call bersih
Call nonaktif
cbtambah.Enabled = True
cbcari.Enabled = True
tcari.Enabled = True

22. Buat SUB aktifadmin dan pastekan koding berikut :
fmenu.mlog.Enabled = True
fmenu.mganti.Enabled = True
fmenu.mdata.Enabled = True
fmenu.mdatauser.Enabled = True
fmenu.mdatabiaya.Enabled = True
fmenu.mdatasiswa.Enabled = False
fmenu.mriwayat.Enabled = True
fmenu.mlogout.Enabled = True
fmenu.mloguser.Enabled = False
fmenu.mmobil.Enabled = True
fmenu.mjam.Enabled = True

23. Buat SUB biayatingkat dan pastekan koding berikut :
Call koneksi
rsbiaya.Open "select*from tbiaya where namatingkatan='" & tnamatingkatan.Text & "'", KON
If rsbiaya.EOF Then
tbpendaftaran.Enabled = True
Else
MsgBox "Data Nama biaya dihentikan sama", vbCritical
tnamatingkatan.Text = ""
tnamatingkatan.SetFocus
End If





Sumber http://www.hendrisetiawan.com

Artikel Terkait

hiyahiya

Next Post
Previous Post