数据库课程设计(酒店管理系统)

1、 可修改 欢送下载 精品 Word 可修改 欢送下载 精品 Word 可修改 欢送下载 精品 Word数据库系统课程设计报告(bogo)题目(tm): 酒店(ji din)管理系统 课程(kchng)代号: 课程名称：数据库系统课程设计学号： 姓名(xngmng)： 班级： 指导教师 完成日期：2021年4月目录(ml)引言(ynyn)系统分析与设计(shj)2.1需求(xqi)分析2.2结构设计2.3数据库设计(shj)第三章 系统开发及实现3.1 创立主窗体3.2 创立子窗体3.3 建立公共模块第四章 总结参考文献附录附局部源代码引言(ynyn)酒店(ji din)管理系统是现代效劳(xi

2、o lo)行业(hngy)不可缺少的一个组成环节。酒店(ji din)管理信息系统是一个由人、计算机和数据库组成的进行酒店经营管理的系统，通过对信息的收集、传递、整理、加工、维护和使用，提高管理水平和效率，从而实现酒店管理的自动化、标准化和人性化。本文简要介绍了基于Microsoft和VB程序语言开发实现的酒店管理系统，着重阐述了该系统开发实现过程，从系统的需求分析、方案论证、模块设计、数据设计、详细设计到系统测试等各个环节都进行了较为详尽的分析和描述。关键词：酒店管理系统、Access、数据库、VB第二章系统分析与设计(shj)2.1需求(xqi)分析在进行(jnxng)一个工程(gngch

3、ng)的设计之前(zhqin)，首先要进行必要的需求分析。酒店需要管理各种人员和入住信息，希望实现酒店的信息化管理，通过建立一个酒店管理系统来管理酒店的日常业务。其完成功能如下：1、能够实现对客人的登记信息查询，包括逐个浏览，以及对客人资料的增加、删除和编辑操作。2、能够的酒店人员值班情况进行管理。3、管理人员也可以直接增加和删除用户信息。系统功能模块图如图1所示。酒店管理系统人事管理客户入住系统管理客户信息查询客户投诉值班管理散客入住密码修改团队入住新增用户图1 系统的功能模块图根据功能模块图设方案出的实体有散客入住实体、团队入住实体、投诉管理实体、值班管理实体。散客入住实体E-R如图2所示

4、。团队入住实体E-R如图3所示投诉管理实体E-R图如图4所示值班管理实体E-R图如图5所示散客入住实体姓名房价性别房号离店日抵达日证件号码图2 散客入住实体(sht)E-R图团队入住实体负责人姓名团队名称房间号码备注入住天数抵达日证件号码 图3 团队入住实体(sht)E-R图投诉管理实体投诉对象投诉日期投诉内容编号处理意见受诉日期受诉部门图4 投诉管理(gunl)实体E-R图值班管理实体值班人值班截止时间记事值班开始日期值班开始日期值班截止日期 图5 值班(zh bn)管理实体E-R图2.2结构设计使用windows操作系统、开发(kif)维护系统即visual basic软件系统、一套数据库

5、系统Access即可。他们之间的关系如图6所示。数据库数据库应用程序开发人员用户用户用户图6 结构(jigu)关系图根据上面的需求分析，设计好数据库系统，然后(rnhu)开发应用程序可以考虑窗体的系统，每一个窗体实现不同的功能，可以设计以下几个模块。客人入住模块：用来实现登记入住的增加、删除和修改等操作。客人信息查询模块(m kui)：用来实现对客人信息的浏览和查询。值班(zh bn)管理模块：用来实现对工作人员值班情况的增加、删除和修改等操作。系统管理模块：用来实现用户的增加(zngji)、删除和修改等操作。 2.3数据库设计(shj)这里数据(shj)库采用access，用ADO作为连接数

6、据对象。2.3.1建立access数据库启动access，建立一个空的数据库jiudian.mbd，如图7所示。图7 jiudian.mdb使用程序设计器建立系统需要的表格如下：散客资料表，如图8所示。团队资料表，如图9所示。值班管理表，如图10所示。系统管理表，如图11所示。投诉管理表，如图12所示。 图8 散客资料(zlio)表 图9 团队资料表 图10 值班(zh bn)管理表 图11系统管理表 图12 投诉(tu s)管理表2.3.2连接(linji)数据库 在程序设计的公共模块中，先定义ADO链接对象。语句(yj)如下：Public conn As New ADODB.Connect

