manage.dpr

学费管理系统,学校使用

program Manage;

{$R *.res}

uses
  sharemem,
  windows,
  forms,
  Controls,
  adodb,
  sysutils,
  commonunit in 'commonunit.pas',
  DepartmentUnit in 'DepartmentUnit.pas' {Departmentform},
  DMUnit in 'DMUnit.pas' {dm: TDataModule},
  FirstRegUnit in 'FirstRegUnit.pas' {FirstRegform},
  FlashUnit in 'FlashUnit.pas' {Flashform},
  initDBUnit in 'initDBUnit.pas' {InitDBform},
  Login in 'Login.pas' {Loginform},
  MainformUnit in 'MainformUnit.pas' {mainform},
  OldRegUnit in 'OldRegUnit.pas' {oldregform},
  ScholarUnit in 'ScholarUnit.pas' {ScholarForm},
  SpecUnit in 'SpecUnit.pas' {specform},
  tipUnit in 'tipUnit.pas' {tipform},
  editRegUnit in 'editRegUnit.pas' {editregform},
  DecreaseUnit in 'DecreaseUnit.pas' {Decreaseform},
  inputUnit in 'inputUnit.pas' {InputForm},
  studentinfosearchUnit in 'studentinfosearchUnit.pas' {studentinfosearchform},
  personinfosearchUnit in 'personinfosearchUnit.pas' {personinfosearchform},
  personinfoeditUnit in 'personinfoeditUnit.pas' {personinfoeditform},
  statUnit in 'statUnit.pas' {statform},
  paydetailUnit in 'paydetailUnit.pas' {paydetailform},
  decreasedetailUnit in 'decreasedetailUnit.pas' {decreasedetailform},
  owedetailUnit in 'owedetailUnit.pas' {owedetailform},
  returndetailUnit in 'returndetailUnit.pas' {returndetailform},
  peopleUnit in 'peopleUnit.pas' {peopleform},
  printUnit in 'printUnit.pas' {printform},
  printsetUnit in 'printsetUnit.pas' {printsetform},
  classcodeUnit in 'classcodeUnit.pas' {classcodeform},
  returnUnit in 'returnUnit.pas' {returnform},
  billcodesearchUnit in 'billcodesearchUnit.pas' {billcodesearchform},
  personinfodelUnit in 'personinfodelUnit.pas' {personinfodelform},
  billcodeeditUnit in 'billcodeeditUnit.pas' {billcodeeditform};

var
  hMutex:THandle;
begin
  hMutex:=CreateMutex(nil,false,'issuemanage');
  if WaitForSingleObject(hMutex,0)<>wait_TimeOut then
  begin
    Application.Initialize;
    Application.Title := '帐务管理系统';
    Application.CreateForm(Tdm, dm);
  Application.CreateForm(TMainForm, MainForm);
  try
      InitDBform:=TInitDBform.Create(application);
      try
        case InitDBform.ModalResult of
          mrok,mrcancel:
          begin
            dm.Destroy ;
            mainform.Destroy;
            application.Terminate;
          end;
          else
          begin
            dm.ADOConnection.Open;
            Flashform:=TFlashform.Create(application);
            try
              Flashform.Show ;
              application.ProcessMessages ;
              sleep(1000);
            finally
              FreeAndNil(Flashform);
            end;
            try
              if StartL(application.Handle,dm.ADOConnection,mainform.mainmenu1,Oper,true) then
              begin
                Mainform.StatusBar1.Panels[0].Text :=Mainform.StatusBar1.Panels[0].Text+oper.name;
                application.Run;
              end
              else
                application.Terminate ;
            except
              on e:exception do
              begin
                application.MessageBox(pchar(e.Message ),'错误',MB_ICONWARNING+0);
                application.Terminate ;
              end;
            end;  
          end;
        end;
      finally
        Freeandnil(initdbform);
      end;
    except
      application.MessageBox(pchar('无法启动数据库,程序将关闭!'),'错误',MB_ICONWARNING+0);
      application.Terminate ;
      exit;
    end;
  end;
end.