Q
qqflying
Unregistered / Unconfirmed
GUEST, unregistred user!
你们好，我是一个初学者有这样一个问题请大家赐教，我编写了如下代码，老出错：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=strtoint(edit1.Text);
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from 表1');
query1.SQL.Add('where 密码=i' );
query1.Open
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=strtoint(edit1.Text);
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from 表1');
query1.SQL.Add('where 密码=i' );
query1.Open
end;
MM' );