菜鸟求教
delphi吧
全部回复
仅看楼主
level 1
模拟就这样了,我摁妞的程序是
begin
if (edit1.text='请输入用户名')then
begin
showmessage('用户名输入错误,请重新输入!');
exit;
end;
if (edit1.text='')then
begin
showmessage('用户名不能为空');
exit;
end;
if (edit2.text='')then
begin
showmessage('密码不能为空');
exit;
end;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from accdb where yhm='''+edit1.text+''' and mm='''+edit2.text+''' ');
open;
if adoquery1.RecordCount=0 then
begin
showmessage('用户名或密码错误,请重新输入!');
exit;
end.
begin
if (edit1.text='请输入用户名')then
begin
showmessage('用户名输入错误,请重新输入!');
exit;
end;
if (edit1.text='')then
begin
showmessage('用户名不能为空');
exit;
end;
if (edit2.text='')then
begin
showmessage('密码不能为空');
exit;
end;
with adoquery1 do
begin
close;
sql.clear;
sql.add('select * from accdb where yhm='''+edit1.text+''' and mm='''+edit2.text+''' ');
open;
if adoquery1.RecordCount=0 then
begin
showmessage('用户名或密码错误,请重新输入!');
exit;
end.
求大神告知原因,谢谢
2016年05月31日 15点05分 1
level 10
看看是不是隐藏了
2016年06月01日 14点06分 2
1