7、ion 标记连接(linji)对象然后在子程序中，用如下(rxi)的语句即可翻开数据库：Dim connectionstring As Stringconnectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source=jiudian.mdbconn.Open connectionstring图12 引用(ynyng)ADO连接数据库第三章系统开发(kif)与实现 这是一个多文档界面(jimin)MDI应用程序，如图13所示，可以(ky)同时显示多个文档，每个文档显示在各个窗体中。MDI应用程序中常有包含子菜单“窗体选项，用于在

8、窗体或文档间进行切换(qi hun)。菜单应用程序中，有5个菜单项选择(xunz)项，每个选项对应(duyng)着E-R图中的一个子工程。图13 多文档界面3.1 创立主窗体 首先创立一个工程，命名为酒店管理系统。该窗体属性如表1所示。属性值 Caption 酒店管理系统 WindowState Maxsize表1 主窗体的属性图14 菜单编辑器在主窗体的工具栏中，选菜单编辑器，创立如图14所示的菜单结构。创立(chungl)一些(yxi)菜单项，如表2 所示。表2 菜单项表 菜单名称Text属性功能描述MenuItem1系统管理顶级菜单，包含子菜单MenuItem2新增用户调出用户窗体Men

9、uItem3修改密码调出密码窗体MenuItem4退出系统推出MenuItem5客人入住顶级菜单，包含子菜单MenuItem6散客入住调出散客入住信息窗体MenuItem7团队入住调出团队入住信息窗体MenuItem8客人信息查询调出查询窗体MenuItem9人事管理顶级菜单，包含子菜单MenuItem10客户投诉管理调出客户投诉信息窗体MenuItem11值班管理调出值班信息窗体MenuItem12关于调出对系统的要求主窗体如图15所示。图15 主窗体3.2 创立(chungl)各个(gg)子窗体“工程(gngchng)“添加窗体命令，添加子窗体。把窗体的属性MIDChild改成Ture，这

10、个窗体那么成为MID子窗体。这个(zh ge)工程(gngchng)中，要创立(chungl)的子窗体如表3所示。下面(xi mian)分别是各个子窗体，以及他们所使用的控件，如表3所示。表3 所有(suyu)子窗体子窗体名Text散客入住frmonly_client团队入住Frmdouble_client增加用户frmadduser修改密码frmchangepwd客人资料frmdatamanage查询输出frmfind关于frmAbout用户登录frmlogin客人投诉管理frmkhts值班管理frmzhiban3.2.1散客入住子窗体散客入住子窗体如图16所示，其控件如表4所示。图16 散

11、客入住子窗体表4 散客入住子窗口控件控件类型控件Name控件TextFrame1散客入住FrameFrame2(空)DateGridDateGrid1(空)Commend1新增记录Commend2修改记录CommendCommend3删除记录Commend4取消Commend5退出3.2.2增加(zngji)用户子窗体增加(zngji)用户子窗体如图17所示，其控件如表5所示。图17增加(zngji)用户子窗体表5 增加(zngji)用户控件表控 件 类 别控件Name控件TextLabel1输入用户名LabelLabel2输入密码Label3确认密码Label4选择权限Text1空TextB

12、oxText2空Text3空ComboBoxComb1空CommandButtonCommand1确认Command2取消3.2.3修改(xigi)密码子窗体修改密码子窗体如图18所示，其控件如表6所示。图18修改(xigi)密码子窗体表6修改(xigi)密码窗体控 件 类 别控件Name控件TextLabelLabel1新密码Label2确认密码TextBoxText1空Text2空CommandButtonCommand1确定Command2取消3.2.4团队入住子窗体团队入住子窗体如图19所示，其控件如表7所示图19 团队入住子窗体表7 团队入住子窗口(chungku)控件控件类型控件N

13、ame控件TextFrameFrame1团队入住Frame2空DataGridDataGrid1空CommandButtonCommand1新增记录Command2修改记录Command3删除记录Command4取消Command5退出3.2.5查询(chxn)子窗体查询(chxn)子窗体如图20所示，其控件如表8所示图20 查询(chxn)子窗体表8 查询(chxn)子控件控件类别控件Name控件TextOptionButtonOption1按房号Option2按抵达日Lable1从LableLable2到Lable3从Lable4年Lable5月Lable6日Lable7到LableLab

