?? main_kfgl_krcx.frm

?? 星級酒店客房管理系統(tǒng)一套很不錯的系統(tǒng)
?? FRM
?? 第 1 頁 / 共 5 頁
字號:
上一頁 1 2 3 45
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":3F238
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":40D8A
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":428DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":4442E
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":45F80
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":47AD2
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":49624
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":4B176
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":4CCC8
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":4E81A
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":5036C
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":51EBE
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":53A10
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":55562
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":570B4
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":58C06
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":5A758
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":5C2AA
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":5DDFC
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":5F94E
            Key             =   ""
         EndProperty
         BeginProperty ListImage26 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":614A0
            Key             =   ""
         EndProperty
         BeginProperty ListImage27 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":62FF2
            Key             =   ""
         EndProperty
         BeginProperty ListImage28 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":64B44
            Key             =   ""
         EndProperty
         BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":66696
            Key             =   ""
         EndProperty
         BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":681E8
            Key             =   ""
         EndProperty
         BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":69D3A
            Key             =   ""
         EndProperty
         BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":6B88C
            Key             =   ""
         EndProperty
         BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":6D3DE
            Key             =   ""
         EndProperty
         BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":6EF30
            Key             =   ""
         EndProperty
         BeginProperty ListImage35 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":70A82
            Key             =   ""
         EndProperty
         BeginProperty ListImage36 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":725D4
            Key             =   ""
         EndProperty
         BeginProperty ListImage37 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":74126
            Key             =   ""
         EndProperty
         BeginProperty ListImage38 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":75C78
            Key             =   ""
         EndProperty
         BeginProperty ListImage39 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":777CA
            Key             =   ""
         EndProperty
         BeginProperty ListImage40 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":7931C
            Key             =   ""
         EndProperty
         BeginProperty ListImage41 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":7AE6E
            Key             =   ""
         EndProperty
         BeginProperty ListImage42 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":7C9C0
            Key             =   ""
         EndProperty
         BeginProperty ListImage43 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":7E512
            Key             =   ""
         EndProperty
         BeginProperty ListImage44 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":80064
            Key             =   ""
         EndProperty
         BeginProperty ListImage45 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":81BB6
            Key             =   ""
         EndProperty
         BeginProperty ListImage46 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":83708
            Key             =   ""
         EndProperty
         BeginProperty ListImage47 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":8525A
            Key             =   ""
         EndProperty
         BeginProperty ListImage48 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":86DAC
            Key             =   ""
         EndProperty
         BeginProperty ListImage49 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":888FE
            Key             =   ""
         EndProperty
         BeginProperty ListImage50 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":8A450
            Key             =   ""
         EndProperty
         BeginProperty ListImage51 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_krcx.frx":8BFA2
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "main_kfgl_krcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim DJ_query As Boolean
Dim DATA_edit As Boolean
Dim Field_Type As Integer
Dim Field_Value As String
Dim FindFieldC As String
Dim ZH_find As String
Dim ZH_find1 As String
Dim ZH_ysh As String
Dim SF_BG As Boolean
Dim BD_BG As Boolean
Dim Or_Field As String
Dim US_Field As String
Dim Data_Rec As Long
Dim TY_XG As Boolean
Dim FB_table1 As String

Public sqlStr As String

Private Sub Command1_Click()
    Adodc1.Recordset.Fields("級別") = "黑名單"
    Adodc1.Recordset.Fields("級別類型") = Me.Combo10.Text
    Adodc1.Recordset.Update
End Sub

Private Sub Command10_Click()
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("姓名") = KeRen.Text
    Adodc1.Recordset.Fields("英文姓名") = Text2.Text
    Adodc1.Recordset.Fields("性別") = Combo1.Text
    Adodc1.Recordset.Fields("出生日期") = Text4.Text
    Adodc1.Recordset.Fields("籍貫") = Text5.Text
    Adodc1.Recordset.Fields("長住地址") = Text6.Text
    Adodc1.Recordset.Fields("聯(lián)系電話") = Text7.Text
    Adodc1.Recordset.Fields("身份或職業(yè)") = Text8.Text
    Adodc1.Recordset.Fields("證件號碼") = Text9.Text
    Adodc1.Recordset.Fields("客人類別") = Combo2.Text
    Adodc1.Recordset.Fields("級別") = Text11.Text
    'Adodc1.Recordset.Fields("密碼") = Text12.Text
    'Adodc1.Recordset.Fields("折扣") = Text13.Text
    Adodc1.Recordset.Fields("操作員") = CzyName
    Adodc1.Recordset.Update
    Me.Picture5.Visible = False
