reckq.cpp

企业员工考勤和工资管理系统

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

#include <vcl.h>
#include "DM1.h"
#include "Login.h"
#include "main.h"
#pragma hdrstop
USERES("RecKQ.res");
USEFORM("main.cpp", MainForm);
USEFORM("AoutNew.cpp", AboutNew);
USEFORM("Banci2.cpp", FormBanci2);
USEFORM("Gudingban.cpp", FormGudingban);
USEFORM("Pb1.cpp", FormPb1);
USEFORM("PbAll.cpp", FormPbAll);
USEFORM("SelectBC.cpp", FormSelectBC);
USEFORM("jiari.cpp", FormJiari);
USEFORM("Qinjia.cpp", FormQinjia);
USEFORM("PbChaXun.cpp", FormPbChaXun);
USEFORM("Kqgz.cpp", FormKqgz);
USEFORM("Sgsk.cpp", FormSgsk);
USEFORM("Tongji.cpp", FormTongji);
USEFORM("Wait.cpp", FormWait);
USEFORM("JiaBan.cpp", FormJiaBan);
USELIB("w_kqrec.lib");
USEFORM("KqjTx.cpp", FormKqjTx);
USEFORM("TiaoBan1.cpp", FormTiaoBan1);
USEFORM("TiaoBan2.cpp", FormTiaoBan2);
USEFORM("Print1.cpp", FormPrint1);
USEFORM("ShowPb.cpp", FormShowPb);
USEFORM("KqjWh.cpp", FormKqjWh);
USEFORM("BmWh.cpp", FormBmWh);
USEFORM("BzWh.cpp", FormBzWh);
USEFORM("PrintSet.cpp", FormPrintSet);
USEFORM("RenShi.cpp", FormRenShi);
USEFORM("RenShiZiLiao.cpp", FormRenShiZiLiao);
USEFORM("SortSelect.cpp", FormSortSelect);
USEFORM("ChangeTitle.cpp", FormChangeTitle);
USEFORM("YongHu.cpp", FormYongHu);
USEFORM("Login.cpp", FormLogin);
USEFORM("PassWord.cpp", FormPassWord);
USEFORM("Card.cpp", FormCard);
USEFORM("CardSelect.cpp", FormCardSelect);
USEFORM("QuerySql.cpp", FormQuerySql);
USEFORM("MyPrint.cpp", FormMyPrint);
USEFORM("SkChaXun.cpp", FormSkChaXun);
USEFORM("YiChang.cpp", FormYiChang);
USEFORM("JbChaXun.cpp", FormJbChaXun);
USEUNIT("syris.cpp");
USEUNIT("Vtl.cpp");
USEFORM("LoginQuery.cpp", FormLoginQuery);
USEFORM("RiTj.cpp", FormRiTj);
USEFORM("QjZl.cpp", FormQjZl);
USEFORM("WaiChu.cpp", FormWaiChu);
USEFORM("ColumnSelect.cpp", FormColumnSelect);
USEFORM("BaoBiao.cpp", FormBaoBiao);
USEFORM("RiBaoBiao.cpp", FormRiBaoBiao);
USEFORM("DM1.cpp", DataModal1); /* TDataModule: File Type */
//---------------------------------------------------------------------------
int nPrintErr;
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   //if (FindWindow(NULL,"考勤管理系统") || FindWindow(NULL,"登录窗口"))
   //Application->Terminate();
   try
   {
     Application->Initialize();
     Application->Title = "人事考勤管理系统";
     Application->CreateForm(__classid(TMainForm), &MainForm);
     Application->CreateForm(__classid(TDataModal1), &DataModal1);

     try
     {
      Application->CreateForm(__classid(TFormMyPrint), &FormMyPrint);
     }
     catch(...)
     {
       nPrintErr = 1;
     }
     try
     {
       DataModal1->ADOConnection1->Connected = true;
     }
     catch(Exception &exception)
     {
       ShowMessage("连接数据库失败!\n因为：" + exception.Message);
       Application->Terminate();
     }
     TFormLogin *FormLogin = new TFormLogin(Application);
     FormLogin->ShowModal();
     if (FormLogin->nResult==2)
     {
      Application->Terminate();
     }
     MainForm->sYhmc = FormLogin->sYhmc;
     MainForm->sQuanxian = FormLogin->sQuanxian ;
     delete FormLogin;

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