知识大全职员信息维护功能的实现（二）[1]

Posted 2022-07-22 知

篇首语：千淘万漉虽辛苦，吹尽狂沙始到金。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全职员信息维护功能的实现（二）[1]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

然后再分别双击【修改记录】【删除记录】【插入新纪录】个按钮添加单击按钮时对数据进行相应操作的处理程序 // 修改所选取的职员的数据 procedure Tmain Button Click(Sender: TObject); var intNum:integer; begin //读取选取的职员的内部编号 intNum:=dbgrid Fields[ ] AsInteger; //更新数据表 adoquery Close; adoquery SQL Clear; adoquery SQL Add( update 职员基本信息表 set 职员编号= +edit Text+ ); adoquery SQL Add( 姓名= +edit Text+ ); adoquery SQL Add( 姓名简码= +edit Text+ ); adoquery SQL Add( 性别= +bobox text+ ); adoquery SQL Add( 出生日期= +edit Text+ ); adoquery SQL Add( 年龄= +edit Text+ ); adoquery SQL Add( 籍贯= +edit Text+ ); adoquery SQL Add( 民族= +bobox Text+ ); adoquery SQL Add( 文化程度= +edit Text+ ); adoquery SQL Add( 毕业学校= +edit Text+ ); adoquery SQL Add( 健康状况= +edit Text+ ); adoquery SQL Add( 婚姻状况= +bobox Text+ ); adoquery SQL Add( 身份证号码= +edit Text+ ); adoquery SQL Add( 家庭电话= +edit Text+ ); adoquery SQL Add( 办公电话= +edit Text+ ); adoquery SQL Add( 手机= +edit Text+ ); adoquery SQL Add( 电子邮件地址= +edit Text+ ); adoquery SQL Add( 职工帐号= +edit Text+ ); adoquery SQL Add( 单位编号= +edit Text+ ); adoquery SQL Add( 备注= +edit Text+ ); adoquery SQL Add( where 内部编号= +inttostr(intNum)+ ); adoquery SQL Add( select 姓名 from 职员基本信息表 where 内部编号= +inttostr(intNum)+ ); adoquery Open; //显示更新了数据的职员名并发出更新成功的消息 label Caption:=adoquery fieldbyname( 姓名 ) asstring+ 的信息已经被成功修改 ; //刷新dbgrid中的数据 adotable Active:=false; adotable Active:=true; end; // 删除记录 procedure Tmain Button Click(Sender: TObject); var deleteName:string; deleteNum:integer; begin

cha138/Article/program/Delphi/201311/24777

知识大全 职员信息维护功能的实现（二）[1]

知识大全职员信息维护功能的实现（二）[1]