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

[姓名]) values(+inttostr(MaxIntNum+)+++editText++

+editText+);

adocommandExecute;

adoqueryClose;

adoquerySQLClear;

//更新新插入的数据项完成插入的功能

adoquerySQLAdd(update 职员基本信息表 set 姓名简码=+editText+);

adoquerySQLAdd(性别=+comboboxtext+);

adoquerySQLAdd(出生日期=+editText+);

adoquerySQLAdd(年龄=+editText+);

adoquerySQLAdd(籍贯=+editText+);

adoquerySQLAdd(民族=+comboboxText+);

adoquerySQLAdd(文化程度=+editText+);

adoquerySQLAdd(毕业学校=+editText+);

adoquerySQLAdd(健康状况=+editText+);

adoquerySQLAdd(婚姻状况=+comboboxText+);

adoquerySQLAdd(身份证号码=+editText+);

adoquerySQLAdd(家庭电话=+editText+);

adoquerySQLAdd(办公电话=+editText+);

adoquerySQLAdd(手机=+editText+);

adoquerySQLAdd(电子邮件地址=+editText+);

adoquerySQLAdd(职工帐号=+editText+);

adoquerySQLAdd(单位编号=+editText+);

adoquerySQLAdd(备注=+editText+);

adoquerySQLAdd( where 内部编号=+inttostr(MaxIntNum+)+);

adoquerySQLAdd(select 姓名 from 职员基本信息表 where 内部编号

=+inttostr(MaxIntNum+)+);

adoqueryOpen;

adoqueryFieldByName(姓名)AsString;

//刷新dbgrid的数据并发送插入成功的消息

//label就是放入的那个caption为空用来显示消息的label控件

labelCaption:=adoqueryfieldbyname(姓名)asstring+的信息已经被成功插入;

adotableActive:=false;

adotableActive:=true;

//别忘了关掉插入许可

adocommandCommandText:=set IDENTITY_insert 职员基本信息表 off;

adocommandExecute;

end;

end;

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

http://developcsaicn/delphi/images/jpg>

图 职员信息维护功能

right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] []

上一篇：职员信息维护功能的实现（一）[2]

下一篇：职员信息维护功能的实现（二）[2]