【正文】 End IfEnd SubPrivate Sub setpassword_Click() vbModalEnd SubPrivate Sub syslogin_Click() vbModalEnd SubPrivate Sub Timer1_Timer()Dim StrWeekDay As StringOn Error GoTo Errp: Select Case Weekday(Now()) Case 1 StrWeekDay = 星期日 Case 2 StrWeekDay = 星期一 Case 3 StrWeekDay = 星期二 Case 4 StrWeekDay = 星期三 Case 5 StrWeekDay = 星期四 Case 6 StrWeekDay = 星期五 Case 7 StrWeekDay = 星期六 End Select (1).Text = 當(dāng)前用戶： amp。 StrWeekDay amp。 + + 39。 .Execute End With MsgBox 備份數(shù)據(jù)成功!, vbOKOnly, End If Exit SubErrop: If 32755 Then MsgBox , vbOKOnly, End IfEnd SubPrivate Sub Command2_Click()On Error GoTo Errop: FileName = With DbCommand .CommandText = restore DataBase hotelDB from disk =39。 0 amp。最后單擊退出按鈕回到主界面。 + ordercondition + 39。 End If If = True Then roombedsum = Trim() StrSqlold = select typeorder,roomtype,explain,price1,price2,price3,price4,bed_num FROM shaparoom where bed_num = 39。 + shoupaima + 39。 39。此變量的目的是為了存儲登陸界面中的用戶名稱Sub Main() On Error GoTo errHandle 39。 。H1Const KEY_SET_VALUE = amp。H4Const KEY_ENUMERATE_SUB_KEYS = amp。 dsn 39?？刂瞥绦蜻\(yùn)行次數(shù) If Then MsgBox 娛樂休閑型酒店管理信息系統(tǒng)已啟動,不能再次啟動, vbInformation + vbOKOnly End End If Call get_text With DbConn If .State adStateClosed Then .Close End If End With Persist Security Info=True。zhou39。建立表頭 With DbCommand .CommandType = adCmdText .CommandText = Select bill from itemthink Set DbTempSet = .Execute End With If Not ( And ) Then With DbTempSet .MoveFirst While Not .EOF With zhangdan .AddItem (LTrim(RTrim(DbTempSet!bill))) End With .MoveNext Wend End With = 0 Else MsgBox 沒有按此帳單號碼消費(fèi)的客人明細(xì)！, vbOKOnly, End If With DbCommand .CommandText = Select handscode from itemthink Set DbTempSet = .Execute End With If Not ( And ) Then While Not (LTrim(RTrim(DbTempSet!handscode))) Wend = 0 Else MsgBox 沒有按此手牌號碼消費(fèi)的客人明細(xì)！, vbOKOnly, End If Errp: MsgBox , vbOKOnly, End SubPrivate Sub madeTitle()On Error GoTo Errp: With Xsheet3 .CellAlignment = flexAlignCenterCenter .Cols = 17 .TextMatrix(0, 0) = 手牌號碼 .TextMatrix(0, 1) = 帳單號碼 .TextMatrix(0, 2) = 項(xiàng)目識別碼 .TextMatrix(0, 3) = 項(xiàng)目代碼 .TextMatrix(0, 4) = 項(xiàng)目類型 .TextMatrix(0, 5) = 項(xiàng)目名稱 .TextMatrix(0, 6) = 規(guī) 格 .TextMatrix(0, 7) = 單 位 .TextMatrix(0, 8) = 單 價 .TextMatrix(0, 9) = 數(shù) 量 .TextMatrix(0, 10) = 金 額 .TextMatrix(0, 11) = 錄入工作站 .TextMatrix(0, 12) = 操作人員 .TextMatrix(0, 13) = 錄入時間 .TextMatrix(0, 14) = 技師工號 .TextMatrix(0, 15) = 立即付款 .TextMatrix(0, 16) = 是否已付款” .CellAlignment = flexAlignCenterCenter .ColWidth(0) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(1) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(2) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(3) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(4) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(5) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(6) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(7) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(8) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(9) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(10) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(11) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(12) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(13) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(14) = 1000 .CellAlignment = flexAlignCenterCenter .ColWidth(15) = 900 .CellAlignment = flexAlignCenterCenter .ColWidth(16) = 900 .ColWidth(7) = 1200 End WithErrp: MsgBox , vbOKOnly, End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End Sub打開系統(tǒng)幫助下的“關(guān)于系統(tǒng)” 就是對有關(guān)方面加以說明。 End If With DbCommand .CommandText = StrSqlold Set DbTempSet = .Execute End With With Xsheet2 .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() On Error GoTo Errp: = 1400 = 2000 Call makeTitle 39。建立表頭 With DbCommand .CommandType = adCmdText .CommandText = Select roomcode from roomstate Set DbTempSet = .Execute End With If Not ( And ) Then With DbTempSet .MoveFirst While Not .EOF With PosCbo .AddItem (LTrim(RTrim(DbTempSet!roomcode))) End With .MoveNext Wend End With = 0 Else MsgBox 沒有按此編號的客房！, vbOKOnly, End If With DbCommand .CommandText = Select roomtype from roomstate Set DbTempSet = .Execute End With If Not ( And ) Then While Not (LTrim(RTrim(DbTempSet!roomtype))) Wend = 0 Else MsgBox 沒有此種客房類型！, vbOKOnly, End If With DbCommand .CommandText = Select floor from roomstate Set DbTempSet = .Execute End With If Not ( And ) Then While Not (LTrim(RTrim(DbTempSet!fl