sk.cpp

校园刷卡系统

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("PassWord.cpp", PassWordForm);
USEFORM("Card.cpp", CardForm);
USEFORM("Cost.cpp", CostForm);
USEFORM("DispensaryManage.cpp", DispensaryManageForm);
USEFORM("Query1_0.cpp", QueryForm1_0);
USEFORM("Query2_0.cpp", QueryForm2_0);
USEFORM("Query2_1.cpp", QueryForm2_1);
USEFORM("Query2_2.cpp", QueryForm2_2);
USEFORM("Query3_0.cpp", QueryForm3_0);
USEFORM("Query4_0.cpp", QueryForm4_0);
USEFORM("Query4_2.cpp", QueryForm4_4);
USEFORM("Query5_1.cpp", QueryForm5_1);
USEFORM("Query5_2.cpp", QueryForm5_2);
USEFORM("Query6_0.cpp", QueryForm6_0);
USEFORM("Query6_1.cpp", QueryForm6_1);
USEFORM("ShopHelp.cpp", ShopHelpForm);
USEFORM("Student.cpp", StudentForm);
USEFORM("SysManage.cpp", SysManageForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->HelpFile = "D:\\HIS\\Help\\SK_HELP.HLP";
                 Application->CreateForm(__classid(TPassWordForm), &PassWordForm);
                 Application->CreateForm(__classid(TCardForm), &CardForm);
                 Application->CreateForm(__classid(TCostForm), &CostForm);
                 Application->CreateForm(__classid(TDispensaryManageForm), &DispensaryManageForm);
                 Application->CreateForm(__classid(TShopHelpForm), &ShopHelpForm);
                 Application->CreateForm(__classid(TStudentForm), &StudentForm);
                 Application->CreateForm(__classid(TSysManageForm), &SysManageForm);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------