Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'歡迎你下載使用本代碼，本份代碼由程序太平洋提供下載學習之用
'聲明:
'1.本站所有代碼的版權歸原作者所有，如果你使用了在本站下載的源代碼
'  引起的一切糾紛(后果)與本站無關,請您尊重原作者的勞動成果！
'2.若本站在代碼上有侵權之處請您與站長聯系，站長會及時更正。
'網站：http://www.dapha.net
'論壇：http://www.5ivb.net
'Email:dapha@etang.com
'CopyRight 2001-2005 By dapha.net
'整理時間：2003-12-8 12:22:14

'星級酒店管理系統最初功能演示版,提供所有星級酒店管理中的客房管理,
'房態管理,客史管理,客人資料管理,帳務管理,報表管理,餐飲收費管理
'菜譜管理,夜審處理,數據庫備份等功能.所有功能皆可以運行,(但有一些BUG未處理)
'此代碼完全可以完成星級酒店上述管理功能.(提供者:帥)
'--------------------------------------------------------------
'代碼編寫于:2001.12  系統分析:帥   代碼編寫:帥    版權所有:帥
'--------------------------------------------------------------
'本份代碼僅提供給程序太平洋的所有朋友學習,研究之用.
'其它網站一律不得轉載,否則為侵權行為,本人保留法律追訴權力.
'這也是本人最早的VB版程序,代碼質量不好.望笑納.:)
'--------------------------------------------------------------
'提供日期:2003-05-31    提供者:帥
'--------------------------------------------------------------
'系統提從與ACCESS或SQL相接,在登錄時,選擇全局數據庫,就與SQL數據庫
'連接,字符串存放在SERVER.DAT文本文件中;選擇本地數據庫,與本地ACCESS
'數據庫相連,連接字符串存放在LOCAT.DAT文件中.(當前存放為e:\hotel2\room.mdb)
'---------------------------------------------------------------
'將ACCESS中所有表導入SQL中,并將有的表中的ID字段改為自動編碼,就可以使用.
'---------------------------------------------------------------------
'
'

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    Combo1.Text = "全局服務器"
    Command3.SetFocus
    
End Sub

Private Sub Command1_Click()
    Dim MeVer As String
    Dim Czy_Type As String
    Dim strPass As String
    Dim bz0 As Integer
    Dim i As Integer
    
    MeVer = "2003.01.001"
    
    Registration_Type = ""
    Account_ID = ""
    QAccount_ID = ""
    
    On Error GoTo ERR_13
    
    If Len(Text1) > 0 Then
                Adodc1.ConnectionString = My_PROVIDER
                Adodc1.CommandType = adCmdText
                Adodc1.RecordSource = "select * from 用戶 where username like '" & Me.Text1.Text & "' and userno like '" & Me.Text2.Text & "'"
                Adodc1.Refresh
                CzyPassWord = Me.Text2.Text
                If Adodc1.Recordset.RecordCount > 0 Then
                PASSed1 = True
                CzyName = Text1
                CzyType = Adodc1.Recordset.Fields("usertype")
                Czy_Type = Adodc1.Recordset.Fields("user_type")
                
                Adodc1.Recordset.Close
                Adodc1.ConnectionString = My_PROVIDER
                Adodc1.CommandType = adCmdText
                Adodc1.RecordSource = "select * from 參數"
                Adodc1.Refresh
                Account_ID = Format(Adodc1.Recordset.Fields("帳號"), "000000")
                System_Date = Adodc1.Recordset.Fields("系統日期")
                Half_times = Adodc1.Recordset.Fields("退房半價始時間")
                Half_time = Adodc1.Recordset.Fields("退房半價終時間")
                System_Statu = Adodc1.Recordset.Fields("系統狀態")
                TongZhi = IIf(IsNull(Adodc1.Recordset.Fields("通知")), "", Adodc1.Recordset.Fields("通知"))
                SoftVerSion = Adodc1.Recordset.Fields("版本號")
                Adodc1.Recordset.Close
                If MeVer <> SoftVerSion Then
                    MsgBox "重要提示：" & Chr(13) & Chr(13) & "    當前軟件已升級到" & SoftVerSion & "版，請到服務器下載新軟件后，" & Chr(13) & Chr(13) & "再運行升級軟件！", 64, "升級提示"
                    PASSed1 = False
                    Unload Me
                End If
                If TongZhi <> "" Then
                    MsgBox "通知：" & Chr(13) & Chr(13) & TongZhi, 64, "通知"
                End If
                If System_Statu = "正常" Then
                    Unload Me
                Else
                    MsgBox "請稍候：系統現在正處于  [" & System_Statu & "] 狀態！", 64, "提示"
                    PASSed1 = False
                    Unload Me
                End If
                Else
                    MsgBox "請注意：用戶名或口令錯誤！", 48, "錯誤信息"
                    
                End If
                
    Else
        MsgBox "請輸入您的姓名", 48, "提示信息"
    End If
    
    
    Exit Sub
    
