【正文】 ，更加高效。添加控件（本系統(tǒng)使用了多窗口界面，即一個(gè)父窗體Mainform與三個(gè)子窗體Roomform、kfform、fwform。密碼登陸窗體使用Windows注冊(cè)表保存系統(tǒng)密碼。III. 使用VB自帶的可視化數(shù)據(jù)管理工具制作系統(tǒng)數(shù)據(jù)庫(kù)，錄入數(shù)據(jù)字段。V. 測(cè)試整個(gè)系統(tǒng)，修正系統(tǒng)中出現(xiàn)的錯(cuò)誤。系統(tǒng)界面圖1. 主窗體Mainform及子窗體roomform、kfform、fwform （seekkf） 注：因系統(tǒng)中客房、客戶、服務(wù)員表的添加、更改、查詢界面基本相同，所以以上只列出一幅圖片，具體界面樣式，請(qǐng)參看附帶光碟中的源程序。2. 刪除密碼：使用VB中提供的函數(shù)DeleteSetting()刪除保存在注冊(cè)表中的系統(tǒng)密碼。使用VB中提供的函數(shù)GetSetting()調(diào)出注冊(cè)表中的系統(tǒng)密碼，與用戶輸入的進(jìn)行對(duì)比，正確才允許進(jìn)入本系統(tǒng)。1. 添加記錄：使用Date控件的方法AddNew來(lái)增加一條新的記錄。3. 刪除記錄：使用Date控件的方法Delete來(lái)刪除一條記錄。5. 查詢記錄：使用Date控件的方法FindFirst來(lái)查找數(shù)據(jù)表中符合用戶指定條件的記錄u 子窗體控制模塊：1. 縱向排列與橫向排列：使用父窗體的方法Arrange不同的取值來(lái)實(shí)現(xiàn)。3. 全部關(guān)閉：實(shí)際是使用窗體的方法Hide()來(lái)隱藏全部的窗體u 打開(kāi)工具模塊：使用方法Shell(PathName,WindowStyle)來(lái)打開(kāi)指定路徑的應(yīng)用程序，并可以設(shè)置要打的應(yīng)用程序打開(kāi)時(shí)的狀態(tài)（普通，最小化，最大化）u 窗體位最上層：使用API函數(shù)SetWindowPos()來(lái)實(shí)現(xiàn)窗體出現(xiàn)時(shí)，永遠(yuǎn)位于頂層。u 窗體永遠(yuǎn)居中：在窗體Load事件中，再與窗體的寬和高相減，然后取半實(shí)現(xiàn)?！啊薄?本系統(tǒng)第一次運(yùn)行時(shí)默認(rèn)不需要密碼，如果要使用登陸密碼，請(qǐng)選擇系統(tǒng)菜單欄中的“數(shù)據(jù)庫(kù)”224。結(jié)束語(yǔ)： 通過(guò)這次畢業(yè)設(shè)計(jì)作業(yè)——大型賓館、酒店客房管理系統(tǒng)的設(shè)計(jì)開(kāi)發(fā)，我學(xué)會(huì)了使用VB開(kāi)發(fā)數(shù)據(jù)庫(kù)管理程序的基本方法，學(xué)習(xí)了許多關(guān)于系統(tǒng)開(kāi)發(fā)的技巧，積累了許多相關(guān)經(jīng)驗(yàn)。 在此對(duì)我的畢業(yè)設(shè)計(jì)指導(dǎo)老師：XX講師XX講師XX講師表示感謝，謝謝他們對(duì)本系統(tǒng)開(kāi)發(fā)的支持和對(duì)本人的耐心指導(dǎo)。False MinButton = 0 39。窗口缺省 Begin Command1 Caption = 登 陸 Default = 1 39。DISABLE Left = 720 PasswordChar = * TabIndex = 1 Top = 480 Width = 2175 End Begin Label1 Caption = 請(qǐng)輸入管理員密碼： Height = 195 Left = 240 TabIndex = 0 Top = 240 Width = 1695 EndEndAttribute VB_Name = inputpwformAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim password As StringPrivate Sub Command1_Click()password = GetSetting(ajew, system, password)If = password ThenLoad editpwformLoad setpwform = 正在讀入客房信息...Load roomform = 正在讀入客戶信息...Load kfform = 正在讀入服務(wù)員信息...Load fwformLoad seekroomLoad seekfwLoad seekkf = TrueElseMsgBox 對(duì)不起，密碼錯(cuò)誤，請(qǐng)重新輸入！, vbOKOnly, 密碼錯(cuò)誤 = End IfEnd SubPrivate Sub Form_Load() = False = ( ) / 2 = ( ) / 2SetWindowPos , 1, 0, 0, 0, 0, 3End SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd Sub Object = {831FDD160C5C11D2A9FC0000F8754DA1}0。 Begin kfform Caption = 客戶管理表 ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 7785 Icon = :0000 LinkTopic = Form1 MDIChild = 1 39。None Height = 900 Left = 0 ScaleHeight = 900 ScaleWidth = 8175 TabIndex = 2 ToolTipText = 關(guān)閉 Top = 370 Visible = 0 39。Center Appearance = 0 39。Center Appearance = 0 39。Center Appearance = 0 39。Center Appearance = 0 39。Center Appearance = 0 39。Flat BorderStyle = 1 39。True Top = 0 Width = 255 End Begin Image1 Height = 255 Left = 0 Picture = :0714 Stretch = 1 39。Flat BorderStyle = 1 39。True Top = 0 Width = 255 End Begin Label1 Alignment = 2 39。Transparent Caption = 更改客戶信息 BeginProperty Font Name = 新宋體 Size = 9 Charset = 134 Weight = 700 Underline = 0 39。False Strikethrough = 0 39。H00000000amp。Center Caption = 客戶姓名 Height = 200 Index = 0 Left = 100 TabIndex = 12 Top = 350 Width = 800 End Begin Label2 Alignment = 2 39。Center Caption = 工 作 單 位 Height = 195 Index = 2 Left = 1500 TabIndex = 10 Top = 350 Width = 3000 End Begin Label2 Alignment = 2 39。Center Caption = 所住(訂)房間 Height = 195 Index = 4 Left = 6500 TabIndex = 8 Top = 350 Width = 1200 End Begin Shape1 BackColor = amp。 BackStyle = 1 39。H80000005amp。Transparent Height = 255 Left = 0 Top = 0 Width = 6735 End End Begin kfToolbar Align = 1 39。False Appearance = 1 Style = 1 ImageList = kfImageList _Version = 393216 BeginProperty Buttons {66833FE8858311D1B16A00C0F0283628} NumButtons = 7 BeginProperty Button1 {66833FEA858311D1B16A00C0F0283628} = 首條記錄 ImageIndex = 1 EndProperty BeginProperty Button2 {66833FEA858311D1B16A00C0F0283628} = 上條記錄 ImageIndex = 2 EndProperty BeginProperty Button3 {66833FEA858311D1B16A00C0F0283628} = 下條記錄 ImageIndex = 3 EndProperty BeginProperty Button4 {66833FEA858311D1B16A00C0F0283628} = 末條記錄 ImageIndex = 4 EndProperty BeginProper