【正文】 age where ame like 39。 amp。] 掛帳，結(jié)帳，日?qǐng)?bào)表，追加押金[說明：，當(dāng)用戶選擇客戶號(hào)碼時(shí)候，系統(tǒng)自動(dòng)加載客戶信息，用戶添加押金后，保存時(shí)系統(tǒng)對(duì)cmanage表進(jìn)行修改，保存數(shù)據(jù)；結(jié)帳窗體。如果是掛帳，用戶可以選擇掛帳，在客戶結(jié)帳的時(shí)候，調(diào)出掛帳結(jié)帳窗體，系統(tǒng)自動(dòng)加載掛帳的單位，用戶選擇掛帳單位，系統(tǒng)自動(dòng)加載需還金額。而日?qǐng)?bào)表顯示smange里的信息，提供按日期查找的方法，打印當(dāng)天的帳務(wù)明細(xì)。 amp。在該處開始一直調(diào)試不出，后來發(fā)現(xiàn)在sql語(yǔ)句中對(duì)日期要加來格式說明是日期型的。當(dāng)選報(bào)修時(shí)候，系統(tǒng)自動(dòng)加載空閑的房間號(hào)。確定報(bào)修后。在主窗體中便會(huì)有提示需要維修的房間，可以通過房態(tài)查詢，查看需要維修的房間號(hào)。添加操作員的代碼為： If And And = (pwd) Then If Then (pwd) = MsgBox (密碼修改成功,退出操作員密碼修改!) = True Unload Me Else MsgBox (請(qǐng)輸入新密碼!!) End If Else If = Then MsgBox (請(qǐng)輸入操作員!) Else If (user) Then = MsgBox (無此操作員,請(qǐng)重新輸入!) End If End If If = Then MsgBox (請(qǐng)輸入操作員原密碼!) Else If (pwd) Then MsgBox (原密碼錯(cuò)誤,請(qǐng)重新輸入原密碼!) End If End If End If 這是才用 DAO ，這是另一種方法對(duì)數(shù)據(jù)庫(kù)操作cr = insert into pw values(39。 amp。,39。 amp。 ,39。) cr 這是直接用嵌入sql語(yǔ)句來插入記錄。在?？茖W(xué)校，曾學(xué)過VB語(yǔ)言，也開發(fā)過很多程序，所以vb語(yǔ)言成為首選。（1）可視畫編程，豐富的控件，隨用隨拖，對(duì)控件對(duì)象編程，很方便。有豐富的api接口。在對(duì)數(shù)據(jù)庫(kù)操作方面，引用了DAO 對(duì)象，使用DAO編程連接和操作。在數(shù)據(jù)庫(kù)方面，考慮編程方便，采用從sql中導(dǎo)出成access文件來進(jìn)行操作。到賓館調(diào)查和到網(wǎng)上收集信息，以及參考了其他信息管理系統(tǒng)，心里就有了輪廓。運(yùn)用相關(guān)的數(shù)據(jù)庫(kù)知識(shí)，設(shè)計(jì)好數(shù)據(jù)表，確定字段。有了數(shù)據(jù)庫(kù)作為整個(gè)設(shè)計(jì)的底層，就好象蓋房子有了骨架，而軟件就象是磚瓦，只是將骨架填充完善，給客戶一個(gè)好的外觀。通過將所有和客戶相關(guān)的財(cái)務(wù)信息都加到客戶信息里，避免了對(duì)多表的操作，避免了有可能會(huì)出現(xiàn)的參照完整性不一致的問題?？紤]到用戶使用的方便性，軟件主界面提供了很多入口，以及直觀的圖形顯示，方便用戶操作，因而也給客戶帶來方便，免去了客戶的很多等待時(shí)間，提升賓館的形象。整個(gè)程序完成了，又花了大量的時(shí)間對(duì)其進(jìn)行調(diào)試。接著在不同機(jī)環(huán)境器上測(cè)試，有些控件因?yàn)闆]有帶走，所以報(bào)錯(cuò)，后來帶上控件后都能正常運(yùn)行，在xp和win7上都能正常運(yùn)行。因時(shí)間關(guān)系所以沒能完成，只預(yù)留了接口，供以后開發(fā)擴(kuò)展用。本欲來讓老師答辯的，但因個(gè)人原因，在答辯那天趕回家了，所以沒得完成最終的答辯。再次感謝老師的指導(dǎo)！ 七、部分代碼 Public NowUser As String 39。當(dāng)前用戶權(quán)限Public mydb As 39。判斷背景風(fēng)格Public Sub LoadAccess()Set mydb = ( amp。獲取“變動(dòng)”信息Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const WM_SYSCOMMAND = amp。HF010amp。如果按下鼠標(biāo)左鍵 Dim ReturnVal As Long X = ReleaseCapture() ReturnVal = SendMessage(, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End IfEnd Sub Private Sub Form_Load() LoadAccess Set Emp = (select * from empl) = Year(Date) amp。 Day(Date) amp。 Minute(Time) = Year(Date) Year()End SubPrivate Sub Command1_Click() 39。缺少判斷員工號(hào)是否存在的信息If = Or = Or = Then msg$ = MsgBox(請(qǐng)確認(rèn) 員工號(hào)、員工姓名、職務(wù) 已經(jīng)輸入, 48, Error) Else(emid) = (ename) = (esex) = (ejob) = (eage) = Val()(etel) = (ejtime) = (ejage) = 39。定義一個(gè)整型變量Dim InLog As RecordsetDim Room As RecordsetDim Remind As RecordsetPrivate Sub Combo4_Click()Set Room = (select * from roomlogin where rname=39。 amp。)ZSDJ(4).Text = (rtype): ZSDJ(5).Text = (rprice)End SubPrivate Sub Combo5_click() = End SubPrivate Sub DTP3_Change()ZSDJ(6).Text = End SubPrivate Sub Form_Load()If bgi = 1 Then = If bgi = 0 Then = Nothing = Date: = Date: = Date 39。賦值給czy LoadAccessEnd SubPrivate Sub Form_Unload(Cancel As Integer) = True 39。設(shè)置ZSDJ(8)有效 ZSDJ(8).SetFocus 39。設(shè)置ZSDJ(8)有效 ZSDJ(8).Text = 0 39。計(jì)算折前宿費(fèi) ZSDJ(9).Text = ZSDJ(7).Text 39。計(jì)算退宿日期 Case 8 ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, ) 39。用val函數(shù)將字符串轉(zhuǎn)換為數(shù)字 = + Int(Val(ZSDJ(10).Text) / Val(ZSDJ(5).Text)) 39。按回車鍵Combo1獲得焦點(diǎn) Case 1 If KeyCode = vbKeyReturn Then ZSDJ(2).SetFocus 39。按回車鍵ZSDJ(3)獲得焦點(diǎn) Case 3 If KeyCode = vbKeyReturn Then 39。按回車鍵ZSDJ(5)獲得焦點(diǎn) Case 5 If KeyCode = vbKeyReturn Then ZSDJ(6).SetFocus 39。按回車鍵ZSDJ(10)獲得焦點(diǎn) Case 10 If KeyCode = vbKeyReturn Then ZSDJ(11).SetFocus 39。按回車鍵Comok獲得焦點(diǎn) End SelectEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus 39。ZSDJ(5)獲得焦點(diǎn)End SubPrivate Sub dj_Click()39。空閑39。On Error GoTo u = (rname)ZSDJ(4).Text = (rtype)ZSDJ(5).Text = (rprice)Set Room = (select * from roomlogin ) While Not If (rstatue) = 空閑 Then (rname) Wend = Year(Date) amp。 Day(Date) amp。 Minute(Time) amp。設(shè)置編號(hào) ZSDJ(8).Text = : ZSDJ(10).Text = 39。u: h$ = MsgBox(沒有空閑房間,客房已滿, 48, Error): = False: = False: = False: = True: = True End SubPrivate Sub ok_Click() 39。添加住宿預(yù)收信息 Set Room = (select * from roomlogin where rname=39。 amp。) (Rstatue) = 入住 Set Remind = (select * from reminder) 39。設(shè)置控件有效或無效 39。取消操作 For i = 0 To 11 ZSDJ(i).Enabled = False Next i = False: = False: = False = False: = False: = False: = False = TrueEnd SubPrivate Sub print_Click() 39。將 Cancel 設(shè)置成 True。顯示“打印”對(duì)話框。從對(duì)話框中獲取用戶選定數(shù)值。在此放置代碼，將數(shù)據(jù)發(fā)送到打印機(jī)。用戶按下了“取消”