c_bgrbb.dfm

经典的酒店管理系统

            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label15: TLabel
            Left = 387
            Top = 149
            Width = 91
            Height = 14
            Caption = #26376#24179#22343#25151#20215#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label16: TLabel
            Left = 589
            Top = 133
            Width = 106
            Height = 14
            Caption = #26085#24179#22343#20986#31199#29575#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Label17: TLabel
            Left = 589
            Top = 149
            Width = 106
            Height = 14
            Caption = #26376#24179#22343#20986#31199#29575#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblRpjj: TLabel
            Left = 472
            Top = 133
            Width = 57
            Height = 14
            Caption = 'lblRpjj'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblYpjj: TLabel
            Left = 472
            Top = 149
            Width = 57
            Height = 14
            Caption = 'lblYpjj'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblRpjczl: TLabel
            Left = 688
            Top = 133
            Width = 73
            Height = 14
            Caption = 'lblRpjczl'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblYpjczl: TLabel
            Left = 688
            Top = 149
            Width = 73
            Height = 14
            Caption = 'lblYpjczl'
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -14
            Font.Name = #40657#20307
            Font.Style = [fsBold]
            ParentFont = False
          end
        end
      end
    end
  end
  inherited Panel2: TPanel
    Top = 257
    Width = 792
    Height = 281
    inherited DBGrid1: TDBGrid
      Width = 782
      Height = 271
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'D_XFXM'
          Title.Alignment = taCenter
          Title.Caption = #33829#19994#39033#30446
          Width = 80
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_JRYY'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#33829#19994
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_JRSH'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#25910#22238
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_JRYH'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#20248#24800
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_BYYY'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#26412#26376#33829#19994
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_BYYH'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#26412#26376#20248#24800
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_LJYY'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#32047#35745#33829#19994
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_LJSH'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#32047#35745#25910#22238
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_LJYH'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#32047#35745#20248#24800
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_LJYS'
          Title.Alignment = taCenter
          Title.Caption = #20170#26085#32047#35745#24212#25910
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZRBYYY'
          Title.Alignment = taCenter
          Title.Caption = #26152#26085#26412#26376#33829#19994
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZRBYYH'
          Title.Alignment = taCenter
          Title.Caption = #26152#26085#26412#26376#20248#24800
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZRLJYY'
          Title.Alignment = taCenter
          Title.Caption = #26152#26085#32047#35745#33829#19994
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZRLJSH'
          Title.Alignment = taCenter
          Title.Caption = #26152#26085#32047#35745#25910#22238
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZRLJYH'
          Title.Alignment = taCenter
          Title.Caption = #26152#26085#32047#35745#20248#24800
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'D_ZRLJYS'
          Title.Alignment = taCenter
          Title.Caption = #26152#26085#32047#35745#24212#25910
          Visible = True
        end>
    end
  end
  inherited Panel3: TPanel
    Top = 538
    Width = 792
    object Label1: TLabel [0]
      Left = 64
      Top = 11
      Width = 48
      Height = 12
      Caption = #26597#35810#26085#26399
    end
    inherited btnHelp: TBitBtn
      Left = 632
    end
    inherited btnClose: TBitBtn
      Left = 712
    end
    inherited btnPrint: TBitBtn
      Left = 552
      OnClick = btnPrintClick
    end
    object btnChartPrint: TBitBtn
      Left = 447
      Top = 5
      Width = 100
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #25171#21360#22270#34920
      TabOrder = 3
      OnClick = btnChartPrintClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 8
      Width = 49
      Height = 17
      Caption = #19977#32500
      TabOrder = 4
      OnClick = CheckBox1Click
    end
    object DateTimePicker1: TDateTimePicker
      Left = 120
      Top = 7
      Width = 129
      Height = 20
      CalAlignment = dtaLeft
      Date = 37379.1300773148
      Time = 37379.1300773148
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 5
      OnChange = DateTimePicker1Change
    end
    object ComboBox1: TComboBox
      Left = 240
      Top = 7
      Width = 100
      Height = 20
      Style = csDropDownList
      Anchors = [akTop, akRight]
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 6
      Text = #20840#37096
      OnChange = ComboBox1Change
      Items.Strings = (
        #20840#37096
        #33829#19994
        #20248#24800
        #25910#22238
        #24212#25910)
    end
  end
  inherited DosMove1: TDosMove
    Left = 96
  end
  inherited qryWork: TQuery
    OnCalcFields = qryWorkCalcFields
    DatabaseName = 'LfHotelUser'
    SQL.Strings = (
      'select * from YYTJ')
    object qryWorkD_XFXM: TStringField
      FieldKind = fkLookup
      FieldName = 'D_XFXM'
      LookupDataSet = HotelData.tblXMDM
      LookupKeyFields = 'D_XMBH'
      LookupResultField = 'D_XMMC'
      KeyFields = 'D_XMBH'
      Lookup = True
    end
    object qryWorkD_YSRQ: TStringField
      FieldName = 'D_YSRQ'
      Origin = 'LFHOTELUSER.YYTJ.D_YSRQ'
      Size = 8
    end
    object qryWorkD_XMBH: TStringField
      FieldName = 'D_XMBH'
      Origin = 'LFHOTELUSER.YYTJ.D_XMBH'
      Size = 5
    end
    object qryWorkD_JRYY: TFloatField
      FieldName = 'D_JRYY'
      Origin = 'LFHOTELUSER.YYTJ.D_JRYY'
      DisplayFormat = '#.##'
    end
    object qryWorkD_JRSH: TFloatField
      FieldName = 'D_JRSH'
      Origin = 'LFHOTELUSER.YYTJ.D_JRSH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_JRYH: TFloatField
      FieldName = 'D_JRYH'
      Origin = 'LFHOTELUSER.YYTJ.D_JRYH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_BYYY: TFloatField
      FieldName = 'D_BYYY'
      Origin = 'LFHOTELUSER.YYTJ.D_BYYY'
      DisplayFormat = '#.##'
    end
    object qryWorkD_BYYH: TFloatField
      FieldName = 'D_BYYH'
      Origin = 'LFHOTELUSER.YYTJ.D_BYYH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_LJYY: TFloatField
      FieldName = 'D_LJYY'
      Origin = 'LFHOTELUSER.YYTJ.D_LJYY'
      DisplayFormat = '#.##'
    end
    object qryWorkD_LJYH: TFloatField
      FieldName = 'D_LJYH'
      Origin = 'LFHOTELUSER.YYTJ.D_LJYH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_LJSH: TFloatField
      FieldName = 'D_LJSH'
      Origin = 'LFHOTELUSER.YYTJ.D_LJSH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_LJYS: TFloatField
      FieldName = 'D_LJYS'
      Origin = 'LFHOTELUSER.YYTJ.D_LJYS'
      DisplayFormat = '#.##'
    end
    object qryWorkD_ZRBYYY: TFloatField
      FieldName = 'D_ZRBYYY'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRBYYY'
      DisplayFormat = '#.##'
    end
    object qryWorkD_ZRBYYH: TFloatField
      FieldName = 'D_ZRBYYH'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRBYYH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_ZRLJYY: TFloatField
      FieldName = 'D_ZRLJYY'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJYY'
      DisplayFormat = '#.##'
    end
    object qryWorkD_ZRLJYH: TFloatField
      FieldName = 'D_ZRLJYH'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJYH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_ZRLJSH: TFloatField
      FieldName = 'D_ZRLJSH'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJSH'
      DisplayFormat = '#.##'
    end
    object qryWorkD_ZRLJYS: TFloatField
      FieldName = 'D_ZRLJYS'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJYS'
      DisplayFormat = '#.##'
    end
    object qryWorkD_SYTQB: TFloatField
      FieldName = 'D_SYTQB'
      Origin = 'LFHOTELUSER.YYTJ.D_SYTQB'
    end
    object qryWorkD_JRXJ: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'D_JRXJ'
      DisplayFormat = '#.##'
      Currency = False
      Calculated = True
    end
    object qryWorkD_BYXJ: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'D_BYXJ'
      DisplayFormat = '#.##'
      Currency = False
      Calculated = True
    end
    object qryWorkD_LJXJ: TCurrencyField
      FieldKind = fkCalculated
      FieldName = 'D_LJXJ'
      DisplayFormat = '#.##'
      Currency = False
      Calculated = True
    end
  end
  inherited dsWork: TDataSource
    OnDataChange = dsWorkDataChange
  end
end