3
3897113blueappl
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm16.Button1Click(Sender: TObject);
var
hj,str:real;
begin
adoquery2.Edit;
adoquery2.Open;
hj:=(adoquery2.Fields[10].asfloat)/12;
str:=strtofloat(combobox1.text)/100;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('update ryb set zy_xnyjylj=zy_nyjylj*+str+');
adoquery1.SQL.Add('update ryb set zy_ypjsr=
+hj+');
adoquery1.ExecSQL;
end;
var
hj,str:real;
begin
adoquery2.Edit;
adoquery2.Open;
hj:=(adoquery2.Fields[10].asfloat)/12;
str:=strtofloat(combobox1.text)/100;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('update ryb set zy_xnyjylj=zy_nyjylj*+str+');
adoquery1.SQL.Add('update ryb set zy_ypjsr=
代码:
adoquery1.ExecSQL;
end;