datamodul.pas

DELPHI计算机科学系教务管理系统,带论文设计,不错的参考

unit DataModul;

interface

uses
  windows,forms,SysUtils, Classes, DB, inifiles, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
      uno,uname:string;
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses Longon;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
var
  inifile:Tinifile;
  filename:string;
  connstring:string;
  userid:string;
  provider:string;
  password:string;
  datasource:string;
  initialcatalog:string;
begin
  filename:=changefileext(application.ExeName,'.ini');
  inifile:=Tinifile.Create(filename);  //建立.ini文件
  if not fileexists(filename) then
  begin
    application.MessageBox('没有找到数据库配置文件','错误提示',mb_iconerror);
    application.Terminate;
  end
  else
  begin
    try
      try
        //读取.ini文件里的内容并组合成连接字符串
        provider:=inifile.ReadString('adoconnection','Provider','');
        userid:=inifile.ReadString('adoconnection','User ID','');
        password:=inifile.ReadString('adoconnection','Password','');
        initialcatalog:=inifile.ReadString('adoconnection','Initial Catalog','');
        datasource:=inifile.ReadString('adoconnection','Data Source','');
        connstring:='Provider='+provider+';User ID='+userid+';Password='+password+';Initial Catalog='+initialcatalog+';Data Source='+datasource;
      except
        application.MessageBox('读取数据时发生错误','错误提示',mb_iconerror);
        application.Terminate;
      end;
    finally
      inifile.Free;
    end;
  end;
  try
    ADOConnection1.Connected:=false;  //数据连接初始为断开
    ADOConnection1.ConnectionString:=connstring;
    ADOConnection1.Connected:=true;  //数据连接成功
  except
    application.MessageBox('连接数据库不成功','错误提示',mb_iconerror);
    application.Terminate;
  end;  

end;

end.