本文整理自网络,侵删。
Form1.ADOQuery1.close; Form1.ADOQuery1.SQL.Clear; Form1.ADOQuery1.SQL.Add('Update 商品基础信息表 Set 商品名称=:A,商品代码=:B,规格=:C,单位=:D,单价=:E,商品说明=:F'); Form1.ADOQuery1.SQL.Add('Where 商品编号=:G'); Form1.ADOQuery1.Parameters.ParamByName('A').Value:=Edit1.Text; Form1.ADOQuery1.Parameters.ParamByName('B').Value:=Edit2.Text; Form1.ADOQuery1.Parameters.ParamByName('C').Value:=Edit3.Text; Form1.ADOQuery1.Parameters.ParamByName('D').Value:=Edit4.Text; Form1.ADOQuery1.Parameters.ParamByName('E').Value:=StrToInt(Edit5.Text); Form1.ADOQuery1.Parameters.ParamByName('F').Value:=Edit6.Text; Form1.ADOQuery1.Parameters.ParamByName('G').Value:=Form1.ADOTable1.FieldValues['商品编号']; Form1.ADOQuery1.ExecSQL; Form1.ADOTable1.Close; Form1.ADOTable1.Open;
相关阅读 >>
Delphi xe7的android应用设定wifi的有效无效
Delphi 的webbrowser如何全选并复制浏览器上的文字
更多相关阅读请进入《Delphi》频道 >>