comviewfm.dfm.~10~

一款房产中介软件

    TitleFont.Height = -13
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'CName'
        Footers = <>
        Title.Caption = #20844#21496#21517#31216
        Width = 153
      end
      item
        EditButtons = <>
        FieldName = 'LegalRep'
        Footers = <>
        Title.Caption = #27861#20154#20195#34920
        Width = 72
      end
      item
        EditButtons = <>
        FieldName = 'Attrib'
        Footers = <>
        Title.Caption = #20225#19994#24615#36136
        Width = 97
      end
      item
        EditButtons = <>
        FieldName = 'CompGrade'
        Footers = <>
        Title.Caption = #36164#36136#31561#32423
        Width = 93
      end
      item
        EditButtons = <>
        FieldName = 'CType'
        Footers = <>
        Title.Caption = #20225#19994#31867#22411
        Width = 93
      end
      item
        EditButtons = <>
        FieldName = 'Tel'
        Footers = <>
        Title.Caption = #20844#21496#30005#35805
      end
      item
        EditButtons = <>
        FieldName = 'Address'
        Footers = <>
        Title.Caption = #20844#21496#22320#22336
        Width = 210
      end
      item
        EditButtons = <>
        FieldName = 'Contactor'
        Footers = <>
        Title.Caption = #32852#31995#20154
      end
      item
        EditButtons = <>
        FieldName = 'ConPhone'
        Footers = <>
        Title.Caption = #32852#31995#30005#35805
      end
      item
        EditButtons = <>
        FieldName = 'CompCertNO'
        Footers = <>
        Title.Caption = #36164#36136#35777#20070#32534#21495
      end
      item
        EditButtons = <>
        FieldName = 'PassDate'
        Footers = <>
        Title.Caption = #36164#36136#25209#20934#26102#38388
      end
      item
        EditButtons = <>
        FieldName = 'BusLicenNO'
        Footers = <>
        Title.Caption = #33829#19994#25191#29031#32534#21495
      end
      item
        EditButtons = <>
        FieldName = 'FoundDate'
        Footers = <>
        Title.Caption = #20844#21496#25104#31435#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'Bank'
        Footers = <>
        Title.Caption = #24320#25143#38134#34892
      end
      item
        EditButtons = <>
        FieldName = 'BankAccounts'
        Footers = <>
        Title.Caption = #38134#34892#36134#21495
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 57
    Width = 1013
    Height = 26
    Align = alTop
    AutoSize = True
    TabOrder = 2
    object AALabel1: TLabel
      Left = 1
      Top = 1
      Width = 192
      Height = 24
      AutoSize = False
      Caption = #37329#39069#21333#20301#65306#19975#20803
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DMMain.ADOConnection1
    CursorType = ctStatic
    OnNewRecord = ADOQuery1NewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from company')
    Left = 16
    Top = 88
    object ADOQuery1Code: TWideStringField
      FieldName = 'Code'
      Size = 40
    end
    object ADOQuery1CName: TWideStringField
      FieldName = 'CName'
      Size = 40
    end
    object ADOQuery1LegalRep: TWideStringField
      FieldName = 'LegalRep'
      Size = 10
    end
    object ADOQuery1Attrib: TWideStringField
      FieldName = 'Attrib'
      Size = 50
    end
    object ADOQuery1CompGrade: TWideStringField
      FieldName = 'CompGrade'
      Size = 10
    end
    object ADOQuery1Bankroll: TFloatField
      FieldName = 'Bankroll'
    end
    object ADOQuery1CompCertNO: TWideStringField
      FieldName = 'CompCertNO'
    end
    object ADOQuery1PassDate: TDateTimeField
      FieldName = 'PassDate'
    end
    object ADOQuery1BusLicenNO: TWideStringField
      FieldName = 'BusLicenNO'
    end
    object ADOQuery1FoundDate: TDateTimeField
      FieldName = 'FoundDate'
    end
    object ADOQuery1Bank: TWideStringField
      FieldName = 'Bank'
      Size = 30
    end
    object ADOQuery1BankAccounts: TWideStringField
      FieldName = 'BankAccounts'
    end
    object ADOQuery1Tel: TWideStringField
      FieldName = 'Tel'
      Size = 15
    end
    object ADOQuery1Address: TWideStringField
      FieldName = 'Address'
      Size = 30
    end
    object ADOQuery1Contactor: TWideStringField
      FieldName = 'Contactor'
      Size = 10
    end
    object ADOQuery1ConPhone: TWideStringField
      FieldName = 'ConPhone'
      Size = 15
    end
    object ADOQuery1Remark: TWideStringField
      FieldName = 'Remark'
      Size = 100
    end
    object ADOQuery1CType: TWideStringField
      FieldName = 'CType'
    end
    object ADOQuery1ID: TIntegerField
      FieldName = 'ID'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 16
    Top = 120
  end
end