unitcastpurposeunit.dfm

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

object UnitCastPurposeForm: TUnitCastPurposeForm
  Left = 121
  Top = 51
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #23458#25143#24847#21521#20449#24687#32534#36753#31383#21475
  ClientHeight = 589
  ClientWidth = 799
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object AALabel2: TAALabel
    Left = 39
    Top = 7
    Width = 54
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #20844#21496#32534#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Effect.FontEffect.Shadow.Enabled = True
    Effect.FontEffect.Shadow.Color = clRed
  end
  object DBText1: TDBText
    Left = 103
    Top = 7
    Width = 166
    Height = 19
    DataField = #20844#21496#32534#21495
    DataSource = ViewCasterForm.DataSource1
    Transparent = True
  end
  object AALabel3: TAALabel
    Left = 384
    Top = 7
    Width = 54
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #20844#21496#21517#31216
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Effect.FontEffect.Shadow.Enabled = True
    Effect.FontEffect.Shadow.Color = clRed
  end
  object DBText2: TDBText
    Left = 449
    Top = 6
    Width = 310
    Height = 19
    DataField = #20844#21496#21517#31216
    DataSource = ViewCasterForm.DataSource1
    Transparent = True
  end
  object AALabel4: TAALabel
    Left = 39
    Top = 31
    Width = 54
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #23458#25143#32534#21495
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Effect.FontEffect.Shadow.Enabled = True
    Effect.FontEffect.Shadow.Color = clRed
  end
  object DBText3: TDBText
    Left = 103
    Top = 31
    Width = 166
    Height = 19
    DataField = #23458#25143#32534#21495
    DataSource = ViewCasterForm.DataSource2
    Transparent = True
  end
  object AALabel5: TAALabel
    Left = 384
    Top = 31
    Width = 54
    Height = 15
    ParentEffect.ParentFont = False
    Caption = #23458#25143#21517#31216
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Effect.FontEffect.Shadow.Enabled = True
    Effect.FontEffect.Shadow.Color = clRed
  end
  object DBText4: TDBText
    Left = 449
    Top = 30
    Width = 310
    Height = 19
    DataField = #22995#21517
    DataSource = ViewCasterForm.DataSource2
    Transparent = True
  end
  object Bevel1: TBevel
    Left = 8
    Top = 56
    Width = 761
    Height = 4
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 64
    Width = 785
    Height = 201
    Caption = #23458#25143#24847#21521#25151#23627
    TabOrder = 0
    object DBGridEh3: TDBGridEh
      Left = 2
      Top = 15
      Width = 781
      Height = 184
      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 = ViewCasterForm.DataSource3
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      ImeName = #19975#33021#20116#31508'EXE'#22806#25346#29256
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      RowSizingAllowed = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = #39033#30446#32534#21495
          Footers = <>
          DisplayNullIfZero = False
          IsCurrency = False
        end
        item
          EditButtons = <>
          FieldName = #24162#21495
          Footers = <>
          DisplayNullIfZero = False
          IsCurrency = False
        end
        item
          EditButtons = <>
          FieldName = #25151#21495
          Footers = <>
          DisplayNullIfZero = False
          IsCurrency = False
        end>
    end
  end
  object GroupBox6: TGroupBox
    Left = 8
    Top = 312
    Width = 785
    Height = 265
    Caption = #29616#26377#21487#38144#21806#25151#23627#21015#34920
    TabOrder = 1
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 49
      Width = 781
      Height = 214
      Hint = #26174#31034#29616#26377#39033#30446#20013#21487#38144#21806#25151#23627#21015#34920#12290#13#10#13#10
      FixGridlinecolor = clNavy
      Gridlinecolor = clNavy
      FooterDisplayStyle = True
      ShowBmp = False
      UseMenu = True
      RowColorFlag = True
      RowTwoColor = clMoneyGreen
      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 = -13
      CurrencyFont.Name = 'MS Sans Serif'
      CurrencyFont.Style = [fsBold]
      CurNegativeFont.Charset = DEFAULT_CHARSET
      CurNegativeFont.Color = clRed
      CurNegativeFont.Height = -13
      CurNegativeFont.Name = 'MS Sans Serif'
      CurNegativeFont.Style = [fsBold]
      CurNegativeColor = clRed
      CurTextLayout = tlCenter
      CurZeroEmpty = True
      Align = alClient
      DataSource = DataSource1
      Flat = True
      FooterColor = clBtnFace
      FooterFont.Charset = ANSI_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -13
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      HorzScrollBar.Tracking = True
      ImeName = #19975#33021#20116#31508'EXE'#22806#25346#29256
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghData3D, dghHighlightFocus, dghClearSelection, dghDblClickOptimizeColWidth, dghDialogFind]
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      SumList.Active = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      VertScrollBar.Tracking = True
      Columns = <
        item
          EditButtons = <>
          FieldName = #39033#30446#21517#31216
          Footers = <>
          Width = 165
          DisplayNullIfZero = False
          IsCurrency = False
        end
        item
          EditButtons = <>
          FieldName = #24162#21495
          Footers = <>
          DisplayNullIfZero = False
          IsCurrency = False
        end
        item