comviewfm.dfm.~8~

一款房产中介软件

    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 = []
    OnDblClick = DBGridEh1DblClick
    Columns = <
      item
        EditButtons = <>
        FieldName = 'CName'
        Footers = <>
        Title.Caption = #20844#21496#21517#31216
        Width = 184
      end
      item
        EditButtons = <>
        FieldName = 'LegalRep'
        Footers = <>
        Title.Caption = #27861#20154#20195#34920
        Width = 66
      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
      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
      end
      item
        EditButtons = <>
        FieldName = 'Contactor'
        Footers = <>
        Title.Caption = #32852#31995#20154
      end
      item
        EditButtons = <>
        FieldName = 'ConPhone'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #36164#36136#35777#20070#32534#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #36164#36136#25209#20934#26102#38388
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #33829#19994#25191#29031#32534#21495
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #20844#21496#25104#31435#26085#26399
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #24320#25143#38134#34892
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = #38134#34892#36134#21495
        Footers = <>
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 57
    Width = 1013
    Height = 26
    Align = alTop
    AutoSize = True
    TabOrder = 2
    ExplicitWidth = 1008
    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
    Active = True
    Connection = DMMain.ADOConnection1
    CursorType = ctStatic
    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
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 16
    Top = 120
  end
end