procedure TCT1.Button4Click(Sender: TObject);
var
bh,srbh :string;
begin
bh := edit1.Text;
dsb_xbygsr.DataSet.Open;
dsb_xbygsr.DataSet.First;
while not dsb_xbygsr.DataSet.Eof do
begin
srbh := dsb_xbygsr.DataSet.FieldByName('bh').AsString;
if (bh=srbh) then
begin
dsb_xbygsr.DataSet.Edit;
dsb_xbygsr.DataSet.FieldByName('zt').AsString := '12';
dsb_xbygsr.DataSet.Post;
exit;
end;
dsb_xbygsr.DataSet.Next;
end;
end;