dbconnect.dpr

学费管理系统,学校使用

program DBConnect;

uses
  Forms,windows,
  Unit1 in 'Unit1.pas' {Initdb_form};

{$R *.res}

var
  hMutex:THandle;
begin
  hMutex:=CreateMutex(nil,false,'rcm_server');
  if WaitForSingleObject(hMutex,0)<>wait_TimeOut then
  begin
    Application.Initialize;
    Application.Title := '设置数据库连接信息';
    Application.CreateForm(TInitdb_form, Initdb_form);
    Application.Run;
  end;
end.