kqj.cpp

来自「是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.」· C++ 代码 · 共 77 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Login.h"
#include "Public.h"


//---------------------------------------------------------------------------
USEFORM("Main.cpp", frmMain);
USEFORM("DM.cpp", frmDM); /* TDataModule: File Type */
USEFORM("Class.cpp", frmClass);
USEFORM("ClassEdit.cpp", frmClassEdit);
USEFORM("Login.cpp", frmLogin);
USEFORM("DefClass.cpp", frmDefClass);
USEFORM("DefClassEdit.cpp", frmDefClassEdit);
USEFORM("DefVac.cpp", frmDefVac);
USEFORM("DefVacEdit.cpp", frmDefVacEdit);
USEFORM("Employee.cpp", frmEmployee);
USEFORM("EmployeeEdit.cpp", frmEmployeeEdit);
USEFORM("BaseForm.cpp", frmBaseForm);
USEFORM("Register.cpp", frmRegister);
USEFORM("SetClass.cpp", frmSetClass);
USEFORM("SetClassEdit.cpp", frmSetClassEdit);
USEFORM("AddClass.cpp", frmAddClass);
USEFORM("AddClassEdit.cpp", frmAddClassEdit);
USEFORM("SetVac.cpp", frmSetVac);
USEFORM("SetVacEdit.cpp", frmSetVacEdit);
USEFORM("Leave.cpp", frmLeave);
USEFORM("BaseFormEdit.cpp", frmBaseFormEdit);
USEFORM("LeaveEdit.cpp", frmLeaveEdit);
USEFORM("RptMain.cpp", frmRptMain);
//---------------------------------------------------------------------------
bool gLogin;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->Title = "考勤管理系统 v1.0";
                 Application->CreateForm(__classid(TfrmDM), &frmDM);

                 frmLogin = new TfrmLogin(Application);
                 frmLogin->ShowModal() ;

                 if(frmLogin->ModalResult == mrOk )
                    gLogin=true;
                 else
                    gLogin=false;

                 if (gLogin)
                    Application->CreateForm(__classid(TfrmMain), &frmMain);
                 else
                    Application->Terminate();

                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------