【正文】 ice As StringDim roombedsum As StringOn Error GoTo Errp: Call makeTitle If = True Then roomleitype = Trim() StrSqlold = select typeorder,roomtype,explain,price1,price2,price3,price4,bed_num FROM shaparoom where roomtype = 39。 + loucheng + 39。接待登記入住代碼如下：Private Sub cmmdexit_Click() Unload MeEnd SubPrivate Sub Commsave_Click() Dim StrSql As String Dim StrCon As String Dim sMeg As String Dim yhbill As String Dim yhmaster As String Dim yhsex As String Dim yhcertificate As String Dim yhcertify_code As String Dim yhbirthday As String Dim yhphone As String Dim yhaddress As String Dim yhunit As String Dim yhmastercode As String Dim yhguesttype As String Dim yhrebate As String Dim yhguestsum As String Dim yhmale As String Dim yhfemale As String Dim yhshoes As String Dim yhstart As String Dim yhwillleave As String Dim yhhousesum As String Dim yhdeposit As String Dim yhconfirmpeople As String Dim yhalreadypaid As String Dim yhremark As String Dim yhinputer As String Dim yhwarning As String Dim yhcardid As String Dim yhforother As String Dim yhforwhose As String On Error GoTo Errp: yhbill = Trim() yhmaster = Trim() yhsex = Trim() yhcertificate = Trim() yhcertify_code = Trim() yhbirthday = Trim() yhphone = Trim() yhaddress = Trim() yhunit = Trim() yhmastercode = Trim() yhguesttype = Trim() yhrebate = Trim() yhguestsum = Trim() yhmale = Trim() yhfemale = Trim() yhshoes = Trim() yhstart = Trim() yhwillleave = Trim() yhhousesum = Trim() yhdeposit = Trim() yhconfirmpeople = Trim() yhalreadypaid = Trim() yhremark = Trim() yhinputer = Trim() yhwarning = Trim() yhcardid = Trim() yhforother = Trim() yhforwhose = Trim() If Trim() = Then sMeg = 帳單號(hào)碼 sMeg = sMeg amp。 .Execute End With MsgBox 恢復(fù)數(shù)據(jù)成功!, vbOKOnly, Exit SubErrop: MsgBox , vbOKOnly, End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo Errp: StrDate = CStr(Year(Now())) If Month(Now()) 10 Then StrDate = StrDate amp?！稊?shù)據(jù)備份恢復(fù)》代碼如下：Dim MdbComm As New Dim MdbSet As New Dim MdbPara As New Dim StrUserId As StringDim StrDate As StringDim FileName As StringDim RetValPrivate Sub Command1_Click()Dim RetVal As StringOn Error GoTo Errop: RetVal = MsgBox(您確定要進(jìn)行數(shù)據(jù)備份嗎？, vbYesNo, ) If RetVal = vbYes Then FileName = With DbCommand .CommandText = Backup DataBase hotelDB to disk =39。處理ToolBar功能On Error GoTo Errp Select Case Case Is = yhdl vbModal Case Is = yhgl vbModal Case Is = yhmm vbModal Case Is = shezhiback Call setbkg_Click Case Is = morenback Call clearbkg_Click Case Is = backuprestor vbModal Case Is = kefangdj vbModal Case Is = kefangchaxun vbModal Case Is = fangtypechaxun vbModal Case Is = xiaofeimingxi vbModal Case Is = aboutsystem vbModal Case Is = quitsystem vbModal End Select Exit SubErrp: MsgBox , vbOKOnly, 系統(tǒng)提示End SubPrivate Sub usermanage_Click() vbModalEnd SubPrivate Sub xiaofeiquery_Click() vbModalEnd Sub單擊系統(tǒng)管理的“密碼管理”目的是對(duì)您的密碼進(jìn)行保護(hù)，移防您的原始密碼被別人知道后，可以更改，重新用一個(gè)新的密碼來加以保護(hù)。 月 amp。* *39。，最終實(shí)現(xiàn)娛樂休閑型酒店管理系統(tǒng)的應(yīng)用目標(biāo)四、系統(tǒng)的開發(fā)進(jìn)度具體安排由于時(shí)間有限，具體工作安排如下： 第13周完成課題調(diào)研、開題報(bào)告及系統(tǒng)開發(fā)；第14周完成總體方案設(shè)計(jì)、數(shù)據(jù)庫設(shè)計(jì)；第15周完成模塊設(shè)計(jì)、輸入輸出設(shè)計(jì)；第16周完成具體實(shí)現(xiàn)：第17周完成系統(tǒng)各模塊的測(cè)試、修改及驗(yàn)收系統(tǒng)，同時(shí)上交畢業(yè)論文。系統(tǒng)的設(shè)計(jì)開發(fā)過程采用了快速原形法，結(jié)構(gòu)化方法和討論法相結(jié)合的混合方式，鑒于這類新酒店的應(yīng)用需求是不規(guī)范的和分批提出的，系統(tǒng)分析的深度和廣度只能在開發(fā)過程中逐步增加和完善，所以在開發(fā)初期一般無法完整的確定其總體設(shè)計(jì)方按。特別是對(duì)娛樂休閑型酒店的娛樂方式要求很高。娛樂休閑型酒店管理信息系統(tǒng)開題報(bào)告0582/23 周天才指導(dǎo)老師：徐莉一、 綜述計(jì)算機(jī)在旅游餐飲和娛樂休閑行業(yè)的應(yīng)用現(xiàn)已十分普遍，但相應(yīng)的管理信息軟件卻不象財(cái)會(huì)軟件那樣成熟、穩(wěn)定和規(guī)范，為大眾所知曉。二 、研究方向隨著改革開放的步伐，人民生活水平得到了極大的提高，人們對(duì)服務(wù)業(yè)的需求也越來越高。相反，按照娛樂休閑型酒店的實(shí)際業(yè)務(wù)流程重新進(jìn)行系統(tǒng)設(shè)計(jì)，到開發(fā)后期，就會(huì)發(fā)現(xiàn)這種淡化了住宿功能，而以洗浴服務(wù)為主線的接待和消費(fèi)方式還有一些規(guī)律性。本系統(tǒng)開發(fā)的重點(diǎn)有：，弄清管理信息系統(tǒng)的功能模塊，了解功能模塊之間的關(guān)聯(lián)和次序是關(guān)鍵。************************************************************************39。 CStr(Month(Now())) amp。 TimeExit SubErrp: MsgBox , vbOKOnly, End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As ) 39。 .Execute End With Unload Me Else MsgBox 你兩次輸入的新密碼不一樣，請(qǐng)重新輸入, vbOKOnly, 系統(tǒng)提示 = = End If Else MsgBox 你輸入的原始密碼與該用戶的登錄密碼不符，請(qǐng)重新輸入, vbOKOnly, 系統(tǒng)提示 = End If MsgBox (密碼修改成功) Exit SubErrp:MsgBox , vbOKOnly, End SubPrivate Sub Form_Activate()On Error GoTo Errp: Exit SubErrp: MsgBox , vbOKOnly, End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)On Error GoTo Errp: If KeyCode = 13 Then End If Exit SubErrp:End SubPrivate Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo Errp: If KeyCode = 13 Then End IfErrp: MsgBox , vbOKOnly, End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo Errp: If KeyCode = 13 Then End IfErrp: MsgBox , vbOKOnly, End Sub備份數(shù)據(jù)是相當(dāng)重要的，在電腦發(fā)生故障時(shí)，原來的數(shù)據(jù)可能丟失，但是您不要擔(dān)心，您已經(jīng)備份了數(shù)據(jù)，可以使原來的數(shù)據(jù)恢復(fù)。 39。查詢完畢后，單擊返回按鈕，回到主菜單。 End If If = True Then loucheng = Mid(Trim(), 1, 1) StrSql = select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleane FROM roomstate where floor = 39。最后，單擊退出回到主界面。建立表頭 With DbCommand .CommandType = adCmdText .CommandText = Select roomtype from shaparoom Set DbTempSet = .Execute End With If Not ( And ) Then Wit