maindatamodule.pas

很不错的软件请使用

unit MainDataModule;

interface

uses
  Windows, SysUtils, Classes, DB, ADODB;



type
  TDM = class(TDataModule)
    ADOCon: TADOConnection;
    ADOTable2: TADOTable;
    procedure DataModuleCreate(Sender: TObject);
    procedure ondestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;
  ListFieldsSelect:string;
  
implementation

uses MainFormUnit;


{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
 ADOCon.ConnectionString:=MainAppConString;
 try
  Adocon.Connected:=true;
 except
  MessageBox(0,'无法打开数据库','错误',MB_OK);
  exit;
 end;
  //获取SELECT子句
  ListFieldsSelect:='编号,身份证号,姓名';       //赋值
  try
   ADOtable2.Active:=false;
   ADOtable2.TableName:='FieldsSelect';
   ADOtable2.Active:=true;
   if ADOtable2.Fields[0].asboolean then ListFieldsSelect:=ListFieldsSelect+',性别';
   if ADOtable2.Fields[1].asboolean then ListFieldsSelect:=ListFieldsSelect+',民族';
   if ADOtable2.Fields[2].asboolean then ListFieldsSelect:=ListFieldsSelect+',户籍地址';
   if ADOtable2.Fields[3].asboolean then ListFieldsSelect:=ListFieldsSelect+',工作单位';
   if ADOtable2.Fields[4].asboolean then ListFieldsSelect:=ListFieldsSelect+',婚否';
   if ADOtable2.Fields[5].asboolean then ListFieldsSelect:=ListFieldsSelect+',暂住地址';
   if ADOtable2.Fields[6].asboolean then ListFieldsSelect:=ListFieldsSelect+',暂住时间';
   if ADOtable2.Fields[7].asboolean then ListFieldsSelect:=ListFieldsSelect+',电话';
   if ADOtable2.Fields[8].asboolean then ListFieldsSelect:=ListFieldsSelect+',附注';
   if ADOtable2.Fields[9].asboolean then ListFieldsSelect:=ListFieldsSelect+',照片';
   if ADOtable2.Fields[10].asboolean then ListFieldsSelect:=ListFieldsSelect+',备注';
   ADOtable2.Active:=false;  
  except
   MessageBox(0,'无法打开数据库','错误',MB_OK);
   exit;
  end;
end;

procedure TDM.ondestroy(Sender: TObject);
begin
Adocon.Connected:=false;
ADOCon.ConnectionString:='';
end;

end.