powerpcb.cpp

某公司资料管理系统

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------
USEFORM("about.cpp", AboutBox);
USEFORM("BaseBoard.cpp", BaseBoardForm);
USEFORM("Customer.cpp", CustomerForm);
USEFORM("FindBoardNo.cpp", FindBoardNoForm);
USEFORM("FindCustNo.cpp", FindCustNoForm);
USEFORM("FindProductSample.cpp", FindProductSampleForm);
USEFORM("Password.cpp", PasswordForm);
USEFORM("Prepreg.cpp", PrepregForm);
USEFORM("StandardRoute.cpp", StandardRouteForm);
USEFORM("UserAdd.cpp", UserAddForm);
USEFORM("UserDelete.cpp", UserDeleteForm);
USEFORM("UserPasswd.cpp", UserPasswdForm);
USEFORM("DataModule.cpp", MastData); /* TDataModule: File Type */
USEFORM("ShowCAD.cpp", ShowCADForm);
USEFORM("Main.cpp", MainMenuForm);
USEFORM("MIDesigner.cpp", MIDesignerForm);
USEFORM("MIQuickRep1.cpp", MIQuickRep1Form);
USEFORM("SampleRoute.cpp", SampleRouteForm);
USEFORM("MIRepBCut.cpp", MIRepBCutForm);
USEFORM("MILayupRep.cpp", MILayupRepForm);
USEFORM("MIRepOther.cpp", MIRepOtherForm);
USEFORM("MIApp.cpp", MIAppForm);
USEFORM("FindSampleRoute.cpp", FindSampleRouteForm);
USEFORM("FindStandardRoute.cpp", FindStandardRouteForm);
USEFORM("CopyMI.cpp", CopyMIForm);
USEFORM("SampleManage.cpp", SampleManageForm);
USEFORM("SampleSearch.cpp", SampleSearchForm);
USEFORM("SampleDelete.cpp", SampleDeleteForm);
USEFORM("MIQACheck.cpp", MIQACheckForm);
USEFORM("MIQAApp.cpp", MIQAAppForm);
USEFORM("FindPartNo.cpp", FindPartNoForm);
USEFORM("SampleProduct.cpp", SampleProductForm);
USEFORM("SampleProductRep.cpp", SampleProductRepForm);
USEFORM("SampleSearchRep.cpp", SampleSearchRepForm);
USEFORM("BaseBoardRep.cpp", BaseBoardRepForm);
USEFORM("PrepregRep.cpp", PrepregRepForm);
USEFORM("StandardRouteRep.cpp", StandardRouteRepForm);
USEFORM("SampleRouteRep.cpp", SampleRouteRepForm);
USEFORM("CustomerRep.cpp", CustomerRepForm);
USEFORM("StandardRouteRep2.cpp", StandardRouteRep2Form);
USEFORM("StandardRouteRep1.cpp", StandardRouteRep1Form);
USEFORM("SampleRouteRep1.cpp", SampleRouteRep1Form);
USEFORM("SampleRouteRep2.cpp", SampleRouteRep2Form);
USEFORM("MIRepSDrl.cpp", MIRepSDrlForm);
USEFORM("MIRepRoute.cpp", MIRepRouteForm);
USEFORM("splash.cpp", SplashForm);
USEFORM("MISearch.cpp", MISearchForm);
USEFORM("MIRepRouteFDRL.cpp", MIRepRouteFDRLForm);
USEFORM("MIRepRouteSDRL.cpp", MIRepRouteSDRLForm);
USEFORM("MIRepFDrl.cpp", MIRepFDrlForm);
USEFORM("ReConnect.cpp", ReConnectForm);
//---------------------------------------------------------------------------
#include "splash.h"
#include "ReConnect.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        SplashForm=new TSplashForm(Application);
        SplashForm->Show();
        Screen->Cursor = crHourGlass;
	Application->Initialize();
	Application->Title = "PowerPCB";

        Application->CreateForm(__classid(TMainMenuForm), &MainMenuForm);
        Application->CreateForm(__classid(TReConnectForm), &ReConnectForm);
        Application->CreateForm(__classid(TBaseBoardForm), &BaseBoardForm);
        Application->CreateForm(__classid(TCustomerForm), &CustomerForm);
        Application->CreateForm(__classid(TFindBoardNoForm), &FindBoardNoForm);
        Application->CreateForm(__classid(TFindCustNoForm), &FindCustNoForm);
        Application->CreateForm(__classid(TFindProductSampleForm), &FindProductSampleForm);
        Application->CreateForm(__classid(TPasswordForm), &PasswordForm);
        Application->CreateForm(__classid(TPrepregForm), &PrepregForm);
        Application->CreateForm(__classid(TUserAddForm), &UserAddForm);
        Application->CreateForm(__classid(TUserDeleteForm), &UserDeleteForm);
        Application->CreateForm(__classid(TUserPasswdForm), &UserPasswdForm);
        Application->CreateForm(__classid(TMastData), &MastData);
        Application->CreateForm(__classid(TShowCADForm), &ShowCADForm);
        Application->CreateForm(__classid(TMIQuickRep1Form), &MIQuickRep1Form);
        Application->CreateForm(__classid(TMIRepBCutForm), &MIRepBCutForm);
        Application->CreateForm(__classid(TMILayupRepForm), &MILayupRepForm);
        Application->CreateForm(__classid(TMIRepOtherForm), &MIRepOtherForm);
        Application->CreateForm(__classid(TFindSampleRouteForm), &FindSampleRouteForm);
        Application->CreateForm(__classid(TSampleRouteForm), &SampleRouteForm);
        Application->CreateForm(__classid(TStandardRouteForm), &StandardRouteForm);
        Application->CreateForm(__classid(TFindStandardRouteForm), &FindStandardRouteForm);
        Application->CreateForm(__classid(TCopyMIForm), &CopyMIForm);
        Application->CreateForm(__classid(TFindPartNoForm), &FindPartNoForm);
        Application->CreateForm(__classid(TSampleProductRepForm), &SampleProductRepForm);
        Application->CreateForm(__classid(TBaseBoardRepForm), &BaseBoardRepForm);
        Application->CreateForm(__classid(TPrepregRepForm), &PrepregRepForm);
        Application->CreateForm(__classid(TStandardRouteRepForm), &StandardRouteRepForm);
        Application->CreateForm(__classid(TSampleRouteRepForm), &SampleRouteRepForm);
        Application->CreateForm(__classid(TCustomerRepForm), &CustomerRepForm);
        Application->CreateForm(__classid(TStandardRouteRep2Form), &StandardRouteRep2Form);
        Application->CreateForm(__classid(TStandardRouteRep1Form), &StandardRouteRep1Form);
        Application->CreateForm(__classid(TSampleRouteRep1Form), &SampleRouteRep1Form);
        Application->CreateForm(__classid(TSampleRouteRep2Form), &SampleRouteRep2Form);
        Application->CreateForm(__classid(TMIRepSDrlForm), &MIRepSDrlForm);
        Application->CreateForm(__classid(TMIRepRouteForm), &MIRepRouteForm);
        Application->CreateForm(__classid(TMIRepRouteFDRLForm), &MIRepRouteFDRLForm);
        Application->CreateForm(__classid(TMIRepRouteSDRLForm), &MIRepRouteSDRLForm);
        Application->CreateForm(__classid(TMIRepFDrlForm), &MIRepFDrlForm);
        SplashForm->Hide();
        SplashForm->Close();
        delete SplashForm;

        ReConnectForm=new TReConnectForm(Application);
        ReConnectForm->ShowModal();
        if(MastData->Database->Connected)
        {
            Application->Run();
        }
        else
        {
            Application->Terminate();
        }
        Screen->Cursor = crDefault;
	return 0;
}
//---------------------------------------------------------------------