home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / MASTAPP.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-28  |  2.8 KB  |  63 lines
  1. //---------------------------------------------------------------------------
  2. // Borland C++Builder
  3. // Copyright (c) 1987, 1997 Borland International Inc.  All Rights Reserved.
  4. //---------------------------------------------------------------------------
  5.  
  6. //---------------------------------------------------------------------------
  7. #include <vcl.h>
  8. #pragma hdrstop
  9. #include "splash.h"
  10. //---------------------------------------------------------------------------
  11. USEFORM("main.cpp", MainForm);
  12. USEDATAMODULE("Datamod.cpp", MastData);
  13. USEFORM("about.cpp", AboutBox);
  14. USEFORM("qrycust.cpp", QueryCustDlg);
  15. USEFORM("brparts.cpp", BrPartsForm);
  16. USEFORM("brcstord.cpp", BrCustOrdForm);
  17. USEFORM("edcust.cpp", EdCustForm);
  18. USEFORM("pickdate.cpp", BrDateForm);
  19. USEFORM("srchdlg.cpp", SearchDlg);
  20. USEFORM("splash.cpp", SplashForm);
  21. USEFORM("edparts.cpp", EdPartsForm);
  22. USEFORM("edorders.cpp", EdOrderForm);
  23. USEFORM("mainprnt.cpp", MainPrintForm);
  24. USEFORM("preview.cpp", PrevForm);
  25. USEFORM("CustRpt.cpp", CustReportForm);
  26. USEFORM("OrderRpt.cpp", OrdersReportForm);
  27. USEFORM("Invoice.cpp", InvoiceReportForm);
  28. USEFORM("PickRep.cpp", PickOrdDlg);
  29. //---------------------------------------------------------------------------
  30. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  31. {
  32.   SplashForm = new TSplashForm(Application);
  33.   SplashForm->Show();
  34.   SplashForm->Update();
  35.  
  36.   Application->Initialize();
  37.   Application->Title = "Marine Adventures Order Entry";
  38.   Application->HelpFile = "Mastapp.hlp";
  39.   Application->CreateForm(__classid(TMainForm), &MainForm);
  40.   Application->CreateForm(__classid(TMastData), &MastData);
  41.   Application->CreateForm(__classid(TAboutBox), &AboutBox);
  42.   Application->CreateForm(__classid(TQueryCustDlg), &QueryCustDlg);
  43.   Application->CreateForm(__classid(TBrPartsForm), &BrPartsForm);
  44.   Application->CreateForm(__classid(TBrCustOrdForm), &BrCustOrdForm);
  45.   Application->CreateForm(__classid(TEdCustForm), &EdCustForm);
  46.   Application->CreateForm(__classid(TBrDateForm), &BrDateForm);
  47.   Application->CreateForm(__classid(TSearchDlg), &SearchDlg);
  48.   Application->CreateForm(__classid(TEdPartsForm), &EdPartsForm);
  49.   Application->CreateForm(__classid(TEdOrderForm), &EdOrderForm);
  50.   Application->CreateForm(__classid(TMainPrintForm), &MainPrintForm);
  51.   Application->CreateForm(__classid(TPrevForm), &PrevForm);
  52.   Application->CreateForm(__classid(TCustReportForm), &CustReportForm);
  53.   Application->CreateForm(__classid(TOrdersReportForm), &OrdersReportForm);
  54.   Application->CreateForm(__classid(TInvoiceReportForm), &InvoiceReportForm);
  55.   Application->CreateForm(__classid(TPickOrdDlg), &PickOrdDlg);
  56.   SplashForm->Hide();
  57.   SplashForm->Close();
  58.   Application->Run();
  59.  
  60.     return 0;
  61. }
  62. //---------------------------------------------------------------------------
  63.