【正文】 H2Const KEY_CREATE_SUB_KEY = amp。Data Source= amp。對(duì)系統(tǒng)進(jìn)行錯(cuò)誤處理 39。 .CommandText = Select userPassword from hotellogin where username =39。 End If With DbCommand .CommandText = StrSqlnew Set DbTempSet = .Execute End With With Xsheet3 .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Rows 1, i 1) = (i 1) Next i Loop End With Exit SubErrp:MsgBox , vbOKOnly, End SubPrivate Sub Form_Load() = 1400 = 1100 On Error GoTo Errp: Call madeTitle 39。 + roombedsum + 39。 End If With DbCommand .CommandText = StrSql Set DbTempSet = .Execute End With With Xsheet .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To .TextMatrix(.Rows 1, i 1) = (i 1) Next i Loop End With Exit SubErrp:MsgBox , vbOKOnly, End SubPrivate Sub Commandexit_Click() Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo Errp: Call BuildTitle 39?！犊头啃畔⒉樵儭反a如下：Private Sub Commandfresh_Click() Call Commandquery_ClickEnd SubPrivate Sub Commandquery_Click()Dim StrSql As StringDim StrCon As StringDim i As IntegerDim bianhao As StringDim loucheng As StringDim roomleixing As StringDim ordercondition As StringOn Error GoTo Errp: Call BuildTitle If = True Then bianhao = Trim() StrSql = select roomcode,roomtype,floor,phone,roomstutus,reserved,reservetime,freetime,remark,selected,cleaned FROM roomstate where roomcode = 39。 CStr(Day(Now())) Else StrDate = StrDate amp。 + \ amp。 where username=39。 ) amp。 CStr(UserId) (2).Text = 歡迎您使用娛樂休閑型酒店管理信息系統(tǒng) (3).Text = CStr(Year(Now())) amp。調(diào)整窗體的位置（靠左面的距離） = 3200 39。前端開發(fā)工具采用Microsoft公司的專用數(shù)據(jù)庫應(yīng)用程序開發(fā)工具（VISIUAL BASIC ）版本。各階段可在局部上使用結(jié)構(gòu)化、模塊化的方法嚴(yán)格按照有效階段進(jìn)行開發(fā)，具體手段上盡量采用面向?qū)ο蟮拈_發(fā)形式，使形成的應(yīng)用軟件模塊具有很強(qiáng)的獨(dú)立性、適應(yīng)性和擴(kuò)展性。實(shí)際上，該行業(yè)面向市場(chǎng)在競(jìng)爭(zhēng)中不斷變化的特點(diǎn)，已經(jīng)決定了其管理信息系統(tǒng)軟件是一個(gè)與管理對(duì)象密切相關(guān)的有機(jī)組成部分，需要經(jīng)過認(rèn)真的和長期的調(diào)查分析，并以次為基礎(chǔ)去定制、去磨合，在設(shè)計(jì)和開發(fā)的進(jìn)程中尋找規(guī)律，以逐步完善。無論是業(yè)內(nèi)人士還是計(jì)算機(jī)系統(tǒng)開發(fā)者都難免被這類行業(yè)發(fā)展變化之快所困擾。進(jìn)入二十一世紀(jì)，信息管理系統(tǒng)在各行各業(yè)取得了突飛猛進(jìn)的發(fā)展，如銀行﹑車輛運(yùn)輸﹑學(xué)校﹑酒店等等。在開發(fā)后期，開發(fā)人員同用戶已經(jīng)有了充分的溝通，因此在一些后臺(tái)模塊的開發(fā)上也遵循了結(jié)構(gòu)化的生命周期法。定義此變量的目的是為了判斷登錄的次數(shù)Private Sub CmdOk_Click()If LoginCount 3 Then With DbCommand Set .ActiveConnection = DbConn .CommandType = adCmdText .CommandText = Select username,userpassword from hotellogin where username=39。******************************************************************************39。 日 amp。 + UserId + 39。 FileName amp。 CStr(Month(Now())) Else StrDate = StrDate amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub End If With DbCommand .CommandType = adCmdText .CommandText=insert into bill (bill,master,sex,certificate,certify_code,birthday,phone,address,unit,mastercode,guesttype,rebate,guestsum,male,female,shoes,start,willleave,housesum,deposit,confirmpeople,alreadypaid,remark,inputer,warning,cardid,forother,forwhose) Set DbTempSet = .Execute sMeg = 你的輸入信息已經(jīng)保存成功 MsgBox sMeg, vbOKOnly + vbExclamation, 提示 End WithErrp: MsgBox , vbOKOnly, End SubPrivate Sub Form_Load() On Error GoTo Errp: = 1400 = 2000 身份證 工作證 學(xué)生證 警官證 駕駛證 居住證 公務(wù)員 學(xué) 生 工 人 教 師 農(nóng) 民 軍 人 警 察 團(tuán)體 個(gè)人 男 女 是 否Errp: MsgBox , vbOKOnly, End Sub打開主界面的“客房管理”，選擇“客房信息查詢”目的就是對(duì)房間的編號(hào)、房間的類型、樓層、預(yù)定情況就行查詢。 + roomleixing + 39。 End If If = True Then roomprice = Trim() StrSqlold = select typeorder,roomtype,explain,price1,price2,price3,price4,bed_num FROM shaparoom where price1 = 39。 + zhangdanma + 39。 amp。Administrator39。Password= amp。 注冊(cè)表關(guān)鍵字安全選項(xiàng)...Const READ_CONTROL = amp。H10Const KEY_CREATE_LINK = amp。登錄成功 If LoginSucceeded Then AppRun = True Else Exit Sub End If End If Exit SuberrHandle: MsgBox 數(shù)據(jù)庫連接失敗，請(qǐng)檢查配置文件是否正確！, vbOKOnly, Resume Next End SubSysfunction （）Option ExplicitPublic dsn As StringPublic uid As StringPublic pwd As StringPublic username As StringPublic CompanyName As StringPublic usernamenew As String 39。 uid amp。Administrator39?！断到y(tǒng)退出》代碼如下：Private Sub Command1_Click()On Error GoTo Errp: With DbCommand 39。單擊查詢出現(xiàn)相關(guān)的數(shù)據(jù)，最后單擊退出回到主界面?！犊头款愋图翱头績r(jià)格查詢》代碼如下：Private Sub Commandexit_Click()Unload MeEnd SubPrivate Sub Commandfresh_Click() Call Commandquery_ClickEnd SubPrivate Sub makeTitle()On Error GoTo Errp: With Xsheet2 .CellAlignment = flexAlignCenterCenter .Cols = 8 .TextMatrix(0, 0) = 房型代碼 .TextMatrix(0, 1) = 房型名稱 .TextMatrix(0, 2) = 詳細(xì)說明 .TextMatrix(0, 3) = 普通價(jià)格 .TextMatrix(0, 4) = 長包價(jià)格 .TextMatrix(0, 5) = 優(yōu)惠價(jià)格 .TextMatrix(0, 6) = 鐘點(diǎn)價(jià)格 .TextMatrix(0, 7) = 床位數(shù)” CellAlignment = flexAlignCenterCenter .ColWidth(0) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(1) = 1800 .CellAlignment = flexAlignCenterCenter .ColWidth(2) = 3000 .CellAlignment = flexAlignCenterCenter .ColWidth(3) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(4) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(5) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(6) = 1500 .CellAlignment = flexAlignCenterCenter .ColWidth(7) = 1200 End WithErrp:MsgBox , vbOKOnly, End SubPrivate Sub Commandquery_Click()Dim StrSqlold As StringDim StrConold As StringDim i As IntegerDim roomleitype As StringDim roompr