|
此窗体上另外还有Data1、Text3二个控件在程序运行时是看不到的，它们的作用是使VB与Access数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控件的创建方法如下： 内容来自www.paper51.com 首先，将Data、Text控件拖放到窗体上，其次，设置它们的属性： paper51.com （1）Data1控件的属性设置如下图： paper51.com copyright paper51.com 此两个属性的作用是保证Data控件与数据库相连。 copyright paper51.com http://www.paper51.com Visible属性是使此控件运行时在窗体上不显示。 内容来自论文无忧网 www.paper51.com （2）Text3控件的属性设置如下： 内容来自论文无忧网 www.paper51.com paper51.com Visible属性的设置同Data1控件。 copyright paper51.com 5．2主界面的实现 http://www.paper51.com 主界面是用菜单形式表现的，如图： copyright paper51.com
http://www.paper51.com 菜单的制作过程如下： http://www.paper51.com
首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图： 内容来自www.paper51.com
copyright paper51.com
此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。 copyright paper51.com 最后设置如下的代码（只要单击菜单即可设置各菜单代码），代码如下： 内容来自论文无忧网 www.paper51.com
http://www.paper51.com 主要是通过Show方法调用相应的窗体。 内容来自论文无忧网 www.paper51.com 5．3水费管理模块的实现5．3．1缴纳水费模块的实现： paper51.com
1、流程图： http://www.paper51.com 2、运行界面： 内容来自www.paper51.com 内容来自www.paper51.com 1．实现过程： 内容来自www.paper51.com 第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图： paper51.com
copyright paper51.com 第二步，选择窗体或控件进行属性设置，同上一小结。 http://www.paper51.com 其它属性和控件的设置方法类似。 paper51.com
第三步双击相应的控件，在控件的相应过程中编写代码： 内容来自www.paper51.com
窗体的load事件为： 内容来自论文无忧网 www.paper51.com Private SubForm_Load() paper51.com Form21.Width = 7350 http://www.paper51.com Form21.Height = 7395 内容来自www.paper51.com Form21.Move(MDIForm1.Width - Form21.Width) / 2, (MDIForm1.Height - Form21.Height) / 4 copyright paper51.com Label5.Caption =Date 内容来自论文无忧网 www.paper51.com End Sub paper51.com 作用：使窗体居中显示。 内容来自论文无忧网 www.paper51.com 的代码如下： 内容来自www.paper51.com Private SubCommand2_Click() http://www.paper51.com SQL ="select * from 用户管理where 总户号='" & Trim(Text1(0).Text) &"'" paper51.com
Data3.RecordSource= SQL copyright paper51.com Data3.Refresh http://www.paper51.com IfData3.Recordset.EOF Then copyright paper51.com MsgBox "没有此总户号！请重新输入[总户号]！", , "提示" 内容来自www.paper51.com
Text1(0).Text = "" http://www.paper51.com Text1(0).SetFocus 内容来自www.paper51.com Else copyright paper51.com For i = 1 To 9 paper51.com Label1(i).Visible =True paper51.com Next i copyright paper51.com For i = 1 To 6 内容来自论文无忧网 www.paper51.com Text1(i).Visible =True http://www.paper51.com Next i paper51.com Text8.Visible = True 内容来自论文无忧网 www.paper51.com Data1.Recordset.AddNew paper51.com Text1(7) = Text6 http://www.paper51.com Text1(1) = Text3 copyright paper51.com Text1(2) = Text4 http://www.paper51.com Text1(4) = Text2 http://www.paper51.com Text1(6).Text = Date$ paper51.com Text1(3).SetFocus 内容来自论文无忧网 www.paper51.com Text8 = Text7 paper51.com End If copyright paper51.com End Sub paper51.com 作用：先判断用户表中有没有此总户号，如有就收费，没有就提示用户。界面如下： http://www.paper51.com http://www.paper51.com 的代码如下： 内容来自www.paper51.com Private SubCommand1_Click() 内容来自论文无忧网 www.paper51.com MsgBox "已入库！", , "提示" 内容来自www.paper51.com
Text5.Text =Val(Text5.Text) + Val(Text1(5).Text) 内容来自www.paper51.com Data1.UpdateRecord 内容来自www.paper51.com Text1(0).SetFocus 内容来自论文无忧网 www.paper51.com Text1(0).Text ="" 内容来自www.paper51.com For i = 1 To 9 copyright paper51.com Label1(i).Visible =False 内容来自论文无忧网 www.paper51.com Next i http://www.paper51.com For i = 1 To 6 copyright paper51.com
Text1(i).Visible =False 内容来自论文无忧网 www.paper51.com Next i http://www.paper51.com Text8.Visible = False http://www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com
作用：收费入库，并提示收费员相关信息。 内容来自www.paper51.com 此窗体上用了3个data控件，data1与水费管理表相连，data2与用户管理表相连，data3与当前价格表相连，连接方法同前一节，这边不再重复。 copyright paper51.com
5．3．2查询缴费情况模块的实现 copyright paper51.com 1．运行界面： paper51.com
内容来自论文无忧网 www.paper51.com 2．实现过程： copyright paper51.com 界面的实现方法同上，下面主要看关键代码： http://www.paper51.com 单选按钮组的代码为： 内容来自论文无忧网 www.paper51.com Private SubOption1_Click(Index As Integer) http://www.paper51.com For i = 0 To 2 http://www.paper51.com
If Option1(0).Value = TrueOr Option1(1).Value = True Then paper51.com Text1.Visible = True copyright paper51.com DTPicker1.Visible = False 内容来自论文无忧网 www.paper51.com Else http://www.paper51.com If Option1(2).Value = True Then 内容来自www.paper51.com Text1.Visible = False 内容来自www.paper51.com DTPicker1.Visible = True paper51.com Else http://www.paper51.com MsgBox "请选择查询的项！", , "提示" 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com
Next i http://www.paper51.com Command1.Visible= True copyright paper51.com End Sub copyright paper51.com 主要选择查询的项。 内容来自www.paper51.com “查询“的主要代码为： 内容来自www.paper51.com Private SubCommand1_Click() copyright paper51.com
IfOption1(0).Value = True Then 内容来自www.paper51.com
SQL = "select * from 水费管理 where 总户号='"& Trim(Text1.Text) & "'" http://www.paper51.com Else 内容来自论文无忧网 www.paper51.com If Option1(1).Value = True Then 内容来自论文无忧网 www.paper51.com SQL ="select * from 水费管理where 户名='" & Trim(Text1.Text) &"'" paper51.com Else paper51.com IfOption1(2).Value = True Then copyright paper51.com SQL = "select * from 水费管理 where 缴费日期='" & Format(DTPicker1.Value,"yyyy-mm-dd") & "'" http://www.paper51.com End If copyright paper51.com End If http://www.paper51.com End If paper51.com Data1.RecordSource= SQL copyright paper51.com Data1.Refresh 内容来自www.paper51.com IfData1.Recordset.EOF Then 内容来自www.paper51.com MsgBox "没有您要查询的缴纳水费情况！", , "提示" copyright paper51.com
End If 内容来自论文无忧网 www.paper51.com End Sub copyright paper51.com 主要作用：根据用户的选择，通过SQL语句查询并显示结果。 http://www.paper51.com 其中，日期采用dtpicker控件实现，如下： http://www.paper51.com
paper51.com
5．4用户管理模块的实现 paper51.com 1．流程图： paper51.com 2．运行界面： 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 3．实现过程： paper51.com |