stumanage.dpr

老年人大学的学籍管理,主要是学费收取

program stumanage;

uses
  Forms,
  windows,
  base in 'base.pas' {baseform},
  umain in 'umain.pas' {frmmain},
  ulogin in 'ulogin.pas' {frmlogin},
  modifypsw in 'modifypsw.pas' {frmpassword},
  sexcode in 'code\sexcode.pas' {frmsexcode},
  educode in 'code\educode.pas' {frmeducode},
  racecode in 'code\racecode.pas' {frmracecode},
  marrycode in 'code\marrycode.pas' {frmmarrycode},
  partycode in 'code\partycode.pas' {frmpartycode},
  unitcode in 'code\unitcode.pas' {frmunitcode},
  artcode in 'code\artcode.pas' {frmartcode},
  newstu in 'stu\newstu.pas' {frmnewstu},
  pub in 'pub.pas',
  dm in 'code\dm.pas' {codedm: TDataModule},
  IMCode in 'code\IMCode.pas',
  money in 'stu\money.pas' {frmmoney},
  oldstu in 'stu\oldstu.pas' {frmoldstu},
  log in 'tool\log.pas' {frmlog},
  user in 'user.pas' {frmuser},
  dep in 'code\dep.pas' {frmdepset},
  classset in 'code\classset.pas' {frmclassset},
  about in 'help\about.pas' {frmabout},
  oldstufind in 'stu\oldstufind.pas' {frmoldstufind},
  newstufind in 'stu\newstufind.pas' {frmnewstufind},
  oldstumoney in 'stu\oldstumoney.pas' {frmoldstumoney},
  person in 'static\person.pas' {frmsumperson},
  marry in 'static\marry.pas' {frmmarry},
  jiaofei in 'static\jiaofei.pas' {frmjiaofei},
  weijiao in 'static\weijiao.pas' {frmweijiao},
  edu in 'static\edu.pas' {frmedu},
  background in 'static\background.pas' {frmbackground},
  rptnew in 'stu\rptnew.pas' {frmrptnew},
  rptstu in 'stu\rptstu.pas' {frmrptstu},
  rptold in 'stu\rptold.pas' {frmrptold},
  rptjiao in 'report\rptjiao.pas' {frmrptjiao},
  rptwei in 'report\rptwei.pas' {frmrptwei},
  rptstudj in 'report\rptstudj.pas' {frmrptstudj},
  kaoqin in 'report\kaoqin.pas' {frmrptkaoqin},
  baoming in 'report\baoming.pas' {frmrptmajor},
  tuixue in 'stu\tuixue.pas' {frmtuixue},
  tuikuan in 'report\tuikuan.pas' {frmrpttui},
  splash in 'splash.pas' {frmsplash},
  todaymoney in 'static\todaymoney.pas' {frmtodaymoney},
  todaytuikuan in 'static\todaytuikuan.pas' {frmtodaytuikuan},
  stumoney in 'stumoney.pas' {frmstumoney},
  datesum in 'static\datesum.pas' {frmdatesum};

{$R *.res}

var
  hMutex:HWND;    //句柄
begin
  hMutex:=CreateMutex(nil,false,'学籍管理系统');     //创建句柄
  if GetLastError<>ERROR_ALREADY_EXISTS then
    begin
    Application.Initialize;
    try
      frmsplash:=tfrmsplash.create(application);
      frmsplash.show;
      frmsplash.update;
      sleep(3000);
      Application.Title :='学籍管理系统V1.0 by shuihan';
      Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(Tcodedm, codedm);
  Application.CreateForm(Tfrmmoney, frmmoney);
  finally
      frmsplash.Free;
      frmmain.Show;
      Application.Run;
    end;      //try
    end  //if
  else
    Application.MessageBox('zp提示您,本程序已经运行，您不能再次运行本程序！','警告！！！',MB_OK+mb_iconwarning);
    ReleaseMutex(hMutex);            //释放句柄
end.