实例——使用fieldvalues属性为增加的记录字段赋值.txt

来自「Delphi 7组件应用实例 书籍语言： 简体中文 书籍类」· 文本 代码 · 共 13 行

    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;