14、le8年Lable9月Lable10日Combo(0 )CoboBoxCombol空Combo(1 )CoboBoxCombol空Combo(0 )CoboBoxComboy空Combo(1 )CoboBoxComboy空Combo(0 )CoboBoxCombom空Combo(1 )CoboBoxCombom空Combo(0 )CoboBoxCombod空Combo(1 )CoboBoxCombod空CommandButtonCommand1查询Command2取消3.2.6用户(yngh)登录子窗体用户(yngh)登录子窗体如图21所示，其控件如表9所示图21用户(yngh)登录子窗体表9

15、用户(yngh)登录子窗口控件控件类别控件Name控件TextLabelLabel1用户名Label2密码TextBoxText1空Text2空CommandButtonCommand1确定Command2取消3.2.7值班(zh bn)管理子窗体值班管理子窗体如图22所示，其控件如表10所示图22值班(zh bn)管理子窗体表10值班管理(gunl)子窗口控件控件类别控件Name控件TextFrameFrame1值班管理DatagridDataGrid1空CmdAdd增加记录CommandButtonCmdDcl删除记录CmdCanccl取消3.2.8投诉(tu s)管理子窗体投诉(tu s

16、)管理子窗体如图23所示，其控件如表11所示图23投诉(tu s)管理子窗体表11 投诉(tu s)管理子窗体控件控件类别控件Name控件属性控件属性值FrameFrame1Caption投诉信息Frame2Caption空控件类别控件Name控件属性控件属性值Label1Caption投诉编号Label2Caption投诉日期Label3Caption投诉对象LabelLabel4Caption投诉内容Label5Caption受诉部门Label6Caption受诉日期Label7Caption处理意见DataGrid1DataSourceAdodc1AllowAddNewTureDataG

17、ridAllowDeleteTureAllowUpdataTureAllowArrowsTureCommand1上一条空Command2下一条空Command3第一条空CommandButtonCommand4末一条空Command5增加记录空Command6删除记录空Command7取消空AdodcAdodc1CommunationStringJiudian.mdbRecordSource投诉管理TextText1Text空DataField投诉编号DataSourceAdodc1Text2Text空DataField投诉日期DataSourceAdodc1Text3Text空DataFie

18、ld投诉对象DataSourceAdodc1Text4Text空TextDataField投诉内容DataSourceAdodc1Text5Text空DataField受诉部门DataSourceAdodc1Text6Text空DataField受诉日期DataSourceAdodc1Text7Text空DataField处理意见DataSourceAdodc13.3 建立公共(gnggng)模块建立公共模块可以提高代码效率，同时使得修改和维护(wih)代码都很方便。创立(chungl)公共模块的步骤(bzhu)如下：1“工程(gngchng)“添加模块2选择模块图标后，翻开，着这个模块已经添

19、加到工程中了。默认情况下名为modulel。3在模块中定义整个工程的公共变量。Public conn As New ADODB.Connection 标记连接对象Public userID As String 标记当前用户IDPublic userpow As String 标记用户权限Public find As Boolean 标记查询Public sqlfind As String 查询语句Public rs_data1 As New ADODB.RecordsetPublic findok As BooleanPublic frmdata As Boolean第四章 总结(zngji)

20、通过本次(bn c)设计，设计的根本(gnbn)思想方法，能够独立编写小型的数据库程序，通过数据库系统应用课题的实践，进一步提高分析(fnx)问题解决问题的能力及软件开发过程的能力。遗憾的是对数据库设计(shj)工作的认识仅仅停留在外表，只是在参考着书做，借被人的思想，亲自操作却尽力很多困难，所以未能领会其精髓。但时通过这次数据库设计，加深了我对数据库设计根本知识的理解，丰富了我做数据库设计的实际技术，虽然学的不精，但让我对数据库产生了浓厚的兴趣，也使我对数据库有了深层次的感性和理性认识。认识到要做好一项工作，既要注重理论知识的学习，更重要的是要把实践与理论两者紧密相结合。 参考文献1 王 珊

21、，萨师煊编译.数据库系统概论. 北京：高等教育出版社，19832 张跃延，王小科，许文武. 数据库开发案例精选. 人民邮电出版社，2007，3 Connolly.T. 数据库设计/设计师实现与管理. 电子工业出版社，20064钱雪忠，甸海驰，陈国俊编著.数据库原理及技术课程设计. 北京：清华大学出版社，20215谭浩强编译. Visual basic程序设计.北京：清华大学出版社，2006附录(fl)：代码(di m)设计.1主窗体代设计(shj)本工程(gngchng)中，子菜单(ci dn)事件都是click事件，主窗体代码。下面是响应“新增用户子菜单click事件，调出新增用窗体代码。下

