datamodule.pas

有需要的同仁载回去慢慢研究

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;

  if fileexists('House.dbf') then
  begin
    HTable.DatabaseName := ExtractFilePath (Application.ExeName);
    HTable.TableName := 'House.dbf';
    HTable.Close;
    HTable.Open;
  end
  else success:=False;

  if fileexists('Contract.dbf') then
  begin
    CTable.DatabaseName := ExtractFilePath (Application.ExeName);
    CTable.TableName := 'Contract.dbf';
    CTable.Close;
    CTable.Open;
  end
  else success:=False;

  if fileexists('Rent.dbf') then
  begin
    RTable.DatabaseName := ExtractFilePath (Application.ExeName);
    RTable.TableName := 'Rent.dbf';
    RTable.Close;
    RTable.Open;
  end
  else success:=False;

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

end.