main_kfgl_ctbb.frm

星级酒店客房管理系统一套很不错的系统

            Picture         =   "main_kfgl_ctbb.frx":5638
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":718A
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":8CDC
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":A82E
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":C380
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":DED2
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":FA24
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":11576
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":130C8
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":14C1A
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":1676C
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":182BE
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":19E10
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":1B962
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":1D4B4
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":1F006
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":20B58
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":226AA
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":241FC
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":25D4E
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":278A0
            Key             =   ""
         EndProperty
         BeginProperty ListImage25 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":293F2
            Key             =   ""
         EndProperty
         BeginProperty ListImage26 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":2AF44
            Key             =   ""
         EndProperty
         BeginProperty ListImage27 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":2CA96
            Key             =   ""
         EndProperty
         BeginProperty ListImage28 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":2E5E8
            Key             =   ""
         EndProperty
         BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":3013A
            Key             =   ""
         EndProperty
         BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":31C8C
            Key             =   ""
         EndProperty
         BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":337DE
            Key             =   ""
         EndProperty
         BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":35330
            Key             =   ""
         EndProperty
         BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":36E82
            Key             =   ""
         EndProperty
         BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":389D4
            Key             =   ""
         EndProperty
         BeginProperty ListImage35 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":3A526
            Key             =   ""
         EndProperty
         BeginProperty ListImage36 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":3C078
            Key             =   ""
         EndProperty
         BeginProperty ListImage37 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":3DBCA
            Key             =   ""
         EndProperty
         BeginProperty ListImage38 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":3F71C
            Key             =   ""
         EndProperty
         BeginProperty ListImage39 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":4126E
            Key             =   ""
         EndProperty
         BeginProperty ListImage40 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":42DC0
            Key             =   ""
         EndProperty
         BeginProperty ListImage41 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":44912
            Key             =   ""
         EndProperty
         BeginProperty ListImage42 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":46464
            Key             =   ""
         EndProperty
         BeginProperty ListImage43 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":47FB6
            Key             =   ""
         EndProperty
         BeginProperty ListImage44 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":49B08
            Key             =   ""
         EndProperty
         BeginProperty ListImage45 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":4B65A
            Key             =   ""
         EndProperty
         BeginProperty ListImage46 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":4D1AC
            Key             =   ""
         EndProperty
         BeginProperty ListImage47 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":4ECFE
            Key             =   ""
         EndProperty
         BeginProperty ListImage48 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":50850
            Key             =   ""
         EndProperty
         BeginProperty ListImage49 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":523A2
            Key             =   ""
         EndProperty
         BeginProperty ListImage50 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "main_kfgl_ctbb.frx":53EF4
            Key             =   ""
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "main_kfgl_ctbb"
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

Private Sub Command1_Click(Index As Integer)
    Dim i As Integer
    
    'On Error GoTo E3008

    Select Case Index
        Case 0

            Unload Me
        
        Case 2
            Adodc1.ConnectionString = My_PROVIDER
            Adodc1.CommandType = adCmdText
            Adodc1.RecordSource = "select * from " & FB_table1
            Adodc1.Refresh

            
        Case 1
            BB_type = "报表"
            BB_title = Me.Caption
            万能报表.Show 1
    End Select
End Sub


Private Sub Form_Activate()
With DataGrid1
    '.Top = Picture1.Height
    .Width = .Parent.Width
   ' .Height = .Parent.Height - Picture1.Height - 400
End With
End Sub

Private Sub Form_Load()

'MDIForm1.Picture1.Visible = False
    Dim Total1(80) As Currency
    Dim Total2(80) As Long
    Dim i As Long
    
    For i = 0 To 19
        Total1(i) = 0
        Total2(i) = 0
    Next

    FindFieldC = "帐号"
    ZH_find = ""
    ZH_find1 = ""
    DJ_query = False
    ZH_ysh = " like "
    SF_BG = False
    BD_BG = False
    Or_Field = " 帐号"
    US_Field = ""
    Select Case Query_Type
    Case "餐厅报表"
        Me.Caption = "餐厅营业报表"
        Me.Label1.Caption = "餐厅营业报表"
        Me.Label2.Caption = "餐厅营业报表"
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 餐厅营业表 where 发票号 like '999999' and 操作员 like '" & CzyName & "'"
        Adodc1.Refresh
        If Adodc1.Recordset.RecordCount > 0 Then
            While Not Adodc1.Recordset.EOF
                Adodc1.Recordset.Delete
                Adodc1.Recordset.Update
                Adodc1.Recordset.MoveNext
            Wend
        End If
        Adodc1.Recordset.Close
        Adodc1.ConnectionString = My_PROVIDER
        Adodc1.CommandType = adCmdText
        Adodc1.RecordSource = "select * from 餐厅营业表"
        Adodc1.Refresh
        FB_table2 = "  餐厅营业表 where 日期 like '" & System_Date & "'"
        US_Field = "   餐厅营业表 where 日期 like '" & System_Date & "'"
        FB_table1 = FB_table2