22、面是响应“新增用户子菜单click事件，调出新增用窗体代码。下面是响应“新增用户子菜单click事件，调出新增用窗体代码。下面是响应“新增用户子菜单click事件，调出新增用窗体代码。Private Sub about_Click()frmAbout.ShowEnd SubPrivate Sub add_user_Click()frmadduser.ShowEnd SubPrivate Sub double_check_Click()frmfind_double.ShowEnd SubPrivate Sub check_Click()frmfind.ShowEnd SubPrivate Sub

23、 double_client_Click()frmdouble_client.ShowEnd SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub khts_Click()frmkhts.ShowEnd SubPrivate Sub MDIForm_Load()frmdata = Falsefind = FalseEnd SubPrivate Sub modify_pw_Click()frmchangepwd.ShowEnd SubPrivate Sub only_check_Click()frmfind.ShowEnd SubPriva

24、te Sub only_client_Click()frmonly_client.ShowEnd SubPrivate Sub zbgl_Click()frmzhiban.ShowEnd Sub2 子窗体的代码(di m)在各个子窗体建立好后，就可以根据各个子窗体的功能给他们添加(tin ji)相应代码了。1散客入住子窗体代码(di m)本窗口(chungku)用来录入散客入住信息，用ADO来连接数据库，是本窗体的重点。采用MDI的子程序，所以运行后，它出现在主程序界面下，下面的代码是定义(dngy)变量的。Option ExplicitDim rs_client As New ADODB.R

25、ecordset新增用户按钮代码Option ExplicitDim rs_client As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo adderrorIf Command1.Caption = 新增记录 Then 当此按钮的状态为为“增加记录时 Command1.Caption = 确定 按钮名称改为“确定 Command2.Enabled = False 删除与修改按钮不可用 Command3.Enabled = False Command4.Enabled = True 取消按钮可用 DataGrid1.A

