《人力资源管理系统》论文范例(4)

parameters.ParamByName('p').Value:=trim(combobox9.Text); //插入文化程度

parameters.ParamByName('q').Value:=trim(edit8.Text); //插入特长

parameters.ParamByName('r').Value:=trim(maskedit5.Text); //参加工作时间

parameters.ParamByName('s').Value:=i; //插入工龄

parameters.ParamByName('t').Assign(image1.Picture.Bitmap); /插入照片

parameters.ParamByName('u').Value:=trim(combobox4.Text); //插入所属部门

parameters.ParamByName('v').Value:=trim(combobox3.Text); //插入工种

parameters.ParamByName('w').Value:=trim(combobox5.Text); //插入职务

parameters.ParamByName('x').Value:=trim(combobox6.Text); //插入职称

parameters.ParamByName('y').Value:=strtodate(maskedit1.Text); //调入时间

parameters.ParamByName('z').Value:=memo1.Text; //插入简历

parameters.ParamByName('aa').Value:=strtodate(maskedit2.Text); //登记日期

parameters.ParamByName('ab').Value:=trim(edit16.Text); //插入登记人

parameters.ParamByName('ac').Value:='否'; //插入是否离职

parameters.ParamByName('ad').Value:=null; //离职日期

parameters.ParamByName('ae').Value:=null; //复职日期

parameters.ParamByName('af').Value:=null; //离职复员登记人

execsql

end;

editclear; //执行自定义的清除函数

application.MessageBox('保存成功！','提示',64);

except

application.MessageBox('系统出错！','提示',64);

end;

end;

【修改】按钮的功能主要是对当前数据做出修改，该按钮的单击事件代码如下：

procedure Tfrm_xygdj.BitBtn5Click(Sender: TObject);

begin

if messagebox(self.Handle,'确定要修改吗？','提示',mb_yesno+mb_iconquestion)= idyes then begin

try

with data1.ADOQuery1 do

begin

edit;

fieldbyname('bh').Value:=trim(edit1.Text);

fieldbyname('xm').Value:=trim(edit2.Text);

fieldbyname('mz').Value:=trim(combobox1.Text);

fieldbyname('xb').Value:=trim(combobox8.Text);

fieldbyname('csrq').Value:=trim(maskedit3.Text);