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

Posted 2022-07-22 知

篇首语：自觉心是进步之母，自贱心是堕落之源，故自觉心不可无，自贱心不可有。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全职员信息维护功能的实现（二）[3]相关的知识，希望对你有一定的参考价值。

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

[姓名]) values( +inttostr(MaxIntNum+ )+ + +edit Text+ + +edit Text+ ) ; adomand Execute; adoquery Close; adoquery SQL Clear; //更新新插入的数据项完成插入的功能 adoquery SQL Add( update 职员基本信息表 set 姓名简码= +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(MaxIntNum+ )+ ); adoquery SQL Add( select 姓名 from 职员基本信息表 where 内部编号 = +inttostr(MaxIntNum+ )+ ); adoquery Open; adoquery FieldByName( 姓名 ) AsString; //刷新dbgrid的数据并发送插入成功的消息 //label 就是放入的那个caption为空用来显示消息的label控件 label Caption:=adoquery fieldbyname( 姓名 ) asstring+ 的信息已经被成功插入 ; adotable Active:=false; adotable Active:=true; //别忘了关掉插入许可 adomand CommandText:= set IDENTITY_insert 职员基本信息表 off ; adomand Execute; end; end;

至此我们完成了职员信息维护的功能可以单击页面下方的个按钮执行对数据表的插入修改和删除操作程序运行的实际结果如图所示

//develop csai cn/delphi/images/ jpg >图职员信息维护功能

cha138/Article/program/Delphi/201311/24779

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

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