怎么设置密码登录窗口？请教

[jamesyue2008]

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
Application->Initialize();
Application->CreateForm(__classid(TMainForm), &MainForm);
Application->CreateForm(__classid(TAboutBox), &AboutBox);
Application->CreateForm(__classid(TPlat), &Plat);
Application->CreateForm(__classid(THolidays), &Holidays);
Application->Run();
return 0;
}

我想在Application->Run()前面设一个密码登录窗口，此密码是存在数据库表中。如果密码不对，就直接退出。怎么做？

[缘中人]

	Application->Initialize();

	frmyhdl = new Tfrmyhdl(Application);
	frmyhdl->ShowModal();
	if (frmyhdl->ModalResult == mrOk)
		Application->CreateForm(__classid(TMainForm), &MainForm);
	delete frmyhdl;

	Application->CreateForm(__classid(TAboutBox), &AboutBox);
	Application->CreateForm(__classid(TPlat), &Plat);
	Application->CreateForm(__classid(THolidays), &Holidays);
	Application->Run();
	return 0;

[jamesyue2008]

frmyhdl 是不是一个Form? 我建了一个新PWfm, 并且加了USEFORM("PWfms.cpp", PWfm); 编译错误， 谢谢帮忙 PWfm = new TPWfm(Application); PWfm->ShowModal(); if (PWfm->ModalResult == mrOk) Application->CreateForm(__classid(TMainForm), &MainForm); delete PWfm; 显示错误： [BCC32 Error] MDIAPP.cpp(60): E2450 Undefined structure 'TPWfm' [BCC32 Error] MDIAPP.cpp(60): E2034 Cannot convert 'TApplication *' to 'TPWfm'

[缘中人]

#include "yhdl.h"

head file