实例——使用insert方法插入记录.txt

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

procedure TForm1.InsertBtn1Click(Sender: TObject);
begin
      RenYuanQuery.Insert；
      RenYuanQuery.FieldValues['xm'] := Edit1.text；
  //利用编辑框Edit1为姓名字段XM赋值
  RenYuanQuery.FieldValues['nl'] := StrToInt(Edit2.text)；
  //利用编辑框Edit2为年龄字段NL赋值
  RenYuanQuery.FieldValues['BuMen'] :=Edit3.text；
  //利用编辑框Edit3为部门字段BuMen赋值
  RenYuanQuery.FieldValues['ZhiWu'] :=Edit4.text；
  //利用编辑框Edit4为职务字段ZhiWu赋值
  RenYuanQuery.Post；
  //调用Post方法完成提交，即将新增的记录写入到数据库
End；