with ADOQuery do begin Close; SQL.clear; SQL.add('Select * from table where 客户编码=:t1'); Parameters[0].value:=edit1.text; Open; if RecordCount>0 then showmessage('已经存在') else 加到表中 end;
晕我又没有说你是用edit控件!我只是举了例子!procedure TForm1.Button1Click(Sender: TObject); var a:String; begin a:=Dbgrid1.SelectedField.AsString; ShowMessage(a); end;你取编号后进行处理!自己变通一下吗!不能完全靠别人的?!
begin
Close;
SQL.clear;
SQL.add('Select * from table where 客户编码=:t1');
Parameters[0].value:=edit1.text;
Open;
if RecordCount>0 then
showmessage('已经存在')
else
加到表中 end;
var
a:String;
begin
a:=Dbgrid1.SelectedField.AsString;
ShowMessage(a);
end;你取编号后进行处理!自己变通一下吗!不能完全靠别人的?!