saas.dpr

delphi7.0 源码 学籍管理系统源码

program SAAS;

uses
  Forms,
  Windows,
  uMain in 'uMain.pas' {frmMain},
  uDM in 'uDM.pas' {DM: TDataModule},
  uSetGrade in 'uSetGrade.pas' {dlgSetGrade},
  uFrameGrade in 'uFrameGrade.pas' {FrameGrade: TFrame},
  uSetSchool in 'uSetSchool.pas' {dlgSchool},
  uGlobe in 'uGlobe.pas',
  uFlash in 'uFlash.pas' {fFlash},
  uLoginPrompt in 'uLoginPrompt.pas' {dlgLoginPrompt},
  uEditPassword in 'uEditPassword.pas' {dlgEditPassword},
  uSetDefaultValue in 'uSetDefaultValue.pas' {dlgSetDefalutValue},
  uAbout in 'uAbout.pas' {dlgAbout},
  uImportData in 'uImportData.pas' {dlgImport},
  uSelectClass in 'uSelectClass.pas' {dlgSelectClass};

{$R *.res}

var
  hMutex: THandle;
begin
  Application.Initialize;
  hmutex:=createmutex(nil,false,'SAAS');
  if WaitForSingleObject(hMutex, 0) <> wait_TimeOut then
    begin
      SetGlobeVar;
      Application.Title:='学籍管理';
      Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TDM, DM);
  Application.Run;
    end
  else
    Application.MessageBox('系统已经运行!','系统提示',0);
end.