課程設(shè)計評分表

1、課程設(shè)計評分表評分標(biāo)準(zhǔn)：1 .學(xué)生是否嚴(yán)格遵守課程設(shè)計紀(jì)律，按照規(guī)定時間完成設(shè)計任務(wù)(占30%)2 .程序設(shè)計的質(zhì)量與規(guī)范：(占40%)(1)是否采用了良好的設(shè)計方法，獨立完成程序設(shè)計(2)程序界面設(shè)計是否合理、美觀(3)數(shù)據(jù)庫設(shè)計是否合理，具有良好的擴展性(4)程序是否運行正常，未見運行錯誤3 .課程設(shè)計報告書的質(zhì)量與規(guī)范 (占30%)得分得分得分教師評分：1 .學(xué)生出勤得分:2 .程序設(shè)計得分:3 .設(shè)計報告得分:(A)(B)(C)(D)(A)(B)(C)(D)(A)(B)(C)(D)總分：教師評語:根據(jù)該生在課程設(shè)計期間，是否嚴(yán)格遵守課程設(shè)計紀(jì)律，按照規(guī)定時間完 成設(shè)計任務(wù)，完成的程序設(shè)

2、計的質(zhì)量與規(guī)范，提交的課程設(shè)計報告書的質(zhì)量與規(guī)范等多方面的評分，該生本次課程設(shè)計的評分為： 教師簽名：日期：年一月一日設(shè)計題目:客房管理信息系統(tǒng)設(shè)計設(shè)計主要內(nèi)容:一、開發(fā)平臺： VB+ SQL SERVER 2000二、功能要求：1、設(shè)計內(nèi)容設(shè)計一個客房管理信息系統(tǒng)，該系統(tǒng)的用戶由普通管理員和超級管理員組成，不同的管理員擁有不同的權(quán)限，各自完成各自的管理功能。首先是歡迎界面，然后選擇登錄，登錄的時候首先要判斷用戶的身份，合法的用戶然后進入到系統(tǒng)主界面中，不同的用戶看到不同的系統(tǒng)功能。用SQL server2000 創(chuàng)建后臺數(shù)據(jù)庫，然后利用程序設(shè)計語言（VB ）編寫程序?qū)崿F(xiàn)對數(shù)據(jù)庫的操作，按照要

3、求完成所有的功能和模塊。2、客房管理信息系統(tǒng)主要功能（ 1 ）歡迎界面、登錄界面、用戶注冊界面、（ 2）普通管理員管理：客戶登記界面（登記、結(jié)算等操作）、房間管理界面（增加、修改、刪除房間等操作）、客戶查詢界面（精確查詢、概況查詢等操作）、房間查詢界面（按照一定條件查詢）、 收入統(tǒng)計界面（統(tǒng)計一段時間的收入）、 修改密碼界面（修改當(dāng)前登錄人的密碼） 。（ 3）超級管理員管理：客戶登記界面（登記、結(jié)算等操作）、房間管理界面（增加、修改、刪除房間等操作）、客戶查詢界面（精確查詢、概況查詢等操作）、房間查詢界面（按照一定條件查詢）、收入統(tǒng)計界面（統(tǒng)計一段時間的收入）、管理員界面（添加、刪除管理員，修

4、改密碼）3、客房管理信息系統(tǒng)數(shù)據(jù)庫表單（表單和字段可以按照需求增、刪、改）（ 1 ）普通管理員信息表單（證件編號，賬號，密碼）（ 2）超級管理員信息表單（證件編號，賬號，密碼）（ 3）客戶信息表單（房間編號，姓名，性別，年齡，身份證號，住址，入住時間，預(yù)計天數(shù)，退房時間，押金，住宿費，登記人）（ 4）房間信息表單（房間編號，類型，價格，狀態(tài)，備注）（ 5）房間類型表單（房間編號，房間大小，房間床位數(shù)，房間配置）（ 6）員工信息表單（證件編號、員工號碼、姓名、性別、年齡、聯(lián)系電話）三、課程設(shè)計報告主要內(nèi)容：1 客房管理信息系統(tǒng)需求分析（給出系統(tǒng)的功能模塊圖，對各個功能作出詳細(xì)介紹）2 客房管理信

