请问一个登录窗口的代码如何写？（急急急）

Question

zh:=Edit1.Text;//取得帐号
ma:=Edit2.Text;//取得密码
ssql:='select b from test where a="'+zh+'"';//根据帐号从数据库取得密码
//下面如何执行SQL语句？如何取得执行SQL语句的结果并把结果赋给变量sss？
if(sss=ma) then
//打开主窗口
else
//提示错误
end;
主要是SQL操作的几句话我不会写

Answer 1

首先使用Tdatabase连接数据库，在使用TQUERY执行SQL判断登陆用户输入的口令和登陆帐号是否正确，下面是几句TQUERY执行SQL的常用语法了
QUERY1.SQL.TEXT=ssql;
queryq.open;
sss=query1.fieldbyname("b").asstring

Answer 2

zh:=Edit1.Text;//取得帐号
ma:=Edit2.Text;//取得密码
ssql:='select b from test where a="'+zh+'"';//根据帐号从数据库取得密码
//下面
query.sql.add(ssql);
query.open;
sss=query.fields[0].asstring;if(sss=ma) then
//打开主窗口
else
//提示错误
end;

Answer 3

//主窗口
procedure TfrmMain.FormShow(Sender: TObject);
var
  Monitor:        TRouletteMonitor;
  UserName:       string;
  Password:       string;
label
LoginAgain;
begin
  LoginAgain:
  if frmLogin.ShowModal = mrCancel then
  begin
    if not LoginOK then
     Close
  end
  else
  begin
    Monitor := TRouletteMonitor.Create;
    Monitor.ADOConnection := ADOConn1;    UserName := Trim(frmLogin.edtUserName.Text);
    Password := Trim(frmLogin.edtPassword.Text);
    if Monitor.Login(UserName, Password) then
    begin
      LoginOK := True;
      CurrentUserName := frmLogin.UserName;
      StatusBar1.Panels[3].Text := '登录：' + CurrentUserName;
      frmLogin.edtUserName.Text := '';   //TODO.. Last Login UserName from Registry
      frmLogin.edtPassword.Text := '';      EnableThingsAfterLogin;
    end
    else
    begin
      if not LoginOK then StatusBar1.Panels[3].Text := '登录：未登录';
      MessageBox(frmLogin.Handle, '登录不成功，请确认用户名和密码都正确。', '登录', MB_OK + MB_ICONERROR);
      frmLogin.edtPassword.Text := '';
      frmLogin.edtUserName.SelectAll;
      goto LoginAgain;
    end;    Monitor.Free;
  end;
end;//*---------------------------------
//登录窗口
procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
  UserName := Trim(edtUserName.Text);
  Password := Trim(edtPassword.Text);  if UserName = '' then
  begin
    MessageBox(Handle, '请输入用户名！', '提示', MB_ICONINFORMATION + MB_OK);
    edtUserName.SetFocus;
  end
  else
  begin
   ModalResult := mrOK;
  end;
end;procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
if LoginOK then
   ModalResult := mrCancel
  else
   Application.Terminate;
end;procedure TfrmLogin.FormShow(Sender: TObject);
begin
  Beep;
  edtUserName.SetFocus;
  //************
  edtUserName.Text := 'Oliver';
  edtPassword.Text := 'Oliver';
  ModalResult := mrOK;
  //************
end;