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

然后再分别双击【修改记录】【删除记录】【插入新纪录】个按钮添加单击按钮时对数据进行相应操作的处理程序

//修改所选取的职员的数据

procedure TmainButtonClick(Sender: TObject);

var

intNum:integer;

begin

//读取选取的职员的内部编号

intNum:=dbgridFields[]AsInteger;

//更新数据表

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(update 职员基本信息表 set 职员编号=+editText+);

adoquerySQLAdd(姓名=+editText+);

adoquerySQLAdd(姓名简码=+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(intNum)+);

adoquerySQLAdd(select 姓名 from 职员基本信息表 where 内部编号=+inttostr(intNum)+);

adoqueryOpen;

//显示更新了数据的职员名并发出更新成功的消息

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

//刷新dbgrid中的数据

adotableActive:=false;

adotableActive:=true;

end;

//删除记录

procedure TmainButtonClick(Sender: TObject);

var

deleteName:string;

deleteNum:integer;

begin

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

上一篇：开发自己的英文语音朗读软件[1]

下一篇：经典案例 财务管理系统（3）