Kode Listing Form Data User Program Penggajian Menggunakan visual basic 6.0

Advertisement
Setelah anda melihat Contoh Program Aplikasi Penggajian PT Hoyama Menggunakan Visual Basic 6.0, langkah selanjutnya anda membuat form data user.




Silahkan buat form user dengan name=formuser, dan silahkan ubah name yg lainnya mejad seperti dibawah ini ;
Catatan ;
A. Buat Grid/tabel seperti diatas
B. Masukkan crystal report dan beri name=cr

1. Buat Sub baru dengan nama Sub aktif dan pastekan koding berikut :
tkodeuser.Enabled = True
tnamauser.Enabled = True
tpassuser.Enabled = True
tlevel.Enabled = True
ctambah.Enabled = True
csimpan.Enabled = True
csunting.Enabled = True
cperbarui.Enabled = True
cbatal.Enabled = True
chapus.Enabled = True
ccari.Enabled = True
tcari.Enabled = True
ccetak.Enabled = True




2. Buat Sub baru dengan nama Sub nonaktif dan pastekan koding berikut :
tkodeuser.Enabled = False
tnamauser.Enabled = False
tpassuser.Enabled = False
tlevel.Enabled = False
ctambah.Enabled = False
csimpan.Enabled = False
csunting.Enabled = False
cperbarui.Enabled = False
cbatal.Enabled = False
chapus.Enabled = False
ccari.Enabled = False
tcari.Enabled = False
ccetak.Enabled = False

3. Buat Sub baru dengan nama Sub tampil dan pastekan koding berikut :
Call koneksi
 rsdatauser.Open "select*from tabeluser", KON
 Set grid1.DataSource = rsdatauser

4. Buat Sub baru dengan nama Sub besih dan pastekan koding berikut :
tkodeuser.Text = Clear
tnamauser.Text = Clear
tpassuser.Text = Clear
tlevel.Text = Clear
tcari.Text = Clear

5. Buat Sub baru dengan nama Sub simpan dan pastekan koding berikut :
Call koneksi
rsdatauser.Open "insert into tabeluser values('" & tkodeuser & "','" & tnamauser & "','" & tpassuser & "','" & tlevel & "')", KON
MsgBox "Data Sudah Tersimpan", vbInformation
Call tampil
Call bersih
Call nonaktif
ctambah.Enabled = True
ccari.Enabled = True
tcari.Enabled = True
ccetak.Enabled = True

6. Buat Sub baru dengan nama Sub perbarui dan pastekan koding berikut :
Call koneksi

rsdatauser.Open "update tabeluser set namauser='" & tnamauser & "',password='" & tpassuser & "',level='" & tlevel & "' where kodeuser='" & tkodeuser.Text & "'", KON

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

7. Form_load pastekan koding berikut :
Private Sub Form_Load()
Me.Top = 100
Me.Left = 0
Me.Height = 6945
Me.Width = 10995
Call tampil
Call bersih
Call nonaktif
ctambah.Enabled = True
ccari.Enabled = True
tcari.Enabled = True
ccetak.Enabled = True
End Sub

8. Double klik pada ctambah dan pastekan koding berikut :
Call koneksi
Call bersih
Call aktif

rsdatauser.Open "select*from tabeluser order by kodeuser desc", KON
With rsdatauser
 If .BOF And .EOF Then
  tkodeuser.Text = "USR" + "01"
  Else
   tkodeuser.Text = "USR" + Right(Str(Val(Right(.Fields("kodeuser"), 2)) + 101), 2)
   End If
   End With
   tkodeuser.Enabled = False
tnamauser.SetFocus
cbatal.Enabled = True
csunting.Enabled = False
cperbarui.Enabled = False
chapus.Enabled = False
Call tampil
tpassuser.Enabled = True
tlevel.Enabled = True
ctambah.Enabled = False





9. Double klik pada csimpan dan pastekan koding berikut :
If tkodeuser.Text = "" Or tnamauser.Text = "" Or tlevel.Text = "" Or tpassuser.Text = "" Then
MsgBox "Data Belum terisi semua", vbCritical
ElseIf Len(tnamauser.Text) < 3 Then
MsgBox "Nama user harus lebih dari 2 karakter", vbCritical
tnamauser.SetFocus
ElseIf Len(tpassuser.Text) < 3 Then
MsgBox "Password harus lebih dari 2 karakter", vbCritical
tpassuser.SetFocus
Else
Call simpan
End If

10. Double klik pada csunting dan pastekan koding berikut :
Call koneksi
rsdatauser.Open "select*from tabeluser where kodeuser ='" & tcari.Text & "'", KON
With rsdatauser
 tkodeuser.Text = .Fields("kodeuser")
 tnamauser.Text = .Fields("namauser")
 tpassuser.Text = .Fields("password")
  tlevel.Text = .Fields("level")
 End With
 Call aktif
 tlevel.Enabled = False
 tkodeuser.Enabled = False
 ctambah.Enabled = False
 csimpan.Enabled = False
 chapus.Enabled = False
 csunting.Enabled = False


11. Double klik pada cperbarui dan pastekan koding berikut :
If tkodeuser.Text = "" Or tnamauser.Text = "" Or tlevel.Text = "" Or tpassuser.Text = "" Then
MsgBox "Data Belum terisi semua", vbCritical
ElseIf Len(tnamauser.Text) < 3 Then
MsgBox "Nama user harus lebih dari 2 karakter", vbCritical
tnamauser.SetFocus
ElseIf Len(tpassuser.Text) < 3 Then
MsgBox "Password harus lebih dari 2 karakter", vbCritical
tpassuser.SetFocus
Else
Call perbarui
End If

12. Double klik pada chapus dan pastekan koding berikut :
Call koneksi
a = MsgBox("Yakin Ingin Hapus Data ini?", vbQuestion + vbYesNo, "tanya")
If a = vbYes Then
rsdatauser.Open "delete from tabeluser where kodeuser='" & tcari.Text & "'", KON
MsgBox "Data telah terhapus", vbInformation
bersih
tcari.Text = ""
Call nonaktif
ctambah.Enabled = True
ccari.Enabled = True
tcari.Enabled = True
ccetak.Enabled = True
End If
Call tampil

13. Double klik pada cbatal dan pastekan koding berikut :
Call bersih
Call nonaktif
ctambah.Enabled = True
ccari.Enabled = True
tcari.Enabled = True
ccetak.Enabled = True




14. Double klik pada ccari dan pastekan koding berikut :
Call koneksi
rsdatauser.Open "select*from tabeluser where kodeuser='" & tcari.Text & "'", KON
  If rsdatauser.EOF Then
MsgBox "Data Tidak Ditemukan", vbCritical
Call bersih
tcari.SetFocus
Else
With rsdatauser
 tkodeuser.Text = .Fields("kodeuser")
 tnamauser.Text = .Fields("namauser")
 tpassuser.Text = .Fields("password")
  tlevel.Text = .Fields("level")
 End With
 Call nonaktif
  tkodeuser.Enabled = False
 csunting.Enabled = True
 chapus.Enabled = True
cbatal.Enabled = True
If tkodeuser.Text = "USR01" Then
chapus.Enabled = False
tlevel.Enabled = False
End If
End If

15. Double klik pada ccetak dan pastekan koding berikut (sesuaikan link penyimpanannya) :
cr.ReportFileName = "D:\Belajar MVB\user.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1


0 Komentar untuk "Kode Listing Form Data User Program Penggajian Menggunakan visual basic 6.0"

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

Back To Top