bookmis.dpr

来自「别人的,不是我的,让大家参考一下吧,这个设计的挺好的」· DPR 代码 · 共 33 行

program BOOKMIS;

uses
  Forms,
  Sysutils,
  Main in 'MAIN.PAS' {MainForm},
  uLogin in 'uLogin.pas' {frmLogin},
  uPublic in 'uPublic.pas',
  uRightsSetting in 'uRightsSetting.pas' {frmRightSetting},
  uReaderSetting in 'uReaderSetting.pas' {frmReaderSetting},
  uBookClassSetting in 'uBookClassSetting.pas' {frmBookClassSetting},
  uBookIn in 'uBookIn.pas' {frmBookIn},
  uBookModify in 'uBookModify.pas' {frmBookModify},
  uBookSearch in 'uBookSearch.pas' {frmBookSearch},
  uBookLend in 'uBookLend.pas' {frmBookLend},
  uShowBookF in 'uShowBookF.pas' {ShowBookF},
  uViewF in 'uViewF.pas' {ViewF},
  uOwnMsgF in 'uOwnMsgF.pas' {OwnMsgF};

{$R *.RES}

begin
    Application.Initialize;

    DBName := GetCurrentDir+'\Database';
    Application.CreateForm(TMainForm, MainForm);
    Application.CreateForm(TShowBookF, ShowBookF);
    Application.CreateForm(TViewF, ViewF);
    Application.CreateForm(TOwnMsgF, OwnMsgF);
    
    Application.Run;
end.