代码:
begin
with adotable1 do
begin
if ADOTable1.Lookup('kh',edit1.Text,'mm')=edit2.Text then
begin
form3.show;
end
else
showmessage('对不起,没有该用户');
end;
end;
整个程序只有一张表(用户表),进入form3后..显示的是第一条记录的信息,如果实现用哪个用户名登陆,进入form3后显示的就是哪个用户的信息?代码该怎么写?谢谢啦!
begin
with adotable1 do
begin
if ADOTable1.Lookup('kh',edit1.Text,'mm')=edit2.Text then
begin
form3.show;
end
else
showmessage('对不起,没有该用户');
end;
end;
整个程序只有一张表(用户表),进入form3后..显示的是第一条记录的信息,如果实现用哪个用户名登陆,进入form3后显示的就是哪个用户的信息?代码该怎么写?谢谢啦!
with adotable1 do
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 用户表 where 用户名=' + QuotedStr(Edit1.Text) + ' and 用户密码=' + QuotedStr(Edit2.Text));
Open;
if not IsEmpty then
form3.show
else showmessage('对不起,没有该用户');
end;
end;