project1.~dpr

来自「ERP库存管理系统,分为ABC管理库存上下限报警等功能」· ~DPR 代码 · 共 42 行

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {main_prog},
  Unit2 in 'Unit2.pas' {user_login},
  Unit3 in 'Unit3.pas' {create_user},
  Unit4 in 'Unit4.pas' {DataModule4: TDataModule},
  Unit5 in 'Unit5.pas' {modify_passwd},
  Unit6 in 'Unit6.pas' {create_storage},
  Unit7 in 'Unit7.pas' {storage_type},
  Unit8 in 'Unit8.pas' {storage_number},
  Unit9 in 'Unit9.pas' {short_storage},
  Unit10 in 'Unit10.pas' {over_storage},
  Unit11 in 'Unit11.pas' {act_sum},
  Unit12 in 'Unit12.pas' {in_storage},
  Unit13 in 'Unit13.pas' {in_sata},
  Unit14 in 'Unit14.pas' {out_sata},
  Unit15 in 'Unit15.pas' {Form15};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tmain_prog, main_prog);
  Application.CreateForm(Tuser_login, user_login);
  Application.CreateForm(Tcreate_user, create_user);
  Application.CreateForm(TDataModule4, DataModule4);
  Application.CreateForm(Tmodify_passwd, modify_passwd);
  Application.CreateForm(Tcreate_storage, create_storage);
  Application.CreateForm(Tstorage_type, storage_type);
  Application.CreateForm(Tstorage_number, storage_number);
  Application.CreateForm(Tshort_storage, short_storage);
  Application.CreateForm(Tover_storage, over_storage);
  Application.CreateForm(Tact_sum, act_sum);
  Application.CreateForm(Tin_storage, in_storage);
  Application.CreateForm(Tin_sata, in_sata);
  Application.CreateForm(Tout_sata, out_sata);
  Application.CreateForm(TForm15, Form15);
  Application.Run;
end.