用DELPHI怎么实现用户名和密码正确，你点击登录，他就跳转到上一个页面中去

用DELPHI如何实现用户名和密码正确，你点击登录，他就跳转到下一个页面中去
如题，谁能告诉我具体方法，代码如何编写

------解决方案--------------------
sSql := 'select * from 用户表 where 用户名='''+Trim(用户名输入框输入的用户名)+''' '
+' and 密码='''+Trim(密码输入框输入的密码)+''' ';
dm.adoQry.Close;
dm.adoQry.SQL.Clear;
dm.adoQry.SQL.Add(sSql);
try
dm.adoQry.Open;
except
on E: Exception do
begin
FErr:=E.Message;
Exit;
end;
end;
if dm.adoQry.RecordCount=0 then
begin
ShowMessage('用户名或密码错误');
Exit;
end
else
begin
Application.CreateForm(TMainForm,MainForm);
MainForm.ShowModal;
LoginForm.Free;
MainForm.Free;
end;

  
//LoginForm 登录窗体
//MainForm 主窗体
------解决方案--------------------
这个实现方式我觉得最好。楼主好好看看。
if not DEF_DEVDEBUG then //调试状态
begin
//登录
LoginFm := TLoginFM.Create(Application);
try
LoginResult := LoginFm.ShowModal;
finally
LoginFm.Free;
end;
//登录失败
if LoginResult <> 1 then
begin
DM.Free;
SystemParam.Free;
if not DEF_MultMine then
begin
ReleaseMutex(OneMutex);
CloseHandle(OneMutex);
end;
Exit;
end;
end
else
begin
SystemParam.__UserID := 'sys';
end;
//
Application.CreateForm(TMainFm, MainFm);
Application.CreateForm(TBJDY_Fm, BJDY_Fm);
Application.CreateForm(TXXXX_Fm, XXXX_Fm);

// Modified by zhb 2011-9-20 11:55:47 隐藏图片
// with TShowFM.Create(nil) do
// begin
// Show;
// for i := 255 downto 1 do
// begin
// AlphaBlendValue := i;
// Application.ProcessMessages;
// end;
// Free;
// end;

Application.Run;
except
end;