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


Catatan :
A. Buat textbox baru 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 pendaftaran 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 pendaftaran 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 bersih 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 tidak boleh sama", vbCritical
tnamatingkatan.Text = ""
tnamatingkatan.SetFocus
End If




0 Komentar untuk "Kode Listing Form Biaya Penerimaan siswa baru sekolah mengemudi VB6"

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

Back To Top