機房收費系統之報表淺談

    報表的基本意思是向上級報告情況的表格，“報表=多樣的格式+動态的資料”人們利用計算機處理資料和界面設計的功能來生成、展示報表。報表要做的就是幫助你自動處理好資料，然後在界面上顯示你需要的資料。這樣不僅節省時間，而且使用者可以隻修改資料，或者隻修改格式，還能保證資料的準确性。

    是以這麼好的東西為什麼不用呢？接下來我就來向大家簡單介紹VB與報表的互動~

下載下傳Grid++Report5.0

連結：密碼：jwcn

Grid++Report5.0

步驟詳情

    有很多還有截圖我就不一一介紹了給大家一個連結這裡的步驟很清楚

編輯報表

    當我們把報表器下載下傳下來之後，其實可以不用自己手動去建立一個賬單，下載下傳下來後我們機房收費系統所需材料中就會有日周賬單，拿過來複制到自己的檔案見進行附用就好了。

    複制圈起來的賬單。

    插入控件後在，接下來就是實作互動功能了。

實作日結賬互動代碼：

Private Sub Form_Load()
Dim txtsql As String
Dim Report As grproLibCtl.GridppReport
'執行個體化報表
txtsql = "select * from CheckDay_Info where date = '" & Format(Date, "yyyy-mm-dd") & "'"
    Set Report = New grproLibCtl.GridppReport
        Set Report = New grproLibCtl.GridppReport
         
        '報表建立的位置
        Report.LoadFromFile App.Path & "\daycheck.grf"
        Report.DetailGrid.Recordset.ConnectionString = connectstring() '資料源
         
        
        Report.DetailGrid.Recordset.QuerySQL = txtsql
        '報表的參數設定
        Report.ParameterByName("XX").AsString = username
        Report.ParameterByName("OPT").AsString = username
        '檢視報表
        GRDisplayViewer1.Report = Report
        '顯示報表
        GRDisplayViewer1.Start
End Sub
           

周結賬

    相比日結帳單周結賬有起始日期，周報表和日報表很相似，隻是多了兩行代碼

Report.ParameterByName("BeginDate").Value = Format$(DTPicker1.Value, "yyyy-mm-dd")
Report.ParameterByName("EndDate").Value = Format$(DTPicker2.Value, "yyyy-mm-dd")
           

    以上就是我對報表互動的全部了，具體列印什麼的功能還沒有深入探究。