khdhproject.cpp

《delphi 7.0_8.0课程设计与系统开发案例》随书代码

//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1998-2002 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("..\Examples\DBTasks\Filter\FILTER1.cpp", fmFilterFrm);
USEFORM("..\Examples\DBTasks\Filter\custview.cpp", fmCustView);
USEFORM("..\Examples\DBTasks\Filter\dm.cpp", DM1);
USEFORM("..\Examples\DBTasks\Filter\ABOUT.cpp", fmAboutBox);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
        Application->Initialize();
        Application->CreateForm(__classid(TfmCustView), &fmCustView);
                 Application->CreateForm(__classid(TDM1), &DM1);
                 Application->CreateForm(__classid(TfmFilterFrm), &fmFilterFrm);
                 Application->Run();
   }
   catch (Exception &exception)
   {
        Application->ShowException(&exception);
   }
    return 0;
}
//---------------------------------------------------------------------------