enguardclientpro.cpp

指纹门禁机管理系统

//---------------------------------------------------------------------------
#include "LoginUnit.h"
#include "DBAccessUnit.h"
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("EnguardMainUnit.cpp", EnguardMainFrm);
USEFORM("ObjectManageUnit.cpp", BaseObjectManageFrm);
USEFORM("DeptManageUnit.cpp", DeptManageFrm);
USEFORM("DMDataAccess.cpp", dmDatabase); /* TDataModule: File Type */
USEFORM("BaseInputUnit.cpp", BaseDataInputFrm);
USEFORM("EmployeeInputUnit.cpp", EmployeeInfoFrm);
USEFORM("BaseLogUnit.cpp", BaseLogFrm);
USEFORM("OperateLogUnit.cpp", OperaterLogFrm);
USEFORM("DeviceManageUnit.cpp", DeviceManageFrm);
USEFORM("EnguardEventLogUnit.cpp", EnguardEventLogFrm);
USEFORM("BaseViewUnit.cpp", BaseViewFrm);
USEFORM("EmployeeViewUnit.cpp", EmployeeViewFrm);
USEFORM("EmployeeManageUnit.cpp", EmployeeManageFrm);
USEFORM("DeviceInfoInputUnit.cpp", DeviceInfoInputFrm);
USEFORM("DeptInputUnit.cpp", DeptInputFrm);
USEFORM("EnguardRoleUnit.cpp", EnguardRoleFrm);
USEFORM("DeviceCaptionInputUnit.cpp", DeviceCaptionInputFrm);
USEFORM("DeviceTimeInputUnit.cpp", DeviceTimeInputFrm);
USEFORM("DatabaseConnectUnit.cpp", DatabaseConnectFrm);
USEFORM("DeviceOpenPwdInputUnit.cpp", DeviceOpenPwdInputFrm);
USEFORM("LogAnalyseUnit.cpp", LogAnalyseFrm);
USEFORM("GuardModeUnit.cpp", SetGuardModeFrm);
USEFORM("LoginUnit.cpp", SystemLoginFrm);
USEFORM("ChangePasswordUnit.cpp", ChangePasswordFrm);
USEFORM("SetRoleUnit.cpp", SetRoleFrm);
USEFORM("CompareEmpUnit.cpp", EmpInfoCompareFrm);
USEFORM("EmployeeFlagUnit.cpp", EmployeeFlagFrm);
USEFORM("DeviceOpenUnit.cpp", DeviceOpenFrm);
USEFORM("SystemConfigSetUnit.cpp", SystemConfigSetFrm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
         Application->Initialize();
         Application->CreateForm(__classid(TdmDatabase), &dmDatabase);
         Application->CreateForm(__classid(TEnguardMainFrm), &EnguardMainFrm);
         Application->CreateForm(__classid(TSystemLoginFrm), &SystemLoginFrm);

         TDBAccess aDBAccess;
         if(aDBAccess.GetUserMaxID() == 0)//数据库中不存在员工时
         {
            Application->Run();
            return 0;
         }//*/

         SystemLoginFrm->ShowModal();
         if(SystemLoginFrm->IsCanceled())
            Application->Terminate();
         else
            Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    catch (...)
    {
         try
         {
             throw Exception("");
         }
         catch (Exception &exception)
         {
             Application->ShowException(&exception);
         }
    }
    return 0;
}
//---------------------------------------------------------------------------