End Sub

Private Sub Command11_Click()
    Me.Picture5.Visible = False
End Sub

Private Sub Command12_Click(Index As Integer)
    Dim i As Integer
    Dim Room_No2 As String
    On Error GoTo E3008
PE3008:
    Select Case Index
        Case Is = 0
            Unload Me
        Case Is = 2
            Adodc1.ConnectionString = My_PROVIDER
            Adodc1.CommandType = adCmdText
           Adodc1.RecordSource = sqlStr '"select * from " & FB_table1
           Adodc1.Refresh

        Case Is = 3
            If FindFieldC = "" Then
                MsgBox "請注意：您未選擇字段！", 48, "提示"
            Else
                Me.Picture1.Visible = True
                Me.Label13.Caption = "{" & FindFieldC & "}"
                Me.Field_Z.Text = ""
                Me.Field_Z.SetFocus
                If Not DJ_query Then
                    ZH_find1 = ""
                End If
            End If
        Case Is = 4
            If Not DJ_query Then
                DJ_query = True
                Me.Command12(4).Value = tbrPressed
            Else
                DJ_query = False
                Me.Command12(4).Value = tbrUnpressed
            End If
            
        Case Is = 1
            BB_type = "用戶檔案"
            Select Case Me.Caption
            Case "在住客人預(yù)付和消費表"
                BB_type = "報表"
            Case "掛帳明細(xì)報表"
                BB_type = "報表"
            End Select
            Set rtpRS = Adodc1.Recordset
            rtpTitle = Me.Caption
            Call rtpExcel
            
        Case Is = 5
            Or_Field = FindFieldC
            MsgBox "按 [" & Or_Field & "] 排序！", 64, "提示"
            Adodc1.ConnectionString = My_PROVIDER
            Adodc1.CommandType = adCmdText
            Adodc1.RecordSource = "select * from " & US_Field & " order by " & Or_Field
            Adodc1.Refresh
            Set DataGrid1.DataSource = Adodc1
            DataGrid1.Refresh
            DataGrid1.Visible = True
        
        Case Is = 6
            If Not (IsNull(Adodc1.Recordset.Fields("客人留言")) Or Len(Trim(Adodc1.Recordset.Fields("客人留言"))) = 0) Then
                MsgBox "請注意：客人{" & Adodc1.Recordset.Fields("姓名") & "}留言：" & Adodc1.Recordset.Fields("客人留言") & "！", 64, "留言提示"
            End If
            Registration_Type = "售出"
            Load_Statu = "使用"
            main_kfgl_ft.Show 1
'保存房態(tài)
    If Room_Statu = "空房" Then
        If Load_Statu = "使用" Then
            Adodc9.ConnectionString = My_PROVIDER
            Adodc9.CommandType = adCmdText
            Adodc9.RecordSource = "select * from 客房 where 房號 like '" & RoomNO & "'"
            Adodc9.Refresh
            Adodc9.Recordset.Fields("當(dāng)前狀態(tài)") = Registration_Type
            Adodc9.Recordset.Fields("出售方式") = Room_Use_Type
            Adodc9.Recordset.Fields("帳號") = Account_ID
            Adodc9.Recordset.Fields("住客") = 1
            Adodc9.Recordset.Update
            Adodc9.Recordset.Close
        End If
    Else
        If Room_Statu = "預(yù)訂" Then
            If Account_ID = QAccount_ID Then
                Adodc9.ConnectionString = My_PROVIDER
                Adodc9.CommandType = adCmdText
                Adodc9.RecordSource = "select * from 客房 where 房號 like '" & RoomNO & "'"
                Adodc9.Refresh
                Adodc9.Recordset.Fields("當(dāng)前狀態(tài)") = Registration_Type
                Adodc9.Recordset.Fields("出售方式") = Room_Use_Type
                Adodc9.Recordset.Fields("帳號") = Account_ID
                Adodc9.Recordset.Update
                Adodc9.Recordset.Close
            Else
                MsgBox "請注意：" & RoomNO & "房間當(dāng)前狀態(tài)是：[" & Room_Statu & "]，被[" & QAccount_ID & "]帳號" & Room_Share_Type & "，不能" & Registration_Type & "！", 48, "提示"
                Room_Update = False
            End If
        Else
            If Room_Statu = "售出" Then
上一頁 1 2 3 45
?? 文件大小 2761 K
?? 上傳用戶 cy_jing
?? 所屬分類酒店行業(yè)
??? 相關(guān)標(biāo)簽

#管理系統(tǒng)
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? main_kfgl_krcx.frm

?? 快捷鍵說明
