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

概述今天一天都在弄结账那个窗体，遇到了一些问题，但是经过刘炳楷同学的帮忙，花了一个多小时，总算是把问题给解决了。既然是花了一天来做这个窗体，我就觉得我有必要把这个问题给记录下来，尽管它只是一个细节上的问题。 一、从数据库中读取数据 要从数据库中User_Info表中加载 *** 作员账号到 *** 作员用户名combobox控件的AddItem中，这个还真的是有些难倒我了，我该怎么写这段代码呢？之前那可都是在学生信息

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

一、从数据库中读取数据

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

<span >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 >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 >	</span>.Rows = 1 <span >	</span>.CellAlignment = 4

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

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

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

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

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

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

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

总结

以上是内存溢出为你收集整理的机房收费系统之结账窗体问题全部内容，希望文章能够帮你解决机房收费系统之结账窗体问题所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。