viewunitunit.dfm

短小而实用的房地产销售管理软件

        TabOrder = 4
        OnClick = LbButton4Click
      end
      object LbButton9: TLbButton
        Tag = 106
        Left = 533
        Top = 64
        Width = 105
        Height = 65
        ShadowColor = clBlack
        Caption = #25269#25276
        Color = clWhite
        LightColor = clGray
        ModalResult = 0
        ParentColor = False
        Style = bsModern
        TabOrder = 5
        OnClick = LbButton4Click
      end
      object LbButton10: TLbButton
        Tag = 107
        Left = 638
        Top = 64
        Width = 105
        Height = 65
        ShadowColor = clBlack
        Caption = #25286#36801#36824#24314
        Color = clWhite
        LightColor = clGray
        ModalResult = 0
        ParentColor = False
        Style = bsModern
        TabOrder = 6
        OnClick = LbButton4Click
      end
    end
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 811
      Height = 392
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 1
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = #21015#34920#26679#24335
        object Panel4: TPanel
          Left = 0
          Top = 0
          Width = 803
          Height = 25
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          object AALabel21: TAALabel
            Left = 5
            Top = 1
            Width = 54
            Height = 15
            ParentEffect.ParentFont = False
            Caption = #38144#21806#31867#22411
            Font.Charset = ANSI_CHARSET
            Font.Color = clRed
            Font.Height = -13
            Font.Name = #23435#20307
            Font.Style = []
            Effect.FontEffect.Shadow.Enabled = True
            Effect.FontEffect.Shadow.Color = clBlack
          end
          object ComboBox1: TComboBox
            Left = 64
            Top = 0
            Width = 89
            Height = 21
            ImeName = #19975#33021#20116#31508'EXE'#22806#25346#29256
            ItemHeight = 13
            ItemIndex = 0
            TabOrder = 0
            Text = #26080
            OnChange = ComboBox1Change
            Items.Strings = (
              #26080
              #26410#21806
              #39044'('#38144')'#21806
              #39044#23450
              #39044#30041
              #31199#36161
              #25269#25276
              #25286#36801#36824#24314)
          end
        end
        object DBGridEh4: TDBGridEh
          Left = 0
          Top = 25
          Width = 803
          Height = 339
          FixGridlinecolor = clGray
          Gridlinecolor = clGray
          FooterDisplayStyle = False
          ShowBmp = False
          UseMenu = True
          RowColorFlag = True
          RowTwoColor = clSkyBlue
          CurDeciNumber = 2
          CurShowNegativeFont = True
          CurShowNegativeColor = False
          CurShowNegativeSign = False
          CurDeciSeparatColor = clRed
          CurrencySymBol = #65509
          CurrencySymBolAlained = False
          CurGridLineColor = clSilver
          CurGridLineWidth = 1
          CurKilobitColor = clGreen
          CurrencyFont.Charset = DEFAULT_CHARSET
          CurrencyFont.Color = clWindowText
          CurrencyFont.Height = -11
          CurrencyFont.Name = 'MS Sans Serif'
          CurrencyFont.Style = []
          CurNegativeFont.Charset = DEFAULT_CHARSET
          CurNegativeFont.Color = clRed
          CurNegativeFont.Height = -11
          CurNegativeFont.Name = 'MS Sans Serif'
          CurNegativeFont.Style = []
          CurNegativeColor = clRed
          CurTextLayout = tlCenter
          CurZeroEmpty = True
          Align = alClient
          DataSource = DataSource4
          Flat = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          FooterColor = clWindow
          FooterFont.Charset = ANSI_CHARSET
          FooterFont.Color = clBlue
          FooterFont.Height = -13
          FooterFont.Name = #23435#20307
          FooterFont.Style = []
          ImeName = ' '
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          ParentFont = False
          RowSizingAllowed = True
          SumList.Active = True
          TabOrder = 1
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
          OnCellClick = DBGridEh4CellClick
          OnDblClick = DBGridEh4DblClick
          Columns = <
            item
              EditButtons = <>
              FieldName = #25151#21495
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #38144#21806#31867#22411
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #26799#20301
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #24635#23618#25968
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #25152#22312#27004#23618
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #29992#36884
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #25143#22411
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #38451#21488#31867#22411
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #25151#23627#26159#21542#25269#25276
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #36291#38169#23618
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #38468#23646#25151#20135
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #20135#26435#33539#22260
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #21512#21516#32422#23450#24314#31569#38754#31215
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #21512#21516#32422#23450#22871#20869#38754#31215
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #21512#21516#32422#23450#20998#25674#38754#31215
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #20135#26435#30331#35760#24314#31569#38754#31215
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end
            item
              EditButtons = <>
              FieldName = #20135#26435#30331#35760#22871#20869#38754#31215
              Footers = <>
              DisplayNullIfZero = False
              IsCurrency = False
            end