dynamdatamodule.dpr

来自「Delphi面向对象编程思想附书源码 好用哦！」· DPR 代码 · 共 34 行

program DynamDatamodule;
{
Tables:
   (101 in TAG field) DD_Customer - 客户表
   (102 in TAG field) DD_Address - 客户地址表
   (103 in TAG field) DD_Financial - 银行帐户表
   (104 in TAG field) DD_Order - 订单表
}
uses
  Forms,
  bde,
  dbtables,
  MainForm in 'MainForm.pas' {frmMain},
  Customer in 'Customer.pas' {frmCustomer},
  Datamodule in 'Datamodule.pas' {dtmDynamicDatamod: TDataModule},
  Financial in 'Financial.pas' {frmFinancial},
  Order in 'Order.pas' {frmOrder},
  BusinessObj in 'BusinessObj.pas';

{$R *.RES}

begin
  Application.Initialize;
    {动态设置BDE，为数据库设置别名、路径}
  bde.DbiInit(nil);
  Session.ConfigMode := cmSession;
  Session.AddStandardAlias('DD_Test',
          '.',
          'DBASE');
  Session.ConfigMode := cmAll;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.