數(shù)據(jù)庫課程設(shè)計酒店管理系統(tǒng)

1、數(shù)據(jù)庫系統(tǒng)課程設(shè)計報告題目: 酒店管理系統(tǒng) 課程代號: 0680036 課程名稱：數(shù)據(jù)庫系統(tǒng)課程設(shè)計學(xué)號： 姓名： 班級： 指導(dǎo)教師 完成日期：2011年4月目錄第一章 引言第二章 系統(tǒng)分析與設(shè)計2.1需求分析2.2結(jié)構(gòu)設(shè)計2.3數(shù)據(jù)庫設(shè)計第三章 系統(tǒng)開發(fā)及實(shí)現(xiàn)3.1 創(chuàng)建主窗體3.2 創(chuàng)建子窗體3.3 建立公共模塊第四章 總結(jié)參考文獻(xiàn)附錄（附部分源代碼）第一章 引言酒店管理系統(tǒng)是現(xiàn)代服務(wù)行業(yè)不可缺少的一個組成環(huán)節(jié)。酒店管理信息系統(tǒng)是一個由人、計算機(jī)和數(shù)據(jù)庫組成的進(jìn)行酒店經(jīng)營管理的系統(tǒng)，通過對信息的收集、傳遞、整理、加工、維護(hù)和使用，提高管理水平和效率，從而實(shí)現(xiàn)酒店管理的自動化、規(guī)范化和人性化

2、。本文簡要介紹了基于Microsoft和VB程序語言開發(fā)實(shí)現(xiàn)的酒店管理系統(tǒng)，著重闡述了該系統(tǒng)開發(fā)實(shí)現(xiàn)過程，從系統(tǒng)的需求分析、方案論證、模塊設(shè)計、數(shù)據(jù)設(shè)計、詳細(xì)設(shè)計到系統(tǒng)測試等各個環(huán)節(jié)都進(jìn)行了較為詳盡的分析和描述。關(guān)鍵詞：酒店管理系統(tǒng)、Access、數(shù)據(jù)庫、VB第二章系統(tǒng)分析與設(shè)計2.1需求分析在進(jìn)行一個項目的設(shè)計之前，首先要進(jìn)行必要的需求分析。酒店需要管理各種人員和入住信息，希望實(shí)現(xiàn)酒店的信息化管理，通過建立一個酒店管理系統(tǒng)來管理酒店的日常業(yè)務(wù)。其完成功能如下：1、能夠?qū)崿F(xiàn)對客人的登記信息查詢，包括逐個瀏覽，以及對客人資料的增加、刪除和編輯操作。2、能夠的酒店人員值班情況進(jìn)行管理。3、管理人員

3、也可以直接增加和刪除用戶信息。系統(tǒng)功能模塊圖如圖1所示。酒店管理系統(tǒng)人事管理客戶入住系統(tǒng)管理客戶信息查詢客戶投訴值班管理散客入住密碼修改團(tuán)隊入住新增用戶圖1 系統(tǒng)的功能模塊圖根據(jù)功能模塊圖設(shè)計劃出的實(shí)體有散客入住實(shí)體、團(tuán)隊入住實(shí)體、投訴管理實(shí)體、值班管理實(shí)體。散客入住實(shí)體E-R如圖2所示。團(tuán)隊入住實(shí)體E-R如圖3所示投訴管理實(shí)體E-R圖如圖4所示值班管理實(shí)體E-R圖如圖5所示散客入住實(shí)體姓名房價性別房號離店日抵達(dá)日證件號碼圖2 散客入住實(shí)體E-R圖團(tuán)隊入住實(shí)體負(fù)責(zé)人姓名團(tuán)隊名稱房間號碼備注入住天數(shù)抵達(dá)日證件號碼 圖3 團(tuán)隊入住實(shí)體E-R圖投訴管理實(shí)體投訴對象投訴日期投訴內(nèi)容編號處理意見受訴日期

