📄 实例——使用fieldvalues属性为增加的记录字段赋值.txt
字号:
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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -