viewlesseefm.dfm

一款房产中介软件

        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7FB
        FFFF000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000}
      OnClick = btnCloseClick
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 57
    Width = 880
    Height = 26
    Align = alTop
    AutoSize = True
    TabOrder = 1
    object AALabel1: TLabel
      Left = 1
      Top = 1
      Width = 452
      Height = 24
      AutoSize = False
      Caption = #28857#20987#24038#36793#8220#20844#21496#21517#31216#8221#21015#34920#39033#65292#20877#23545#30456#24212#25215#31199#20154#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 = 485
    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 = 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 = 716
    Height = 485
    Align = alClient
    DataSource = DataSource2
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -13
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    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 = #20986#31199#25143#32534#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22995#21517
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24615#21035
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #22269#31821
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #36523#20221#35777#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #31867#22411
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #20986#29983#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#30005#35805
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #30005#23376#37038#31665
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #32852#31995#22320#22336
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #37038#25919#32534#30721
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #26376#25910#20837
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #30331#35760#26085#26399
        Footers = <>
      end>
  end
  object ADOQuery2: TADOQuery
    Connection = DMMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * from '#31199#25143#20449#24687#34920)
    Left = 196
    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 = DMMain.ADOConnection1
    CursorType = ctStatic
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select cname, code from company')
    Left = 25
    Top = 206
    object ADOQuery1cname: TWideStringField
      FieldName = 'cname'
      Size = 40
    end
  end
end