viewitemfm.dfm.~6~

一款房产中介软件

    Top = 57
    Width = 1003
    Height = 26
    Align = alTop
    AutoSize = True
    TabOrder = 1
    object AALabel1: TLabel
      Left = 1
      Top = 1
      Width = 560
      Height = 24
      AutoSize = False
      Caption = #28857#20987#24038#36793#8220#20844#21496#21517#31216#8221#21015#34920#39033#65292#20877#23545#30456#24212#24320#21457#39033#30446#25805#20316#12290
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 83
    Width = 157
    Height = 493
    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 = #20013#25991' ('#31616#20307') - '#20840#25340
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnCellClick = DBGridEh1CellClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'cname'
        Footers = <>
        Title.Caption = #20844#21496#21517#31216
      end>
  end
  object DBGridEh2: TDBGridEh
    Left = 164
    Top = 83
    Width = 839
    Height = 493
    Align = alClient
    DataSource = DataSource2
    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 = []
    FooterRowCount = 1
    ImeName = #20013#25991' ('#31616#20307') - '#20840#25340
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    RowSizingAllowed = True
    SumList.Active = True
    TabOrder = 3
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEh2DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = #39033#30446#21517#31216
        Footer.Value = #24635#35745
        Footer.ValueType = fvtStaticText
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #39033#30446#24231#33853
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #39033#30446#31867#21035
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #35268#21010#29992#36884
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22320#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24635#24162#25968
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24314#31569#21333#20301
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22303#22320#26469#28304
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22303#22320#38754#31215
        Footer.FieldName = #22303#22320#38754#31215
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22303#22320#20351#29992#32456#27490#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24635#24314#31569#38754#31215
        Footer.FieldName = #24635#24314#31569#38754#31215
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24635#25237#36164
        Footer.FieldName = #24635#25237#36164
        Footer.ValueType = fvtSum
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #35745#21010#24320#24037#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24320#24037#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #35745#21010#31459#24037#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #31459#24037#26085#26399
        Footers = <>
      end>
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 59
    Top = 203
  end
  object ADOQuery1: TADOQuery
    Connection = DMMain.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'SELECT cname, code from company')
    Left = 18
    Top = 206
  end
  object ADOQuery2: TADOQuery
    Connection = DMMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * from '#39033#30446#20449#24687#34920)
    Left = 195
    Top = 208
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 194
    Top = 240
  end
end