5、息系統(tǒng)界面設(shè)計（給出界面截圖及其主要控件的屬性設(shè)置表格）3 客房管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計（給出數(shù)據(jù)庫各個表單中數(shù)據(jù)的字段名，數(shù)據(jù)類型及其相應(yīng)的說明）4 客房管理信息系統(tǒng)程序設(shè)計（功能模塊給出詳細(xì)的程序代碼，重點語句的注釋）1 .學(xué)校成績管理信息系統(tǒng)需求分析刪澹售遑費增加官普G修改員工信息查詢員工信息增加員工在遍變誨君聆房間修茂房閏tim唐同客戶珪胃退出系統(tǒng)圖1.1學(xué)校成績管理信息系統(tǒng)1.1 歡迎界面系統(tǒng)啟動之后便可進入歡迎界面，單擊登錄方式按鈕便可進入選擇登陸界 面。1.2 選擇登錄1.2.1 選中普通管理員登錄后便進入普通管理員登錄界面1.2.2 選中超級管理員登錄后便進入超級管理員登錄界面1

6、.3 普通管理員界面可以進行客戶登記管理，房間管理，客戶查詢管理，房間查詢管理，員工信息管理，修改密碼。1.3.1 客戶登記管理利用VB界面，管理員可以登記客戶的基本信息，添加客戶信息， 從而改變了數(shù)據(jù)庫中的信息1.3.2 房間管理普通管理員可以增加，修改，刪除房間信息，在VB界面中修改了數(shù)據(jù)庫中的信息。1.3.3 客戶查詢管理普通管理員可以根據(jù)需要對不同的情況進行查詢，從而顯示數(shù)據(jù)庫中的信 息。1.3.4 房間查詢管理普通管理員可以根據(jù)需求進行詳細(xì)查詢，概況查詢房間信息，從而顯示數(shù)據(jù)庫中的信息。1.3.5 員工管理普通管理員可以根據(jù)需求進行增加，查詢， 刪除和更新員工信息，從而改變數(shù)據(jù)庫中的

7、信息。1.3.6 修改密碼普通管理員可以根據(jù)需要進行修改本賬號密碼，從而改變數(shù)據(jù)庫中的信息。1.4 超級管理員界面可以進行客戶登記管理，房間管理，客戶查詢管理，房間查詢管理，員工信息管理，管理員管理。1.4.1 客戶登記管理利用VB界面，超級管理員可以登記客戶的基本信息，添加客戶信息，從而改變了數(shù)據(jù)庫中的信息。1.4.2 房間管理超級管理員可以增加，修改，刪除房間信息，在VB界面中修改了數(shù)據(jù)庫中的信息。1.4.3 客戶查詢管理超級管理員可以根據(jù)需要對不同的情況進行查詢，從而顯示數(shù)據(jù)庫中的信息。1.4.4 房間查詢管理超級管理員可以根據(jù)需求進行詳細(xì)查詢，概況查詢房間信息，從而顯示數(shù)據(jù)庫中的信息。

8、1.4.5 員工信息管理超級管理員可以根據(jù)需求進行增加，查詢，刪除和更新員工信息，從而改變數(shù)據(jù)庫中的信息。1.4.6 管理員管理超級管理員可以根據(jù)需求進行增加，查詢，刪除和更新普通管理員信息，從而改變數(shù)據(jù)庫中的信息。2 .客房管理信息系統(tǒng)界面設(shè)計圖2.1歡迎界面圖2.3新用戶注冊界面歡迎使用客房管理信息系統(tǒng) 二嬴吊胸叫I1L ED DC力HS導(dǎo)不；壬干皆口工吧善產(chǎn)量圖2.4 客戶登記界面表2.1客戶登記界面屬性表對象屬性設(shè)置值A(chǔ)dodclvisiblefalsecommandtype2-adcmdtablerecordsource客戶信息表SStablTabsPerRow6Tabs6dataG

9、ridlDataSourceAdodc1Frame8Caption圖2.5客戶詳細(xì)登記界面表2.1學(xué)生信息查詢界面屬性表圖2.6客戶結(jié)算界面表2.2費用結(jié)算屬性表對象屬性設(shè)置值RichTextBoxIEnabledFalseAdodclcommandtype2-adcmdtablerecordsource客戶信息表visiblefalse圖2.7房間管理表2.3 房間管理屬性表對象屬性設(shè)置值A(chǔ)dodc3visiblefalsecommandtype2-adcmdtablerecordsource房間信息表SStablTabsPerRow6Caption房間管理Tabs6dataGrid2Dat

10、aSourceAdodc3DatacombolCaptionStyle2圖2.8客戶查詢界面圖2.9房間查詢界面表2.4房間查詢界面屬性表對象屬性設(shè)置值A(chǔ)dodclcaptionAdodc1commandtype2-adcmdtablerecordsource房間信息表visiblefalse圖2.10 員工管理界面表2.5員工管理界面屬性表對象屬性設(shè)置值A(chǔ)dodc1captionAdodc1commandtype2-adcmdtablerecordsource員工信息表visiblefalseDataGrid1captionDatacombo2ListAdodc2Lablelcaption員

11、工號碼Lable2caption姓名Lable3caption性別Lable4caption年齡Lable5caption電話#碼圖2.12管理員管理界面圖2.11修改密碼界面表2.6修改密碼界面屬性表對象屬性設(shè)置值dadagriddatasourceAdodc1AdodclcaptionAdodc1commandtype2-adcmdtablerecordsourcer普通管理員visiblefalseLablelcaption舊密碼Lable2caption新密碼Lable3caption確認(rèn)密碼表2.7工程項目信息界面屬性表對象屬性設(shè)置值dadagriddatasourceAdodc1A

12、dodclcaptionAdodc1commandtype2-adcmdtablerecordsource普通管理員visiblefalseLablelcaption系統(tǒng)時間Lable2caption當(dāng)前管理員圖2.13管理員管理界面3 .客房管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計客房管理信息系統(tǒng)總共涉及6張表，分別是普通管理員表，超級管理員表，客戶 信息表，房間信息表，房間類型表和員工信息表。表3.1普通管理員表字段名稱標(biāo)始名稱數(shù)據(jù)類型是否允許為空字段說明Aid編Rint否主碼Anamechar否Amine密碼char否表3.2超級管理員表字段名稱標(biāo)始名稱數(shù)據(jù)類型是否允許為空字段說明Aid編Rint否主碼A

13、namechar否Amine密碼char否表3.3客戶信息表字段名稱標(biāo)始名稱數(shù)據(jù)類型是否允許為空字段說明Cid編Rint否主碼Cname客戶姓名char否Csex性別char是Cage年齡Char是Cpnum身份證號碼Char是Cadd住址Char是Cintime入住時間Smalldatatime是Couttime退房時間Smalldatatime是Rnum房間號Char是表3.4房間信息表字段名稱標(biāo)始名稱數(shù)據(jù)類型是否允許為空字段說明Rnum房間號char否主碼Rtype房間類型char否Rprice房間價格Char是Rstates房間狀態(tài)Char否Cid編RChar是表3.5房間類型表字段名

14、稱標(biāo)始名稱數(shù)據(jù)類型是否允許為空字段說明Rnum房間號char否主碼Rsize房間大小char否Rbed床位數(shù)char是Rcon房間配置char是表3.6員工信息表字段名稱標(biāo)始名稱數(shù)據(jù)類型是否允許為空字段說明Aid編RInt否主碼Yno證件號碼char否Yname姓名Char是Ysex性別Char否Yage年齡Char是Ytel聯(lián)系方式Char是4客房管理信息系統(tǒng)程序設(shè)計（部分代碼）4.1 歡迎界面歡迎界面是整個系統(tǒng)的首頁，用戶可通過它進入到登陸系統(tǒng)。4.2 登陸界面進入此界面后，使用者可根據(jù)自己的身份選擇登陸方式。普通管理員選擇用戶登陸，超級管理員選擇超級管理員登陸。4.3 登陸和新用戶注冊界