4、受訴部門圖4 投訴管理實(shí)體E-R圖值班管理實(shí)體值班人值班截止時間記事值班開始日期值班開始日期值班截止日期 圖5 值班管理實(shí)體E-R圖2.2結(jié)構(gòu)設(shè)計使用windows操作系統(tǒng)、開發(fā)維護(hù)系統(tǒng)即visual basic軟件系統(tǒng)、一套數(shù)據(jù)庫系統(tǒng)Access即可。他們之間的關(guān)系如圖6所示。數(shù)據(jù)庫數(shù)據(jù)庫應(yīng)用程序開發(fā)人員用戶用戶用戶圖6 結(jié)構(gòu)關(guān)系圖根據(jù)上面的需求分析，設(shè)計好數(shù)據(jù)庫系統(tǒng)，然后開發(fā)應(yīng)用程序可以考慮窗體的系統(tǒng)，每一個窗體實(shí)現(xiàn)不同的功能，可以設(shè)計以下幾個模塊。·客人入住模塊：用來實(shí)現(xiàn)登記入住的增加、刪除和修改等操作。·客人信息查詢模塊：用來實(shí)現(xiàn)對客人信息的瀏覽和查詢。·

5、值班管理模塊：用來實(shí)現(xiàn)對工作人員值班情況的增加、刪除和修改等操作。·系統(tǒng)管理模塊：用來實(shí)現(xiàn)用戶的增加、刪除和修改等操作。 2.3數(shù)據(jù)庫設(shè)計這里數(shù)據(jù)庫采用access，用ADO作為連接數(shù)據(jù)對象。2.3.1建立access數(shù)據(jù)庫啟動access，建立一個空的數(shù)據(jù)庫jiudian.mbd，如圖7所示。圖7 jiudian.mdb使用程序設(shè)計器建立系統(tǒng)需要的表格如下：散客資料表，如圖8所示。團(tuán)隊資料表，如圖9所示。值班管理表，如圖10所示。系統(tǒng)管理表，如圖11所示。投訴管理表，如圖12所示。 圖8 散客資料表 圖9 團(tuán)隊資料表 圖10 值班管理表 圖11系統(tǒng)管理表 圖12 投訴管理表2.3.

6、2連接數(shù)據(jù)庫 在程序設(shè)計的公共模塊中，先定義ADO鏈接對象。語句如下：Public conn As New ADODB.Connection '標(biāo)記連接對象然后在子程序中，用如下的語句即可打開數(shù)據(jù)庫：Dim connectionstring As Stringconnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=jiudian.mdb"conn.Open connectionstring圖12 引用ADO連接數(shù)據(jù)庫第三章系統(tǒng)開發(fā)與實(shí)現(xiàn) 這是一個多文檔

7、界面（MDI）應(yīng)用程序，如圖13所示，可以同時顯示多個文檔，每個文檔顯示在各個窗體中。MDI應(yīng)用程序中常有包含子菜單“窗體”選項，用于在窗體或文檔間進(jìn)行切換。菜單應(yīng)用程序中，有5個菜單選項，每個選項對應(yīng)著E-R圖中的一個子項目。圖13 多文檔界面3.1 創(chuàng)建主窗體 首先創(chuàng)建一個工程，命名為酒店管理系統(tǒng)。該窗體屬性如表1所示。屬性值 Caption 酒店管理系統(tǒng) WindowState Maxsize表1 主窗體的屬性圖14 菜單編輯器在主窗體的工具欄中，選菜單編輯器，創(chuàng)建如圖14所示的菜單結(jié)構(gòu)。創(chuàng)建一些菜單項，如表2 所示。表2 菜單項表 菜單名稱Text屬性功能描述MenuItem1系統(tǒng)管理

