mdiapp.dpr

餐饮管理源代码 使用BDE Administrator在本地机器上添加一个Paradox数据库别名命名为WorkData

program Mdiapp;

uses
  Forms,
  MAIN in 'MAIN.PAS' {MainForm},
  CHILDWIN in 'CHILDWIN.PAS' {MDIChild},
  about in 'about.pas' {AboutBox},
  registerMember in 'registerMember.pas' {frmRegisterMember},
  registerEmployee in 'registerEmployee.pas' {frmRegisterEmployee},
  registerArticle in 'registerArticle.pas' {frmRegisterArticle},
  transaction in 'transaction.pas' {frmTransaction},
  queryMember in 'queryMember.pas' {frmQueryMember},
  consumptionInfo in 'consumptionInfo.pas' {frmConsumptionInfo},
  queryEmployee in 'queryEmployee.pas' {frmQueryEmployee},
  changePwd in 'changePwd.pas' {frmChangePwd},
  registerCompany in 'registerCompany.pas' {frmRegisterCompany},
  authorization in 'authorization.pas' {frmAuthorization},
  logIn in 'logIn.pas' {frmLogIn},
  addUser in 'addUser.pas' {frmAddUser},
  addBalance in 'addBalance.pas' {frmAddBalance},
  addGoods in 'addGoods.pas' {frmAddGoods},
  dataModule in 'dataModule.pas' {dm: TDataModule},
  changeMember in 'changeMember.pas' {frmChangeMember},
  deleteMember in 'deleteMember.pas' {frmDeleteMember},
  consumptionSum in 'consumptionSum.pas' {frmConsumptionSum},
  queryBalance in 'queryBalance.pas' {frmQueryBalance},
  queryDeficiency in 'queryDeficiency.pas' {frmQueryDeficiency},
  changeEmployee in 'changeEmployee.pas' {frmChangeEmployee},
  deleteEmployee in 'deleteEmployee.pas' {frmDeleteEmployee},
  queryAchievement in 'queryAchievement.pas' {frmQueryArchievement},
  querySale in 'querySale.pas' {frmQuerySale},
  queryArticle in 'queryArticle.pas' {frmQueryArticle},
  changeGoods in 'changeGoods.pas' {frmChangeGoods},
  deleteGoods in 'deleteGoods.pas' {frmDeleteGoods};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TfrmConsumptionSum, frmConsumptionSum);
  Application.CreateForm(TfrmQueryBalance, frmQueryBalance);
  Application.CreateForm(TfrmQueryDeficiency, frmQueryDeficiency);
  Application.CreateForm(TfrmChangeEmployee, frmChangeEmployee);
  Application.CreateForm(TfrmDeleteEmployee, frmDeleteEmployee);
  Application.CreateForm(TfrmQueryArchievement, frmQueryArchievement);
  Application.CreateForm(TfrmQuerySale, frmQuerySale);
  Application.CreateForm(TfrmChangeGoods, frmChangeGoods);
  Application.CreateForm(TfrmDeleteGoods, frmDeleteGoods);
  Application.Run;
end.