【正文】 Exit SubEnd SubPrivate Sub end_Click() Unload Me = TrueEnd Sub計(jì)算機(jī)與通信學(xué)院課程設(shè)計(jì)評分表課題名稱：賓館客房信息管理系統(tǒng)項(xiàng) 目評 價設(shè)計(jì)方案的合理性與創(chuàng)造性設(shè)計(jì)與調(diào)試結(jié)果設(shè)計(jì)說明書的質(zhì)量答辯陳述與回答問題情況課程設(shè)計(jì)周表現(xiàn)情況綜合成績 教師簽名： 日 期： 。 Next Exit SubErrHandler: 39。 BeginPage = EndPage = NumCopies = For i = 1 To NumCopies 39。 39。 = True On Error GoTo ErrHandler 39。打印住宿登記單據(jù) Dim BeginPage, EndPage, NumCopies, i 39。/////////////////////////////////////////////////////////////////////////////// ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False = False: = False: = False = False: = True: = True : ZSDJ(0).Enabled = False Else H$ = MsgBox(請確認(rèn)姓名、證件號碼和入住人數(shù)都已經(jīng)填寫, 48, Tips) End IfEnd SubPrivate Sub cancel_Click() 39。更新提醒表 (remname) = (remdate) = (remtype) = (remstatue) = 1 (remuser) = NowUser f$ = MsgBox(操作成功, 64, Tips) 39。 39。 amp。===========================!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!11 Set InLog = (select * from cmanage) If ZSDJ(0).Text And ZSDJ(1).Text And And ZSDJ(6).Text Then If Then (umber) = If ZSDJ(0).Text Then (ame) = ZSDJ(0).Text If Then (cictype) = If ZSDJ(1).Text Then (cium) = ZSDJ(1).Text If ZSDJ(2).Text Then (caddress) = ZSDJ(2).Text If Then (ctel) = If Then (croom) = If Then (cintype) = If Then (csex) = If Then (cmember) = If ZSDJ(4).Text Then (ctype) = ZSDJ(4).Text If Then (cindate) = If ZSDJ(5).Text Then (cprice) = Val(ZSDJ(5).Text) If ZSDJ(9).Text Then (cmshould) = ZSDJ(9).Text If ZSDJ(10).Text Then (cya) = Val(ZSDJ(10).Text) If Then (coutdate) = (cstatue) = 1 39。設(shè)置控件有效或無效 = True: = False: = False: ZSDJ(8).Enabled = True ZSDJ(10).Enabled = True: = True: = True = True: ZSDJ(0).Enabled = True: ZSDJ(0).SetFocus = Exit Sub39。 Second(Time) 39。 Hour(Time) amp。 Month(Date) amp。)39。查詢空閑房間信息Set Room = (select * from roomlogin where rstatue=39。按回車鍵ZSDJ(1)獲得焦點(diǎn)End SubPrivate Sub DBCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。ZSDJ(11)獲得焦點(diǎn) Case 11 If KeyCode = vbKeyReturn Then 39。按回車鍵ZSDJ(6)獲得焦點(diǎn) Case 6 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus Case 8 If KeyCode = vbKeyReturn Then ZSDJ(10).SetFocus 39。按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 4 If KeyCode = vbKeyReturn Then ZSDJ(5).SetFocus 39。按回車鍵ZSDJ(2)獲得焦點(diǎn) Case 2 If KeyCode = vbKeyReturn Then ZSDJ(3).SetFocus 39。計(jì)算提醒日期 End If End SelectEnd SubPrivate Sub ZSDJ_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case Index Case 0 If KeyCode = vbKeyReturn Then 39。計(jì)算實(shí)際宿費(fèi) Case 10 If ZSDJ(10).Text Then ZSDJ(10).Text = Val(ZSDJ(10).Text) 39。賦值給ZSDJ(9) ZSDJ(8).Text = 100 = + Val(ZSDJ(6).Text) 39。賦值給ZSDJ(8) End IfEnd SubPrivate Sub ZSDJ_Change(Index As Integer) Select Case Index Case 6 ZSDJ(7).Text = Format(Val(ZSDJ(6).Text) * Val(ZSDJ(5).Text), ) 39。ZSDJ(8)獲得焦點(diǎn) End If If = 招待 Then ZSDJ(8).Enabled = True 39。設(shè)置主窗體有效End SubPrivate Sub Combo2_Click() If = 折扣 Then ZSDJ(8).Enabled = True 39。初始化日期及時間 = NowUser 39。 39。 amp。更新記錄msg$ = MsgBox(添加成功, 64, Success!)Unload MeEnd If End SubPrivate Sub Command2_Click() = : = : = = : = : = End SubPrivate Sub Command3_Click() = TrueUnload MeEnd Sub 賓客入住 Dim i As Integer 39。================================================!!!!!!!!!!!!!!!!!!!!!!!!!!!39。 Hour(Time) amp。 Month(Date) amp。Private Const HTCAPTION = 2Dim Emp As RecordsetPrivate Sub DTPicker1_Change() = Year(Date) Year()End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 39。H112Private Const SC_MOVE = amp。 \)End SubPublic Sub bground()If bgi = 1 Then = = = = = Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload ViewUnload changelogin: Unload findLogout: Unload find: ElseIf bgi = 0 Then = Nothing = Nothing = Nothing = Nothing = NothingUnload findEm: Unload findlogin: Unload fingG: Unload In