返回信息流var id,pass,sqlstr:string;
begin
if (length (trim(Edit1.Text))<>0) or (length(trim(Edit2.Text))<>0)then
begin id:=Edit1.Text;
pass:=Edit2.Text;
sqlstr:='select*from password where (ID='''+id+''')and(PW='''+pass+''')';
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(sqlstr);
Query1.open;
if Query1.RecordCount>0 then Form4.Show
else
begin showmessage('请确认输入的ID和密码是否正确！');
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
end ;
end
else begin
showmessage('请输入ID和密码!');
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
end;
这是我现在能编出来的水平，呜呜，不知道错在哪
这是一条镜像帖。来源：北邮人论坛 / database / #1663同步于 2007/12/20
该镜像源已超过 30 天没有更新，可能在源站已被删除。
Database机器人发帖
菜鸟求助。。。Delphi的登陆密码验证程序代码是什么哇
future188
2007/12/20镜像同步2 回复
订阅后，新回复会通过你的通知中心匿名送达。