機房收費系統之vb報表的模板的製作（一），收費系統vb

機房收費系統之vb報表的模板的製作（一），收費系統vb

       機房收費系統有報表的功能，報表對於我們來說有點陌生，這不是會計的事嗎？怎麼機房收費系統也參合進來了，其實我們學會了報表的步驟，理解了代碼後，報表變得不是很難，世上無難事，只怕肯登攀嗎！

    下面是報表步驟

     1 安裝Grid++Report 報表設計師（在網上下載安裝）

     2 下載控制項 安裝  然後在vb的工程-組件中引用

     3 建立模板（到時候匯入到vb中）

     4 在vb中用代碼將報表連結

     下面是我只製作報表範本的步驟

      1 安裝好報表設計師之後我們開啟它介面如下

 

  2 插入報表頭：在報表設計師的功能表列中找到插入--報表頭 

  3 插入靜態框 ：插入一個靜態框顯示報表標題：執行菜單“插入—靜態框”，用滑鼠在報表頭的顯示地區拖放一個矩形地區，然後雙擊改變裡面的標題。如

4 定義明細網格

   1、插入明細網格：插入—明細網格，新插入的明細網格顯示在報表布局視窗中。如

   2、資料庫連接串與查詢SQL：在明細網格的工具列上選擇“資料庫連接串與查詢SQL”開啟定義視窗。如

 

點擊後出現所示

5 定義資料庫連接串：執行視窗左下角的”建立資料庫連接串......“

記得在允許儲存密碼上打鉤

測試通過

6建立欄位：編輯——根據明細查詢SQL產生欄位。如

建立列：“編輯—根據欄位產生表格列

更改標題 如

調整列寬：將游標移動到列的右邊界位置進行拖放

改變表格標題的顯示文字：按照中的提示進行即可

7 定義頁尾顯示頁號

  1 插入頁尾：執行菜單“插入—頁尾”，新插入的頁尾會顯示在報表布局視窗中。

  2 插入一個綜合文字框顯示列印時間：

  插入綜合文字框：在組件框工具列中選擇“綜合文字礦”，然後在頁尾的左邊拖放一個矩形，一個綜合文字框已經插入。

  設定顯示內容：在右下位置的屬性編輯視窗中選中“文本”行，點擊“...”按鈕開啟文本編輯對話方塊。在編輯框中輸入文字。

在參考型別中選擇系統變數

在系統變數中選擇當前日期和時間

最後點擊確定，預覽一下

       效果不完美，見笑了，弄完之後，我們覺得也不算太難了吧，有一句話不這麼說嘛，不怕不知道，就怕不不知道，其實知道後就是這麼回事，我們要善於站在巨人的肩膀上學習知識，好了，最後可以儲存了，至於怎麼讓它與vb互動起來，請看下一篇部落格。

誰可以給我個vb製作的類似機房預約的系統模板

Public SysFlag As Integer
Public Db As String
Public Sub DbConn(ByVal AdoName, ByVal DbName)
AdoName.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path + "\RegSys.mdb" & ";Persist Security Info=False"
AdoName.RecordSource = "select * from " & DbName
AdoName.Refresh
End Sub
Public Sub UserCheck(ByVal AdoName, ByVal User, ByVal DbName, ByVal PWDCheck1, ByVal PWDCheck2, ByVal FormName)
AdoName.RecordSource = "select 密碼 from " & DbName & " where 使用者名稱 = '" & User & "'"
AdoName.Refresh
If PWDCheck1 = PWDCheck2 Then
Msg User, 1
FormName.Hide
frmMain.Show
Else
Msg User, 0
End If
End Sub
Public Sub Msg(Optional Name, Optional Flag)
Select Case Flag
Case 1:
MsgBox Name & "，歡迎您的登入！"
Case 0:
MsgBox Name & "，請檢查您的使用者名稱或密碼。"
Case 2:
MsgBox "使用者名稱密碼不可為空！"
End Select
End Sub
Public Sub StyleCheck(ByVal Group)
Select Case Group
Case "admin": frmMain.menuAction.Visible = False
SysFlag = 1
Case "student":
frmMain.menuAdminAction.Visible = False
frmMain.menuRegTeacher.Visible = False
frmMain.menuEditTeacher.Visible = False
SysFlag = 2
Case "teacher":
frmMain.menuAdminAction.Visible = False
frmMain.menuRegSingle.Visible = False
frmMain.menuEditSingle.Visible = False
SysFlag = 3
End Select
End Sub
Public Sub Query(ByVal AdoName, ByVal DbName, ByVal Dater)
AdoName.RecordSource = "select * from " & DbName & "......餘下全文>>
 
用VB 串連 EXCEL做一個報表的執行個體，要原始碼，最好連工程一起可以追加分

需要引用microsoft excel object library ..
這樣就可以把資料輸出到excel中
Public Sub saveToExcel12()
Dim xl As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim I As Integer, J As Integer
Set xl = CreateObject("excel.application")
If xl Is Nothing Then
MsgBox "請確認系統是否正確安裝了Microsoft Excel?", vbQuestion
Exit Sub
End If
xl.Visible = True
Set xlBook = xl.Workbooks.Add
Set xlsheet = xlBook.ActiveSheet
xlsheet.Name = "結果資料"
For J = 0 To msgrid1.Rows - 1
For I = 0 To 2
msgrid1.Row = J
msgrid1.col = I
xlsheet.Cells(J + 1, I + 1) = msgrid1.Text
Next I
Next J
End Sub