8、頂級菜單，包含子菜單MenuItem2新增用戶調(diào)出用戶窗體MenuItem3修改密碼調(diào)出密碼窗體MenuItem4退出系統(tǒng)推出MenuItem5客人入住頂級菜單，包含子菜單MenuItem6散客入住調(diào)出散客入住信息窗體MenuItem7團(tuán)隊入住調(diào)出團(tuán)隊入住信息窗體MenuItem8客人信息查詢調(diào)出查詢窗體MenuItem9人事管理頂級菜單，包含子菜單MenuItem10客戶投訴管理調(diào)出客戶投訴信息窗體MenuItem11值班管理調(diào)出值班信息窗體MenuItem12關(guān)于調(diào)出對系統(tǒng)的要求主窗體如圖15所示。圖15 主窗體3.2 創(chuàng)建各個子窗體“工程”“添加窗體”命令，添加子窗體。把窗體的屬性MID

9、Child改成Ture，這個窗體則成為MID子窗體。這個項目中，要創(chuàng)建的子窗體如表3所示。下面分別是各個子窗體，以及他們所使用的控件，如表3所示。表3 所有子窗體子窗體名Text散客入住frmonly_client團(tuán)隊入住Frmdouble_client增加用戶frmadduser修改密碼frmchangepwd客人資料frmdatamanage查詢輸出frmfind關(guān)于frmAbout用戶登錄frmlogin客人投訴管理frmkhts值班管理frmzhiban散客入住子窗體散客入住子窗體如圖16所示，其控件如表4所示。圖16 散客入住子窗體表4 散客入住子窗口控件控件類型控件Name控件Te

10、xtFrame1散客入住FrameFrame2(空)DateGridDateGrid1(空)Commend1新增記錄Commend2修改記錄CommendCommend3刪除記錄Commend4取消Commend5退出增加用戶子窗體增加用戶子窗體如圖17所示，其控件如表5所示。圖17增加用戶子窗體表5 增加用戶控件表控 件 類 別控件Name控件TextLabel1輸入用戶名LabelLabel2輸入密碼Label3確認(rèn)密碼Label4選擇權(quán)限Text1（空）TextBoxText2（空）Text3（空）ComboBoxComb1（空）CommandButtonCommand1確認(rèn)Comman

11、d2取消修改密碼子窗體修改密碼子窗體如圖18所示，其控件如表6所示。圖18修改密碼子窗體表6修改密碼窗體控 件 類 別控件Name控件TextLabelLabel1新密碼Label2確認(rèn)密碼TextBoxText1（空）Text2（空）CommandButtonCommand1確定Command2取消團(tuán)隊入住子窗體團(tuán)隊入住子窗體如圖19所示，其控件如表7所示圖19 團(tuán)隊入住子窗體表7 團(tuán)隊入住子窗口控件控件類型控件Name控件TextFrameFrame1團(tuán)隊入住Frame2（空）DataGridDataGrid1（空）CommandButtonCommand1新增記錄Command2修改記錄

12、Command3刪除記錄Command4取消Command5退出查詢子窗體查詢子窗體如圖20所示，其控件如表8所示圖20 查詢子窗體表8 查詢子控件控件類別控件Name控件TextOptionButtonOption1按房號Option2按抵達(dá)日Lable1從LableLable2到Lable3從Lable4年Lable5月Lable6日Lable7到LableLable8年Lable9月Lable10日Combo(0 )CoboBoxCombol（空）Combo(1 )CoboBoxCombol（空）Combo(0 )CoboBoxComboy（空）Combo(1 )CoboBoxCombo

13、y（空）Combo(0 )CoboBoxCombom（空）Combo(1 )CoboBoxCombom（空）Combo(0 )CoboBoxCombod（空）Combo(1 )CoboBoxCombod（空）CommandButtonCommand1查詢Command2取消用戶登錄子窗體用戶登錄子窗體如圖21所示，其控件如表9所示圖21用戶登錄子窗體表9用戶登錄子窗口控件控件類別控件Name控件TextLabelLabel1用戶名Label2密碼TextBoxText1（空）Text2（空）CommandButtonCommand1確定Command2取消值班管理子窗體值班管理子窗體如圖22所

