使用FieldValues属性为增加的记录字段赋值

最新推荐文章于 2023-06-21 09:31:51 发布

原创最新推荐文章于 2023-06-21 09:31:51 发布 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

95 篇文章

订阅专栏

本文介绍了一个使用Delphi进行数据库操作的例子，演示了如何通过Append方法向数据库中添加新记录，并利用编辑框获取用户输入的数据，如姓名、年龄等信息。

    procedure TForm1.AppendBtnClick(Sender: TObject);
    begin
      SQLQuery1.close;
      SQLQuery1.open;
      SQLQuery1.Append;      //增加一个新记录
      SQLQuery1.FieldValues['Name'] :=name_edit.text;
      //利用编辑框为新增的记录赋值
      SQLQuery1.FieldValues['Age'] := StrToInt(age_edit.text);
      SQLQuery1.FieldValues[' native_place'] := JiGuan_edit.text);
      SQLQuery1.Post;  //调用Post方法提交，将增加的记录写库
    end;