rsgl.dpr

来自「人事管理系统： 部门管理（添加、删除、修改） 员工信息管理（员工信息添加、删」· DPR 代码 · 共 51 行

program RSGL;

uses
  Forms,
  Main in 'Source\Main.pas' {MainForm},
  About in 'Source\About.pas' {AboutForm},
  Login in 'Source\Login.pas' {LoginForm},
  Splash in 'Source\Splash.pas' {SplashForm},
  bmwh in 'Source\Bmwh.pas' {BmwhForm},
  Ryxxwh in 'Source\Ryxxwh.pas' {RyxxwhForm},
  Jycdwh in 'Source\Jycdwh.pas' {JycdwhForm},
  dmRsgl in 'Source\dmRsgl.pas' {dmRsgl: TDataModule},
  RyxxEdit in 'Source\RyxxEdit.pas' {RyxxEditForm},
  RSGLCommon in 'Source\RsglCommon.pas';

{$R *.res}

function Login: Boolean;
begin
  Result := False;
  with TLoginForm.Create(nil) do
  try
    if ShowModal = 2 then Exit;    // mrCancel
    UserName := cbUserName.Text;
  finally
    Free;
  end;
  Result := True;
end;

begin
  Application.Initialize;

  ExePath := GetExePath;
  systemPath := ExePath + 'system\';
  DataPath := ExePath + 'data\';
  if not Login then Exit;

  //创建欢迎窗体
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  Application.ProcessMessages;
  Application.CreateForm(TMainForm, MainForm);
  //消除欢迎窗体
  while not SplashForm.Timeout do
    Application.ProcessMessages;
  SplashForm.Free;

  Application.Run;
end.