archives.~dpr

来自「适合新手 绝对精品 档案管理系统 本人花钱购买来的源代」· ~DPR 代码 · 共 37 行

program Archives;

uses
  Forms,
  Main in 'Main.pas' {F_Main1},
  Inherit in 'Inherit.pas' {F_Inherit},
  Archives_Config in 'Archives_Config.pas' {F_Config},
  MonthCalendar in 'MonthCalendar.pas' {F_Date},
  LogOn in 'LogOn.pas' {F_LogOn},
  Archives_AboutBox in 'Archives_AboutBox.pas' {F_ABox},
  Archives_Query in 'Archives_Query.pas' {F_Query},
  DataModule in 'DataModule.pas' {DM: TDataModule},
  Archives_Class in 'Archives_Class.pas' {F_Class},
  Archives_Tank in 'Archives_Tank.pas' {F_Tank},
  Archives_Manage in 'Archives_Manage.pas' {F_Manage},
  Borrow_Return in 'Borrow_Return.pas' {F_BReturn};

{$R *.res}

begin         //程序开始执行入口点
  Application.Initialize;
  Application.Title := '档案管理系统';

  F_LogOn := TF_LogOn.Create(Application);  //动态创建软件登录界面窗体
  F_LogOn.Show;   //显示软件登录界面窗口，并且程序往下执行，这里绝对不能用ShowModal来代替
  F_LogOn.Update; //更新显示

  Application.CreateForm(TF_Main, F_Main);
  //创建MDI主窗体
  Application.CreateForm(TDM, DM);          //创建数据模块窗体
  Application.CreateForm(TF_Date, F_Date);  //创建日期选择窗体

  F_LogOn.Close;  //关闭软件登录界面窗口
  F_LogOn.Free;   //释放窗体对象
  Application.Run;   //开始运行
end.