system.cpp

一个不错的销售系统

//---------------------------------------------------------------------------
#include <vcl.h>

#include "Splash.h"

#pragma hdrstop
USERES("System.res");
USEUNIT("Data.cpp");
USEFORM("Finance.cpp", frmFinance);
USEFORM("Maintain.cpp", frmMaintain);
USEFORM("Material.cpp", frmMaterial);
USEFORM("Password.cpp", frmPassword);
USEFORM("Product.cpp", frmProduct);
USEFORM("About.cpp", frmAbout);
USEFORM("Report\QrRestoreCost.cpp", frmRestoreCost);
USEFORM("Report\QrLoanInterest.cpp", frmLoanInterest);
USEFORM("Report\QrLoanLoanRepay.cpp", frmLoanLoanRepay);
USEFORM("Report\QrLoanRestore.cpp", frmLoanRestore);
USEFORM("Report\QrMain.cpp", frmQrMain);
USEFORM("Report\QrMaterialBuy.cpp", frmMaterialBuy);
USEFORM("Report\QrMaterialBuyUse.cpp", frmMaterialBuyUse);
USEFORM("Report\QrProductCapability.cpp", frmProductCapability);
USEFORM("Report\QrProductSold.cpp", frmProductSold);
USEFORM("Report\QrProductSoldDecision.cpp", frmProductSoldDecision);
USEFORM("Report\QrFinanceReport.cpp", frmFinanceReport);
USEFORM("Splash.cpp", frmSplash);
USEFORM("Main.cpp", frmMain);
USEFORM("Editor.cpp", frmEditor);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 frmSplash = new TfrmSplash(Application);
                 frmSplash->Show();
                 frmSplash->Update();
                 frmSplash->pbrLoad->Position++;
                 Application->Initialize();
                 Application->Title = "伯克公司生产销售数据库管理系统";
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmMain), &frmMain);
                 Application->CreateForm(__classid(TfrmQrMain), &frmQrMain);
                 Application->CreateForm(__classid(TfrmFinance), &frmFinance);
                 Application->CreateForm(__classid(TfrmMaintain), &frmMaintain);
                 Application->CreateForm(__classid(TfrmMaterial), &frmMaterial);
                 Application->CreateForm(__classid(TfrmPassword), &frmPassword);
                 Application->CreateForm(__classid(TfrmProduct), &frmProduct);
                 Application->CreateForm(__classid(TfrmAbout), &frmAbout);
                 Application->CreateForm(__classid(TfrmRestoreCost), &frmRestoreCost);
                 Application->CreateForm(__classid(TfrmLoanInterest), &frmLoanInterest);
                 Application->CreateForm(__classid(TfrmLoanLoanRepay), &frmLoanLoanRepay);
                 Application->CreateForm(__classid(TfrmLoanRestore), &frmLoanRestore);
                 Application->CreateForm(__classid(TfrmMaterialBuy), &frmMaterialBuy);
                 Application->CreateForm(__classid(TfrmMaterialBuyUse), &frmMaterialBuyUse);
                 Application->CreateForm(__classid(TfrmProductCapability), &frmProductCapability);
                 Application->CreateForm(__classid(TfrmProductSold), &frmProductSold);
                 Application->CreateForm(__classid(TfrmProductSoldDecision), &frmProductSoldDecision);
                 Application->CreateForm(__classid(TfrmFinanceReport), &frmFinanceReport);
                 Application->CreateForm(__classid(TfrmEditor), &frmEditor);
                 frmSplash->pbrLoad->Position++;
                 frmSplash->Hide();
                 frmSplash->Destroying();
                 Application->Run();
/*
                 frmSplash = new TfrmSplash(Application);
                 frmSplash->Show();
                 frmSplash->Update();
                 frmSplash->pbrLoad->Position++;
                 Application->Initialize();
                 Application->Title = "伯克公司生产销售数据库管理系统";
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmMain), &frmMain);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmQrMain), &frmQrMain);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmFinance), &frmFinance);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmMaintain), &frmMaintain);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmMaterial), &frmMaterial);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmPassword), &frmPassword);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmProduct), &frmProduct);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmAbout), &frmAbout);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmRestoreCost), &frmRestoreCost);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmLoanInterest), &frmLoanInterest);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmLoanLoanRepay), &frmLoanLoanRepay);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmLoanRestore), &frmLoanRestore);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmMaterialBuy), &frmMaterialBuy);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmMaterialBuyUse), &frmMaterialBuyUse);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmProductCapability), &frmProductCapability);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmProductSold), &frmProductSold);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmProductSoldDecision), &frmProductSoldDecision);
                 frmSplash->pbrLoad->Position++;
                 Application->CreateForm(__classid(TfrmFinanceReport), &frmFinanceReport);
                 frmSplash->pbrLoad->Position++;                 
                 frmSplash->Hide();
                 frmSplash->Destroying();
                 Application->Run();
*/
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------