机房收费系统之结账窗体问题

今天一天都在弄结账那个窗体，遇到了一些问题，但是经过刘炳楷同学的帮忙，花了一个多小时，总算是把问题给解决了。既然是花了一天来做这个窗体，我就觉得我有必要把这个问题给记录下来，尽管它只是一个细节上的问题。

一、从数据库中读取数据

要从数据库中User_Info表中加载操作员账号到操作员用户名combobox控件的AddItem中，这个还真的是有些难倒我了，我该怎么写这段代码呢？之前那可都是在学生信息管理系统中敲了好几遍，犯了无数错才理解的

<span style="font-size:24px;">txtSQL="select * from……"</span>

这些语句的，而且都比较简单，这回可是精确到某个字段才行啊。开始不管我怎么写它都报错，总觉得我能写出来，可就是编不出来啊。于是我就找了蕾蕾帮忙，原来代码是这样的：

txtSQL = "select * from User_Info where Level='" & "操作员" & "'"

一看到这句代码，我顿时就理解了。直到后面的类似于这样的问题也就迎刃而解了！

二、MSHMFlexgrid加载内容问题

sstab控件中用到了数据库中的三个表，加上之前的user_info表，也就是说这个窗体中要用到4个表，也就是要设定四个值来连接数据库。这个道理之前我就懂了，可是我在这里还是犯了同样的错误，开始是全都用了mrc这一个值，问题就出来了，我加载不上窗体啊，然后就是整个工程都卡住了，最后也就只有关了重启。再去找错，后面才发现我犯了这个错，然后改了。但是没有改完，后面导致了充值那个选项卡中加载不了数据。

我在form_load事件中犯错了，我把在combobox_click事件之后才能实行的代码写到form_load的事件中去了，结果就是“购卡”、“充值”、“退卡”中的MSHFlexgrid中没有数据。开始一直觉得奇怪，直到把柄楷同学找来才发现这个问题。后面把这段代代码粘到combobox_click事件里mshflexgrid才有数据

<span style="font-size:24px;">txtSQL = "select * from student_Info where UserID= '" & Trim(cmbCaozuoyuan.Text) & "'"
    Set Mrc = ExecuteSQL(txtSQL,msgText)

        Do While Mrc.EOF = False
           .Rows = 1
            .Rows = .Rows + 1
            .ColWidth(2) = 2000
            .ColWidth(3) = 2000
            .CellAlignment = 4
            .TextMatrix(.Rows - 1,0) = Trim(Mrc.Fields(1))
            .TextMatrix(.Rows - 1,1) = Trim(Mrc.Fields(0))
            .TextMatrix(.Rows - 1,2) = Trim(Mrc.Fields(12))
            .TextMatrix(.Rows - 1,3) = Trim(Mrc.Fields(13))

            Mrc.MoveNext
        Loop
    End With</span>

可是问题又来了，我数据里明明有两条记录，但是mshflexgrid中只显示一条记录。又是找了半天，柄楷同学拿出自己的机房收费系统来找，后面发现他自己也有这个错误。后面才发现我把这两句写到Do while ……loop语句里了。这两句不能参与循环

<span style="white-space:pre">	</span>.Rows = 1
 <span style="white-space:pre">	</span>.CellAlignment = 4

来讲讲我从这两个问题中所得到的收获吧。

一、调错。可以在有问题的那段代码里加上msgbox函数，如果在运行的时候那个提示框出来就说明那段代码能够运行，并且也可以在提示中发现错误所在。这可都是从邴楷同学那里学的。还有一个就是怎么给整段代码注释，那个快啊。

二、多个条件获取数据库信息语句结构。

txtSQL = "select * from student_Info where type= '" & "临时用户" & "'" & "and UserID= '" & Trim(cmbCaozuoyuan.Text) & "'"

'从student表中获取由combobox中的操作员所注册的临时用户

三、耐心与细心。如果程序不能像你预期的那样运行那就是有错，不要说没有错，就想着放弃。

好了，废话不多说了，还是抓紧时间敲系统吧。在错误中成长！嘿嘿！！

机房收费系统之结账窗体问题

相关推荐