例子:
procedure TF_JbzlCsh.buttn1.click(sendr);
var
cshquery:Tadoquery;
begin
cshquery:=Tadoquery.Create(nil);
cshquery.Connection:=datamodule1.ADOConnection1;
with cshquery do
begin
close;
sql.Clear;
sql.Add('update 参数表 set 初始化标志=false');
cshquery.ExecSQL;
end;
end;