Delphi 程序设计：使用 ADOQuery 更新数据库记录
(2) 更新定位到目标编号的 LastName 在窗体中双击按钮 btnUpdate，为其添加 OnClick 事件处理过程。 // 鼠标点击更新按钮事件代码 procedure TForm1.btnUpdateClick(Sender: TObject); var s: String; begin // 根据指定员工编号更新 LastName with ADOQuery1 do begin if Active then Close; // 关闭数据集 SQL.Clear; // 清空 SQL 字符串 s := 'UPDATE Employee SET LastName = ''' + EditName.Text + ''' WHERE EmpNo = ' + EditNo.Text; SQL.Add(s); // 添加本次更新命令 ExecSQL; // 执行根据条件更新的 SQL 语句 end; end;
文件大小：2.19MB
评论区