各位高手大哥：关于数据库的一点小问题，谢谢！

Question

procedure TFlogno.SpeedButton1Click(Sender: TObject);
var str1,str2,str3,str4:string;
begin
str1:=editm.text;
str2:=trim(fmdata.dadm.fieldbyname('admma').asstring);
str3:=edit1.text;
str4:=trim(fmdata.dadm.fieldbyname('admindex').asstring);
if fmdata.dadm.FieldByName('online').asboolean then
begin
showmessage('该用户已经登陆到服务器上了，请你不要再用该用户名登陆!!!');
end
else
begin
if (str1=str2) and (str3=str4) then
        begin
            logno_ok:=true;
           
            fmdata.dadm.Edit;
            fmdata.dadm.FieldByName('LONDTS').AsDateTime:=date+time;
            //fmdata.dadm.fieldbyname('lonts').asdatetime:=time;
            fmdata.dadm.FieldByName('online').AsBoolean:=logno_ok;
            fmdata.dadm.FieldByName('londte').clear;
            //fmdata.dadm.fieldbyname('lonte').clear;
            fmdata.dadm.ApplyUpdates(-1);
            main.admname:=fmdata.dadm.fieldbyname('admname').asstring;
            main.admindex:=str4;
            main.admme:=fmdata.dadm.fieldbyname('admme').asinteger;
            close;
        end
else
begin
    lon:=lon+1;
    editm.Clear;
end;
if lon>2 then
begin
   logno_ok:=false;
   close;end;
end;
end;

Answer 1

............
with query1 do begin
  close;
  sql.clear;
  sql.add('select passwords from userinfor where username = :x ');
  prepare;
  parambyname('x').asstring := Edit1.Text; //姓名框
  Open;
  if fields[0].asstring := Edit2.text then begin //密码框
    .........
  end;
end;
//随手写的，大概意思

Answer 2

edit1.text:=bernard;
edit2.text:=123;query1.close;
query1.sql:='select passwords for name='''+edit1.text+'''';
query1.open;
if query1['passwords']=edit2.text then
    //'正常' else
    //'密码错误'
query1.close

Answer 3

同意 yansea(思宏)的，很简洁，完全表达了意思而且可以使用了