delphi 获取登录用户

在登录界面，输入用户名、密码点击确定后执行下面的过程
procedure Tfrm_login.login_BitBtn1Click(Sender: TObject);
begin
//获取用户信息
username:=trim(login_Edit1.Text);
pwd:=trim(login_Edit2.Text);
//查询用户名和密码是否为空
if username='' then
begin
showmessage('用户名不能为空!');
login_Edit1.SetFocus;
exit;
end;

if pwd='' then
begin
showmessage('密码不能为空!');
login_Edit2.SetFocus;
exit;
end;
//用ADOQuery查询数据库中用户信息是否存在
with frm_DM.DM_user do
begin
Close;
SQL.Clear;
SQL.Add('select * from users where username='''+username+''' and password='''+pwd+'''');
Open;
end;
if frm_DM.DM_user.IsEmpty then
begin
Application.MessageBox('用户名或密码错误!','非法用户',MB_ICONSTOP+MB_OK);
login_Edit1.Text:='';<

delphi的登录用户的权限问题 如何在asp表单中获取当前登录用户 PHP中如何获取当前登录windows用户的用户名 用delphi设计一个用户登录窗口及一个字体设置窗口 用户登录 获取xp登录密码 用delphi做登录模块: Delphi 7 开机登录问题 DELPHI关于获取COOKIE的编程问题 delphi从文件夹中获取文件名