15、面程序設(shè)計普通管理員在此界面輸入自己的姓名和密碼通過驗證后方可進入下一個界面。部分重要代碼如下：Private Sub Label1_Click()Dim strselectname As StringDim strselectpassword As StringDim strpassword As StringDim strselectuserlevel As StringDim ret_select As Booleanstrselectname = select Aname from 普 通 管 理 員 where Aname = & &Trim(DataCombo1.Text) & A

16、dodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectnameAdodc1.RefreshIf Adodc1.Recordset.EOF = True Thenret = MsgBox( 用戶名錯誤！, 48, warming!)DataCombo1.Text = Text2.Text = Ex

17、it SubEnd Ifstrselectpassword = select Amine from 普 通 管 理 員 where Aname = & &Trim(DataCombo1.Text) & Adodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = strselectpasswordAdodc1.Refr

18、eshIf StrComp(Trim(Adodc1.Recordset.Fields(Amine).Value), Trim(Text2.Text) 0 Thenret = MsgBox( 密碼錯誤！, 48, warming!)Text2.Text = Text2.SetFocusExit SubElseMsgBox 登錄成功End IfForm7.ShowForm2.HideEnd Sub新用戶還可以通過此界面進行注冊，新用戶只要輸入自己的姓名，注冊密碼并確認(rèn)注冊便可以成功注冊，同時該用戶的信息也被寫入到了普通管理員表中(部分代碼如下)Adodc1.ConnectionString = P

19、rovider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select Anamefrom 普通管理員where Aname= & Trim(Text1.Text)& Adodc1.RefreshIf Adodc1.Recordset.EOF = False ThenMsgBox 用戶名已經(jīng)存在！請重新輸入, 0, 提示 Text1.Text = Text1.SetFo

20、cusExit SubEnd IfAdodc1.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=客房管理Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 普通管理員Adodc1.RefreshIf Text1.Text And Text2.Text And Text3.Text And Text2.Text = Text3.TextThenAdodc1.Recordset.A

21、ddNewAdodc1.Recordset.Fields(Aname).Value = Trim(Text1.Text)Adodc1.Recordset.Fields(Amine).Value = Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox 恭喜你注冊成功Text1.Text = Text2.Text = Text3.Text = Exit SubElseIf Text1.Text And Text2.Text = And Text3.Text ThenMsgBox 請輸入密碼ElseIf Text1.Text And Text2.Text =

22、And Text3.Text = ThenMsgBox 請輸入密碼ElseIf Text1.Text And Text2.Text And Text3.Text = ThenMsgBox 請輸入確定密碼ElseIf Text2.Text Text3.Text ThenMsgBox 兩次輸入的密碼不一致，請重新輸入Text2.Text = Text3.Text = Text2.SetFocusExit SubElseMsgBox 注冊失敗End IfExit Sub4.4 超級管理員登陸界面管理員需要輸入自己的姓名和密碼，經(jīng)過系統(tǒng)驗證無誤后就可以進入下一個界面了。它的代碼與普通管理員登陸代碼類似

23、，輸入的姓名和密碼必須是超級管理表中相應(yīng)的信息，否則就無法成功登陸。4.5 系統(tǒng)主界面普通管理員登陸進去后，可以在給界面選擇自己所需的服務(wù)，該界面為用戶提供了六種服務(wù)，分別是“客戶登記”， “房間管理”， “客戶查詢”， “房間查詢”， “員工管理”和“密碼修改”。4.6 客戶登記界面程序設(shè)計用戶如需登記客戶入住信息和客戶退房辦理可在此界面進行，用戶通過登陸界面登陸到此。(代碼如下)Private Sub Command1_Click()If Text1.Text = Or text2.Text = Or Text3.Text = Or Text4.Text = Or DataCombo1.T

24、ext = Then MsgBox 請將藍(lán)色部分填寫完整！Exit SubElseAdodc1.RecordSource = select * from 客戶信息表Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(Cname) = Trim(Text1.Text)Adodc1.Recordset.Fields(Csex) = Trim(text2.Text)Adodc1.Recordset.Fields(Cage) = Trim(Text3.Text)Adodc1.Recordset.Fields(Cpnum) = Tri

25、m(Text4.Text)If Text5.Text ThenAdodc1.Recordset.Fields(Cadd) = Trim(Text5.Text)End IfAdodc1.Recordset.Fields(Cintime) = Text6.TextAdodc1.Recordset.Fields(Rnum) = Trim(DataCombo1.Text)Adodc1.Recordset.UpdateForm9.Adodc1.RefreshForm9.DataGrid1.RefreshMsgBox 登記成功！, vbOKOnly + vbInformation, 提示信息Form7.A

26、dodc1.RefreshForm8.Adodc1.RefresUnload MeEnd If4.7 房間管理界面用戶可通過此界面所提供的功能對所有的客房進行管理。所有的信息通過Adodc 控件和相應(yīng)的數(shù)據(jù)庫表單連接起來，設(shè)置相應(yīng)的屬性后所有信息便可顯示在DataGrid 上供用戶查看。(代碼如下)If DataCombo1.Text ThenIf MsgBox( 確定刪除房間“ & DataCombo1.Text & ”嗎？ , vbOKCancel +vbInformation, 提示信息) = vbOK ThenAdodc2.CommandType = adCmdTextAdodc2.R

27、ecordSource = select * from房間信息表where Rnum= &DataCombo1.Text & Adodc2.RefreshAdodc2.Recordset.DeleteAdodc2.Recordset.UpdateAdodc4.CommandType = adCmdTextAdodc4.RecordSource = delete from 房 間 類 型 表 where Rnum= &DataCombo1.Text & Adodc4.RefreshAdodc4.Recordset.DeleteAdodc4.Recordset.UpdateAdodc3.Refre

28、shSet DataGrid2.DataSource = Adodc3DataGrid2.RefreshAdodc7.RefreshMsgBox 刪除房間“ & DataCombo1.Text & ”成功！ , vbInformation +vbOKOnly, 提示信息Command9_ClickElseCommand9_ClickEnd IfElseMsgBox 請選擇要刪除的房間！DataCombo1.SetFocusEnd If4.8 客戶查詢界面該界面提供詳細(xì)查詢和概況查詢功能，查詢結(jié)果將會顯示在DataGrid 上。If Combo3.Text = ThenMsgBox 條件不能為空

29、！請選擇查詢條件。Combo3.SetFocusElseSelect Case Combo3.TextCase 已入住客戶Adodc6.RecordSource = select * from 客戶信息表where Couttime isnullAdodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 暫時還沒有客戶入住，查詢記錄為空Exit SubEnd IfCase 已退房客戶Adodc6.RecordSource = select *

30、from客戶信息表where Couttime isnot nullAdodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 已退房客戶記錄為空Exit SubEnd IfCase 普通房客戶Adodc6.RecordSource = select * from客戶信息表where Rnum in（select Rnum from 房間信息表where Rtype= 普通 ） order by Rnum ASCAdodc6.RefreshSe

31、t DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 普通房客戶數(shù)為空Exit SubEnd IfCase 標(biāo)準(zhǔn)房客戶Adodc6.RecordSource = select * from客戶信息表where Rnum in（select Rnum from 房間信息表where Rtype= 標(biāo)準(zhǔn) ） order by Rnum Adodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Ado

32、dc6.Recordset.EOF = True ThenMsgBox 標(biāo)準(zhǔn)房客戶數(shù)為空Exit SubEnd IfCase 豪華房客戶Adodc6.RecordSource = select * from客戶信息表where Rnum in（select Rnum from 房間信息表where Rtype= 豪華 ） order by RnumAdodc6.RefreshSet DataGrid3.DataSource = Adodc6DataGrid3.RefreshIf Adodc6.Recordset.EOF = True ThenMsgBox 豪華房客戶數(shù)為空Exit SubEnd

33、 IfEnd SelectFrame2.Caption = 查詢結(jié)果- + Combo1.TextEnd If4.9 房間查詢界面此界面為管理員提供了“按房間編號查詢”， “按房間類型查詢”， “顯示空房”以及“顯示滿房”四種查詢方式。管理員可根據(jù)需要進行選擇。4.10 員工管理界面管理員在此界面可查看所有員工的信息情況并可以根據(jù)實際情況對員工信息進行添加，刪除，修改和查詢。（部分重要代碼如下）If DataCombo2.Text ThenIf Combo7.Text = And Text20.Text = And Text21.Text = AndText22.Text = ThenMsgB

34、ox 您沒有對信息做任何修改！ Exit SubEnd IfIf MsgBox（ 確定修改員工編號為“ & DataCombo2.Text & ”的信息嗎？, vbOKCancel + vbInformation, 提示信息） = vbOK ThenAdodc12.RecordSource = select * from 員工信息表where Yno= &DataCombo2.Text & Adodc12.RefreshAdodc12.CommandType = adCmdTextIf Adodc12.Recordset.EOF = True ThenMsgBox 您輸入的員工號不存在Data

35、Combo2.Text = DataCombo2.SetFocusExit SubEnd IfIf Combo7.Text ThenAdodc12.Recordset.Fields(Ysex) = Combo7.TextEnd IfIf Text20.Text ThenAdodc12.Recordset.Fields(Yname) = Text20.TextEnd IfIf Text21.Text ThenAdodc12.Recordset.Fields(Yage) = Text21.TextEnd IfIf Text22.Text ThenAdodc12.Recordset.Fields(Y

36、tel) = Text22.TextEnd IfAdodc12.Recordset.UpdateAdodc13.RefreshSet DataGrid5.DataSource = Adodc13DataCombo2.RefreshMsgBox 員工信息修改成功！, vbOKOnly + vbInformation, 提示信息Command24_ClickElseCommand24_ClickEnd IfElseMsgBox 請選擇要修改的員工編號！, vbInformation + vbOKOnly, 提示信息DataCombo2.SetFocusExit SubEnd If4.11 修改密碼

37、界面用戶可以在此界面根據(jù)實際情況更改自己的密碼。(代碼如下)If Text9.Text = ThenMsgBox 請輸入舊密碼！, vbOKOnly + vbInformation, 錯誤信息Text9.SetFocusElseIf Text10.Text = ThenMsgBox 請輸入新密碼！, vbOKOnly + vbInformation, 錯誤信息Text10.SetFocusElseIf Text11.Text = ThenMsgBox 請輸入確認(rèn)密碼密碼, vbOKOnly + vbInformation, 錯誤信息Text11.SetFocusElseIf Text10.Te

38、xt Text11.Text ThenMsgBox 新密碼與確認(rèn)密碼不一致！請重新輸入。Text10.Text = Text11.Text = Text10.SetFocusElseIfMsgBox(確定修改密碼嗎？ , vbOKCancel + vbInformation,提示信息)=vbOK ThenAdodc8.RecordSource = select * from普通管理員where Amine= &Text9.Text & and Aname= & Form2.DataCombo1.Text & Adodc8.RefreshIf Adodc8.Recordset.RecordCou

39、nt = 1 ThenAdodc8.Recordset.Fields(Amine).Value = Trim(Text11.Text)Adodc8.Recordset.UpdateMsgBox 密 碼 修 改 成 功 ， 下 次 登 陸 請 使 用 新 密 碼 ！ , vbOKOnly + vbInformation, 提示信息Text9.Text = Text10.Text = Text11.Text = ElseMsgBox 你輸入的舊密碼錯誤！請重新輸入, vbInformation + vbOKOnly, 提示信息 Text9.Text = Text10.Text = Text11.T

40、ext = Text9.SetFocusEnd IfEnd IfEnd If4.12 管理員管理界面此界面為超級管理員而設(shè)計，能查看客房管理信息系統(tǒng)所有的用戶賬號和編碼，并根據(jù)實際對賬號進行管理，能進行添加和刪除管理員。(部分重要代碼如下)If Combo8.Text = 0- 普通管理員 ThenAdodc14.RecordSource = select * from普通管理員where Aname= &Text15.Text & Adodc14.RefreshIf Adodc14.Recordset.RecordCount = 1 ThenMsgBox 你輸入的管理員賬號已經(jīng)存在！請重新輸入。Text15.Text = Text14.Text = Text13.Text = Text15.SetFocusExit SubEn