dlephi代码

发布网友发布时间：2022-05-02 17:16

共1个回答

热心网友时间：2022-06-21 00:46

老大，前边有一个with xxxx do好不好，xxxx表示某个对象或控件，下边所有比如open;、SetKey;这些东西都可以写成xxxx.open;、xxxx.SetKey;这样。直接看没头没尾的。不过看样子xxxx是个表或者RecordSet之类的东西。差不多吧。

begin
Indexname:='KH'; //设置数据索引KH
Open; //打开表
SetKey; //置为查找状态
FieldByname('卡号').Asstring:=Edit1.text; //将EDIT1的值置为查找内容
GotoNearest; //模糊查找

Indexname:='PASS'; //设置数据索引PASS
Open; //打开表
SetKey; //置为查找状态
FieldByname('密码').Asstring:=Edit1.text; //将EDIT1的值置为查找内容
GotoNearest; //模糊查找
if ((DBEdit1.Text<>Edit1.text)or(DBEdit2.Text<>Edit2.text)) then //如果查找出来的用户名和密码值与你输入的不同
Showmessage('对不起，没有该用户！') //显示消息
else //否则
Form7.show; //显示FORM7 估计是登陆成功的意思。
End;

就是一个登陆验证。GotoNearest是查到就定位，同时改变与表联系的文本框值，找不到就不动。

回答补充：我都说了这是个表了。还不给分？