2,497
社区成员
发帖
与我相关
我的任务
分享
function TCard.CardNo(PeoNo: string): Boolean;
begin
Form1.qry2.Close;
Form1.qry2.SQL.Clear;
Form1.qry2.SQL.Add('select * from Card where CardNo='''+CardNo+''' and cardstatus NOT IN (''''正常'''')' );
Form1.qry2.Open;
if Form1.qry2.Eof then
Result:=False
else
Result:=True;
end;
if Card.CardNo(edt1.text)=False then
begin
Application.MessageBox('xxx!','xx');
edt1.Clear;
edt1.SetFocus;
Exit;
end;