14、示，其控件如表10所示圖22值班管理子窗體表10值班管理子窗口控件控件類別控件Name控件TextFrameFrame1值班管理DatagridDataGrid1（空）CmdAdd增加記錄CommandButtonCmdDcl刪除記錄CmdCanccl取消投訴管理子窗體投訴管理子窗體如圖23所示，其控件如表11所示圖23投訴管理子窗體表11 投訴管理子窗體控件控件類別控件Name控件屬性控件屬性值FrameFrame1Caption投訴信息Frame2Caption（空）控件類別控件Name控件屬性控件屬性值Label1Caption投訴編號Label2Caption投訴日期Label3Cap

15、tion投訴對象LabelLabel4Caption投訴內(nèi)容Label5Caption受訴部門Label6Caption受訴日期Label7Caption處理意見DataGrid1DataSourceAdodc1AllowAddNewTureDataGridAllowDeleteTureAllowUpdataTureAllowArrowsTureCommand1上一條（空）Command2下一條（空）Command3第一條（空）CommandButtonCommand4末一條（空）Command5增加記錄（空）Command6刪除記錄（空）Command7取消（空）AdodcAdodc1Com

16、munationStringJiudian.mdbRecordSource投訴管理TextText1Text（空）DataField投訴編號DataSourceAdodc1Text2Text（空）DataField投訴日期DataSourceAdodc1Text3Text（空）DataField投訴對象DataSourceAdodc1Text4Text（空）TextDataField投訴內(nèi)容DataSourceAdodc1Text5Text（空）DataField受訴部門DataSourceAdodc1Text6Text（空）DataField受訴日期DataSourceAdodc1Text7

17、Text（空）DataField處理意見DataSourceAdodc13.3 建立公共模塊建立公共模塊可以提高代碼效率，同時使得修改和維護(hù)代碼都很方便。創(chuàng)建公共模塊的步驟如下：（1）“工程”“添加模塊”（2）選擇模塊圖標(biāo)后，打開，著這個模塊已經(jīng)添加到項目中了。默認(rèn)情況下名為modulel。（3）在模塊中定義整個項目的公共變量。Public conn As New ADODB.Connection '標(biāo)記連接對象Public userID As String '標(biāo)記當(dāng)前用戶IDPublic userpow As String '標(biāo)記用戶權(quán)限Public find As

18、Boolean '標(biāo)記查詢Public sqlfind As String '查詢語句Public rs_data1 As New ADODB.RecordsetPublic findok As BooleanPublic frmdata As Boolean第四章 總結(jié)通過本次設(shè)計，設(shè)計的基本思想方法，能夠獨(dú)立編寫小型的數(shù)據(jù)庫程序，通過數(shù)據(jù)庫系統(tǒng)應(yīng)用課題的實(shí)踐，進(jìn)一步提高分析問題解決問題的能力及軟件開發(fā)過程的能力。遺憾的是對數(shù)據(jù)庫設(shè)計工作的認(rèn)識僅僅停留在表面，只是在參考著書做，借被人的思想，親自操作卻盡力很多困難，所以未能領(lǐng)會其精髓。但時通過這次數(shù)據(jù)庫設(shè)計，加深了我對數(shù)據(jù)庫設(shè)

19、計基本知識的理解，豐富了我做數(shù)據(jù)庫設(shè)計的實(shí)際技術(shù)，雖然學(xué)的不精，但讓我對數(shù)據(jù)庫產(chǎn)生了濃厚的興趣，也使我對數(shù)據(jù)庫有了深層次的感性和理性認(rèn)識。認(rèn)識到要做好一項工作，既要注重理論知識的學(xué)習(xí)，更重要的是要把實(shí)踐與理論兩者緊密相結(jié)合。 參考文獻(xiàn)1 王 珊，薩師煊編譯.數(shù)據(jù)庫系統(tǒng)概論. 北京：高等教育出版社，19832 張躍延，王小科，許文武. 數(shù)據(jù)庫開發(fā)案例精選. 人民郵電出版社，2007，3 Connolly.T. 數(shù)據(jù)庫設(shè)計/設(shè)計師實(shí)現(xiàn)與管理. 電子工業(yè)出版社，20064錢雪忠，甸海馳，陳國俊編著.數(shù)據(jù)庫原理及技術(shù)課程設(shè)計. 北京：清華大學(xué)出版社，20095譚浩強(qiáng)編譯. Visual basic程序

