【正文】 Exit Sub End Sub Private Sub end_Click() Unload Me = True End Sub 第 25 頁 共 25 頁 計(jì)算機(jī)與通信學(xué)院課程設(shè)計(jì)評(píng)分表 課題名稱：賓館客房信息管理系統(tǒng) 項(xiàng) 目 評(píng) 價(jià) 設(shè)計(jì)方案的合理性與創(chuàng)造性 設(shè)計(jì)與調(diào)試結(jié)果 設(shè)計(jì)說明書的質(zhì)量 答辯陳述與回答問題情況 課程設(shè)計(jì)周表現(xiàn)情況 綜合成績 教師簽名： 日 期： 。 Next Exit Sub ErrHandler: 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(請(qǐng)確認(rèn)姓名、證件號(hào)碼和入住人數(shù)都已經(jīng)填寫 , 48, Tips) End If End Sub Private 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 第 23 頁 共 25 頁 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 Sub 39。 Second(Time) 39。 Hour(Time) amp。 Month(Date) amp。) 39。查詢空閑房間信息 Set Room = (select * from roomlogin where rstatue=39。按回車鍵 ZSDJ(1)獲得焦點(diǎn) End Sub Private 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 Select End Sub Private 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 If End Sub Private 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 第 21 頁 共 25 頁 If = 招待 Then ZSDJ(8).Enabled = True 39。設(shè)置主窗體有效 End Sub Private Sub Combo2_Click() If = 折扣 Then ZSDJ(8).Enabled = True 39。初始化日期及時(shí)間 = NowUser 39。 39。 amp。更新記錄 msg$ = MsgBox(添加成功 , 64, Success!) Unload Me End If End Sub 第 20 頁 共 25 頁 Private Sub Command2_Click() = : = : = = : = : = End Sub Private Sub Command3_Click() = True Unload Me End Sub 賓客入住 Dim i As Integer 39。================================================!!!!!!!!!!!!!!!!!!!!!!!!!!! 39。 Hour(Time) amp。 Month(Date) amp。 Private Const HTCAPTION = 2 Dim Emp As Recordset Private Sub DTPicker1_Change() 第 19 頁 共 25 頁 = Year(Date) Year() End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then 39。H112 Private Const SC_MOVE = amp。 \) End Sub Public Sub bground() If bgi = 1 Then = = = = = Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload View Unload changelogin: Unload findLogout: Unload find: Else If bgi = 0 Then = Nothing = Nothing = Nothing = Nothing = Nothing Unload findEm: Unload findlogin: Unload fingG: Unload InLogin: Unload LogoutBG: Unload managekf: Unload payoff: Unload View Unload changelogin: Unload findLogout: Unload find: End If End If End Sub 添加員工 Private Declare Function ReleaseCapture Lib user32 () As Long 39。定義數(shù)據(jù)庫 Public bgi As Integer 39。當(dāng)前用戶名 Public nowpower As String 39。但這不要緊，編程最大的喜事莫過于完成所有程序的那一刻，雖然后續(xù)還有很多維 護(hù)和修改任務(wù)，但是心里突然輕松下來那一刻的心情是無與倫比的。當(dāng)然這次課程設(shè)計(jì)因?yàn)槭菙?shù)據(jù)庫的課程設(shè)計(jì)，重點(diǎn)在數(shù)據(jù)庫的設(shè)計(jì)，所以對(duì)于軟件體系結(jié)構(gòu)風(fēng)格，沒有考慮，只求能達(dá)到目的！ 在本次課程設(shè)計(jì)中，要感謝各位老師的指導(dǎo)，也要感謝提供意見和建議的同學(xué)，才得以大致完成該設(shè)計(jì)。 由于公司規(guī)模和業(yè)務(wù)量大，因而信息系統(tǒng)不可能只在單機(jī)上運(yùn)行，所以才用 C/S，或 B/S 結(jié)構(gòu)比較合適。通過白盒黑盒測(cè)試，程序能正常的顯示結(jié)果和準(zhǔn)確報(bào)錯(cuò)，達(dá)到了單機(jī)運(yùn)行的效果。同時(shí)提供了兩套外觀，春天里這套外觀可以避免用戶的審美疲勞。繼而是軟 件的設(shè)計(jì)，由于對(duì) vb 還是算比較熟悉，因而有了數(shù)據(jù)庫的支