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

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

    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;