dmcg.pas

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

unit DMCG;

interface

uses
  Forms, SysUtils, Classes, dbisamtb, DB;

type
  TDMC = class(TDataModule)
    CGQuery1: TDBISAMQuery;
    CGDatabase1: TDBISAMDatabase;
    CGDataSource1: TDataSource;
    CGDataSource2: TDataSource;
    CGTable1: TDBISAMTable;
    CGAQuery1: TDBISAMQuery;
    CGADatabase1: TDBISAMDatabase;
    CGADataSource1: TDataSource;
    CGADataSource2: TDataSource;
    CGATable1: TDBISAMTable;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMC: TDMC;

implementation

{$R *.dfm}

procedure TDMC.DataModuleCreate(Sender: TObject);
begin
  CGADatabase1.Directory:=ExtractFilePath(Application.ExeName)+'data';
  CGADatabase1.Connected:=true;
  CGATable1.Active:=true;
  CGDatabase1.Directory:=ExtractFilePath(Application.ExeName)+'data';
  CGDatabase1.Connected:=true;
  CGTable1.Active:=true;

end;

end.