Visual Basic桌游计费与管理系统设计报告Word文档格式.docx

1、但这并不意味着不能同时一起使用它们，而是恰恰相反。当你要使用的数据跨越了数据库中的两个或更多的表时，可以使用关联来访问这些数据。关联是一种定义两表之间相互联系的正式方式。当定义关联时，必须指明两个相联的表中哪两个字段是连接起来的。一个为主表的关键字称为主关键字（key），一个是相关表的关键字称为外部关键字（foreign key）。本案例的一个重点就是在SQL查询中连接相关的表，实现从多个表中检索相关的信息。本系统中的数据库文件为桌游管理.mdb，其中包含如下数据表，大家可借助于Microsoft Access来创建数据库和数据表。4.1.1 账号表该表用于存放系统用户的信息，包括用户名和密码

2、，其结构如表12-1所示。表12-1 账号表结构字段名称字段类型字段大小允许空用户名文本20否密码4.1.2 餐单表该表用于存放餐单信息，其结构如表12-2所示。表12-2 餐单表结构类型50名称价格货币默认为了调试程序方便，可在各数据表中先输入一些记录。4.2 各功能模块详细设计本工程中使用了一些ActiveX控件，在设计时选择“工程”菜单中的“部件”选项，从控件列表中选中如图3所示的选项。图3 系统中使用的ActiveX控件本工程中要使用ADO数据对象模型，在设计时选择“工程”菜单中的“引用”选项，从引用列表中选中如图4所示的选项。大家注意，一般前四项是默认选中，而第五项引用ADO数据对象

3、模型库，必须自己选中引用，否则就不能使用ADO数据对象模型。图4 系统中使用的引用4.2.1 Module1.Bas公共标准模块本工程中包含一个公共标准模块Module1.Bas，其中包含一些全局变量，可被本工程中的多个窗体所调用，代码如下：Public bh As Integer 用于分辨用户名点餐的台号Public zh As Variant 用于保存登录系统的用户信息Public j（9） As Variant 用于保存每张台用户的点餐清单Public cym（9） As Currency 用于保存每张台用户点餐的每项价格Public cyn（9） As String 用于保存每张台用户

4、点餐的每项餐名Public xg（9） As String 用于保存每张台用户的修改备注4.2.2 登录窗体登录窗体用于接受用户的用户名和密码输入，并判断是否为合法用户。如果是合法用户，释放该窗体并启动主界面窗体，否则允许重新登录。登录窗体的设计界面如图12-5所示，窗体中包含的主要对象及其属性如表12-7所示。图12-5 登录窗体设计界面表12-7 登录窗体中包含的主要对象及其属性对象属性属性取值登录窗体Caption“桌游计费与管理系统”MaxButton0 falseMinButtonStartUpPosition2 屏幕中心Image2Mousepointer99-Custom Mou

5、seIconhand.curImage399-CustomText12Password“*”Adodc1ConnectString“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=桌游管理.mdb;Persist Security Info=False”CommandType2 adCmdTableRecordSource“账号”Visiblefalse在该窗体上设计如下事件过程Private Sub Image2_Click（） 确定按钮 Adodc1.Refresh Do While Adodc1.Recordset.EOF = False If

6、Text1 = Adodc1.Recordset（账号） And Text2 = Adodc1.Recordset（密码） Then zh = Adodc1.Recordset.Bookmark zh保存登录的用户名的信息 Form2.Adodc2.Recordset.Bookmark = zh Form2.Show Unload Me Exit Sub Else Adodc1.Recordset.MoveNext End If Loop If Text1 = Or Text2 = Then MsgBox 请输入用户名和密码!, , 提示用户名或密码错误，不能进入，请重新输入！ Text1.S

7、elStart = 0 Text1.SelLength = Len（Text1） Text1.SetFocus Text2 = End SubPrivate Sub Image3_Click（） 退出按钮 EndPrivate Sub Text1_KeyPress（KeyAscii As Integer） If KeyAscii = vbKeyReturn Then Text2.SetFocusPrivate Sub Text2_KeyPress（KeyAscii As Integer） If KeyAscii = vbKeyReturn Then Image2_ClickEnd Sub 4.

8、2.3主界面窗体在该窗体上设计有一个菜单，关于如何制作菜单请参看第9章介绍。主界面窗体的设计界面如图12-8所示，窗体中包含的主要对象及其属性如表12-8所示。图12-8 主界面窗体设计界面表12-8 主界面窗体中包含的主要对象及其属性菜单mnu_l“查看（&L）”mnu_look“餐单列表”mnu_g“管理（&G）”mnu_z“账号管理”mnu_x“餐单管理”mnu_xt“系统（&E）”mnu_gh“更换用户”mnu_e“退出”MMControl1FalseAdodc 1 （和3-11） adCmdTable“餐单”Adodc2Timer（1-11）EnableInterval1000Tim

