Belajar Pemograman Yuuk (VB 6.0, SQL Server, PostgreSQL, PHP)

Untuk membuat report

Option Explicit
Dim indeks As Integer
Dim Cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset

Sub Lihat_Report(laporan As String, saring As String)
With Report1
.LogOnServer "p2ssql.dll", "10.11.12.56", "pulsa", "pulsa", "Pulsa123"
.ReportFileName = App.Path & "\Report\" & laporan & ".rpt"
.WindowState = crptMaximized
.ReportTitle = "Dari tanggal " & dt_dari.Value & " sampai dengan tanggal " & dt_sampai.Value
.SelectionFormula = saring
.Action = 1
.Reset
End With
End Sub

Private Sub cetak_Click()
Select Case indeks
Case 0
'Per-agen
Lihat_Report "per-agen", "{View_Data.kdagen} in '" & agen & "'"
Case 1
'Per-agen Per-periode
Lihat_Report "per-agen2", "{View_Data1.agent_id} in '" & agen & "' and " & _
"{View_Data1.tanggal} IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
"TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")"
Case 2
'Per-cabang
Lihat_Report "per-cabang", "{rptpercabang.kdcab} in '" & cab & "'"
Case 3
'Per-cabang Per-periode
Lihat_Report "per-cabang2", "{View_Data2.kdCab} in '" & cab & "' and " & _
"{View_Data2.tanggal} IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
"TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")"
Case 4
'total-cabang diluar KP
Lihat_Report "total-cab", ""
Case 5
'total-kp saja
Lihat_Report "total-kp", ""
Case 6
'Total-data Per-periode
Lihat_Report "per-periode", "{View_All_Periode.tanggal} IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
"TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")"
Case 7
'Total
Lihat_Report "total", ""
Case 8
'RPP Kantor Pusat Pos Langsung
Lihat_Report "RPP", "{RPP.Branch_ID} in '" & cab & "' and " & _
"{RPP.transc_date} IN DATE (" & Format(dt_dari.Value, "YYYY,MM,DD") & ")" & _
"TO DATE (" & Format(dt_sampai.Value, "YYYY,MM,DD") & ")"
End Select
End Sub

Private Sub Form_Activate()
dt_dari.Value = Format(Now, 1 & "/mmmm/yyyy")
dt_sampai.Value = DateAdd("m", DateDiff("m", 0, Now), 1)
End Sub

Private Sub Form_Load()
'Deklarasikan variabel koneksi
Set Cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset

With Cnn
.ConnectionString = "provider=SQLOLEDB;" & _
"Data Source=10.11.12.56,1433/Kenari;initial Catalog = Pulsa;" & _
"Trusted Connection=yes;User ID=pulsa; Password=Pulsa123"
.Open
End With
rs.CursorLocation = adUseClient
rs.Open "tbl_Agent", Cnn
rs1.Open "tbl_Branch", Cnn

agen.Clear: cab.Clear
Dim Msql As String
Msql = "SELECT Agent_ID FROM tbl_Agent ORDER BY Agent_ID"
While Not rs.EOF
agen.AddItem rs!Agent_ID
rs.MoveNext
Wend

Msql = "SELECT Branch_ID FROM tbl_Branch"
While Not rs1.EOF: cab.AddItem rs1!Branch_ID: rs1.MoveNext: Wend
If agen.ListCount <> 0 Then agen.ListIndex = 0: cab.ListIndex = 0

'Atur Letak Form
Me.Top = (Main.ScaleHeight - Me.ScaleHeight) / 2
Me.Left = (Main.ScaleWidth - Me.ScaleWidth) / 2

End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

Private Sub lap_Click(Index As Integer)
indeks = Index
Select Case Index
Case 0
'Per-agen
agen.Enabled = True: cab.Enabled = False
dt_dari.Enabled = False: dt_sampai.Enabled = False
Case 1
'Per-agen Per-Periode
agen.Enabled = True: cab.Enabled = False
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 2
'Per-cabang
agen.Enabled = False: cab.Enabled = True
dt_dari.Enabled = False: dt_sampai.Enabled = False
Case 3
'Per-cabang Per-periode
agen.Enabled = False: cab.Enabled = True
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 4
'Total-seluruh-cabang
agen.Enabled = False: cab.Enabled = False
dt_dari.Enabled = False: dt_sampai.Enabled = False
Case 5
'Total-seluruh Kantor Pusat-PL
agen.Enabled = False: cab.Enabled = False
dt_dari.Enabled = False: dt_sampai.Enabled = False
Case 6
'Total-data Per-periode
agen.Enabled = False: cab.Enabled = False
dt_dari.Enabled = True: dt_sampai.Enabled = True
Case 7
'Total-seluruh-data
agen.Enabled = False: cab.Enabled = False
dt_dari.Enabled = False: dt_sampai.Enabled = False
Case 8
'RPP
agen.Enabled = False: cab.Enabled = True
dt_dari.Enabled = True: dt_sampai.Enabled = True
End Select
End Sub

Private Sub selesai_Click()
Unload Me
End Sub