【正文】 = 195 Index = 0 Left = 120 TabIndex = 5 Top = 870 Width = 1095 End Begin Label1 Caption = 再輸入密碼： Height = 195 Index = 1 Left = 120 TabIndex = 4 Top = 1350 Width = 1095 EndEndAttribute VB_Name = editpwformAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub no_Click()End SubPrivate Sub ok_Click()Dim password As Stringpassword = GetSetting(ajew, system, password)If = Or = Or = ThenMsgBox 密碼不能為空值, vbOKOnly, 錯誤Else If password Then MsgBox 對不起，舊密碼錯誤，無法更改密碼！, vbOKOnly, 密碼錯誤 = = = Else If Then MsgBox 兩次輸入的密碼不同, vbOKOnly, 錯誤 = = Else SaveSetting ajew, system, password, MsgBox 密碼設(shè)置成功，請保管好您的密碼 amp。None Height = 900 Index = 1 Left = 0 ScaleHeight = 900 ScaleWidth = 8175 TabIndex = 18 ToolTipText = 關(guān)閉 Top = 1440 Visible = 0 39。Center Appearance = 0 39。Flat BorderStyle = 1 39。Center Appearance = 0 39。Center Appearance = 0 39。 , vbOKOnly, 成功 End If End If End IfEnd SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 2SetWindowPos , 1, 0, 0, 0, 0, 3End Sub Object = {831FDD160C5C11D2A9FC0000F8754DA1}0。False MinButton = 0 39。False RecordsetType = 1 39。H80000005amp。Center Caption = 客戶姓名 Height = 200 Index = 0 Left = 100 TabIndex = 12 Top = 350 Width = 800 End Begin Label2 Alignment = 2 39。True Top = 0 Width = 255 End Begin Label1 Alignment = 2 39。Center Appearance = 0 39。Center Appearance = 0 39。窗口缺省 Begin Command1 Caption = 登 陸 Default = 1 39。 本系統(tǒng)第一次運行時默認不需要密碼，如果要使用登陸密碼，請選擇系統(tǒng)菜單欄中的“數(shù)據(jù)庫”224。5. 查詢記錄：使用Date控件的方法FindFirst來查找數(shù)據(jù)表中符合用戶指定條件的記錄u 子窗體控制模塊：1. 縱向排列與橫向排列：使用父窗體的方法Arrange不同的取值來實現(xiàn)。2. 刪除密碼：使用VB中提供的函數(shù)DeleteSetting()刪除保存在注冊表中的系統(tǒng)密碼。密碼登陸窗體使用Windows注冊表保存系統(tǒng)密碼。具體設(shè)計是使 用VB自帶的數(shù)據(jù)庫設(shè)計工具。 服務(wù)員管理模塊：這一個模塊主要是管理賓館在職服務(wù)員的信息，包括添加、更改、刪除服務(wù)員信息，按不同的字段查詢在職服務(wù)員的信息。本系統(tǒng)的數(shù)據(jù)庫使用Microsoft Access 2000設(shè)計，分為三個表——客房信息表、客戶信息表、服務(wù)員信息表，表與表之間的聯(lián)系較少。用戶在瀏覽記錄時也一目了然。u 記錄賓館客房服務(wù)員的個人信息，可隨時方便的添加、修改、刪除服務(wù)員的信息，隨時按不同字段條件查詢服務(wù)員的信息。u 系統(tǒng)使用的數(shù)據(jù)庫文件要放在程序目錄下，否則無法顯示數(shù)據(jù)庫中的記錄。開發(fā)的這個新的管理系統(tǒng)應(yīng)能綜合以上功能，減輕賓館、酒店服務(wù)工作人員的勞動強度。第二章：系統(tǒng)設(shè)計背景分析大型賓館、酒店的服務(wù)臺或服務(wù)部是《大型賓館客房服務(wù)管理系統(tǒng)》的用戶，通過對賓館服務(wù)臺的考察，了解了賓館服務(wù)臺工作人員在客房等服務(wù)項目上的管理需求。電子計算機、各種通迅設(shè)備、網(wǎng)絡(luò)的應(yīng)用日益廣泛。但是現(xiàn)在一些用于賓館、酒店的管理軟件比較過時，操作不夠方便，對賓館的管理不夠統(tǒng)一，包括的服務(wù)項目不夠全面。征求了賓館管理負責(zé)人和系統(tǒng)使用者對系統(tǒng)開發(fā)成本、處理事務(wù)、系統(tǒng)規(guī)模和目標(biāo)等方面的意見，得出準(zhǔn)確的模型。u 本系統(tǒng)的主窗體使用的MDIForm，這種窗體上不能加上Image控件，所以無法使用可伸縮的背景圖，而直接使用窗體的Picture屬性加入背景圖的話，圖像的大小無法跟隨窗體大小變化而自動伸縮。本系統(tǒng)的設(shè)計目標(biāo)有以下幾個：u 記錄賓館各客房的規(guī)格、價格、類型等信息，可添加新的客房信息，修改客房信息，刪除沒有的客房信息，按不同字段條件查詢客房信息。設(shè)定為索引的字段可以自動排列。這樣的層次簡單明了，各層次之間的聯(lián)系少。客房的信息包括客房號、客房的類型規(guī)格、日價格、現(xiàn)在狀態(tài)、客戶入住的日期和客戶姓名、服務(wù)員姓名。還包括本系統(tǒng)的版本號。系統(tǒng)設(shè)計詳細步驟：I. 新建一個工程，增加窗體。系統(tǒng)在開發(fā)中，添加一個窗體后，馬上為窗體添加代碼，單個的一步步實現(xiàn)各個模塊的功能，反復(fù)以上步驟，完成全部模塊的制作，然后運行調(diào)試無誤后，才完成整個系統(tǒng)的設(shè)計工作。2. 更改記錄：使用Date控件的方法Edit來對一條記錄進行更改。第七章：系統(tǒng)測試 ：發(fā)布系統(tǒng) 在VB的菜單欄中選擇“文件”224。六、參考文獻書名或資料名作者出版社VB6/.NET編程實例精選陳學(xué)、紹山等四川電子音像出版社Visual Basic 佳文工作室電子工業(yè)出版社軟件工程張海藩人民郵電出版社電腦應(yīng)用疑難問題與技巧1000唐凱軍四川電子音像出版社軟星工作室軟星教學(xué)軟件制作Visual Basic編程資源大全VB木屋清華大學(xué)出版社電腦報2004年合訂本（下）電腦報編輯社西南師范大學(xué)出版社Microsoft MSDN LibraryMicrosoftMicrosoft Corporation大型圖書館管理系統(tǒng)設(shè)計 劉 明無VB中使用API操作注冊表李林森無大型賓館的管理理念 華孝清求實出版社七、附錄（源代碼） Begin inputpwform Caption = 登陸密碼？ ClientHeight = 1320 ClientLeft = 60 ClientTop = 345 ClientWidth = 3180 Icon = :0000 LinkTopic = Form1 MaxButton = 0 39。True ScaleHeight = 3195 ScaleWidth = 7785 Begin cutform BorderStyle = 0 39。Flat DataField = 工作單位 DataSource = kfData Height = 270 Index = 2 Left = 1500 TabIndex = 5 Text = 12345 Top = 550 Width = 3000 End Begin Text1 Alignment = 2 39。True Top = 0 Width = 255 End Begin Image2 Appearance = 0 39。False EndProperty ForeColor = amp。H00C8FF38amp。缺省游標(biāo) DefaultType = 2 39。窗體大小被改變時，網(wǎng)格一起改變大小Private Sub Form_Resize()gridysIf = True ThencutformdzEnd IfIf 1 Then = = 360If 650 Then = 650End IfEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)kfformon = False = False(2).ToolTipText = 打開客戶信息表End SubPrivate Sub Image2_Click() = FalseEnd SubPrivate Sub Image3_Click() = Falsegridbc2End Sub39。 Chr(10) amp。False Width = 8175 Begin Text1 Alignment = 2 39。Flat DataField = 年齡 DataSource = fwData Height = 270 Index = 10 Left = 2200 TabIndex = 22 Top = 550 Width = 400 End Begin Text1 Alignment = 2 39。Fixed Single Height = 255