gps_car.dpr

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

program GPS_Car;

uses
  Forms,
  windows,
  Main in 'Main.pas' {frm_Main},
  ChildFrm in 'ChildFrm.pas' {ChildForm},
  Connect in 'Connect.pas' {frm_Connect},
  func in 'func.pas' {frm_func},
  spalsh in 'Spalsh.pas' { frm_spalsh},
  Car in 'Car.pas' {frm_Car},
  Data in 'Data.pas' {frm_Data},
  Login in 'Login.pas' {frm_Login},
  SystemSet in 'SystemSet.pas' {frm_SystemSet},
  SystemManage in 'SystemManage.pas' {frm_SystemManage},
  Check in 'Check.pas' {frm_Check},
  User_Type in 'User_Type.pas' {frm_User_Type},
  User in 'User.pas' {frm_User},
  User_Right in 'User_Right.pas' {frm_User_Right},
  Charge in 'Charge.pas' {frm_Charge},
  Car_Select in 'Car_Select.pas' {frm_Car_Select},
  Done in 'Done.pas' {frm_Done},
  Drive_Card in 'Drive_Card.pas' {frm_Drive_Card},
  Drive_Card_Check in 'Drive_Card_Check.pas' {frm_Drive_Card_Check},
  Drive_Card_Select in 'Drive_Card_Select.pas' {frm_Drive_Card_Select},
  Charge_Type in 'Charge_Type.pas' {frm_Charge_Type},
  Car_Type in 'Car_Type.pas' {frm_Car_Type},
  Mond_Select in 'Mond_Select.pas' {frm_Mond_Select},
  Car_Bad in 'Car_Bad.pas' {frm_Car_Bad},
  Car_Change in 'Car_Change.pas' {frm_Car_Change},
  Lock in 'Lock.pas' {frm_Lock},
  Preview in 'Preview.pas' {frm_Preview},
  Car_Report in 'Car_Report.pas' {frm_Car_Report},
  ReportInFormation in 'ReportInFormation.pas' {frm_ReportInFormation},
  CarCheck_Report in 'CarCheck_Report.pas' {frm_CarCheck_Report},
  Drive_Card_Report in 'Drive_Card_Report.pas' {frm_Drive_Card_Report},
  Charge_Report in 'Charge_Report.pas' {frm_Charge_Report},
  Drive_Card_Check_Rteport in 'Drive_Card_Check_Rteport.pas' {frm_Drive_Card_Check_Rteport},
  Car_Change_Report in 'Car_Change_Report.pas' {frm_Car_Change_Report},
  Car_Bad_Report in 'Car_Bad_Report.pas' {frm_Car_Bad_Report},
  Done_Report in 'Done_Report.pas' {frm_Done_Report},
  Charge_Name in 'Charge_Name.pas' {frm_Charge_Name},
  Report in 'Report.pas' {frm_Report},
  Chang in 'Chang.pas' {frm_Chang};

{$R *.res}

var
  hMutex:HWND;
  Ret: Integer;
begin
    Application.Initialize;
    begin
        hMutex:=CreateMutex(nil,False,'zshcar'); //aaaaa是判断值
        Ret:=GetLastError;
        If Ret<>ERROR_ALREADY_EXISTS Then
        begin
            frm_spalsh:=Tfrm_spalsh.Create(application);
            frm_spalsh.Show;
            frm_spalsh.update ;
            Application.Initialize;
            Application.Title := '【GPS定位车辆管理系统】';
            Application.CreateForm(Tfrm_Main, frm_Main);
  try
                Application.CreateForm(Tfrm_Data, frm_Data);
            EXCEPT
                frm_spalsh.close;
                frm_spalsh.free;
                application.MessageBox('数据库不能正常连接,请重新注册','错误',mb_iconwarning);
                application.CreateForm(Tfrm_connect,frm_connect);
                frm_connect.ShowModal;
            END;
            frm_spalsh.close;
            frm_spalsh.free;
            try
                frm_Login := Tfrm_Login.Create(Application);
                frm_Login.ShowModal;
            finally
                frm_login.close;
            end;
            try
              Application.Run;
            except
            end;
        end
        else
        begin
            Application.MessageBox('【GPS定位车辆管理系统】不能在同一系统下运行二次！',pchar(application.Title),MB_iconwarning);
            ReleaseMutex(hMutex);
        end;
    end;
end.