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

1、数据库课程设计（酒店管理系统）数据库系统课程设计报告题目：酒店管理系统课程代号：课程名称：数据库系统课程设计 学号：姓名：班级：指导教师完成日期：2011年4月数据库课程设计 （酒店管理系统 ）目录第一章 引言第二章 系统分析与设计2.1 需求分析2.2 结构设计2.3 数据库设计 第三章 系统开发及实现3.1 创建主窗体3.2 创建子窗体3.3 建立公共模块 第四章 总结参考文献附录（附部分源代码）数据库课程设计 （酒店管理系统 ）第一章 引言酒店管理系统是现代服务行业不可缺少的一个组成环节。酒店管理信息系统是一个由人、 计算机和数据库组成的进行酒店经营管理的 系统，通过对信息的收集、传递、

2、整理、加工、维护和使用，提高管理水平和效 率，从而实现酒店管理的自动化、规范化和人性化。本文简要介绍了基于 Microsoft 和 VB 程序语言开发实现的酒店管理系统， 着重阐述了该系统开发实现过程，从系统的需求分析、方案论证、模块设计、数 据设计、详细设计到系统测试等各个环节都进行了较为详尽的分析和描述。关键词：酒店管理系统、Access、数据库、VB3 / 42数据库课程设计 （酒店管理系统 ）第二章系统分析与设计2.1需求分析在进行一个项目的设计之前，首先要进行必要的需求分析。酒店需要管理各种人员 和入住信息，希望实现酒店的信息化管理，通过建立一个酒店管理系统来管理酒店的日 常业务。其

3、完成功能如下：1、能够实现对客人的登记信息查询，包括逐个浏览，以及对客人资料的增加、删除和 编辑操作。2、能够的酒店人员值班情况进行管理。3、管理人员也可以直接增加和删除用户信息。 系统功能模块图如图1所示。酒店管理系统人 事 管 理客 户 入 住客户信息查系统管理散 客 入 住团队入住1新密增码用修户改16 / 42图1系统的功能模块图根据功能模块图设计划出的实体有散客入住实体、团队入住实体、投诉管理实体、值班管理实体。团队入住实体 投诉管理实体 值班管理实体散客入住实体E-R如图2所示。E-R如图3所示E-R图如图4所示E-R图如图5所示图3团队入住实体 E-R图图5值班管理实体 E-R图

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

5、象。231建立access数据库启动access,建立一个空的数据库 jiudian.mbd，如图7所示。匪 jindian :數据库 tAccess 2QD0 文件楹或,B | X倭用谡计器饥I建表 倭用向导刨崖表 逋过输入数据刨逢表aJ4J3J寸打开 乂设计口新建）I X丨乜二匡 对躱表却查呦国窗体旧报表逖模块组国4k图 7jiudian.mdb使用程序设计器建立系统需要的表格如下：散客资料表，如图8所示。团队资料表，如图9所示。值班管理表，如图10所示。系统管理表，如图11所示。投诉管理表，如图12所示。E团趴賛科；表Q12X梓冃*削猶文;？if件钢菸字馬间钢E职r闫V上间R 时耐 丰币

6、丰丰宇魁側 丈贯丈戈數E EW-号日日 -.-!别r达店 底匡驻拄辽抵高图8散客资料表图9团队资料表EE信目护始目朗巨期i时何借诳片妈时旨E期厠问am止醐亡朗剧間直逬能1Z吋问E期価间値班 一文玉记事芋昨庫性孰认恒右敢悝规別必垢予段 素引赖帝膜式二ME证切後云脛日丈） 酋需际记系统管理：表回E宇段黑和售鴻类型k月户名艾朮图11系统管理表图10值班管理表说明立日文问丰本即T文文曰立宇母屁怦常规査间孚段大小53将式有救性规则有敢性m老舞F段无Vni code 压需输入法懵益开启IME藏句椁式（13曰它）无转化智蚩标i己图12投诉管理表2.3.2连接数据库在程序设计的公共模块中，先定义 ADO链接对

