data.pas

这个软件主要是管理毕业生的各种信息,包含你的成绩,毕业学校,查询、修改毕业生的信息等。

unit data;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB ;

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

var
  Dataf: TDataf;

implementation
uses global;

{$R *.DFM}

procedure TDataf.DataModuleCreate(Sender: TObject);
var ConnStr:Tstringlist;
    fileName:string;
begin
  AdoCon.Connected :=false;
  filename:=ExtractFileDir(Application.Exename)+'\bysj.mdb';//数据库得到当前应用程序目录
  if fileexists(filename)=false then
  begin
    messagedlg('请检查数据库“bysj.mdb”是否存在。',mterror,[mbok],0);
    ch:='f';
    exit;
  end;
  Connstr:=Tstringlist.Create;
  connstr.Clear ;
  ConnStr.Add('Provider=Microsoft.Jet.OLEDB.4.0;');
  ConnStr.Add('User ID=Admin;');
  ConnStr.Add('Data Source='+filename+';');
  ConnStr.Add('Mode=Share Deny None;');
  ConnStr.Add('Extended Properties="";');
  ConnStr.Add('Persist Security Info=False;');
  ConnStr.Add('Jet OLEDB:System database="";');
  ConnStr.Add('Jet OLEDB:Registry Path="";');
  ConnStr.Add('Jet OLEDB:Database Password="";');
  ConnStr.Add('Jet OLEDB:Engine Type=5;');
  ConnStr.Add('Jet OLEDB:Database Locking Mode=1;');
  ConnStr.Add('Jet OLEDB:Global Partial Bulk Ops=2;');
  ConnStr.Add('Jet OLEDB:Global Bulk Transactions=1;');
  ConnStr.Add('Jet OLEDB:Encrypt Database=False;');
  ConnStr.Add('Jet OLEDB:Don'+''''+'t Copy Locale on Compact=False;');
  ConnStr.Add('Jet OLEDB:Compact Without Replica Repair=False;');
  ConnStr.Add('Jet OLEDB:SFP=False');
  adocon.ConnectionString :=Connstr.Text ;
  Connstr.Destroy;
  try
    AdoCon.Connected :=true;
  except
    messagedlg('无法连上数据库！'+chr(13)+'请检查数据库是否破坏。',mterror,[mbok],0);
    ch:='f';
    exit;
  end;
end;


end.