本文整理自网络,侵删。
ADOQuery.Sql.Text := 'select * from tab1 where key ='''+maykey+''' ';ADOQuery.Open();if ADOQuery.RecordCount <> 0 then //如果重复则返回重复IDbeginShowMessage(adoquery1.FieldByName('编号').AsString);end;
相关阅读 >>
Delphi tmemo控件滚动条scrollbar末尾插入字符串一点都会闪烁的轻松实现
Delphi setcursorpos函数在窗口上定位鼠标坐标
更多相关阅读请进入《Delphi》频道 >>