snack.dpr

简单的餐饮软件部分源码

program snack;

uses
  Forms,
  windows,
  flash in 'flash.pas' {flashform},
  SnackDM in 'SnackDM.pas' {DataM: TDataModule},
  logoform in 'logoform.pas' {snlogo},
  Snmai in 'Snmai.pas' {mainform},
  mealform in 'mealform.pas' {meal},
  manform in 'manform.pas' {cmform},
  mealnuform in 'mealnuform.pas' {fmealnu},
  cashform in 'cashform.pas' {fcash},
  payform in 'payform.pas' {fpay},
  mdlform in 'mdlform.pas' {fdlmeal},
  dlmeal in 'dlmeal.pas' {fmeallb},
  mealkey in 'mealkey.pas' {fmealkey},
  usermodel in 'usermodel.pas' {fusermodel},
  seek2 in 'seek2.pas' {fseek2},
  kwform in 'kwform.pas' {fkw},
  mealmemo in 'mealmemo.pas' {fmealmemo},
  memomeal in 'memomeal.pas' {fmemomeal},
  seek3form in 'seek3form.pas' {Fseek3},
  sysform in 'sysform.pas' {fsysetup},
  cseek in 'cseek.pas' {cform},
  pkform in 'pkform.pas' {fpk},
  delpay in 'delpay.pas' {fdelpay},
  munincome in 'munincome.pas' {funbu},
  chbill in 'chbill.pas' {fchbill};

{$R *.res}
 Var Startsystem:boolean;
begin
  Application.Initialize;
  flashform:=Tflashform.Create(Application);
  Application.CreateForm(TDataM, DataM);
  flashform.Show;
  flashform.Update;
  sleep(1000);
  startsystem:=true;
try
  DataM.SQLconADO.Open;
except
  Messagebeep(0);
  flashform.Label1.Caption:=DataM.SPlanguage.ReadString('msgbox','0001','');
  flashform.Label1.Visible:=true;
  flashform.Update;
  sleep(1000);
  flashform.Hide;
  flashform.Free;
  startsystem:=False;
  Application.Terminate;
end;
if startsystem then
begin
   Application.CreateForm(Tsnlogo,snlogo);
   flashform.Hide;
   flashform.Free;
   Application.Run;
end;
end.