【導(dǎo)讀】購買設(shè)計(jì)QQ：382540551全套包括:開題報(bào)告,論文,源程序,源代碼,館管理信息系統(tǒng)及時(shí)了解各個(gè)環(huán)節(jié)中信息的變更，有利于提高管理效率。系統(tǒng)開發(fā)的總體任務(wù)是實(shí)現(xiàn)賓館各種信息的系統(tǒng)化、規(guī)范化和自動(dòng)化。面積、床位數(shù)量、住房單價(jià)、是否有空調(diào)、電視機(jī)、電話以及單獨(dú)衛(wèi)生間等。姓名、顧客身份證號(hào)碼、入住日期、折扣、備注信息等。針對(duì)一般賓館管理信息系統(tǒng)的需求，通過對(duì)賓館管理過程的內(nèi)容和流程分析，訂房信息實(shí)體、結(jié)算信息實(shí)體。各個(gè)實(shí)體具體的描述Ｅ-Ｒ圖如下：。持的實(shí)際數(shù)據(jù)模型，即：數(shù)據(jù)庫的邏輯結(jié)構(gòu)。

　　

【正文】 PRC_CI_AS NULL, [user_Des] [char](10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] 創(chuàng)建客房標(biāo)準(zhǔn)信息表格 roomtype CREATE TABLE [dbo].[roomtype]( [typeid][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [typename][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, [area][numeric](5,0) NULL, [bednum][numeric](2,0) NULL, [haircondition][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelephone][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htelevision][char](2) COLLATE Chinese_PRC_CI_AS NULL, [htoilet][char](2) COLLATE Chinese_PRC_CI_AS NULL, [price][numeric](10,2)NULL ) ON [PRIMARY] 創(chuàng)建客房信息表格 rooms 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 CREATE TABLE [dbo].[rooms]( [roomNO][char](10) COLLATE Chinese_PRC_CI_AS NOT NULL, ⒍ 賓館管理信息系統(tǒng) 具體程序?qū)崿F(xiàn) ⑴ 創(chuàng)建公用模塊 添加公共數(shù)據(jù)操作函數(shù)，用以執(zhí)行各種 SQL 語句。添加函數(shù) ExecuteSQL，代碼如下： Public Function ExecuteSQL(ByValSQL As String,MsgString AsString)_ As ‘ 執(zhí)行 SQL 語句，并返回記錄集對(duì)象 Dim n As Dim rst As Dim sTokens() As String ‘異常處理 On Error GoTo ExecuteSQL_Error’ ‘用 Split 函數(shù)產(chǎn)生一個(gè)包含各個(gè)子串的數(shù)組 sTokens=Split(SQL) Set n=NEW ‘ 打開連接 ConnectString If InStr(“INSERT,DELETE,UPDATE”,UCase$(sTokens(0))) Then SQL End sub ‘ 添加全局變量，用來記錄各個(gè)窗口的讀寫狀態(tài)，代碼如下： Public flagTedit As Boolean ‘ 標(biāo)示是否進(jìn)入修改的窗體 Public flagRedit As Boolean Public flagBedit As Boolean Public flagCedit As Boolean Public gintCmode As Integer Public gintTmode As Integer ’ 記錄是添加還是修改狀態(tài)， 1 為添加， 2為修改 Public gintRmode As Integer Public gintBmode As Integer Public flagSedit As Boolean ⑵系統(tǒng)用戶管理模塊的創(chuàng)建 用戶管理模塊主要實(shí)現(xiàn)： 用戶登陸。 添加用戶。 修改用戶 具體客房標(biāo)準(zhǔn)添加代碼： Private Sub Form_Load() ‘載入窗 體后，判斷所處狀態(tài) Dim intCount As Integer Dim MsgText As String 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 Dim i As Integer If gintTmode=1 Then ‘ 判斷是否屬于添加狀態(tài) 編號(hào)的記錄 !”,vbOKOnly+vbExclamation,” 警告 ” txtItem(0).SetFocus Exit Sub End If End If txtSQL=”select * from roomtype where typeid’”amp。Trim(txtItem(0))amp?！薄痑nd typename=’”amp。Trim(txtItem(1))amp。”’” Set mrc=ExecuteSQL(txtSQL,MsgText) If =False Then MsgBox” 已經(jīng)存在相同客房標(biāo)準(zhǔn)的記錄 !”,vbOKOnly+vbExclamation,“警告 ” txtItem(1).Setfocus Exit Sub End If txtSQL=”delete from roomtype where typeid=’”amp。Trim(txtItem(0))amp?！薄?‘刪除已有記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) txtSQL=”select *from roottype” ‘添加新記錄 Set mrc=ExecuteSQL(txtSQL,MsgText) Loop End With End Sub Private Sub msgList_MouseUp(Button As Integer,Shift As Integer,x As Single,y As Single)‘選擇記錄，然后單擊鼠標(biāo)右鍵，觸發(fā)MouseUp 事件 If Button=2 And Shift=0 Then PopupMenu End If End Sub Private Sub menuModifyroomtype_Click() Dim intCount As Integer If flagTedit Then ‘ 判斷是否打開記錄窗體 If 1 Then fintTmode=2‘設(shè)置為修改狀態(tài) intCount=‘記下選擇記錄 =”select*from roomtype whe re typeid’”amp。Trim((intCo購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 unt,1))amp。”’” Else Call menuAddroomtype_Click End If Else =”select*from roomtype” End If End Sub Private Sub From_Resize()‘窗體變化時(shí)，調(diào)整標(biāo)簽和表格位置，使標(biāo)簽處于窗體的最上方，而表格始終處于標(biāo)簽下方 If vbMinimized And vbMinimized Then‘邊界處理 If 10* Then Exit Sub End If If + Exit Sub End If =‘控制控件的位置 =()/2 =++ = =+100 = End If End Sub ⑷刪除客房標(biāo)準(zhǔn) Private Sub menuDeleteroomtype_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If flagTedit Then ‘判斷是否打開記錄窗體 If 1 Then If MsgBox( “真的要?jiǎng)h除這條文件記錄么？ ” ，vbOKCancel+vbExclamation,” 警告 ”)=vbOK Then intCount= txtSQL=”delete from roomtype where typeid’”amp。Trim((intCount,1))amp?！薄? Set mrc=ExecuteSQL(txtSQL,MsgText) Unload frmRoomtype‘關(guān)閉記錄窗體 購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 =”select*from r oomtype” ‘重新選擇所有記錄 End If End If End If End Sub ⑸客房信息管理模塊的創(chuàng)建 客房信息管理模塊主要實(shí)現(xiàn)如下功能： 添加客房信息 修改客房信息 刪除客房信息 查詢客房信息 具體實(shí)現(xiàn)代碼如下： Private Sub From_Load()‘載入窗體時(shí)，自動(dòng)添加客房信息種類 Dim sSql As String Dim intCount As Integer Dim MsgText As String Dim mrcc As If gintRmode=1 Then ‘判斷是否處于添加狀態(tài) =amp?！疤砑?” txtSQL=”select DISTINCT typename from roomtype” Set mrc=ExecuteSQL(txtSQL,MsgText) If Not Then Do While Not cboItem(0).AddItem Trim((0)) Loop cboItem(0).ListIndex=0‘顯示記錄內(nèi)容 Else MsgBox “ 請(qǐng)先進(jìn)行客房標(biāo)準(zhǔn)設(shè) 置 !”,vbOKOnly+vbExclamation,“警告 ” =False Exit Sub End If ElseIf gintRmode=2 Then ‘判斷是否處于修改狀態(tài) Set mrcc=ExecuteSQL(txtSQL,MsgText)‘設(shè)置 SQL 語句顯示當(dāng)前選擇記錄 If =False Then With mrcc txtItem(0)=.Fields(0) For intCount=1 To 2 If Not IsNull(.Fields(intCount+1))Then‘判斷購買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 內(nèi)容是否為空 txtItem(intCount)=.Fields(intCount+1) End If Next intCount txtItem(3)=.Fields(5) txtSQL=”select DISTINCT typename from roomtype”