7、象。语句如下:Public conn As New ADODB.Co nn ectio n标记连接对象然后在子程序中，用如下的语句即可打开数据库：Dim connection stri ng As Stringconn ecti on stri ng = provider=Microsoft.Jet.oledb.4.0; & _data source=jiudia n. mdbconn. Ope n conn ecti on stri ng引用-工程1可用的引用诙）:7 Vi sufll c For .ppli c&tiaVi ual E%si c runtirn* r *rjr irHal

8、n 1 0 Tt/ti a T i h优先级11112|iOLE 加伽定位：C VHMDtWEK syst e -32 SA lo le2. tlb语言：掠准图12引用ADO连接数据库第三章系统开发与实现这是一个多文档界面（MDI ）应用程序，如图13所示，可以同时显示多个文档，每个 文档显示在各个窗体中。MDI应用程序中常有包含子菜单“窗体”选项，用于在窗体或文档间进行切换。菜单应用程序中，有5个菜单选项，每个选项对应着E-R图中的一个子项目。图13多文档界面3.1创建主窗体首先创建一个工程，命名为酒店管理系统。该窗体属性如表1所示。表1主窗体的属性下一个新増用尸 修改密码 退出系统AA 住

9、、.散客入毎 .-囲肌入伍 瘪人信息査询 人爭管理客尸投诉首理拯入（1删除（X）ri属性值Capti on酒店管理系统Win dowStateMaxsize标题（）濡统肯理确定容称佩）；system取消|素引:|快建龍 丽赢弓耦助上下立IB QD : o-feb凋也晝0Q） : |o - None厂复选电） p有效 应可见 r显示窗口列表图14菜单编辑器14所示的菜单结构。在主窗体的工具栏中，选菜单编辑器，创建如图创建一些菜单项，如表 2所示。表2菜单项表菜单名称Text属性功能描述Men ulteml系统管理顶级菜单，包含子菜单Men ultem2新增用户调出用户窗体Men ultem3修改

10、密码调出密码窗体Men ultem4退出系统推出Men ultem5客人入住顶级菜单，包含子菜单Men ultem6散客入住调出散客入住信息窗体Men ultem7团队入住调出团队入住信息窗体Men ultem8客人信息查询调出查询窗体Men ultem9人事管理顶级菜单，包含子菜单Men ultem10客户投诉管理调出客户投诉信息窗体Men ultem11值班管理调出值班信息窗体Men ultem12关于调出对系统的要求主窗体如图15所示。图15主窗体3.2创建各个子窗体“工程”一“添加窗体”命令，添加子窗体。把窗体的属性 MIDChild改成Ture，这个窗体则成为 MID子窗体。这个项目

11、中，要创建的子窗体如表3所示。F面分别是各个子窗体，以及他们所使用的控件，如表3所示。表3所有子窗体子窗体名Text散客入住frmonl y_clie nt团队入住Frmdouble_clie nt增加用户frmadduser修改密码frmcha ngepwd客人资料frmdatama nage查询输出frmfi nd关于frmAbout用户登录frmlogi n客人投诉管理frmkhts值班管理frmzhiba n3.2.1散客入住子窗体散客入住子窗体如图16所示，其控件如表4所示。图16散客入住子窗体表4散客入住子窗口控件控件类型控件Name控件TextFrameFrame1散客入住Fra

12、me2（空）DateGridDateGrid1（空）Comme ndComme nd1新增记录Comme nd2修改记录Comme nd3删除记录Comme nd4取消Comme nd5退出322增加用户子窗体增加用户子窗体如图17所示，其控件如表 5所示。图17增加用户子窗体表5增加用户控件表控件类别控件Name控件TextLabelLabel1输入用户名Label2输入密码Label3确认密码Label4选择权限TextBoxText1（空）Text2（空）Text3（空）ComboBoxComb1（空）Comma ndButt onComma nd1确认Comma nd2取消3.2.3修

13、改密码子窗体修改密码子窗体如图18所示，其控件如表 6所示。数据库课程设计（酒店管理系统）新克码|创确认密码I硝定取消图18修改密码子窗体表6修改密码窗体控件类别控件Name控件TextLabelLabel1新密码Label2确认密码TextBoxText1（空）Text2（空）Comma ndButt onComma nd1确定Comma nd2取消324团队入住子窗体团队入住子窗体如图 19所示，其控件如表 7所示图19 团队入住子窗体15 / 42数据库课程设计 （酒店管理系统 ）表7团队入住子窗口控件控件类型控件Name控件TextFrameFrame1团队入住Frame2（空）Dat

