dmxs.pas

来自「一个进销存软件,便于管理仓库数据」· PAS 代码 · 共 55 行

unit DMXS;

interface

uses
  Forms, SysUtils, Classes, DB, dbisamtb, FR_DSet, FR_DBSet, FR_Class;

type
  TDMX = class(TDataModule)
    XSATable1: TDBISAMTable;
    XSAQuery1: TDBISAMQuery;
    XSADatabase1: TDBISAMDatabase;
    XSADataSource1: TDataSource;
    XSADataSource2: TDataSource;
    XSTable1: TDBISAMTable;
    XSQuery1: TDBISAMQuery;
    XSDatabase1: TDBISAMDatabase;
    XSDataSource1: TDataSource;
    XSDataSource2: TDataSource;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    TMPTable1: TDBISAMTable;
    TMPQuery1: TDBISAMQuery;
    TMPDatabase1: TDBISAMDatabase;
    TMPDataSource1: TDataSource;
    TMPDataSource2: TDataSource;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMX: TDMX;

implementation

{$R *.dfm}

procedure TDMX.DataModuleCreate(Sender: TObject);
begin
  XSADatabase1.Directory:=ExtractFilePath(Application.ExeName)+'data';
  XSADatabase1.Connected:=true;
  XSATable1.Active:=true;
  XSDatabase1.Directory:=ExtractFilePath(Application.ExeName)+'data';
  XSDatabase1.Connected:=true;
  XSTable1.Active:=true;
  TMPDatabase1.Directory:=ExtractFilePath(Application.ExeName)+'data';
  TMPDatabase1.Connected:=true;
  TMPTable1.Active:=true;
end;

end.