floor.dfm

一个实用的房地产行业收费管理软件

object Form1: TForm1
  Left = 193
  Top = 42
  Width = 812
  Height = 612
  HorzScrollBar.Position = 217
  Caption = #22823#21414#31649#29702#20013#24515
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = -217
    Top = 0
    Width = 1005
    Height = 689
    ActivePage = TabSheet3
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'PMingLiU'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #23458#25143#31649#29702
      object Bevel1: TBevel
        Left = 0
        Top = 0
        Width = 997
        Height = 658
      end
      object Bevel4: TBevel
        Left = 0
        Top = 35
        Width = 995
        Height = 2
      end
      object Label7: TLabel
        Left = 5
        Top = 13
        Width = 64
        Height = 16
        Caption = #25152#23646#22823#21414
      end
      object DBGridEh3: TDBGridEh
        Left = 0
        Top = 41
        Width = 996
        Height = 616
        DataSource = DataModule1.cust
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -16
        FooterFont.Name = 'PMingLiU'
        FooterFont.Style = []
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghEnterAsTab]
        ReadOnly = True
        RowHeight = 4
        RowLines = 1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'PMingLiU'
        TitleFont.Style = []
        OnKeyPress = DBGridEh3KeyPress
        OnTitleBtnClick = DBGridEh3TitleBtnClick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'customno'
            Footers = <>
            ReadOnly = False
            Title.Caption = #23458#25143#32534#21495
            Title.TitleButton = True
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'custom'
            Footers = <>
            ReadOnly = False
            Tag = 1
            Title.Caption = #23458#25143#21517#31216
            Width = 122
          end
          item
            EditButtons = <>
            FieldName = 'person01'
            Footers = <>
            ReadOnly = False
            Tag = 2
            Title.Caption = #32852#31995#20154#19968
            Width = 108
          end
          item
            EditButtons = <>
            FieldName = 'phone1'
            Footers = <>
            ReadOnly = False
            Title.Caption = #30005#35805
            Width = 234
          end
          item
            EditButtons = <>
            FieldName = 'address1'
            Footers = <>
            ReadOnly = False
            Title.Caption = #22320#22336
            Width = 393
          end>
      end
      object BitBtn4: TBitBtn
        Left = 237
        Top = 8
        Width = 67
        Height = 25
        Caption = #26597#12288#35810
        TabOrder = 1
        OnClick = BitBtn4Click
      end
      object BitBtn5: TBitBtn
        Left = 382
        Top = 8
        Width = 67
        Height = 25
        Caption = #20462#12288#25913
        TabOrder = 2
        OnClick = BitBtn5Click
      end
      object BitBtn6: TBitBtn
        Left = 454
        Top = 8
        Width = 67
        Height = 25
        Caption = #20445#12288#23384
        Enabled = False
        TabOrder = 3
        OnClick = BitBtn6Click
      end
      object BitBtn8: TBitBtn
        Left = 666
        Top = 8
        Width = 67
        Height = 25
        Caption = #25171#12288#21360
        TabOrder = 5
        OnClick = BitBtn8Click
      end
      object BitBtn13: TBitBtn
        Left = 527
        Top = 8
        Width = 67
        Height = 25
        Caption = #21024#12288#38500
        TabOrder = 4
        OnClick = BitBtn13Click
      end
      object DBComboBoxEh1: TDBComboBoxEh
        Left = 73
        Top = 9
        Width = 121
        Height = 24
        EditButtons = <>
        TabOrder = 6
        Visible = True
      end
      object BitBtn20: TBitBtn
        Left = 597
        Top = 8
        Width = 67
        Height = 25
        Caption = 'EXCEL'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 14209643
        Font.Height = -13
        Font.Name = 'PMingLiU'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BitBtn20Click
      end
      object BitBtn15: TBitBtn
        Left = 309
        Top = 8
        Width = 67
        Height = 25
        Caption = #22686#12288#21152
        TabOrder = 8
        OnClick = BitBtn15Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #27700#30005#31649#29702
      ImageIndex = 1
      object Bevel2: TBevel
        Left = 0
        Top = 0
        Width = 997
        Height = 658
      end
      object Label18: TLabel
        Left = 8
        Top = 9
        Width = 64
        Height = 16
        Caption = #25152#22312#22823#21414
      end
      object Label19: TLabel
        Left = 6
        Top = 40
        Width = 32
        Height = 16
        Caption = #24180#20221
      end
      object Label20: TLabel
        Left = 154
        Top = 43
        Width = 32
        Height = 16
        Caption = #26376#20221
      end
      object Bevel5: TBevel
        Left = 3
        Top = 63
        Width = 992
        Height = 2
      end
      object DBComboBoxEh2: TDBComboBoxEh
        Left = 77
        Top = 7
        Width = 130
        Height = 24
        EditButtons = <>
        TabOrder = 0
        Visible = True
      end
      object DBComboBoxEh3: TDBComboBoxEh
        Left = 47
        Top = 37
        Width = 94
        Height = 24
        EditButtons = <>
        Items.Strings = (
          '2001'
          '2002'
          '2003'
          '2004'
          '2005'
          '2006'
          '2007')
        TabOrder = 1
        Visible = True
      end
      object DBComboBoxEh4: TDBComboBoxEh
        Left = 201
        Top = 39
        Width = 57
        Height = 24
        EditButtons = <>
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12')
        TabOrder = 2
        Visible = True
      end
      object DBGridEh1: TDBGridEh
        Left = 2
        Top = 67
        Width = 993
        Height = 588
        DataSource = DataModule1.sds
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -16
        FooterFont.Name = 'PMingLiU'
        FooterFont.Style = []
        FooterRowCount = 1
        Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghAutoSortMarking, dghMultiSortMarking, dghEnterAsTab]
        ReadOnly = True
        RowHeight = 4
        RowLines = 1
        SumList.Active = True
        SumList.VirtualRecords = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'PMingLiU'
        TitleFont.Style = []
        VertScrollBar.Tracking = True
        OnKeyPress = DBGridEh1KeyPress
        OnTitleBtnClick = DBGridEh1TitleBtnClick
        Columns = <
          item
            EditButtons = <>
            FieldName = 'tsno'
            Footers = <>
            ReadOnly = False
            Title.Caption = #32479#25910#21495#30721
            Width = 78
          end
          item
            EditButtons = <>
            FieldName = 'custom'
            Footers = <
              item
                Value = #21512#35745#65306
                ValueType = fvtStaticText
              end>
            Title.Caption = #23458#25143#21517#31216
            Width = 81
          end
          item
            EditButtons = <>
            FieldName = 'ls'
            Footers = <
              item
                FieldName = 'ls'
                ValueType = fvtSum
              end>
            Title.Caption = #27700#19978#26376#21544#25968
            Width = 83
          end
          item
            EditButtons = <>
            FieldName = 'bs'
            Footer.ValueType = fvtSum
            Footers = <>
            ReadOnly = False
            Title.Caption = #27700#26412#26376#21544#25968
            Width = 84
          end
          item
            EditButtons = <>
            FieldName = 'bss'
            Footers = <>
            Title.Caption = #27700#23454#29992#21544#25968
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'sprice'
            Footers = <>
            Title.Caption = #27700#21333#20215
            Width = 55
          end
          item
            EditButtons = <>
            FieldName = 'samt'
            Footers = <>
            Title.Caption = #27700#37329#39069
          end
          item
            EditButtons = <>
            FieldName = 'ld'
            Footers = <>
            Title.Caption = #30005#19978#26376#24230#25968
            Width = 86
          end
          item
            EditButtons = <>
            FieldName = 'bd'
            Footers = <>
            ReadOnly = False
            Title.Caption = #30005#26412#26376#24230#25968
            Width = 87
          end
          item
            EditButtons = <>
            FieldName = 'db'
            Footers = <>
            ReadOnly = False
            Title.Caption = #30005#27604
            Width = 37
          end
          item
            EditButtons = <>
            FieldName = 'bsd'
            Footers = <>
            Title.Caption = #30005#23454#29992#24230#25968
            Width = 92
          end
          item
            EditButtons = <>
            FieldName = 'dprice'
            Footers = <>
            Title.Caption = #30005#21333#20215
            Width = 54
          end
          item
            EditButtons = <>
            FieldName = 'damt'
            Footers = <>
            Title.Caption = #27700#37329#39069
          end
          item
            EditButtons = <>
            FieldName = 'note'
            Footers = <>
            ReadOnly = False
            Title.Caption = #22791#12288#12288#27880
            Width = 74
          end
          item
            EditButtons = <>
            FieldName = 'sump'
            Footers = <>
            Title.Caption = #23567#35336
            Width = 56
          end>
      end
      object BitBtn1: TBitBtn
        Left = 297
        Top = 8
        Width = 75
        Height = 25
        Caption = #26597#12288#35810
        TabOrder = 4
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 601
        Top = 8
        Width = 75
        Height = 25
        Caption = 'EXCEL'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = 14209643
        Font.Height = -13
        Font.Name = 'PMingLiU'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        OnClick = BitBtn2Click
      end
      object BitBtn3: TBitBtn
        Left = 373
        Top = 8
        Width = 75
        Height = 25
        Caption = #20462#12288#25913
        TabOrder = 6
        OnClick = BitBtn3Click
      end
      object BitBtn14: TBitBtn
        Left = 449
        Top = 8
        Width = 75
        Height = 25
        Caption = #20445#12288#23384
        Enabled = False
        TabOrder = 7
        OnClick = BitBtn14Click
      end
      object BitBtn16: TBitBtn
        Left = 525
        Top = 8
        Width = 75
        Height = 25
        Caption = #21024#12288#38500
        TabOrder = 8
        OnClick = BitBtn16Click
      end
      object BitBtn17: TBitBtn
        Left = 677
        Top = 8
        Width = 75
        Height = 25
        Caption = #25171#12288#21360
        TabOrder = 9
        OnClick = BitBtn17Click
      end
      object BitBtn21: TBitBtn
        Left = 305
        Top = 40
        Width = 67
        Height = 25
        Caption = #22686#12288#21152
        TabOrder = 10
        Visible = False
        OnClick = BitBtn21Click
      end
      object BitBtn23: TBitBtn
        Left = 753
        Top = 8
        Width = 75
        Height = 25
        Caption = #25910#25454#25171#21360
        TabOrder = 11
        OnClick = BitBtn23Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = #21512#21516#31649#29702
      ImageIndex = 2
      object Bevel3: TBevel
        Left = -1
        Top = 32