14、aGridDataGrid1（空）Comma ndButt onComma nd1新增记录Comma nd2修改记录Comma nd3删除记录Comma nd4取消Comma nd5退出325查询子窗体查询子窗体如图20所示，其控件如表 8所示图20查询子窗体表8查询子控件控件类别控件Name控件TextOptio nButt onOptio n1按房号Optio n2按抵达日LableLable1从Lable2到Lable3从Lable4年LableLable5月Lable6日Lable7到Lable8年Lable9月Lable10日Combo(0 )CoboBoxCombol（空）Comb

15、o(1 )CoboBoxCombol（空）Combo(0 )CoboBoxComboy（空）Combo(1 )CoboBoxComboy（空）Combo(0 )CoboBoxCombom（空）Combo(1 )CoboBoxCombom（空）Combo(0 )CoboBoxCombod（空）Combo(1 )CoboBoxCombod（空）Comma ndButt onComma nd1查询Comma nd2取消326用户登录子窗体用户登录子窗体如图 21所示，其控件如表 9所示冠用户登录密码确定 |职稍 |图21用户登录子窗体表9用户登录子窗口控件控件类别控件Name控件TextLabelL

16、abel1用户名Label2密码TextBoxText1（空）Text2（空）Comma ndButt onComma nd1确定Comma nd2取消3.2.7值班管理子窗体值班管理子窗体如图 22所示，其控件如表10所示图22值班管理子窗体表10值班管理子窗口控件控件类别控件Name控件TextFrameFrame1值班管理DatagridDataGrid1（空）Comma ndButt onCmdAdd增加记录CmdDcl删除记录CmdCa nccl取消328投诉管理子窗体投诉管理子窗体如图 23所示，其控件如表11所示20 / 42数据库课程设计（酒店管理系统）图23投诉管理子窗体表1

17、1投诉管理子窗体控件控件类别控件Name控件属性控件属性值FrameFrame1Capti on投诉信息Frame2Capti on（空）控件类别控件Name控件属性控件属性值LabelLabel1Capti on投诉编号Label2Capti on投诉日期Label3Capti on投诉对象Label4Capti on投诉内容Label5Capti on受诉部门Label6Capti on受诉日期Label7Capti on处理意见DataGridDataGrid1DataSourceAdodc1AllowAddNewTureAllowDeleteTureAllowUpdataTureAll

18、owArrowsTureComma ndButt onComma nd1上一条（空）Comma nd2下一条（空）Comma nd3第一条（空）Comma nd4末一条（空）Comma nd5增加记录（空）Comma nd6删除记录（空）Comma nd7取消（空）AdodcAdodc1Commun ati on Stri ngJiudia n. mdbRecordSource投诉管理TextText1Text（空）DataField投诉编号DataSourceAdodc1Text2Text（空）DataField投诉日期DataSourceAdodc1Text3Text（空）DataFiel

19、d投诉对象DataSourceAdodc1Text4Text（空）DataField投诉内容DataSourceAdodc1Text5Text（空）DataField受诉部门19 / 42数据库课程设计 （酒店管理系统 ）TextDataSourceAdodc1Text6Text（空）DataField受诉日期DataSourceAdodc1Text7Text（空）DataField处理意见DataSourceAdodc13.3建立公共模块建立公共模块可以提高代码效率，同时使得修改和维护代码都很方便。创建公共模块的步骤如下：（1）“工程”一“添加模块”（2 ）选择模块图标后，打开，着这个模块已

20、经添加到项目中了。默认情况下名为24 / 42标记连接对象标记当前用户ID标记用户权限标记查询查询语句modulel。（3）在模块中定义整个项目的公共变量。Public conn As New ADODB.Co nn ectionPublic userID As Stri ngPublic userpow As StringPublic find As Boolea nPublic sqlfind As StringPublic rs data1 As New ADODB.RecordsetPublic fin dok As BooleanPublic frmdata As Boolea n第

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

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