26、llowAddNew = True DataGrid1.AllowUpdate = True 设定datagrid可以增加记录ElseIf Not IsNull(DataGrid1.Bookmark) Then If Trim(DataGrid1.Columns(房号).CellText(DataGrid1.Bookmark) = Then MsgBox 房号不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(房价).CellText(DataGrid1.Bookmark) = Then MsgB

27、ox 房价不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(姓名(xngmng).CellText(DataGrid1.Bookmark) = Then MsgBox 姓名(xngmng)不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(性别(xngbi).CellText(DataGrid1.Bookmark) = Then MsgBox 性别(xngbi)不能为空！, vbOKOnly + v

28、bExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(抵达(dd)日).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式hh-mm输入抵达日, vbOKOnly + vbExclamation, Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns(离店日).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式hh-mm输入离店日, vbOKOnly + vbExclamation

29、, Exit Sub End If rs_client.Update MsgBox 添加信息成功！, vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = FalseElse MsgBox 没有添加信息！, vbOKOnly + vbExclamation, End If Command1.Caption = 新增记录 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseEnd Ifadderror

30、:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf Command2.Caption = 修改(xigi)记录 Then answer = MsgBox(确定(qudng)要修改吗？, vbYesNo, ) If answer = vbYes Then Command2.Caption = 确定(qudng) Command1.Enabled = False Command3.Enabl

31、ed = False Command4.Enabled = True DataGrid1.AllowUpdate = True Else Exit Sub End IfElse If Not IsNull(DataGrid1.Bookmark) Then rs_client.Update End If Command2.Caption = 修改(xigi)记录 Command1.Enabled = True Command3.Enabled = True Command4.Enabled = False DataGrid1.AllowUpdate = False MsgBox 修改(xigi)

32、成功！, vbOKOnly + vbExclamation, End Ifcmdmodify:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(确定要删除吗？, vbYesNo, )If answer = vbYes Then DataGrid1.AllowDelete = True rs_client.Delete rs_client.Update DataGr

33、id1.Refresh MsgBox 成功删除！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = 确定(qudng) Then rs_client.Cancel DataGrid1.ReBind DataGrid1.AllowAddNew = False DataGr

34、id1.AllowUpdate = False Command1.Caption = 新增记录(jl) Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseElseIf Command2.Caption = 确定(qudng) Then rs_client.Cancel DataGrid1.ReBind DataGrid1.Refresh DataGrid1.AllowUpdate = False Command2.Caption = 修改(xigi)记录 Command1.Enabled = True

35、 Command3.Enabled = True Command4.Enabled = FalseEnd IfFrame2.Enabled = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 散客资料(zlio)rs_client.CursorLocation = adUseClientrs_cli

36、ent.Open sql, conn, adOpenKeyset, adLockPessimistic 翻开数据库设定datagrid控件属性DataGrid1.AllowAddNew = False 不可增加DataGrid1.AllowDelete = False 不可(bk)删除DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_clientCommand4.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unl

37、oad(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_client.CloseEnd Sub团队入住子窗体代码(di m)本窗口是用来录入团队入住信息(xnx)，也是用ADO来连接数据库的。Option ExplicitDim rs_dclient As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo adderrorIf Command1.Caption = 新增记录(jl) Then 当此按钮的状态为为“增加(zngji)记录时 Command1.Cap

38、tion = 确定 按钮名称改为“确定 Command2.Enabled = False 删除与修改按钮不可用 Command3.Enabled = False Command4.Enabled = True 取消按钮可用 DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True 设定datagrid可以增加记录ElseIf Not IsNull(DataGrid1.Bookmark) Then If Trim(DataGrid1.Columns(团队名称).CellText(DataGrid1.Bookmark) = Then Msg

39、Box 团队名称不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(负责人姓名).CellText(DataGrid1.Bookmark) = Then MsgBox 负责人姓名不能为空！, vbOKOnly + vbExclamation, Exit Sub End If If Trim(DataGrid1.Columns(证件号码).CellText(DataGrid1.Bookmark) = Then MsgBox 证件号码不能为空！, vbOKOnly + vbExclamation, E

40、xit Sub End If If Trim(DataGrid1.Columns(房间(fngjin)号码).CellText(DataGrid1.Bookmark) = Then MsgBox 房间(fngjin)号码！, vbOKOnly + vbExclamation, Exit Sub End If rs_dclient.Update MsgBox 添加(tin ji)信息成功！, vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = FalseElse MsgBox 没有(mi

41、yu)添加信息！, vbOKOnly + vbExclamation, End If Command1.Caption = 新增记录(jl) Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseEnd Ifadderror:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf Command2.Cap

42、tion = 修改记录 Then answer = MsgBox(确定要修改吗？, vbYesNo, ) If answer = vbYes Then Command2.Caption = 确定 Command1.Enabled = False Command3.Enabled = False Command4.Enabled = True DataGrid1.AllowUpdate = True Else Exit Sub End IfElse If Not IsNull(DataGrid1.Bookmark) Then rs_dclient.Update End If Command2.C

43、aption = 修改(xigi)记录 Command1.Enabled = True Command3.Enabled = True Command4.Enabled = False DataGrid1.AllowUpdate = False MsgBox 修改(xigi)成功！, vbOKOnly + vbExclamation, End Ifcmdmodify:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command3_Click()Dim answer As StringOn Error Go

44、To delerroranswer = MsgBox(确定(qudng)要删除吗？, vbYesNo, )If answer = vbYes Then DataGrid1.AllowDelete = True rs_dclient.Delete rs_dclient.Update DataGrid1.Refresh MsgBox 成功(chnggng)删除！, vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number 0 Then MsgBox Err.Des

45、criptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = 确定(qudng) Then rs_dclient.Cancel DataGrid1.ReBind DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Command1.Caption = 新增记录 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseElseIf Command2.Caption

46、 = 确定(qudng) Then rs_dclient.Cancel DataGrid1.ReBind DataGrid1.Refresh DataGrid1.AllowUpdate = False Command2.Caption = 修改(xigi)记录 Command1.Enabled = True Command3.Enabled = True Command4.Enabled = FalseEnd IfFrame2.Enabled = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub DataGri

47、d1_Click()End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = select * from 团队资料(zlio)rs_dclient.CursorLocation = adUseClientrs_dclient.Open sql, conn, adOpenKeyset, adLockPessimistic 翻开数据库设定(sh dn)datagrid控件属性DataGrid1.AllowAddNew = False 不可(bk)增加DataGrid1.AllowDelete = Fals

48、e 不可删除DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_dclientCommand4.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_dclient.CloseEnd Sub2增加用户(yngh)子窗体代码Private Sub Command1_Click()Dim sql As St

49、ringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = Then MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit Sub Text1.SetFocusElse sql = select * from 系统管理 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox 已有这

50、个(zh ge)用户, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) = Then MsgBox 密码(m m)不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 Text2.Text = Text2.SetFocus Exit Sub End If If Trim(Text2.Text) Trim(

51、Text3.Text) Then MsgBox 两次密码(m m)不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub ElseIf Trim(Combo1.Text) system And Trim(Combo1.Text) guest Then MsgBox 请选择(xunz)正确的用户权限, vbOKOnly + vbExclamation, Combo1.SetFocus Combo1.Text = Exit Sub Else rs_add.AddNew rs_add.Field

52、s(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox 添加(tin ji)用户成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo1.AddItem systemCombo1.AddItem guestEnd SubP

53、rivate Sub Text2_Change()End Sub3客人信息查询(chxn)子窗体代码Option ExplicitDim rs_data2 As New ADODB.RecordsetDim select_row As StringDim showgrid2 As BooleanDim rs_custom As New ADODB.RecordsetPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo loaderrorDim sql As Stringdisplaygr

54、id1 调用(dioyng)显示Datagrid1子程序loaderror:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd Sub显示(xinsh)msflexgrid1子程序Public Sub displaygrid1()Dim i As IntegerOn Error GoTo displayerrorsetgridsetgridheadMSFlexGrid1.Row = 0If Not rs_data1.EOF Then rs_data1.MoveFirst Do While Not rs_data1.EOF MSFlexGri

55、d1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 0 If Not IsNull(rs_data1.Fields(0) Then MSFlexGrid1.Text = rs_data1.Fields(0) Else MSFlexGrid1.Text = MSFlexGrid1.Col = 1 If Not IsNull(rs_data1.Fields(1) Then MSFlexGrid1.Text = rs_data1.Fields(1) Else MSFlexGrid1.Text = MSFlexGrid1.Col = 2 If Not IsNu

56、ll(rs_data1.Fields(2) Then MSFlexGrid1.Text = rs_data1.Fields(2) Else MSFlexGrid1.Text = MSFlexGrid1.Col = 3 If Not IsNull(rs_data1.Fields(3) Then MSFlexGrid1.Text = rs_data1.Fields(3) Else MSFlexGrid1.Text = MSFlexGrid1.Col = 4 If Not IsNull(rs_data1.Fields(4) Then MSFlexGrid1.Text = rs_data1.Field

57、s(4) Else MSFlexGrid1.Text = MSFlexGrid1.Col = 5 If Not IsNull(rs_data1.Fields(5) Then MSFlexGrid1.Text = rs_data1.Fields(5) Else MSFlexGrid1.Text = MSFlexGrid1.Col = 6 If Not IsNull(rs_data1.Fields(6) Then MSFlexGrid1.Text = rs_data1.Fields(6) Else MSFlexGrid1.Text = rs_data1.MoveNext LoopEnd Ifdis

58、playerror:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd SubPublic Sub setgrid()Dim i As IntegerOn Error GoTo seterrorWith MSFlexGrid1 .ScrollBars = flexScrollBarBoth .FixedCols = 0 .Rows = rs_data1.RecordCount + 1 .Cols = 7 .SelectionMode = flexSelectionByRowFor i = 0 To .Rows - 1 .RowHeight(

59、i) = 315NextFor i = 0 To .Cols - 1 .ColWidth(i) = 1300Next iEnd WithExit Subseterror: MsgBox Err.DescriptionEnd SubPublic Sub setgridhead()On Error GoTo setheaderrorMSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = 房号MSFlexGrid1.Col = 1MSFlexGrid1.Text = 房价MSFlexGrid1.Col = 2MSFlexGrid1.Text

60、= 姓名(xngmng)MSFlexGrid1.Col = 3MSFlexGrid1.Text = 性别(xngbi)MSFlexGrid1.Col = 4MSFlexGrid1.Text = 证件号码MSFlexGrid1.Col = 5MSFlexGrid1.Text = 抵达(dd)日MSFlexGrid1.Col = 6MSFlexGrid1.Text = 离店日Exit Subsetheaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)findok = Falsers_dat