bysj.dpr

这个软件主要是管理毕业生的各种信息,包含你的成绩,毕业学校,查询、修改毕业生的信息等。

program bysj;

uses
  Controls,
  forms,
  Windows,
  SysUtils,
  data in 'data.pas' {Dataf: TDataModule},
  global in 'Global.pas',
  about in 'About.pas' {aboutf},
  pass in 'pass.pas' {passf},
  jbqkxg in 'jbqkxg.pas' {jbqkxgf},
  jbqkcx in 'jbqkcx.pas' {jbqkcxf},
  zykxg in 'zykxg.pas' {zykxgf},
  yhgl in 'yhgl.pas' {yhglf},
  main in 'main.pas' {mainf};

{$R *.RES}
var hMutex:HWND;
    Ret:Integer;
begin
  ch:='t';
  Application.Title := '毕业设计';
  Application.Initialize;
  DateSeparator:='-';
  shortdateformat:='yyyy-mm-dd';
  hMutex:=CreateMutex(nil,False,'bysj');
  Ret:=GetLastError;
  if Ret<>ERROR_ALREADY_EXISTS Then
  begin
    Application.CreateForm(TDataf, Dataf);
    Application.CreateForm(Tmainf, mainf);
    if ch='t' then
    begin
      Application.CreateForm(Tpassf, passf);
      passf.ShowModal;
      if ch='t' then
      begin
        passf.free;
        Application.Run;
      end else
        passf.free;
    end;
    dataf.free;
    mainf.free;
  End Else
    Application.MessageBox('《业设计程序》已经运行','提示!',MB_OK);
  ReleaseMutex(hMutex);
end.