project1.~dpr

来自「一个功能较全的图书进销存软件,功能还算完备」· ~DPR 代码 · 共 34 行

program Project1;

uses
  Forms,
  ufPublish_JhMnt in 'ufPublish_JhMnt.pas' {fPublish_JhMnt},
  udmpublish in 'udmpublish.pas' {dmpublish: TDataModule},
  ufPublish_ChMnt in 'ufPublish_ChMnt.pas' {fPublish_ChMnt},
  ufrMain in 'ufrMain.pas' {frMain},
  Uglobal in 'Uglobal.pas',
  ufPublish_JhMnt_qr in 'ufPublish_JhMnt_qr.pas' {fPublish_JhMnt_qr: TQuickRep},
  ufbookinfo_qr in 'ufbookinfo_qr.pas' {fbookinfo_qr: TQuickRep},
  ufPBookInfo_Update in 'ufPBookInfo_Update.pas' {fPBookInfo_update},
  ufBookAlert in 'ufBookAlert.pas' {fBookAlert},
  ufOptions in 'ufOptions.pas' {fOptions},
  ufrpt_jx in 'ufrpt_jx.pas' {frpt_jx: TQuickRep},
  ufrpt_sales_qty_qr in 'ufrpt_sales_qty_qr.pas' {frpt_sales_qty_qr: TQuickRep},
  ufLogin in 'ufLogin.pas' {fLogin},
  ufPublish_DictMnt in 'ufPublish_DictMnt.pas' {fPublish_DictMnt},
  ufPublish_ProviderMnt in 'ufPublish_ProviderMnt.pas' {fPublish_ProviderMnt},
  ufPublish_MemberInfoMnt in 'ufPublish_MemberInfoMnt.pas' {fPublish_MemberInfoMnt};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tdmpublish, dmpublish);
  Application.CreateForm(TfrMain, frMain);
  Application.CreateForm(TfPublish_ProviderMnt, fPublish_ProviderMnt);
  Application.CreateForm(TfPublish_MemberInfoMnt, fPublish_MemberInfoMnt);
  fLogin:=tflogin.Create(flogin);//登录界面显示
  flogin.ShowModal;
  Application.Run;
end.