datamodel.pas

本人帮别人写的一个卡特尔16F性格检测程序

unit dataModel;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDataModule1 = class(TDataModule)
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    ADOTable2: TADOTable;
    ADOTable2YinSuBH: TWideStringField;
    ADOTable2YinSuName: TWideStringField;
    ADOQuery1: TADOQuery;
    ADOTable3: TADOTable;
    ADOTable4: TADOTable;
    ADOTable4YinSuQID: TIntegerField;
    ADOTable4YinSqTitle: TWideStringField;
    ADOTable4YinSuID: TWideStringField;
    ADOTable4Atype: TIntegerField;
    ADOTable4QA: TWideStringField;
    ADOTable4QB: TWideStringField;
    ADOTable4QC: TWideStringField;
    ADOTable4QAf: TIntegerField;
    ADOTable4QBf: TIntegerField;
    ADOTable4QCf: TIntegerField;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    ADOQuery4: TADOQuery;
    ADOQuery4bh: TAutoIncField;
    ADOQuery4xm: TWideStringField;
    ADOQuery4xb: TWideStringField;
    ADOQuery4nl: TIntegerField;
    ADOQuery4zy: TWideStringField;
    ADOQuery4cssj: TDateTimeField;
    ADOCommand1: TADOCommand;
    ADOTable5: TADOTable;
    ADOTable5ID: TWideStringField;
    ADOTable5title: TWideStringField;
    ADOTable5PID: TWideStringField;
    ADOTable5isYz: TBooleanField;
    ADOTable5isRoot: TBooleanField;
    ADOTable5bgms: TMemoField;
    ADOTable6: TADOTable;
    ADOTable6id: TAutoIncField;
    ADOTable6rybh: TIntegerField;
    ADOTable6ysbh: TWideStringField;
    ADOTable6bzf: TIntegerField;
    ADOQuery5: TADOQuery;
    ADOQuery5ysbh: TWideStringField;
    ADOQuery5rs: TIntegerField;
    ADOQuery5zs: TFloatField;
    ADOQuery5bzc: TFloatField;
    ADOQuery5fc: TFloatField;
    ADOQuery6: TADOQuery;
    ADOTablenld: TADOTable;
    ADOTablenldID: TAutoIncField;
    ADOTablenldBage: TIntegerField;
    ADOTablenldEage: TIntegerField;
    ADOTable7: TADOTable;
    ADOTable7ID: TAutoIncField;
    ADOTable7yinsID: TWideStringField;
    ADOTable7Bfz: TIntegerField;
    ADOTable7Efz: TIntegerField;
    ADOCommand2: TADOCommand;
    ADOCommand3: TADOCommand;
    ADOQuery7: TADOQuery;
    ADOTable8: TADOTable;
    ADOTable8ID: TAutoIncField;
    ADOTable8xbCode_CodeID: TWideStringField;
    ADOTable8xbCode_CodeName: TWideStringField;
    ADOTable8zyfCode_CodeID: TWideStringField;
    ADOTable8zyfCode_CodeName: TWideStringField;
    ADOTable8Bage: TIntegerField;
    ADOTable8Eage: TIntegerField;
    ADOTable8YinSuBH: TWideStringField;
    ADOTable8YinSuName: TWideStringField;
    ADOTable8Bfz: TIntegerField;
    ADOTable8Efz: TIntegerField;
    ADOTable8xgms: TMemoField;
    ADOQuery8: TADOQuery;
    ADOQuery9: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses main;

{$R *.dfm}

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
cnnstring : string;
begin
 //
  //'cnnstring = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +  +';Persist Security Info=False' ;
  
end;

end.