【正文】 = 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 對不起，舊密碼錯(cuò)誤，無法更改密碼！, vbOKOnly, 密碼錯(cuò)誤 = = = Else If Then MsgBox 兩次輸入的密碼不同, vbOKOnly, 錯(cuò)誤 = = Else SaveSetting ajew, system, password, MsgBox 密碼設(shè)置成功，請保管好您的密碼 amp。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 BeginProperty Button5 {66833FEA858311D1B16A00C0F0283628} Style = 4 EndProperty BeginProperty Button6 {66833FEA858311D1B16A00C0F0283628} = 更改客戶信息 ImageIndex = 5 EndProperty BeginProperty Button7 {66833FEA858311D1B16A00C0F0283628} = 查詢客戶 ImageIndex = 6 EndProperty EndProperty Begin kfData Caption = Data1 Connect = Access DatabaseName = E:\畢業(yè)設(shè)計(jì)目錄\源代碼\ DefaultCursorType= 0 39。False Strikethrough = 0 39。Center Appearance = 0 39。 在此對我的畢業(yè)設(shè)計(jì)指導(dǎo)老師：XX講師XX講師XX講師表示感謝，謝謝他們對本系統(tǒng)開發(fā)的支持和對本人的耐心指導(dǎo)。1. 添加記錄：使用Date控件的方法AddNew來增加一條新的記錄。Visual Basic 、高效、易用的特性，并且加入了面向?qū)ο蟆⑦^程可視化、事件驅(qū)動(dòng)等軟件開發(fā)方面的最新技術(shù)，使的軟件的開發(fā)更加簡單，更加高效。在查找空房功能中，可以方便的查找不同規(guī)格類型的空客房。通過數(shù)據(jù)控件DATA，實(shí)現(xiàn)對數(shù)據(jù)庫中的各個(gè)表進(jìn)行添加、修改、刪除、移動(dòng)等操作?，F(xiàn)在使用的是VB 中的注冊表操作函數(shù)——SaveSetting、GetSetting、DeleteSetting,它們的使用比較簡單，唯一的不足之處是只能把信息記錄在指定的位置上。 根據(jù)一番初步的調(diào)查，發(fā)現(xiàn)現(xiàn)在一些賓館、酒店等服務(wù)行業(yè)，各種服務(wù)項(xiàng)目越來越多，需要管埋的數(shù)據(jù)也越來越多，導(dǎo)致數(shù)據(jù)管理難度比較大，而且這些數(shù)據(jù)資料非常重要。即：現(xiàn)在賓館、酒店的服務(wù)項(xiàng)目越來越多，需要管理的數(shù)據(jù)很多、很雜，但是這些數(shù)據(jù)又非常重要，而服務(wù)臺(tái)又不宜有太多的工作人員。編譯后的可執(zhí)行文件，也需要把數(shù)據(jù)庫文件和兩幅圖片文件與程序放在同一目錄下，否則程序無法啟動(dòng)，彈出出錯(cuò)框。 本系統(tǒng)就是通過數(shù)據(jù)控件綁定數(shù)據(jù)庫中表，使用程序代碼來進(jìn)行數(shù)據(jù)記錄的各種操作。服務(wù)員信息包括服務(wù)員的編號(hào)、姓名、性別、年齡、身份證號(hào)、聯(lián)系電話和本服務(wù)員管理的客房號(hào)。）II. 添加一個(gè)模塊apiandsub，聲明一些公用的變量和公用的子程序、聲明API函數(shù)，以便在系統(tǒng)代碼中調(diào)用。2. 全部最小化：使用窗體的屬性WindowState的取值等于1Minimized來實(shí)現(xiàn)各個(gè)窗體的最小化。True Height = 375 Left = 2040 TabIndex = 2 Top = 900 Width = 855 End Begin Text1 Height = 270 IMEMode = 3 39。Flat DataField = 所住(訂)房間 DataSource = kfData Height = 270 Index = 4 Left = 6500 TabIndex = 3 Text = 12345 Top = 550 Width = 1200 End Begin Image3 Appearance = 0 39。Center Caption = 性別 Height = 195 Index = 1 Left = 1000 TabIndex = 11 Top = 350 Width = 400 End Begin Label2 Alignment = 2 39。Dynaset RecordSource = kf Top = 0 Visible = 0 39。 Object = {5E9E78A0531B11CF91F6C2863C385E30}0。Flat DataField = 服務(wù)員姓名 DataSource = fwData Height = 270 Index = 8 Left = 600 TabIndex = 20 Top = 550 Width = 1000 End Begin Text1 Alignment = 2 39。Flat DataField = 身份證號(hào) DataSource = fwData Height = 270 Index = 11 Left = 2700 TabIndex = 23 Top = 550 Width = 1800 End Begin Text1 Alignment = 2 39。DISABLE Left = 1200 PasswordChar = * TabIndex = 6 Top = 240 Width = 1800 End Begin Text2 Height = 270 Left = 1200 TabIndex = 3 Top = 840 Width = 1800 End Begin Text3 Height = 270 Left = 1200 TabIndex = 2 Top = 1320 Width = 1800 End Begin ok Caption = 確 定 Default = 1 39。Align Top Height = 360 Left = 0 TabIndex = 0 Top = 0 Width = 7785 _ExtentX = 13732 _ExtentY = 635 ButtonWidth = 609 ButtonHeight = 582 AllowCustomize = 0 39。False Italic = 0 39。Flat DataField = 性別 DataSource = kfData Height