23、下面是响应“新增用户”子菜单 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 double_client_Click() frmdouble_client.ShowEnd SubPrivate Sub exit_Click

24、()Unload MeEnd SubPrivate Sub khts_Click() frmkhts.ShowEnd SubPrivate Sub MDIForm_Load() frmdata = False find = Falseclick 事件，调出新增用窗体代码。 click 事件，调出新增用窗体代码。 click 事件，调出新增用窗体代码。 click 事件，调出新增用窗体代码。End SubPrivate Sub modify_pw_Click()数据库课程设计 （酒店管理系统 ）frmchangepwd.ShowEnd SubPrivate Sub only_check_Clic

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

26、DB.Recordset 新增用户按钮代码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.AllowAddNew = True DataGrid1.AllowUpdate

27、 = TrueElseIf Not IsNull(DataGrid1.Bookmark) ThenIf Trim(DataGrid1.Columns( 房号 MsgBox 房号不能为空！ Exit Sub当此按钮的状态为为“增加记录”时按钮名称改为“确定”删除与修改按钮不可用取消按钮可用设定 datagrid 可以增加记录).CellText(DataGrid1.Bookmark) = Then , vbOKOnly + vbExclamation, End IfIf Trim(DataGrid1.Columns( 房价 ).CellText(DataGrid1.Bookmark) = The

28、n MsgBox 房价不能为空！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim(DataGrid1.Columns( 姓名 ).CellText(DataGrid1.Bookmark) = Then MsgBox 姓名不能为空！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim(DataGrid1.Columns( 性别 ).CellText(DataGrid1.Bookmark) = Then MsgBox 性别不能为空！ , vbOKOnly + vbExclamation, Exit

29、SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns( 抵达日 ).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式 hh-mm 输入抵达日 , vbOKOnly + vbExclamation, Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns( 离店日 ).CellText(DataGrid1.Bookmark) Then MsgBox 请按照格式 hh-mm 输入离店日 , vbOKOnly + vbExclamation, Exit SubEnd Ifr

30、s_client.UpdateMsgBox 添加信息成功！ , vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = FalseElseMsgBox 没有添加信息！ , vbOKOnly + vbExclamation, End IfCommand1.Caption = 新增记录 Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseEnd If adderror:If Err.Number 0 ThenM

31、sgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf Command2.Caption = 修改记录 Then answer = MsgBox( 确定要修改吗？ , vbYesNo, ) If answer = vbYes ThenCommand2.Caption = 确定 Command1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = True DataGrid1

32、.AllowUpdate = TrueElseExit SubEnd If ElseIf Not IsNull(DataGrid1.Bookmark) Then rs_client.UpdateEnd IfCommand2.Caption = 修改记录 Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseDataGrid1.AllowUpdate = FalseMsgBox 修改成功！ , vbOKOnly + vbExclamation, End If cmdmodify:If Err.Number 0

33、ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command3_Click() Dim answer As String On Error GoTo delerror answer = MsgBox( 确定要删除吗？ , vbYesNo, ) If answer = vbYes ThenDataGrid1.AllowDelete = True rs_client.Delete rs_client.UpdateDataGrid1.RefreshMsgBox 成功删除！ , vbOKOnly + vbExclamation, DataGrid

34、1.AllowDelete = FalseElseExit SubEnd If delerror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = 确定 Then rs_client.CancelDataGrid1.ReBind DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = FalseCommand1.Caption = 新增记录 Command2.Enabled = Tru

35、eCommand3.Enabled = True Command4.Enabled = FalseElseIf Command2.Caption = 确定 Then rs_client.CancelDataGrid1.ReBindDataGrid1.Refresh DataGrid1.AllowUpdate = FalseCommand2.Caption = 修改记录 Command1.Enabled = TrueCommand3.Enabled = True Command4.Enabled = FalseEnd IfFrame2.Enabled = TrueEnd SubPrivate S

36、ub Command5_Click()Unload MeEnd SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderror打开数据库不可增加不可删除sql = select * from 散客资料 rs_client.CursorLocation = adUseClient rs_client.Open sql, conn, adOpenKeyset, adLockPessimistic 设定 datagrid 控件属性DataGrid1.Allow

37、AddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_client Command4.Enabled = FalseExit Subloaderror:MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothing rs_client.Close1）End Sub 团队入住子窗体代码 本窗口是用来

38、录入团队入住信息，也是用 ADO 来连接数据库的。Option ExplicitDim rs_dclient 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.AllowAddNew = True DataGrid1.AllowU

39、pdate = TrueElseIf Not IsNull(DataGrid1.Bookmark) ThenIf Trim(DataGrid1.Columns(当此按钮的状态为为“增加记录”时按钮名称改为“确定”删除与修改按钮不可用取消按钮可用设定 datagrid 可以增加记录MsgBox 团队名称不能为空！ Exit Sub团队名称 ).CellText(DataGrid1.Bookmark) = Then , vbOKOnly + vbExclamation, End IfIf Trim(DataGrid1.Columns( 负责人姓名 ).CellText(DataGrid1.Book

40、mark) = Then MsgBox 负责人姓名不能为空！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim(DataGrid1.Columns( 证件号码 ).CellText(DataGrid1.Bookmark) = Then MsgBox 证件号码不能为空！ , vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim(DataGrid1.Columns( 房间号码 ).CellText(DataGrid1.Bookmark) = Then MsgBox 房间号码！ , vbOKOnly + vb

41、Exclamation, Exit SubEnd If29 / 42数据库课程设计 (酒店管理系统 )rs_dclient.UpdateMsgBox 添加信息成功！ , vbOKOnly + vbExclamation, DataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = FalseElseMsgBox 没有添加信息！ , vbOKOnly + vbExclamation, End IfCommand1.Caption = 新增记录 Command2.Enabled = TrueCommand3.Enabled = TrueCommand4

42、.Enabled = False End If adderror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf Command2.Caption = 修改记录 Thenanswer = MsgBox( 确定要修改吗？ , vbYesNo, )If answer = vbYes ThenCommand2.Caption = 确定 Command1.Enabled = FalseComma

43、nd3.Enabled = FalseCommand4.Enabled = TrueDataGrid1.AllowUpdate = TrueElseExit SubEnd IfElseIf Not IsNull(DataGrid1.Bookmark) Thenrs_dclient.UpdateEnd IfCommand2.Caption = 修改记录 Command1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseDataGrid1.AllowUpdate = FalseMsgBox 修改成功！ , vbOKOnly

44、+ vbExclamation, End If cmdmodify:30 / 42数据库课程设计 （酒店管理系统 ）If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox( 确定要删除吗？ , vbYesNo, )If answer = vbYes ThenDataGrid1.AllowDelete = True rs_dclient.Delete rs_dclient.

45、Update DataGrid1.RefreshMsgBox 成功删除！ , vbOKOnly + vbExclamation, DataGrid1.AllowDelete = FalseElseExit SubEnd Ifdelerror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = 确定 Then rs_dclient.Cancel DataGrid1.ReBindDataGrid1.AllowAddNew = FalseDat

46、aGrid1.AllowUpdate = FalseCommand1.Caption = 新增记录 Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseElseIf Command2.Caption = 确定 Then rs_dclient.Cancel DataGrid1.ReBindDataGrid1.RefreshDataGrid1.AllowUpdate = FalseCommand2.Caption = 修改记录 Command1.Enabled = TrueCommand3.Enabled =

47、TrueCommand4.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 loaderror打开数据库不可增加不可删除sql = select * from 团队资料 rs_dclient.CursorLocation = adUseClient rs_dclient.Open s

48、ql, conn, adOpenKeyset, adLockPessimistic 设定 datagrid 控件属性DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_dclient Command4.Enabled = FalseExit Sub loaderror:MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)S

49、et DataGrid1.DataSource = Nothing rs_dclient.CloseEnd Sub(2) 增加用户子窗体代码Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = ThenMsgBox 用户名不能为空 , vbOKOnly + vbExclamation, Exit SubText1.SetFocusElsesql = select * from 系统管理 rs_add.Open sql, conn, adOpenKeyset, adLockPessimisticWhile (rs_add.EOF = False)If Trim(rs_add.Fields(0) = Trim(Text1.Text) ThenMsgBox 已有