【導讀】質的競爭，更是現(xiàn)代化管理手段的競爭。一個好的賓館管理系統(tǒng)的使用，將大大提高。享受，是新型現(xiàn)代化賓館、旅館的一個重要標志。的專家和計算機軟件開發(fā)的精英運用自己的理論知識共同建立。本論文采用VB作為程序設計語言。VB為開發(fā)人員提供可視化的設計環(huán)境，一個用VB編寫的程序由一系列獨立的代碼段組成，只有當對。序的控制者不是程序員而是用戶本身。VB具有先進的模塊化程序設計功能，這使得。另外，VB易于編程的原因，在于其擁有強大的內部函數(shù)。一個小組甚至是一個公司來做的大項目。作為一名自學VB的學生，選擇了賓館管理。系統(tǒng)中最重要的一個子系統(tǒng)——客房管理系統(tǒng)來成為我的論文主體。難免有些不妥之處，請領導予以指正。該系統(tǒng)需要完成如下功能：管理員的正確登陸，用戶密碼可以修改；開。本系統(tǒng)有66個房間，房間及顧客信息有3種狀態(tài)，即“入住”、開房、預訂房、退房以及查看信息等。開房、預訂房包括姓名、性別、房間類型、身

　　

【正文】 Sub 4 46客房管理的開房以及預定房間的程序代碼 Private Sub Combo2_Click() Dim i As String nser 27 Select Case Case 商務豪華間 Call find Case 單人間 Call find Case 豪華套房 Call find Case 標準間 Call find Case 商務間 Call find Case 總統(tǒng)套房 Call find End Select End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Load Form1 End Sub Sub find() Dim i As String i = select * from room where roomtype=39。 amp。 Trim() amp。 39。 rssser (i) 28 If And Then MsgBox 沒有找到該紀錄 , vbInformation, 系統(tǒng)提示 Exit Sub Else Set = rss End If End Sub Private Sub Command3_Click() = = = = = = End Sub Private Sub Text1_Change() End Sub 45 461 開房、預訂房時輸入房間號的程序代碼 Private Sub Command1_Click() nser Dim j As String j = select * from room where roomid=39。 amp。 Trim() amp。 39。 rssser (j) Select Case () Case 3 29 If Val() 301 Or Val() 313 Then MsgBox 單人間中無此房號！ Exit Sub End If Case 0 If Val() 401 Or Val() 413 Then MsgBox 標準間中無此房號！ Exit Sub End If Case 1 If Val() 601 Or Val() 613 Then MsgBox 商務間中無此 房號！ , vbInformation, 系統(tǒng)提示 Exit Sub End If Case 5 If Val() 701 Or Val() 713 Then MsgBox 豪華商務間中無此房號！ , vbInformation, 系統(tǒng)提示 Exit Sub End If Case 2 If Val() 501 Or Val() 513 Then MsgBox 豪華套房中無此房號！ , vbInformation, 系統(tǒng)提示 Exit Sub End If Case 4 If Val() 801 Then MsgBox 總統(tǒng)套房中無此房號！ , vbInformation, 系統(tǒng)提示 Exit Sub End If 30 End Select If And Then MsgBox 無此房間號碼 , vbInformation, 系統(tǒng)提示 ElseIf (roomkf) = 1 Then MsgBox 此房間已有顧客！ , vbInformation, 系統(tǒng)提示 Exit Sub ElseIf (roomdf) = 1 Then MsgBox 此房間已有人預定！ , vbInformation, 系統(tǒng)提示 Exit Sub Else Call bckf MsgBox 數(shù)據(jù)保存完成 , vbInformation, 系統(tǒng)提示 Call clean End If End Sub Sub bckf() (gkname).Value = (gksex).Value = (roomid).Value = (roomsfz).Value = (roomyj).Value = (roomnum).Value = (kfdate).Value = (roomdf).Value = 1 End Sub Sub clean() Load frmdf 31 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Text1_Change() End Sub 47 退房程序代碼 Private Sub Command1_Click() On Error Resume Next (roomkf) = (roomdf) = (gkname) = (gksex) = (roomsfz) = (roomyj) = (roomnum) = Unload Me End Sub Private Sub Command2_Click() On Error Resume Next Dim SQL As String SQL = select *from room where roomid = 39。 amp。 Trim() amp。 39。 rssser (SQL) Set = rss 32 = (gkname) = (kfdate) = (price) = Now = Int( ) * Val() End Sub Private Sub DataGrid1_Click() End Sub Private Sub Form_Load() nser End Sub 48 查找信息的程序代碼 Private Sub Combo1_Change() End Sub Private Sub Command1_Click() If = Or = Then MsgBox 不能為空！ , vbInformation, 系統(tǒng)提示 Exit Sub End If nser Dim SQL As String If = 0 Then SQL = select *from room where roomtype = 39。 amp。 Trim() amp。 39。 ElseIf = 1 Then SQL = select *from room where gkname = 39。 amp。 Trim() amp。 39。 33 End If rssser (SQL) Set = rss End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = amp。 amp。 \流氓兔越獄 .swf End Sub