20、設(shè)計.北京：清華大學(xué)出版社，2006附錄：代碼設(shè)計.1主窗體代設(shè)計本項目中，子菜單事件都是click事件，主窗體代碼。下面是響應(yīng)“新增用戶”子菜單click事件，調(diào)出新增用窗體代碼。下面是響應(yīng)“新增用戶”子菜單click事件，調(diào)出新增用窗體代碼。下面是響應(yīng)“新增用戶”子菜單click事件，調(diào)出新增用窗體代碼。下面是響應(yīng)“新增用戶”子菜單click事件，調(diào)出新增用窗體代碼。Private Sub about_Click()frmAbout.ShowEnd SubPrivate Sub add_user_Click()frmadduser.ShowEnd SubPrivate Sub double

21、_check_Click()frmfind_double.ShowEnd SubPrivate Sub check_Click()frmfind.ShowEnd SubPrivate Sub 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

22、modify_pw_Click()frmchangepwd.ShowEnd SubPrivate Sub only_check_Click()frmfind.ShowEnd SubPrivate Sub only_client_Click()frmonly_client.ShowEnd SubPrivate Sub zbgl_Click()frmzhiban.ShowEnd Sub2 子窗體的代碼在各個子窗體建立好后，就可以根據(jù)各個子窗體的功能給他們添加相應(yīng)代碼了。（1）散客入住子窗體代碼本窗口用來錄入散客入住信息，用ADO來連接數(shù)據(jù)庫，是本窗體的重點(diǎn)。采用MDI的子程序，所以運(yùn)行后，它出現(xiàn)在

23、主程序界面下，下面的代碼是定義變量的。Option ExplicitDim rs_client As New ADODB.Recordset新增用戶按鈕代碼Option ExplicitDim rs_client As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo adderrorIf Command1.Caption = "新增記錄" Then '當(dāng)此按鈕的狀態(tài)為為“增加記錄”時 Command1.Caption = "確定" '按鈕名稱改為“確定” Comma

24、nd2.Enabled = False '刪除與修改按鈕不可用 Command3.Enabled = False Command4.Enabled = True '取消按鈕可用 DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True '設(shè)定datagrid可以增加記錄ElseIf Not IsNull(DataGrid1.Bookmark) Then If Trim(DataGrid1.Columns("房號").CellText(DataGrid1.Bookmark) = "&q

