c_kfrbb.dfm

经典的酒店管理系统

          object lblSrzshhj: TLabel
            Left = 352
            Top = 122
            Width = 128
            Height = 16
            Caption = #19978#26085#27490#25910#22238#21512#35745#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblJrzshhj: TLabel
            Left = 352
            Top = 145
            Width = 128
            Height = 16
            Caption = #20170#26085#27490#25910#22238#21512#35745#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblJrzbyyye: TLabel
            Left = 352
            Top = 181
            Width = 144
            Height = 16
            Caption = #20170#26085#27490#26412#26376#33829#19994#39069#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblJrzbysyy: TLabel
            Left = 352
            Top = 208
            Width = 144
            Height = 16
            Caption = #20170#26085#27490#26412#26376#23454#33829#19994#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblJrzljyye: TLabel
            Left = 352
            Top = 236
            Width = 144
            Height = 16
            Caption = #20170#26085#27490#32047#35745#33829#19994#39069#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object lblJrzljysk: TLabel
            Left = 352
            Top = 264
            Width = 144
            Height = 16
            Caption = #20170#26085#27490#32047#35745#24212#25910#27454#65306
            Font.Charset = GB2312_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'System'
            Font.Style = [fsBold]
            ParentFont = False
          end
        end
      end
    end
  end
  inherited Panel3: TPanel
    Top = 438
    Width = 692
    inherited btnHelp: TBitBtn
      Left = 532
    end
    inherited btnClose: TBitBtn
      Left = 612
    end
    object btnPrintTb: TBitBtn
      Left = 452
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #25171#21360#22270#34920
      TabOrder = 2
      OnClick = btnPrintTbClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888F8800000000000888808888888880808800000000000008080888888BBB88
        0008088888877788080800000000000008800888888888808080800000000008
        0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
        088888880FFFFFFFF08888888000000000888888888888888888}
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 13
      Width = 49
      Height = 17
      Caption = #19977#32500
      TabOrder = 3
      OnClick = CheckBox1Click
    end
    object btnPrint: TBitBtn
      Left = 372
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #25171#21360'(&P)'
      TabOrder = 4
      OnClick = btnPrintClick
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        888F8800000000000888808888888880808800000000000008080888888BBB88
        0008088888877788080800000000000008800888888888808080800000000008
        0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F
        088888880FFFFFFFF08888888000000000888888888888888888}
    end
    object btnCzl: TBitBtn
      Left = 292
      Top = 5
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #20986#31199#29575
      TabOrder = 5
      OnClick = btnCzlClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003
        0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000
        0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3
        CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7
        CCC77777737773777377330399930003CCC3337F737F7773737F370399933333
        CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777
        CCC77777777777777377330333333333CCC3337F33333333737F370333333333
        0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777
        7777777777777777777733333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  inherited DosMove1: TDosMove
    Left = 16
  end
  object qryWork: TQuery
    DatabaseName = 'LfHotelUser'
    SQL.Strings = (
      'select * from YYTJ')
    Left = 48
    Top = 8
    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'
    end
    object qryWorkD_JRSH: TFloatField
      FieldName = 'D_JRSH'
      Origin = 'LFHOTELUSER.YYTJ.D_JRSH'
    end
    object qryWorkD_JRYH: TFloatField
      FieldName = 'D_JRYH'
      Origin = 'LFHOTELUSER.YYTJ.D_JRYH'
    end
    object qryWorkD_BYYY: TFloatField
      FieldName = 'D_BYYY'
      Origin = 'LFHOTELUSER.YYTJ.D_BYYY'
    end
    object qryWorkD_BYYH: TFloatField
      FieldName = 'D_BYYH'
      Origin = 'LFHOTELUSER.YYTJ.D_BYYH'
    end
    object qryWorkD_LJYY: TFloatField
      FieldName = 'D_LJYY'
      Origin = 'LFHOTELUSER.YYTJ.D_LJYY'
    end
    object qryWorkD_LJYH: TFloatField
      FieldName = 'D_LJYH'
      Origin = 'LFHOTELUSER.YYTJ.D_LJYH'
    end
    object qryWorkD_LJSH: TFloatField
      FieldName = 'D_LJSH'
      Origin = 'LFHOTELUSER.YYTJ.D_LJSH'
    end
    object qryWorkD_LJYS: TFloatField
      FieldName = 'D_LJYS'
      Origin = 'LFHOTELUSER.YYTJ.D_LJYS'
    end
    object qryWorkD_ZRBYYY: TFloatField
      FieldName = 'D_ZRBYYY'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRBYYY'
    end
    object qryWorkD_ZRBYYH: TFloatField
      FieldName = 'D_ZRBYYH'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRBYYH'
    end
    object qryWorkD_ZRLJYY: TFloatField
      FieldName = 'D_ZRLJYY'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJYY'
    end
    object qryWorkD_ZRLJYH: TFloatField
      FieldName = 'D_ZRLJYH'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJYH'
    end
    object qryWorkD_ZRLJSH: TFloatField
      FieldName = 'D_ZRLJSH'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJSH'
    end
    object qryWorkD_ZRLJYS: TFloatField
      FieldName = 'D_ZRLJYS'
      Origin = 'LFHOTELUSER.YYTJ.D_ZRLJYS'
    end
  end
  object tblSjtj: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'SJTJ'
    Left = 80
    Top = 8
  end
  object tblLctj: TTable
    DatabaseName = 'LfHotelUser'
    TableName = 'LCTJ'
    Left = 112
    Top = 8
    object tblLctjD_YSRQ: TStringField
      FieldName = 'D_YSRQ'
      Required = True
      Size = 8
    end
    object tblLctjD_LCBH: TStringField
      FieldName = 'D_LCBH'
      Required = True
      Size = 5
    end
    object tblLctjD_FJS: TIntegerField
      FieldName = 'D_FJS'
    end
    object tblLctjD_CZS: TFloatField
      FieldName = 'D_CZS'
    end
    object tblLctjD_QJS: TIntegerField
      FieldName = 'D_QJS'
    end
    object tblLctjD_BJS: TIntegerField
      FieldName = 'D_BJS'
    end
    object tblLctjD_JJFJ: TFloatField
      FieldName = 'D_JJFJ'
      DisplayFormat = '#.##'
    end
    object tblLctjD_RCZL: TFloatField
      FieldName = 'D_RCZL'
    end
    object tblLctjD_YCZL: TFloatField
      FieldName = 'D_YCZL'
    end
    object tblLctjD_LCMC: TStringField
      FieldKind = fkLookup
      FieldName = 'D_LCMC'
      LookupDataSet = HotelData.tblLCDM
      LookupKeyFields = 'D_LCBH'
      LookupResultField = 'D_LCMC'
      KeyFields = 'D_LCBH'
      Lookup = True
    end
  end
end