report.cpp

一个不错的销售系统

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Report.res");
USEFORM("QrMain.cpp", frmQrMain);
USEFORM("QrProductSold.cpp", frmProductSold);
USEFORM("QrProductSoldDecision.cpp", frmProductSoldDecision);
USEFORM("QrMaterialBuyUse.cpp", frmMaterialBuyUse);
USEFORM("QrFinanceReport.cpp", frmFinanceReport);
USEFORM("QrLoanRestore.cpp", frmLoanRestore);
USEFORM("QrProductCapability.cpp", frmProductCapability);
USEFORM("QrRestoreCost.cpp", frmRestoreCost);
USEFORM("QrMaterialBuy.cpp", frmMaterialBuy);
USEFORM("QrLoanLoanRepay.cpp", frmLoanLoanRepay);
USEFORM("QrLoanInterest.cpp", frmLoanInterest);
USEFORM("..\..\..\Chapter8\Project\About.cpp", frmAbout);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TfrmQrMain), &frmQrMain);
                 Application->CreateForm(__classid(TfrmProductSold), &frmProductSold);
                 Application->CreateForm(__classid(TfrmProductSoldDecision), &frmProductSoldDecision);
                 Application->CreateForm(__classid(TfrmMaterialBuyUse), &frmMaterialBuyUse);
                 Application->CreateForm(__classid(TfrmFinanceReport), &frmFinanceReport);
                 Application->CreateForm(__classid(TfrmLoanRestore), &frmLoanRestore);
                 Application->CreateForm(__classid(TfrmProductCapability), &frmProductCapability);
                 Application->CreateForm(__classid(TfrmRestoreCost), &frmRestoreCost);
                 Application->CreateForm(__classid(TfrmMaterialBuy), &frmMaterialBuy);
                 Application->CreateForm(__classid(TfrmLoanLoanRepay), &frmLoanLoanRepay);
                 Application->CreateForm(__classid(TfrmLoanInterest), &frmLoanInterest);
                 Application->CreateForm(__classid(TfrmAbout), &frmAbout);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------