使用Insert方法插入记录

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;


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值