datamodule.pas

软件实现了以下主要功能：1.手动生成试卷；2.自动生成试卷；3.抽取现有试卷；4.用户管理；5.数据库管理。

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

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

var
  BYSJ_DM: TBYSJ_DM;

implementation

{$R *.dfm}

procedure TBYSJ_DM.DataModuleCreate(Sender: TObject);
begin
  TiKu_ADOC.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DB\TiKu.mdb;'+
    'User ID=Admin;Jet OLEDB:Database Password=19810802;Persist Security Info=False';
  TiKu_ADOC.Open;
end;

procedure TBYSJ_DM.DataModuleDestroy(Sender: TObject);
begin
  TiKu_ADOC.Close;
end;

end.