sm.~dpr

来自「商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品」· ~DPR 代码 · 共 53 行

program sm;

uses
  Forms,
  mn in 'mn.pas' {Main},
  about in 'about.pas' {AboutBox},
  user in 'user.pas' {uform},
  front in 'front.pas' {Form1},
  maen in 'maen.pas' {Form2},
  Unit4 in 'Unit4.pas' {Form4},
  Unit5 in 'Unit5.pas' {Form5},
  Unit7 in 'Unit7.pas' {Form7},
  Unit8 in 'Unit8.pas' {Form8},
  Unit1 in 'Unit1.pas' {datamodule1: TDataModule},
  gdindex in 'gdindex.pas' {Form9},
  cmin in 'cmin.pas' {Form10},
  help in 'help.pas' {Form11},
  gmxx in 'gmxx.pas' {Form12},
  bb in 'bb.pas' {bform},
  sqlu in 'sqlu.pas' {sqlform};

{$R *.RES}

begin
  Application.Initialize;
  form1:=Tform1.create(application);
  try
  form1.makesplash;
  Application.Title := '商品数据库管理系统';
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(Tuform, uform);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(Tdatamodule1, datamodule1);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(Tbform, bform);
  Application.CreateForm(Tsqlform, sqlform);
  form1.hide;
  form1.close;
  finally
  form1.free;
  end;
  Application.Run;

  end.