25、uot; Then MsgBox "房號不能為空！", 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("姓

26、名").CellText(DataGrid1.Bookmark) = "" Then MsgBox "姓名不能為空！", vbOKOnly + vbExclamation, "" Exit Sub End If If Trim(DataGrid1.Columns("性別").CellText(DataGrid1.Bookmark) = "" Then MsgBox "性別不能為空！", vbOKOnly + vbExclamation, "" E

27、xit Sub End If If Not IsDate(Trim(DataGrid1.Columns("抵達(dá)日").CellText(DataGrid1.Bookmark) Then MsgBox "請按照格式hh-mm輸入抵達(dá)日", vbOKOnly + vbExclamation, "" Exit Sub End If If Not IsDate(Trim(DataGrid1.Columns("離店日").CellText(DataGrid1.Bookmark) Then MsgBox "請按照格式

28、hh-mm輸入離店日", vbOKOnly + vbExclamation, "" Exit Sub End If rs_client.Update MsgBox "添加信息成功！", vbOKOnly + vbExclamation, "" DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = FalseElse MsgBox "沒有添加信息！", vbOKOnly + vbExclamation, ""End If Comman

29、d1.Caption = "新增記錄" 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.Caption = "修改記錄" Then ans

30、wer = 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_client.Update En

31、d If Command2.Caption = "修改記錄" Command1.Enabled = True Command3.Enabled = True Command4.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功！", vbOKOnly + vbExclamation, ""End Ifcmdmodify:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub

32、 Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox("確定要刪除嗎？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_client.Delete rs_client.Update DataGrid1.Refresh MsgBox "成功刪除！", vbOKOnly + vbExclamation, "" DataGrid1.All

33、owDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = "確定" Then rs_client.Cancel DataGrid1.ReBind DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Command1.Caption = "新增

34、記錄" Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseElseIf Command2.Caption = "確定" Then rs_client.Cancel DataGrid1.ReBind DataGrid1.Refresh DataGrid1.AllowUpdate = False Command2.Caption = "修改記錄" Command1.Enabled = True Command3.Enabled = True Command

35、4.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 散客資料"rs_client.CursorLocation = adUseClientrs_client.Open sql, conn, adOpen

36、Keyset, adLockPessimistic '打開數(shù)據(jù)庫'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可刪除DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_clientCommand4.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel

37、 As Integer)Set DataGrid1.DataSource = Nothingrs_client.CloseEnd Sub（1） 團(tuán)隊入住子窗體代碼本窗口是用來錄入團(tuán)隊入住信息，也是用ADO來連接數(shù)據(jù)庫的。Option ExplicitDim rs_dclient As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo adderrorIf Command1.Caption = "新增記錄" Then '當(dāng)此按鈕的狀態(tài)為為“增加記錄”時 Command1.Caption = &qu

38、ot;確定" '按鈕名稱改為“確定” Command2.Enabled = False '刪除與修改按鈕不可用 Command3.Enabled = False Command4.Enabled = True '取消按鈕可用 DataGrid1.AllowAddNew = True DataGrid1.AllowUpdate = True '設(shè)定datagrid可以增加記錄ElseIf Not IsNull(DataGrid1.Bookmark) Then If Trim(DataGrid1.Columns("團(tuán)隊名稱").Cell

39、Text(DataGrid1.Bookmark) = "" Then MsgBox "團(tuán)隊名稱不能為空！", vbOKOnly + vbExclamation, "" Exit Sub End If If Trim(DataGrid1.Columns("負(fù)責(zé)人姓名").CellText(DataGrid1.Bookmark) = "" Then MsgBox "負(fù)責(zé)人姓名不能為空！", vbOKOnly + vbExclamation, "" Exit S

40、ub 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 "房間號碼！&

41、quot;, vbOKOnly + vbExclamation, "" Exit Sub End If rs_dclient.Update MsgBox "添加信息成功！", vbOKOnly + vbExclamation, "" DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = FalseElse MsgBox "沒有添加信息！", vbOKOnly + vbExclamation, ""End If Command1.Caption

42、 = "新增記錄" 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.Caption = "修改記錄" Then answer = MsgB

43、ox("確定要修改嗎？", 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 Comm

44、and2.Caption = "修改記錄" Command1.Enabled = True Command3.Enabled = True Command4.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功！", vbOKOnly + vbExclamation, ""End Ifcmdmodify:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command3

45、_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox("確定要刪除嗎？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_dclient.Delete rs_dclient.Update DataGrid1.Refresh MsgBox "成功刪除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelet

46、e = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = "確定" Then rs_dclient.Cancel DataGrid1.ReBind DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Command1.Caption = "新增記錄&quo

47、t; Command2.Enabled = True Command3.Enabled = True Command4.Enabled = FalseElseIf Command2.Caption = "確定" Then rs_dclient.Cancel DataGrid1.ReBind DataGrid1.Refresh DataGrid1.AllowUpdate = False Command2.Caption = "修改記錄" Command1.Enabled = True Command3.Enabled = True Command4.Ena

48、bled = 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 團(tuán)隊資料"rs_dclient.CursorLocation = adUseClientrs_dclient.Open sql, conn, adOpenKey

49、set, adLockPessimistic '打開數(shù)據(jù)庫'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可刪除DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_dclientCommand4.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel A

50、s Integer)Set DataGrid1.DataSource = Nothingrs_dclient.CloseEnd Sub（2）增加用戶子窗體代碼Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = "" Then MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, "" Exit Sub Text1.SetFocusElse sql = &q

51、uot;select * from 系統(tǒng)管理" rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox "已有這個用戶", 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) = ""