计算机毕业论文机房管理系统含程序源代码(编辑修改稿)

计算机毕业论文机房管理系统含程序源代码(编辑修改稿)内容摘要：

图41 “会员/管理员登录”窗体 （2）编写代码如下：Private Sub Command1_Click()Dim db As New amp。 与数据库建立连接Dim rs As New amp。 从数据库中返回的可用记录集Dim sql As String amp。 =Provider=。 Data Source=C:\Documents and Settings\user01\My Documents\鲁玉琳\。 Persist Security Info=False amp。 连接数据库的路径 amp。 打开数据库表 sql = select * from 会员基本情况表 amp。 查询会员表里所有的记录 sql, db, adOpenStatic, adLockReadOnlyWhile True And (0).Value Wend If (1).Value = Then amp。 数据库里的第一个字段等于文本框text2 MsgBox (欢迎登录) amp。 提示消息框 Else MsgBox (你输入的会员卡号或密码不正确,请重新输入!) amp。 提示消息框 amp。 设置文本框text1为焦点 amp。 form1 显示 amp。 form5 隐藏 End IfEnd SubPrivate Sub Command3_Click() = False amp。 Frame1 不可见 = True amp。 Frame2 可见End SubPrivate Sub Command4_Click()Dim db As New amp。 与数据库建立连接Dim rs As New amp。 从数据库中返回的可用记录集Dim sql As String=Provider=。 DataSource=C:\Documents and Settings\user01\My Documents\鲁玉琳\。 Persist Security Info=False amp。 连接数据库的路径 amp。 打开数据库sql = select * from 管理员情况表 amp。 查询管理员情况表里的所有记录 sql, db, adOpenStatic, adLockReadOnly amp。 打开返回的可用记录集While = flase And (1).Value Wend amp。 根据库顶函数判断指针是否到达库底 If (2).Value = Then MsgBox (欢迎进入系统主界面) Else MsgBox (你输入的密码不正确,请重新输入!) = End IfEnd SubPrivate Sub Command5_Click() = True amp。 Frame1显示为可见 = False amp。 Frame2显示为不可见End SubPrivate Sub Form_Load() = True = FalseEnd Sub建立系统主界面窗体，如图42所示。 （1） 加载窗体form2开始，设置属性如下： caption属性为“主界面“。 （2） 建立主菜单系统。 程序主菜单选项设置一览表菜单项标题名菜单级别Name属性系统管理标题xtgl结帐管理一级yhjz计算机信息维护jsjxxwh无卡通wkt日常管理标题rcgl会员办理一级Hybljzx集体注销及个人注销jtzxjgrzx用户信息的维护yhxxwh帮助标题bz帮助一级bangzhu关于gy（3） 菜单编辑器界面如下。 图42系统主界面窗体(3)编写代码如下：Private Sub bangzhu_Click()End SubPrivate Sub hybljzx_Click()End SubPrivate Sub jsjxxwh_Click()End SubPrivate Sub jtzxjgrzx_Click()End SubPrivate Sub wkt_Click()End SubPrivate Sub yhjz_Click()End SubPrivate Sub yhxxwh_Click()End Sub建立系统维护界面，如图43所示。 （1）加载窗体和控件，并设置属性如下：窗体form3的caption属性为“维护界面”；frame1的caption属性为“会员维护”；标签label1的caption属性为“会员号”，标签label2的caption属性为“姓名”，label3的caption属性为“密码”，label4的caption属性为“班级”，标签label5的caption属性为“学号”，label6的caption属性为“性别“，label7的caption属性为“备注“；文本框texttext2一直到text7的属性值均为“”；命令按钮mand1的caption属性为“查询”；命令按钮mand2的caption属性为“删除”，命令按钮mand3的caption属性为“修改”；命令按钮mand4的caption属性为“返回”。 Frame2的caption属性为“管理员维护”；标签label8的caption属性为“管理员号”，标签label9的caption属性为“管理员姓名”，标签label10的caption属性为“密码”，标签label11的caption属性为“性别”，标签label12的caption属性为“年龄”，标签label13的caption属性为“籍贯”，标签label14的caption属性为“民族”，标签label15的caption属性为“政治面貌”，标签label16的caption属性为“学历”，标签label17的caption属性为“身份证号”，标签label18的caption属性为“生日”，标签label19的caption属性为“开始工作时间”，标签label20的caption属性为“家庭住址”，标签label21的caption属性为“联系电话”，标签label22的caption属性为“职务”；文本框texttext9一直到text22属性值为“”；命令按钮mand5的caption属性为“加入”，命令按钮mand6的caption属性为“删除”，命令按钮mand7的caption属性为“修改”，命令按钮mand8的caption属性为“保存”，mand9的caption属性为“查询”。 （2）编写代码如下：Private Sub Command1_Click()Dim db As New amp。 声明与数据库建立连接的变量Dim rs As New amp。 声明返回的可用记录集变量Dim sql As StringDim j As StringDim a As StringDim z As Stringj = InputBox(请输入要查询的会员号) = Provider=。 Data Source=C:\Documents and Settings\user01\My Documents\鲁玉琳\。 Persist Security Info=False amp。 建立与数据库连接的路径 amp。 打开数据库表sql = select 会员号,密码,班级,学号,姓名,性别,备注 from 会员基本情况表 where 会员号=39。 amp。 j amp。 39。 amp。 查询会员号为变量j的记录 sql, db, adOpenStatic, adLockReadOnly amp。 打开所查询所得的记录集 = = = = = = = amp。 将文本框的值设置为空 = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value amp。 将所得的结果放已经置空的文本框If = Thena = MsgBox(数据库里不存在这条记录!)Elsez = MsgBox(记录已找到,请查看!)End IfEnd SubPrivate Sub Command2_Click()Dim db As New amp。 声明与数据库建立连接的的变量Dim rs As New amp。 声明返回可用记录集的变量Dim sql As StringDim j As StringDim z As Stringj = InputBox(请输入要删除的会员卡号)z = MsgBox(你确定要删除这条记录吗?) = Provider=。 Data Source=C:\Documents and Settings\user01\My Documents\鲁玉琳\。 Persist Security Info=False amp。 建立与数据库进行连接的路径 amp。 打开数据库sql = delete * from 会员基本情况表 where 会员号=39。 amp。 j amp。 39。 amp。 删除会员号为变量j 的值的记录39。 sql, db, adOpenStatic, adLockReadOnly amp。 打开操作的记录集39。 (0).Value = 39。 (1).Value = 39。 (2).Value = 39。 (3).Value = 39。 (4).Value = 39。 (5).Value = 39。 (6).Value = amp。 将数据库的值变为文本框里的空值MsgBox (记录已删除,请查阅!)End SubPrivate Sub Command3_Click()Dim db As New amp。 同上Dim rs As New amp。 同上Dim sql As StringDim j As Stringj = InputBox(请确认一下修改前的会员号) = Provider=。 Data Source=C:\Documents and Settings\user01\My Documents\鲁玉琳\。 Persist Security Info=False amp。 同上 amp。 同上sql = update 会员基本情况表 set 会员号=39。 amp。 amp。 39。 ,姓名=39。 amp。 amp。 39。 ,密码=39。 amp。 amp。 39。 ,班级=39。 amp。 amp。 39。 ,学号=39。 amp。 amp。 39。 ,性别=39。 amp。 amp。 39。 ,备注=39。 amp。 amp。 39。 where 会员号=39。 amp。 j amp。 39。 amp。 更新会员号为变量j的记录 sql, db, adOpenStatic, adLockReadOnly amp。 打开可用记录集MsgBox (记录已修改,请查阅)End SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click() = = = = = = = = = = = = = = = amp。 将文本框置为空值 amp。 将文本框8设置焦点End SubPrivate Sub Command6_Click()Dim db As New Dim rs As New Dim sql As String = Provider=。 Data Source=C:\Documents and Settings\user01\My Documents\鲁玉琳\。 Persist Security Info=Falsesql = delete from 管理员情况表 sql, db, adOpenStatic, adLockReadOnly(0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = (11).Value = (12).Value = (13).Value = (14).Value = MsgBox (你确定要删除吗?) amp。 记录集更新End SubPrivate Sub Command7_Click()Dim db As New Dim rs As New Dim sql, z As Stringz = InputBox(请确认一下修改前的管理员号) = Provider=。 Data Source=C:\D。