ERR_13:
    MsgBox Err.Description & " 或服務器登錄失敗，請檢查或與系統管理員聯系！", 48, "提示"
    Exit Sub
    
End Sub

Private Sub Command2_Click()
    PASSed1 = False
    Unload Me
    
End Sub


Private Sub Command3_Click()
    Dim i, j, Field_COUNT As Integer
    Dim strCMD As Command

    
    If Combo1.Text = "全局服務器" Then
        Open App.Path & "\server.dat" For Input As #1
        Input #1, FP_ZDLX
        Input #1, My_USERID
        Input #1, My_PASSWORD
        Input #1, My_DATASOURCE
        Input #1, My_INITIALCATALOG
        Input #1, My_PROVIDER
        Input #1, BK_PROVIDER
        Close #1
        DATA_SERVER = "全局服務器"
    Else
        If Combo1.Text = "本地服務器" Then
        Open App.Path & "\locat.dat" For Input As #1
        Input #1, FP_ZDLX
        Input #1, My_USERID
        Input #1, My_PASSWORD
        Input #1, My_DATASOURCE
        Input #1, My_INITIALCATALOG
        Input #1, My_PROVIDER
        Input #1, BK_PROVIDER
        Close #1
        DATA_SERVER = "本地服務器"
        Me.Check1.Value = 0
        Else
            MsgBox "請注意：服務器選擇錯誤！", 48, "提示"
            Combo1.Text = "全局服務器"
            Combo1.SetFocus
            Exit Sub
        End If

    End If
    Me.Command1.Enabled = True
    Me.Text1.SetFocus
    
    Exit Sub
    
Err_Process:
   MsgBox "信息：操作錯誤！", 16, "警告"
   Exit Sub
End Sub

Private Sub Form_Load()

    On Error GoTo Err_Process1
    
    封面.Show 1
    RoomNO = ""
    Room_Rate = 0
    
    TableName(0) = "CATVUSER"
    TableName(1) = "SF"
    TableName(2) = "USER_AZ"
    TableName(3) = "USER_BQ"
    TableName(4) = "USER_BT"
    TableName(5) = "USER_FT"
    TableName(6) = "USER_GH"
    TableName(7) = "USER_HF"
    TableName(8) = "USER_XH"
    TableName(9) = "USER_ZD"
    TableName(10) = "菜單"
    TableName(11) = "參數"
    TableName(12) = "發票欄目原始數據"
    TableName(13) = "發票自定義"
    TableName(14) = "各類業務收費標準"
    TableName(15) = "擴展參數"
    TableName(16) = "片區"
    TableName(17) = "安裝工"
    TableName(18) = "收費標準"
    TableName(19) = "收費類型"
    TableName(20) = "用戶"
    TableName(21) = "終端類型"

    Me.Combo1.AddItem "全局服務器"
    Me.Combo1.AddItem "本地服務器"
    
    Open App.Path & "\BKPIC.dat" For Input As #1
    Input #1, BKPicPath
    Input #1, PianQu
    Input #1, DWMC
    Close #1
                
    Open App.Path & "\server.dat" For Input As #1
    Input #1, My_USERID
    Input #1, My_PASSWORD
    Input #1, My_DATASOURCE
    Input #1, My_INITIALCATALOG
    Input #1, My_PROVIDER
    Close #1
    PASSed1 = False
    
    

    Exit Sub
    
Err_Process1:
    MsgBox "錯誤信息：讀取系統參數錯誤！", 64, "警告"
    Exit Sub
    
End Sub

Private Sub Form_Unload(Cancel As Integer)


    Unload Me
    
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc(Chr(13)) Then
        Text2.SetFocus
    End If
        
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc(Chr(13)) Then
        If Command1.Enabled Then
            Command1.SetFocus
        Else
            MsgBox "請注意：您未連接到數據庫服務器！", 48, "提示"
            Text2.SetFocus
        End If
    End If

End Sub