datamodule.~dfm

关于DEPHI7.0的朋友信息管理系统源代码

object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 324
  Top = 113
  Height = 130
  Width = 311
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=Contact.mdb;Mode=ReadWrite;Extended Properties="";Jet OLE' +
      'DB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Datab' +
      'ase Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locki' +
      'ng Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global B' +
      'ulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:' +
      'Create System Database=False;Jet OLEDB:Encrypt Database=False;Je' +
      't OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Wit' +
      'hout Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    Top = 24
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    MaxRecords = 188
    CommandText = 'Contact'
    CommandType = cmdTable
    IndexName = 'ChineseName'
    Parameters = <>
    Left = 152
    Top = 24
    object ADODataSet1ChineseName: TWideStringField
      FieldName = 'ChineseName'
      Size = 10
    end
    object ADODataSet1FirstName: TWideStringField
      FieldName = 'FirstName'
      Size = 30
    end
    object ADODataSet1SecondName: TWideStringField
      FieldName = 'SecondName'
      Size = 30
    end
    object ADODataSet1Sex: TWideStringField
      FieldName = 'Sex'
      Size = 2
    end
    object ADODataSet1OfficePhone: TWideStringField
      FieldName = 'OfficePhone'
      Size = 30
    end
    object ADODataSet1HomePhone: TWideStringField
      FieldName = 'HomePhone'
      Size = 30
    end
    object ADODataSet1MobilePhone: TWideStringField
      FieldName = 'MobilePhone'
      Size = 30
    end
    object ADODataSet1EMail: TWideStringField
      FieldName = 'EMail'
      Size = 50
    end
    object ADODataSet1Webpage: TWideStringField
      FieldName = 'Webpage'
      Size = 50
    end
    object ADODataSet1Corp: TWideStringField
      FieldName = 'Corp'
      Size = 80
    end
    object ADODataSet1Position: TWideStringField
      FieldName = 'Position'
    end
    object ADODataSet1Qicq: TIntegerField
      FieldName = 'Qicq'
    end
    object ADODataSet1Icq: TIntegerField
      FieldName = 'Icq'
    end
    object ADODataSet1Conutry: TWideStringField
      FieldName = 'Conutry'
      Size = 30
    end
    object ADODataSet1District: TWideStringField
      FieldName = 'District'
      Size = 10
    end
    object ADODataSet1GraduateSchool: TWideStringField
      FieldName = 'GraduateSchool'
      Size = 50
    end
    object ADODataSet1Degree: TWideStringField
      FieldName = 'Degree'
      Size = 10
    end
    object ADODataSet1Detial: TMemoField
      FieldName = 'Detial'
      BlobType = ftMemo
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 240
    Top = 24
  end
end