info.cpp

骨灰盒规范化果腹

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("Info.res");
USEFORM("MainFrom.cpp", fmMain);
USEFORM("DM1.cpp", DM); /* TDataModule: File Type */
USEFORM("LoginForm.cpp", fmLogin);
USEFORM("NewUserFrom.cpp", fmNew);
USEFORM("ChangPasswdForm.cpp", fmChgPasswd);
USEFORM("About.cpp", AboutBox);
USEFORM("ChangeUserInfo.cpp", fmChgInfo);
USEFORM("DataForm.cpp", fmData);
USEFORM("FILEINFOKEY.cpp", fmAll);
USEFORM("QueryForm.cpp", fmQuery);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
       Application->Initialize();
       Application->Title = "资料信息管理系统";
       Application->CreateForm(__classid(TfmMain), &fmMain);
       Application->CreateForm(__classid(TfmData), &fmData);
       Application->CreateForm(__classid(TDM), &DM);
       Application->CreateForm(__classid(TfmNew), &fmNew);
       Application->CreateForm(__classid(TfmChgPasswd), &fmChgPasswd);
       Application->CreateForm(__classid(TAboutBox), &AboutBox);
       Application->CreateForm(__classid(TfmChgInfo), &fmChgInfo);
       Application->CreateForm(__classid(TfmAll), &fmAll);
       Application->CreateForm(__classid(TfmLogin), &fmLogin);
       Application->CreateForm(__classid(TfmQuery), &fmQuery);
       Application->Run();
   }
   catch (Exception &exception)
   {
       Application->ShowException(&exception);
   }
   return 0;
}
//---------------------------------------------------------------------------