paboxfrm.dpr

来自「该文件主要应用于档案资料管理」· DPR 代码 · 共 33 行

program PABoxFrm;

uses
  Forms,
  Main in '..\soft\Main.pas' {MainFrm},
  DataModule in 'DataModule.pas' {DM: TDataModule},
  MonthCalendar in 'MonthCalendar.pas' {DateFrm},
  Archives_Tank in 'Archives_Tank.pas' {TankFrm},
  Inherit in 'Inherit.pas' {TF_Inherit},
  Archives_Class in 'Archives_Class.pas' {ClassFrm},
  Archives_Query in 'Archives_Query.pas' {QueryFrm},
  Archives_BReturn in 'Archives_BReturn.pas' {BReturnFrm},
  Archives_AboutBox in 'Archives_AboutBox.pas' {ABoxFrm},
  Archives_Manage in 'Archives_Manage.pas' {ManageFrm},
  LogOn in '..\soft\LogOn.pas' {LogOnFrm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title:='档案管理系统';
  LogOnFrm:=TLogOnFrm.Create(Application);
  LogOnFrm.Show;
  LogOnFrm.Update;
  Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TDateFrm, DateFrm);
  Application.CreateForm(TLogOnFrm, LogOnFrm);
  LogOnFrm.Close;
  LogOnFrm.Free;
  Application.Run;
end.