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

#include <vcl.h>
#include "UnitCover.h"
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", FormMain);
USEFORM("Unit2.cpp", FormClassDishMan);
USEFORM("Unit3.cpp", FormTableMan);
USEFORM("Unit4.cpp", FormListMan);
USEFORM("Unit5.cpp", FormPayMan);
USEFORM("Unit6.cpp", FormEmployeeMan);
USEFORM("Unit7.cpp", FormOrder);
USEFORM("Unit8.cpp", FormPay);
USEFORM("UnitLogin.cpp", FormLogin);
USEFORM("Unit9.cpp", QRFormEmployee);
USEFORM("Unit10.cpp", QRFormOrdered);
USEFORM("Unit11.cpp", QRFormPay);
USEFORM("UnitCover.cpp", FormCover);
USEFORM("UnitAbout.cpp", FormAbout);
USEFORM("UnitCalendar.cpp", FormCalendar);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {

                 Application->Initialize();
                 //--------------------
                 FormCover=new TFormCover(Application);
                 FormCover->Show();
                 FormCover->Update();
                 //--------------------
                 //需要將FormLogin->Visible設為false，否則下面一句代碼運行時
                 //FormLogin就會顯示出來
                 Application->CreateForm(__classid(TFormLogin), &FormLogin);
                 Application->CreateForm(__classid(TFormMain), &FormMain);
                 Application->CreateForm(__classid(TFormClassDishMan), &FormClassDishMan);
                 Application->CreateForm(__classid(TFormTableMan), &FormTableMan);
                 Application->CreateForm(__classid(TFormListMan), &FormListMan);
                 Application->CreateForm(__classid(TFormPayMan), &FormPayMan);
                 Application->CreateForm(__classid(TFormEmployeeMan), &FormEmployeeMan);
                 Application->CreateForm(__classid(TFormOrder), &FormOrder);
                 Application->CreateForm(__classid(TFormPay), &FormPay);
                 Application->CreateForm(__classid(TQRFormEmployee), &QRFormEmployee);
                 Application->CreateForm(__classid(TQRFormOrdered), &QRFormOrdered);
                 Application->CreateForm(__classid(TQRFormPay), &QRFormPay);
                 Application->CreateForm(__classid(TFormAbout), &FormAbout);
                 Application->CreateForm(__classid(TFormCalendar), &FormCalendar);
                 delete FormCover;
                 //-----這里不需要重設FormLogin->Visible，
                 //因為程序運行時(下面一句代碼)會自動把它設為可見窗體
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------