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;
使用Insert方法插入记录
最新推荐文章于 2024-12-06 21:04:55 发布
本文介绍了一个使用Delphi进行数据库插入操作的具体示例。通过Insert方法向数据库中添加新记录,并利用编辑框获取用户输入的数据,包括姓名、年龄、部门和职务等信息。
951

被折叠的 条评论
为什么被折叠?



