qrinto.cpp

来自「超市配货中心进销存源码 超市配货中心进销存源码」· C++ 代码 · 共 36 行

//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFILE("..\Program Files\Borland\CBuilder4\Examples\DBTasks\QuickRpt\readme.txt");
USEFORM("..\Program Files\Borland\CBuilder4\Examples\DBTasks\QuickRpt\grplist.cpp", GrpListForm);
USEFORM("..\Program Files\Borland\CBuilder4\Examples\DBTasks\QuickRpt\list.cpp", ListForm);
USEFORM("..\Program Files\Borland\CBuilder4\Examples\DBTasks\QuickRpt\manygrp.cpp", ManyGrpForm);
USEFORM("..\Program Files\Borland\CBuilder4\Examples\DBTasks\QuickRpt\MD.cpp", MDForm);
USEFORM("..\Program Files\Borland\CBuilder4\Examples\DBTasks\QuickRpt\menu.cpp", MainForm);
USERES("qrinto.res");
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
           Application->Initialize();
           Application->CreateForm(__classid(TMainForm), &MainForm);
                 Application->CreateForm(__classid(TListForm), &ListForm);
                 Application->CreateForm(__classid(TGrpListForm), &GrpListForm);
                 Application->CreateForm(__classid(TMDForm), &MDForm);
                 Application->CreateForm(__classid(TManyGrpForm), &ManyGrpForm);
                 Application->Run();
        }
        catch (Exception &exception)
        {
           Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------