机房管理系统（一）

机房进行了一大半，是时候进行一下总结了

 首先是思路问题，从总体来说如果能够理解机房的整体思路，那么我们需要知道的是

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 识别，让我大

吃一惊，可能我之前我没有注意那么多的问题，但是我现在明白了，以后要懂得思考，更多

的是不耻下问！