viewworkerunit.dfm

安邦售楼系统单机版 (DELPHI格式源码),比较实用

    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 = alLeft
    AutoFitColWidths = True
    DataSource = DataSource1
    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]
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = DBGridEh1CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = #20844#21496#21517#31216
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 57
    Width = 1003
    Height = 26
    Align = alTop
    AutoSize = True
    TabOrder = 2
    object AALabel1: TAALabel
      Left = 1
      Top = 1
      Width = 452
      Height = 24
      ParentEffect.ParentFont = False
      AutoSize = False
      Caption = #28857#20987#24038#36793#8220#20844#21496#21517#31216#8221#21015#34920#39033#65292#20877#23545#30456#24212#19994#21153#21592#25805#20316#12290
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      Effect.FontEffect.Shadow.Enabled = True
      Effect.FontEffect.Shadow.Color = clRed
    end
  end
  object DBGridEh2: TDBGridEh
    Left = 164
    Top = 83
    Width = 839
    Height = 525
    FixGridlinecolor = clGray
    Gridlinecolor = clGray
    FooterDisplayStyle = False
    ShowBmp = False
    UseMenu = True
    RowTwoColor = clCream
    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 = DataSource2
    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]
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEh2DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = #19994#21153#21592#32534#21495
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end
      item
        EditButtons = <>
        FieldName = #22995#21517
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end
      item
        EditButtons = <>
        FieldName = #24615#21035
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end
      item
        EditButtons = <>
        FieldName = #20986#29983#26085#26399
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end
      item
        EditButtons = <>
        FieldName = #36523#20221#35777#21495
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#30005#35805
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#22320#22336
        Footers = <>
        DisplayNullIfZero = False
        IsCurrency = False
      end>
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * from '#19994#21153#21592#20449#24687#34920)
    Left = 195
    Top = 208
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 194
    Top = 240
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 58
    Top = 203
  end
  object ADOQuery1: TADOQuery
    Connection = DataModule2.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT '#20844#21496#21517#31216','#20844#21496#32534#21495' from '#20844#21496#20449#24687#34920)
    Left = 57
    Top = 238
  end
end