Dim WithEvents Report As grproLibCtl.GridppReport



Private Sub cmdweeklist_Click()
'賬單重新整理
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    Dim mrc1 As ADODB.Recordset
    Dim mrc2 As ADODB.Recordset
    Dim mrc3 As ADODB.Recordset
    Dim mrc4 As ADODB.Recordset
    Dim mrc5 As ADODB.Recordset
    Dim RemainCash As Integer
    Dim RechargeCash As Integer
    Dim ConsumeCash As Integer
    Dim CancelCash As Integer
    Dim AllCash As Integer
    
    If DTPicker1.Value > DTPicker2.Value Then
        MsgBox "終止日期不能小於起始日期", 48, "提示"
        Exit Sub
    Else
    
        If DTPicker1.Value And DTPicker2.Value > Date Then
            MsgBox "小主，日子還沒到呢", 48, "提示"
            DTPicker1.Value = Date
            DTPicker2.Value = Date
            Exit Sub
        Else
        
            txtsql = "select * from checkday_info where date between '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "'"
            Set mrc = ExecuteSQL(txtsql, msgtext)
            
            If mrc.EOF Then
                MsgBox "該時間段沒有資料！", 48, "提示"
                
                Exit Sub
            Else
                
                '刪除check week表中的記
                
                txtsql = "delete from checkweek_Info"
                
                Set mrc1 = ExecuteSQL(txtsql, msgtext)
                
                '計算上次充值卡金額
                
                    mrc.MoveLast
                    RemainCash = mrc.Fields(0)
                
                '計算總充值金額mrc2
                    
    
                    txtsql = "select sum(rechargecash) from checkday_info where date between '" & DTPicker1.Value & " ' and '" & DTPicker2.Value & "'"
                    Set mrc2 = ExecuteSQL(txtsql, msgtext)
                    
                    If IsNull(mrc2.Fields(0)) = True Then
                        RechargeCash = 0
                    Else
                        RechargeCash = Trim(mrc2.Fields(0))
                    End If
                    
            
                
                '計算總消費金額
                
                    txtsql = "select sum(consumecash) from checkday_info where date between '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "'"
                    Set mrc3 = ExecuteSQL(txtsql, msgtext)
                    
                        If IsNull(mrc3.Fields(0)) = True Then
                            ConsumeCash = 0
                        Else
                            ConsumeCash = Trim(mrc3.Fields(0))
                        End If
                            
                '計算總退卡金額
                
                    txtsql = "select sum(cancelcash) from checkday_info where date between '" & DTPicker1.Value & "' and '" & DTPicker1.Value & "'"
                    Set mrc4 = ExecuteSQL(txtsql, msgtext)
                    
                        If IsNull(mrc4.Fields(0)) = True Then
                            CancelCash = 0
                        Else
                            CancelCash = Trim(mrc4.Fields(0))
                        End If
                        
                '計算本期充值卡金額
                
                    mrc.MoveLast
                    AllCash = mrc.Fields(4)
                    
                '新增到check week表中
                
                    txtsql = "select * from checkweek_info"
                    Set mrc1 = ExecuteSQL(txtsql, msgtext)
                    mrc1.AddNew
                        mrc1.Fields(0) = RemainCash
                        mrc1.Fields(1) = RechargeCash
                        mrc1.Fields(2) = ConsumeCash
                        mrc1.Fields(3) = CancelCash
                        mrc1.Fields(4) = AllCash
                        mrc1.Fields(5) = Date
                        
                    mrc1.Update
                    
                '顯示報表中的內容
                    
                    Report.DetailGrid.Recordset.QuerySQL = txtsql
                    GRDisplayViewer1.Refresh
                    
                '給報表的日期賦值
    
                    Report.ParameterByName("BeginDate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")
                    Report.ParameterByName("EndDate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")
                    Report.ParameterByName("XX").Value = UserName
                    
            End If
        End If
    End If
End Sub

Private Sub cmdprint_Click()
    Report.[Print] (True)
    
End Sub

Private Sub cmdprintpreview_Click()
    Report.PrintPreview (True)
    
End Sub

Private Sub Form_Load()
    txtsql = "select * from checkweek_info"
    
    
    '建立報表物件
    
    Set Report = New grproLibCtl.GridppReport
    
    '放入做好的報表檔案
    
    Report.LoadFromFile (App.Path & "\weekcheck.grf")
    
    '連線資料來源
    
    Report.DetailGrid.Recordset.ConnectionString = "FileDSN=charge.dsn;UID=sa;PWD=123456"
    Report.DetailGrid.Recordset.QuerySQL = txtsql
    
    
    '顯示報表的內容
    GRDisplayViewer1.Report = Report
    GRDisplayViewer1.Start
    
    '給報表的日期賦值
    
    Report.ParameterByName("BeginDate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")
    Report.ParameterByName("EndDate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")
    Report.ParameterByName("XX").Value = UserName
End Sub

 

VB報表控制元件