【正文】 H10Const KEY_CREATE_LINK = amp。H4Const KEY_ENUMERATE_SUB_KEYS = amp。H1Const KEY_SET_VALUE = amp。 注冊表關(guān)鍵字安全選項(xiàng)...Const READ_CONTROL = amp。登錄成功 If LoginSucceeded Then AppRun = True Else Exit Sub End If End If Exit SuberrHandle: MsgBox 數(shù)據(jù)庫連接失敗，請檢查配置文件是否正確！, 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。 dsn 39。 。Password= amp。 uid amp?？刂瞥绦蜻\(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。此變量的目的是為了存儲登陸界面中的用戶名稱Sub Main() On Error GoTo errHandle 39。Administrator39。Administrator39。zhou39。 39。 amp?！断到y(tǒng)退出》代碼如下：Private Sub Command1_Click()On Error GoTo Errp: With DbCommand 39。建立表頭 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)方面加以說明。 + shoupaima + 39。 + zhangdanma + 39。單擊查詢出現(xiàn)相關(guān)的數(shù)據(jù)，最后單擊退出回到主界面。 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。 End If If = True Then roombedsum = Trim() StrSqlold = select typeorder,roomtype,explain,price1,price2,price3,price4,bed_num FROM shaparoom where bed_num = 39。 End If If = True Then roomprice = Trim() StrSqlold = select typeorder,roomtype,explain,price1,price2,price3,price4,bed_num FROM shaparoom where price1 = 39?！犊头款愋图翱头績r格查詢》代碼如下：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) = 普通價格 .TextMatrix(0, 4) = 長包價格 .TextMatrix(0, 5) = 優(yōu)惠價格 .TextMatrix(0, 6) = 鐘點(diǎn)價格 .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