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.