9、er（12-21）500Text4（0-9）DataSourceDataField“价格”Text7Dim lSec（9） As Integer, lMin（9） As Integer, lHour（9） As Integer 用于保存时间Dim a（9） As Integer, b（9） As Integer, c（9） As Integer a保存用户定台的时间 b ,c 存储vbyesDim x As IntegerPrivate Sub Command1_Click（Index As Integer） 修改按钮 Select Case Index Case 0 x = 0 Call s

10、_f（x） Case 1 x = 1 Case 2 x = 2 Case 3 x = 3 Case 4 x = 4 Case 5 x = 5 Case 6 x = 6 Case 7 x = 7 Case 8 x = 8 Case Else x = 9 End SelectPrivate Sub Command13_Click（Index As Integer） 开台按钮 If Command13（0）.Caption = 停止 b（0） = MsgBox（是否确定停止？, vbYesNo, 结束） If b（0） = vbYes Then Timer1.Enabled = False 控制显示

11、用户所用时间 Timer12.Enabled = False 控制显示用户剩余可用时间 Call s_d（x） ElseIf Command13（0）.Caption = 开台 a（0） = Val（InputBox（请输入结束时间（小时）, ） If a（0） 0 Then Timer1.Enabled = True Timer12.Enabled = True Call s_e（x） If Command13（1）.Caption = b（1） = MsgBox（ If b（1） = vbYes Then Timer3.Enabled = False Timer13.Enabled = F

12、alse ElseIf Command13（1）.Caption = a（1） = Val（InputBox（ If a（1） Timer3.Enabled = True Timer13.Enabled = True If Command13（2）.Caption = b（2） = MsgBox（ If b（2） = vbYes Then Timer4.Enabled = False Timer14.Enabled = False ElseIf Command13（2）.Caption = a（2） = Val（InputBox（ If a（2） Timer4.Enabled = True T

13、imer14.Enabled = True If Command13（3）.Caption = b（3） = MsgBox（ If b（3） = vbYes Then Timer5.Enabled = False Timer15.Enabled = False ElseIf Command13（3）.Caption = a（3） = Val（InputBox（ If a（3） Timer5.Enabled = True Timer15.Enabled = True If Command13（4）.Caption = b（4） = MsgBox（ If b（4） = vbYes Then Tim

14、er6.Enabled = False Timer16.Enabled = False ElseIf Command13（4）.Caption = a（4） = Val（InputBox（ If a（4） Timer6.Enabled = True Timer16.Enabled = True If Command13（5）.Caption = b（5） = MsgBox（ If b（5） = vbYes Then Timer7.Enabled = False Timer17.Enabled = False ElseIf Command13（5）.Caption = a（5） = Val（In

15、putBox（ If a（5） Timer7.Enabled = True Timer17.Enabled = True If Command13（6）.Caption = b（6） = MsgBox（ If b（6） = vbYes Then Timer8.Enabled = False Timer18.Enabled = False ElseIf Command13（6）.Caption = a（6） = Val（InputBox（ If a（6） Timer8.Enabled = True Timer18.Enabled = True If Command13（7）.Caption =

16、b（7） = MsgBox（ If b（7） = vbYes Then Timer9.Enabled = False Timer19.Enabled = False ElseIf Command13（7）.Caption = a（7） = Val（InputBox（ If a（7） Timer9.Enabled = True Timer19.Enabled = True If Command13（8）.Caption = b（8） = MsgBox（ If b（8） = vbYes Then Timer10.Enabled = False Timer20.Enabled = False Els

17、eIf Command13（8）.Caption = a（8） = Val（InputBox（ If a（8） Timer10.Enabled = True Timer20.Enabled = True If Command13（9）.Caption = b（9） = MsgBox（ If b（9） = vbYes Then Timer11.Enabled = False Timer21.Enabled = False ElseIf Command13（9）.Caption = a（9） = Val（InputBox（ If a（9） Timer11.Enabled = True Timer2

18、1.Enabled = TruePrivate Sub Command14_Click（Index As Integer） 点餐按钮 bh = 0 Form4.Show 显示餐饮购买窗体 bh = 1 Form4.Show bh = 2 bh = 3 bh = 4 bh = 5 bh = 6 bh = 7 bh = 8 bh = 9Private Sub Command2_Click（Index As Integer） 点餐清单按钮 Form8.Show 显示点餐清单窗体 Form8.ShowPrivate Sub Form_Load（） Adodc1.Recordset.Move -1 在窗体加载时，将记录指针移到文件首，则窗体不会显示数据 Adodc3.Recordset.Move -1 Adodc4.Recordset.Move -1 Adodc5.Recordset