possystem.~dpr

来自「商场销售信息系统只要用于小商场的销售管理」· ~DPR 代码 · 共 30 行

program PosSystem;

uses
  Forms,
  uMain in 'uMain.pas' {frmMain},
  uSplb in 'uSplb.pas' {frmsplb},
  uPublic in 'uPublic.pas',
  uSpgg in 'uSpgg.pas' {frmSpGG},
  Uabout in 'Uabout.pas' {frmAbout},
  ULogin in 'ULogin.pas' {frmLogin},
  UPassword in 'UPassword.pas' {frmChangePassword},
  UXsd in 'UXsd.pas' {frmXsd},
  Uuser in 'Uuser.pas' {frmUser},
  UGt in 'UGt.pas' {frmGt},
  Ureport in 'Ureport.pas' {frmReport},
  Ufind in 'Ufind.pas' {frmFind},
  UFenLeipas in 'UFenLei.pas' {frmFenlei};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '商场销售信息系统';
  frmLogin:=TfrmLogin.Create(Application);
  frmLogin.ShowModal;
  if Login then
    Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.