hxms.~dpr

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

program hxms;

uses
  Forms,
  mainformunit in 'mainformunit.pas' {frm_main},
  loginformunit in 'loginformunit.pas' {frm_login},
  changepwdunit in 'changepwdunit.pas' {frm_changepwd},
  registercompanyunit in 'registercompanyunit.pas' {frm_registercompany},
  authorizationunit in 'authorizationunit.pas' {frm_authorization},
  adduserunit in 'adduserunit.pas' {frm_adduser},
  registeremployeeunit in 'registeremployeeunit.pas' {frm_registeremployee},
  registerarticleunit in 'registerarticleunit.pas' {frm_registerarticle},
  transactionunit in 'transactionunit.pas' {frm_transaction},
  addbalanceunit in 'addbalanceunit.pas' {frm_AddBalance},
  addfoodsunit in 'addfoodsunit.pas' {frm_addfoods},
  querymemberunit in 'querymemberunit.pas' {frm_querymember},
  changememberunit in 'changememberunit.pas' {frm_changemember},
  consumptioninfounit in 'consumptioninfounit.pas' {frm_consumptioninfo},
  consumptionsumunit in 'consumptionsumunit.pas' {frm_consumptionsum},
  querybalanceunit in 'querybalanceunit.pas' {frm_querybalance},
  querydeficiencyunit in 'querydeficiencyunit.pas' {frm_querydeficiency},
  queryarchievementunit in 'queryarchievementunit.pas' {frm_queryarchievement},
  querysaleunit in 'querysaleunit.pas' {frm_querysale},
  queryarticleunit in 'queryarticleunit.pas' {frm_queryarticle},
  changearticleunit in 'changearticleunit.pas' {frm_changearticle},
  queryemployeeunit in 'queryemployeeunit.pas' {frm_queryemployee},
  changeemployeeunit in 'changeemployeeunit.pas' {frm_changeemployee},
  datamoduleunit in 'datamoduleunit.pas' {DataModule1: TDataModule},
  registermemberunit in 'registermemberunit.pas' {frm_registermember};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tfrm_main, frm_main);
  Application.CreateForm(Tfrm_login, frm_login);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.CreateForm(Tfrm_registermember, frm_registermember);
  Application.Run;
end.