1. 程式人生 > >機房管理系統(一)

機房管理系統(一)

機房進行了一大半,是時候進行一下總結了

 首先是思路問題,從總體來說如果能夠理解機房的整體思路,那麼我們需要知道的是

1   具體的表與具體窗體的對應關係,

2   具體的vb書寫格式以及語法

從總體來說,機房和我們的學生管理系統相似度可一達到百分之80 到90 左右,

在機房裡我覺得最難的是報表那一塊,其實也不難,

具體程式碼如下

<span style="font-family:KaiTi_GB2312;font-size:18px;"> Dim WithEvents report As grproLib.GridppReport</span>
這是一個例項化,是說明要建立一個報表,那麼下面還需要具體建立一個
<span style="font-family:KaiTi_GB2312;font-size:18px;">  Set report = New grproLib.GridppReport                      '例項化模版
</span>
下面是對報表的具體操作,包括新增已經存在的報表內容,
<span style="font-family:KaiTi_GB2312;font-size:18px;"> report.LoadFromFile App.Path & "\daycheck.grf"               '載入模版
    report.DetailGrid.Recordset.ConnectionString = ConnectString

    strSQL = "select * from checkday_info where date='" & Format(Date, "yyyy-mm-dd") & "'"
    report.DetailGrid.Recordset.QuerySQL = strSQL                  '通過SELECT查詢建立記錄集

    GRDisplayViewer1.report = report

    report.ParameterByName("XX").AsString = ""
    report.ParameterByName("OPT").AsString = ""</span>
當然從這些程式碼都是師哥師姐部落格那裡的得到的,如果我們自己寫的話,感覺會有難度

從這個問題,我想到了我們之前有過一個通過程式碼建立窗體,我們這個就是類似的方式

只是這裡我們需要自己引用個新增一些控制元件,其他的還是十分相似的!

其他的一個收穫是‘’ 的使用

在我敲機房的某段時間裡,佳麗同學突然問我為啥select 語句裡要用到‘’,但是我開玩笑

的說如果都是雙引號,那該多亂啊,後來她告訴我,是為了讓SQL的語句讓vb 識別,讓我大

吃一驚,可能我之前我沒有注意那麼多的問題,但是我現在明白了,以後要懂得思考,更多

的是不恥下問!