mastapp.cpp

《C Builder 5程序设计——数据库应用实务篇》程序源代码

//---------------------------------------------------------------------------
// Borland C++Builder
// Copyright (c) 1987, 1998 Borland International Inc.  All Rights Reserved.
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USE("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\readme.txt", File);
USEDATAMODULE("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\Datamod.cpp", MastData);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\about.cpp", AboutBox);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\brcstord.cpp", BrCustOrdForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\brparts.cpp", BrPartsForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\custrpt.cpp", CustomerByInvoiceReport);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\edcust.cpp", EdCustForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\edorders.cpp", EdOrderForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\edparts.cpp", EdPartsForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\invcrpt.cpp", InvoiceByOrderNoReport);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\main.cpp", MainForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\orderrpt.cpp", OrdersByDateReport);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\pickdate.cpp", BrDateForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\pickinvc.cpp", PickOrderNoDlg);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\pickrep.cpp", PickRpt);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\qrycust.cpp", QueryCustDlg);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\splash.cpp", SplashForm);
USEFORM("\\166.111.42.95\e\Program Files\Borland\CBuilder5\Examples\DBTasks\MastApp\srchdlg.cpp", SearchDlg);
//---------------------------------------------------------------------------
#include "splash.h"

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
     try
     {
       SplashForm = new TSplashForm(Application);
       SplashForm->Show();
       SplashForm->Update();

       Application->Initialize();
       Application->Title = "数据库综合实例";
       Application->HelpFile = "Mastapp.hlp";
       Application->CreateForm(__classid(TMainForm), &MainForm);
                 Application->CreateForm(__classid(TMastData), &MastData);
                 Application->CreateForm(__classid(TAboutBox), &AboutBox);
                 Application->CreateForm(__classid(TQueryCustDlg), &QueryCustDlg);
                 Application->CreateForm(__classid(TBrPartsForm), &BrPartsForm);
                 Application->CreateForm(__classid(TBrCustOrdForm), &BrCustOrdForm);
                 Application->CreateForm(__classid(TEdCustForm), &EdCustForm);
                 Application->CreateForm(__classid(TBrDateForm), &BrDateForm);
                 Application->CreateForm(__classid(TSearchDlg), &SearchDlg);
                 Application->CreateForm(__classid(TEdPartsForm), &EdPartsForm);
                 Application->CreateForm(__classid(TEdOrderForm), &EdOrderForm);
                 Application->CreateForm(__classid(TPickRpt), &PickRpt);
                 Application->CreateForm(__classid(TPickOrderNoDlg), &PickOrderNoDlg);
                 Application->CreateForm(__classid(TInvoiceByOrderNoReport), &InvoiceByOrderNoReport);
                 Application->CreateForm(__classid(TCustomerByInvoiceReport), &CustomerByInvoiceReport);
                 Application->CreateForm(__classid(TOrdersByDateReport), &OrdersByDateReport);
                 SplashForm->Hide();
       SplashForm->Close();
       Application->Run();
   }
   catch (Exception &exception)
   {
       Application->ShowException(&exception);
   }
       return 0;
}
//---------------------------------------------------------------------------