datamodule.~pas

学校里做课程设计的东西,在delphi环境下运行,采用Sql2000数据库

unit DataModule;

interface

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

type
  TDataContrls = class(TDataModule)
    HDataSource: TDataSource;
    HTable: TTable;
    RDataSource: TDataSource;
    RTable: TTable;
    CTable: TTable;
    CDataSource: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataContrls: TDataContrls;

implementation

{$R *.DFM}

procedure TDataContrls.DataModuleCreate(Sender: TObject);
var
  success : Boolean;
begin
  success:=True;
    HTable.Close;
    HTable.Open;


    CTable.Close;
    CTable.Open;


    RTable.Close;
    RTable.Open;
  if not success then
    ShowMessage('有数据库文件不存在,请进入系统后马上在系统维护中恢复数据.');
end;

end.