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

Posted 2022-07-22 知

篇首语：所谓的成熟、其实就是在不断看开狠多事情之后、更好的生活着。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全职员信息维护功能的实现（二）[2]相关的知识，希望对你有一定的参考价值。

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

//读入要删除记录的职员的姓名和职员编号 deleteName:=edit Text; deleteNum:=dbgrid Fields[ ] AsInteger; //为保险起见只有职员姓名和编号都符合时才能删除 adomand CommandText:= delete from 职员基本信息表 where (内部编号= +inttostr(deleteNum)+ )and(姓名= +deleteName+ ) ; adomand Execute; //显示删除成功的消息 MessageBox( 删除记录成功! 删除 MB_OK); label Caption:=deleteName+ 的记录已被成功删除 ; //刷新dbgrid的数据 adotable Active:=false; adotable Active:=true; end; // 插入新记录 procedure Tmain Button Click(Sender: TObject); var MaxIntNum:integer; TotalNum:integer; begin adoquery Close; adoquery SQL Clear; adoquery SQL Add( select max(内部编号) 最大编号 count(内部编号) 总人数 from 职员基本信息表 ); adoquery Open; //计算数据表中职员内部编号的最大值和总人数 //自动计算新插入的职员数据的内部编号 MaxIntNum:=adoquery FieldByName( 最大编号 ) AsInteger; TotalNum:=adoquery FieldByName( 总人数 ) AsInteger; adoquery Close; adoquery SQL Clear; adoquery SQL Add( select count(职员编号) 雷同编号 from 职员基本信息表 where 职员编号= +edit Text+ ); adoquery Open; //判断输入的职员编号如果输入的职员编号于已有的相同则提示修改 if (adoquery FieldByName( 雷同编号 ) AsInteger> ) then MessageBox( 职员编号与其他职员编号雷同! Error! MB_OK) else begin //不允许用户输入空的编号和姓名如果输入为空则提示错误 if (edit Text= )or(edit Text= ) then MessageBox( 姓名和编号不能为空! Error! MB_OK) else begin //打开职员基本信息表插入许可 adomand CommandText:= set IDENTITY_insert 职员基本信息表 on ; adomand Execute; //向表中插入新记录这里只插入了不能为空的三项后面用update语句来对它进行更新 adomand CommandText:= insert into 职员基本信息表([内部编号] [职员编号]

cha138/Article/program/Delphi/201311/24778

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

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