【正文】 = 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, 錯(cuò)誤Else If password Then MsgBox 對(duì)不起，舊密碼錯(cuò)誤，無(wú)法更改密碼！, vbOKOnly, 密碼錯(cuò)誤 = = = Else If Then MsgBox 兩次輸入的密碼不同, vbOKOnly, 錯(cuò)誤 = = Else SaveSetting ajew, system, password, MsgBox 密碼設(shè)置成功，請(qǐng)保管好您的密碼 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)第一次運(yùn)行時(shí)默認(rèn)不需要密碼，如果要使用登陸密碼，請(qǐng)選擇系統(tǒng)菜單欄中的“數(shù)據(jù)庫(kù)”224。5. 查詢記錄：使用Date控件的方法FindFirst來(lái)查找數(shù)據(jù)表中符合用戶指定條件的記錄u 子窗體控制模塊：1. 縱向排列與橫向排列：使用父窗體的方法Arrange不同的取值來(lái)實(shí)現(xiàn)。2. 刪除密碼：使用VB中提供的函數(shù)DeleteSetting()刪除保存在注冊(cè)表中的系統(tǒng)密碼。密碼登陸窗體使用Windows注冊(cè)表保存系統(tǒng)密碼。具體設(shè)計(jì)是使 用VB自帶的數(shù)據(jù)庫(kù)設(shè)計(jì)工具。 服務(wù)員管理模塊：這一個(gè)模塊主要是管理賓館在職服務(wù)員的信息，包括添加、更改、刪除服務(wù)員信息，按不同的字段查詢?cè)诼毞?wù)員的信息。本系統(tǒng)的數(shù)據(jù)庫(kù)使用Microsoft Access 2000設(shè)計(jì)，分為三個(gè)表——客房信息表、客戶信息表、服務(wù)員信息表，表與表之間的聯(lián)系較少。用戶在瀏覽記錄時(shí)也一目了然。u 記錄賓館客房服務(wù)員的個(gè)人信息，可隨時(shí)方便的添加、修改、刪除服務(wù)員的信息，隨時(shí)按不同字段條件查詢服務(wù)員的信息。u 系統(tǒng)使用的數(shù)據(jù)庫(kù)文件要放在程序目錄下，否則無(wú)法顯示數(shù)據(jù)庫(kù)中的記錄。開(kāi)發(fā)的這個(gè)新的管理系統(tǒng)應(yīng)能綜合以上功能，減輕賓館、酒店服務(wù)工作人員的勞動(dòng)強(qiáng)度。第二章：系統(tǒng)設(shè)計(jì)背景分析大型賓館、酒店的服務(wù)臺(tái)或服務(wù)部是《大型賓館客房服務(wù)管理系統(tǒng)》的用戶，通過(guò)對(duì)賓館服務(wù)臺(tái)的考察，了解了賓館服務(wù)臺(tái)工作人員在客房等服務(wù)項(xiàng)目上的管理需求。電子計(jì)算機(jī)、各種通迅設(shè)備、網(wǎng)絡(luò)的應(yīng)用日益廣泛。但是現(xiàn)在一些用于賓館、酒店的管理軟件比較過(guò)時(shí)，操作不夠方便，對(duì)賓館的管理不夠統(tǒng)一，包括的服務(wù)項(xiàng)目不夠全面。征求了賓館管理負(fù)責(zé)人和系統(tǒng)使用者對(duì)系統(tǒng)開(kāi)發(fā)成本、處理事務(wù)、系統(tǒng)規(guī)模和目標(biāo)等方面的意見(jiàn)，得出準(zhǔn)確的模型。u 本系統(tǒng)的主窗體使用的MDIForm，這種窗體上不能加上Image控件，所以無(wú)法使用可伸縮的背景圖，而直接使用窗體的Picture屬性加入背景圖的話，圖像的大小無(wú)法跟隨窗體大小變化而自動(dòng)伸縮。本系統(tǒng)的設(shè)計(jì)目標(biāo)有以下幾個(gè)：u 記錄賓館各客房的規(guī)格、價(jià)格、類型等信息，可添加新的客房信息，修改客房信息，刪除沒(méi)有的客房信息，按不同字段條件查詢客房信息。設(shè)定為索引的字段可以自動(dòng)排列。這樣的層次簡(jiǎn)單明了，各層次之間的聯(lián)系少。客房的信息包括客房號(hào)、客房的類型規(guī)格、日價(jià)格、現(xiàn)在狀態(tài)、客戶入住的日期和客戶姓名、服務(wù)員姓名。還包括本系統(tǒng)的版本號(hào)。系統(tǒng)設(shè)計(jì)詳細(xì)步驟：I. 新建一個(gè)工程，增加窗體。系統(tǒng)在開(kāi)發(fā)中，添加一個(gè)窗體后，馬上為窗體添加代碼，單個(gè)的一步步實(shí)現(xiàn)各個(gè)模塊的功能，反復(fù)以上步驟，完成全部模塊的制作，然后運(yùn)行調(diào)試無(wú)誤后，才完成整個(gè)系統(tǒng)的設(shè)計(jì)工作。2. 更改記錄：使用Date控件的方法Edit來(lái)對(duì)一條記錄進(jìn)行更改。第七章：系統(tǒng)測(cè)試 ：發(fā)布系統(tǒng) 在VB的菜單欄中選擇“文件”224。六、參考文獻(xiàn)書(shū)名或資料名作者出版社VB6/.NET編程實(shí)例精選陳學(xué)、紹山等四川電子音像出版社Visual Basic 佳文工作室電子工業(yè)出版社軟件工程張海藩人民郵電出版社電腦應(yīng)用疑難問(wèn)題與技巧1000唐凱軍四川電子音像出版社軟星工作室軟星教學(xué)軟件制作Visual Basic編程資源大全VB木屋清華大學(xué)出版社電腦報(bào)2004年合訂本（下）電腦報(bào)編輯社西南師范大學(xué)出版社Microsoft MSDN LibraryMicrosoftMicrosoft Corporation大型圖書(shū)館管理系統(tǒng)設(shè)計(jì) 劉 明無(wú)VB中使用API操作注冊(cè)表李林森無(wú)大型賓館的管理理念 華孝清求實(shí)出版社七、附錄（源代碼） 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。窗體大小被改變時(shí)，網(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 = 打開(kāi)客戶信息表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