√ Aba-Aba Listing Form Laporan Aktivitas Penggajian Memakai Vb6

Setelah kita melihat contoh aktivitas aplikasi penggajian PT HOYAMA memakai visual basic 6.0, selanjutnya kita lihat form laporannya.

Pada form laporan ini user dapat mencetak slip honor bulanan, slip honor tahunan, slip bonus tahunan dan slip THR tahunan. User juga dapat mencetak menurut nomor ID karyawan yang dipilih.

Silahkan anda buat form menyerupai dibawah ini dengan name=formlaporan ;

Catatan ;
A. Masukkan komponen crystal report
B. kurun memakai optionsbutton


1.  pastekn koding berikut ;

Private Sub Form_Load()
Me.Top = 100
Me.Left = 0
Me.Height = 5775
Me.Width = 11220
obulan.Enabled = False
otahun.Enabled = False
semua.Enabled = False
oid.Enabled = False
cbulan.Enabled = False
ctahun.Enabled = False
tahun.Enabled = False
tid.Enabled = False
ccetak.Enabled = False
cbersih.Enabled = False
cbulan.Clear
ctahun.Clear
tahun.Clear
For a = 1 To 12
cbulan.AddItem a
Next a
For i = 1 To 30
ctahun.AddItem 2015 + i
tahun.AddItem 2015 + i
Next i
End Sub

2. Double klik pada tpilih  dan pastekn koding berikut (declaration=click) ;

If tpilih.Text = "BONUS" Or tpilih.Text = "THR" Then
obulan.Enabled = False
otahun.Enabled = True
semua.Enabled = True
oid.Enabled = False
Else
obulan.Enabled = True
otahun.Enabled = True
semua.Enabled = True
oid.Enabled = True
End If

3. Double klik pada obulan  dan pastekn koding berikut (declaration=click);

cbulan.Enabled = True
ctahun.Enabled = True
tahun.Enabled = False
tid.Enabled = False
cbulan.SetFocus

4. Double klik pada otahun  dan pastekn koding berikut (declaration=click);

cbulan.Enabled = False
ctahun.Enabled = False
tahun.Enabled = True
tid.Enabled = False
tahun.SetFocus

5. Double klik pada semua dan pastekn koding berikut (declaration=click);

If tpilih.Text = "PENGHITUNGAN" Then
cr.ReportFileName = "D:\Belajar MVB\penghitungan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
ElseIf tpilih.Text = "BONUS" Then
cr.ReportFileName = "D:\Belajar MVB\databonuskaryawan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
Else
cr.ReportFileName = "D:\Belajar MVB\datathrkaryawan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If

6. Double klik pada oid dan pastekn koding berikut (declaration=click);

cbulan.Enabled = False
ctahun.Enabled = False
tahun.Enabled = False
tid.Enabled = True
tid.SetFocus

7. Double klik pada cbulan dan pastekn koding berikut (declaration=click);

ctahun.Enabled = True

8. Double klik pada ctahun  dan pastekn koding berikut (declaration=click);

If tpilih.Text = "PENGHITUNGAN" Then
Call koneksi
rspenghitungan.Open "select*from tabelpenghitungan where month(tglinput)='" & Val(cbulan) & "' and year(tglinput)='" & Val(ctahun) & "'", KON
If rspenghitungan.EOF Then
MsgBox "Data Tidak Ditemukan", vbCritical

cbulan.SetFocus
Else
cr.SelectionFormula = "Month({tabelpenghitungan.tglinput}) = " & Val(cbulan) & " And Year({tabelpenghitungan.tglinput}) = " & Val(ctahun) & ""
cr.ReportFileName = "D:\Belajar MVB\penghitunganbulanan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
End If

9. Double klik pada tahun dan pastekn koding berikut (declaration=click);

If tpilih.Text = "PENGHITUNGAN" Then
Call koneksi
rspenghitungan.Open "select*from tabelpenghitungan where year(tglinput)='" & Val(tahun) & "'", KON
If rspenghitungan.EOF Then
MsgBox "Data Tidak Ditemukan", vbCritical

tahun.SetFocus
Else
cr.SelectionFormula = "Year({tabelpenghitungan.tglinput}) = " & Val(tahun) & ""
cr.ReportFileName = "D:\Belajar MVB\penghitungantahunan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
ElseIf tpilih.Text = "BONUS" Then
Call koneksi
rshitungbonus.Open "select*from tabelhitungbonus where year(tglinput)='" & Val(tahun) & "'", KON
If rshitungbonus.EOF Then
MsgBox "Data Tidak Ditemukan", vbCritical

tahun.SetFocus
Else
cr.SelectionFormula = "Year({tabelhitungbonus.tglinput}) = " & Val(tahun) & ""
cr.ReportFileName = "D:\Belajar MVB\DATABONUSKARYAWANTAHUNAN.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
Else
Call koneksi
rshitungthr.Open "select*from tabelhitungthr where year(tglinput)='" & Val(tahun) & "'", KON
If rshitungthr.EOF Then
MsgBox "Data Tidak Ditemukan", vbCritical

tahun.SetFocus
Else
cr.SelectionFormula = "Year({tabelhitungthr.tglinput}) = " & Val(tahun) & ""
cr.ReportFileName = "D:\Belajar MVB\DATAthrKARYAWANTAHUNAN.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1
End If
End If

10. Double klik pada tid dan pastekn koding berikut (declaration=keypress);

If KeyAscii = 13 Then
Call koneksi
rsdatakaryawan.Open "select*from tabelkaryawan where idkaryawan='" & tid.Text & "'", KON
If rsdatakaryawan.EOF Then
MsgBox "ID tidak ditemukan", vbCritical
tid.Text = ""
Else
ccetak.Enabled = True
End If
End If

11. Double klik pada ccetak dan pastekn koding berikut (declaration=click);

cr.SelectionFormula = "Totext({tabelpenghitungan.idkaryawan})= '" & tid.Text & "'"
cr.ReportFileName = "D:\Belajar MVB\penghitunganbulanan.rpt"
cr.WindowState = crptMaximized
cr.RetrieveDataFiles
cr.Action = 1

Sumber http://www.hendrisetiawan.com