personmanage.dpr

来自「用于计算机专业程序设计 大家可以共同的分享. 如果喜欢请收藏」· DPR 代码 · 共 25 行

program PersonManage;

uses
  Forms,
  Umain in 'Umain.pas' {fmain},
  Udm in 'Udm.pas' {dm: TDataModule},
  Ulogin in 'Ulogin.pas' {Frm_Login},
  UFunc in 'UFunc.pas',
  Uperson in 'Uperson.pas' {Fperson},
  Uchang in 'Uchang.pas' {Fchang},
  Ukq in 'Ukq.pas' {Fkq},
  Uachi in 'Uachi.pas' {Fachi},
  Udep in 'Udep.pas' {Fdep};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tfmain, fmain);
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(TFrm_Login, Frm_Login);
  if Frm_Login.ShowModal <>1 then exit;
  Application.Run;
end.