帮我有分

Question

var aname,apassword,sqlstr:string;
a,b:integer;
begin
    if (length(trim(edit1.text))>0) or (length(trim(edit2.text))>0) then
    begin
      aname:=edit1.Text;
      apassword:=edit2.Text;
      sqlstr:='select * from user a where (a.user1="'+aname+'") and (a.password1="'+apassword+'")';
        with TQuery.Create(nil) do
        try
        sessionName:=Form1.Database1.SessionName;
        DatabaseName:=form1.Database1.DatabaseName;
        close;
        SQL.Clear;
        SQL.Add(sqlstr);
        open;//未完,总是参数不足,期待为1,帮我啊,各位大哥们,

Answer 1

两个单引号表示一个双引号…………DELPHI中用单引号…………

Answer 2

sqlstr:='select * from user a where (a.user1='''+aname+''') and (a.password1='''+apassword+''')';把双引号换成两个单引号试试。

Answer 3

谢了,我解决了,谢了smiler007(笑一笑)