dm_unit.pas

学校班级教学管理系统 DELPHI7下的

unit DM_Unit;

interface

uses
  SysUtils, Classes, DB, ADODB, Windows, Dialogs, Forms, DBActns, ActnList;
type
  TDM = class(TDataModule)
    ADOConn: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function LinkData: Boolean;
  end;

var
  DM: TDM;

implementation

uses
  Common_Unit, TeachMain_Unit, TeacherSet_Unit, DBSetup_Unit;

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
  if LinkData = False then
  begin
    Application.MessageBox('数据库连接失败!','错误',16);
    frmDBSetup :=TfrmDBSetup.Create(Self);
    frmDBSetup.ShowModal;
  end;
end;

function TDM.LinkData: Boolean;
begin
  try
    ADOConn.Close;
    ADOConn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;'       //打开数据库的连接
                              + 'Data Source=' + DBConFileName(FileName)
                              + ';Persist Security Info=False';
    ADOConn.Open;
    Result := True;
  except
    Result := False;
  end;
end;

end.