u_dm.pas

《机动车驾驶员模拟考试系统2008》软件全面、准确地包含了公安部2007年4月1日新发布的全国统一题库

unit U_DM;

interface

uses
   DB, ADODB,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, PDJ_XPC;

type
  TDM = class(TDataModule)
    AdoCnn: TADOConnection;
    Qry: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    //通用查询语句
     procedure ExecSql(Qry:TAdoQuery;SqlStr:String;Flag:Boolean);
  end;

var
  DM: TDM;
  SqlStr:String;
  
implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
  CnnStr:String;
begin
  CnnStr:=' Provider=Microsoft.Jet.OLEDB.4.0; ';
  CnnStr:=CnnStr+' User ID=Admin;Data Source= ';
  CnnStr:=CnnStr+ExtractFilePath(Application.ExeName);
  CnnStr:=CnnStr+'Exam.MDB;';
  CnnStr:=CnnStr+'Mode=Share Deny None; ';
  //CnnStr:=CnnStr+'Mode=Share Deny Read|Share Deny Write;';
  CnnStr:=CnnStr+'Extended Properties=""; ';
  CnnStr:=CnnStr+'Jet OLEDB:System database=""; ';
  CnnStr:=CnnStr+'Jet OLEDB:Registry Path=""; ';
  CnnStr:=CnnStr+'Jet OLEDB:Database Password=""; ';
  CnnStr:=CnnStr+'Jet OLEDB:Engine Type=5; ';
  CnnStr:=CnnStr+'Jet OLEDB:Database Locking Mode=0; ';
  CnnStr:=CnnStr+'Jet OLEDB:Global Partial Bulk Ops=2; ';
  CnnStr:=CnnStr+'Jet OLEDB:Global Bulk Transactions=1; ';
  CnnStr:=CnnStr+'Jet OLEDB:New Database Password=""; ';
  CnnStr:=CnnStr+'Jet OLEDB:Create System Database=False; ';
  CnnStr:=CnnStr+'Jet OLEDB:Encrypt Database=False; ';
  CnnStr:=CnnStr+'Jet OLEDB:Don'+''+''''+''+'t Copy Locale on Compact=False; ';
  CnnStr:=CnnStr+'Jet OLEDB:Compact Without Replica Repair=False; ';
  CnnStr:=CnnStr+'Jet OLEDB:SFP=False ';
  try
    with AdoCnn do
         begin
           Connected:=False;
           ConnectionString:=CnnStr;
           Connected:=True;
         end;
  except
    Application.MessageBox('数据库连接失败!','连接',
    MB_OK+MB_IconInformation);
    Application.Terminate;
  end;

end;

//通用查询语句
procedure TDM.ExecSql(Qry:TAdoQuery;SqlStr:String;Flag:Boolean);
begin
  with Qry do
       begin
         Close;
         Sql.Clear;
         Sql.Add(SqlStr);
         Prepared;
         if Flag then
            Open
         else
           ExecSql;
       end;
end;

end.