AHM控件包 AHM控件包
源代码在线查看： queryaccess.cpp
//---------------------------------------------------------------------------
#include
#pragma hdrstop
USERES("Queryaccess.res");
USEFORMNS("Unit1.pas", Unit1, Form1);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------
