procedure TfrmHrAdd.bbtnOkClick(Sender: TObject);
begin
if optType=0 then //新增记录
try
with dmHr do
begin
if not adoTblHr.Active then adoTblHr.Open ;
adoTblHr.Append; //追加记录
adoTblHr.FieldByName('Person_No').AsString :=TrimRight(ledtPerson_No.Text); // 编号
adoTblHr.FieldByName('Person_Name').AsString :=TrimRight(ledtPerson_Name.Text); // 姓名
adoTblHr.FieldByName('Sex').AsString :=TrimRight(ledtSex.Text); // 性别
adoTblHr.FieldByName('Birthday').AsString :=TrimRight(ledtBirthday.Text); // 出生日期
adoTblHr.FieldByName('Telephone').AsString :=TrimRight(ledtTelephone.Text); // 联系电话
adoTblHr.FieldByName('Dept_Code').AsString :=TrimRight(ledtDept_Code.Text); //部门编号
adoTblHr.FieldByName('Dept_Name').AsString :=TrimRight(ledtDept_Name.Text); //部门名称
adoTblHr.FieldByName('Card_Code').AsString :=TrimRight(ledtCard_Code.Text); //卡号
adoTblHr.FieldByName('State').AsString :=TrimRight(ledtState.Text); //停职标识
adoTblHr.FieldByName('Note').AsString :=TrimRight(ledtNote.Text); // 备注
//adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text); //
//adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text); //
adoTblHr.Post; //提交
showmessage('数据已成功保存!');
end;
except
showmessage('数据保存失败,请检查数据录入是否正确!');
end
else //修改记录
try
with dmHr do
begin
adoTblHr.Edit; //修改记录
adoTblHr.FieldByName('Person_No').AsString :=TrimRight(ledtPerson_No.Text); // 编号
adoTblHr.FieldByName('Person_Name').AsString :=TrimRight(ledtPerson_Name.Text); // 姓名
adoTblHr.FieldByName('Sex').AsString :=TrimRight(ledtSex.Text); // 性别
adoTblHr.FieldByName('Birthday').AsString :=TrimRight(ledtBirthday.Text); // 出生日期
adoTblHr.FieldByName('Telephone').AsString :=TrimRight(ledtTelephone.Text); // 联系电话
adoTblHr.FieldByName('Dept_Code').AsString :=TrimRight(ledtDept_Code.Text); //部门编号
adoTblHr.FieldByName('Dept_Name').AsString :=TrimRight(ledtDept_Name.Text); //部门名称
adoTblHr.FieldByName('Card_Code').AsString :=TrimRight(ledtCard_Code.Text); //卡号
adoTblHr.FieldByName('State').AsString :=TrimRight(ledtState.Text); //停职标识
adoTblHr.FieldByName('Note').AsString :=TrimRight(ledtNote.Text); // 备注
//adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text); //
//adoTblHr.FieldByName('').AsString :=TrimRight(ledtPerson_No.Text); //
adoTblHr.Post; //提交
showmessage('数据已成功保存!');
end;
except
showmessage('数据保存失败,请检查数据录入是否正确!');
end;
end;
procedure TfrmHrAdd.FormShow(Sender: TObject);
begin
if optType=0 then
lblCaption.Caption :='新增人事资料'
else
begin
lblCaption.Caption :='修改人事资料';
ReadBill(Person_No) ;
end;
end;
function TfrmHrAdd.ReadBill(const Person_No: string): boolean;
//修改时读入相关数据
begin
try
with dmHr do
begin
if not adoTblHr.Active then adoTblHr.Open ;
adoTblHr.Locate('Person_No',Person_No,[]);
//当数据存在时读入数据
if not (adoTblHr.Eof And adoTblHr.Bof ) then
begin
// showmessage('数据读入中...!');
ledtPerson_No.Text:=Person_No; // 编号
ledtPerson_No.ReadOnly :=true; //设置成只读
ledtPerson_Name.Text :=TrimRight(adoTblHr.FieldByName('Person_Name').AsString); // 姓名
ledtSex.Text :=TrimRight(adoTblHr.FieldByName('Sex').AsString); // 性别
ledtBirthday.Text :=TrimRight(adoTblHr.FieldByName('Birthday').AsString); // 出生日期
ledtTelephone.Text :=TrimRight(adoTblHr.FieldByName('Telephone').AsString); // 联系电话
ledtDept_Code.Text :=TrimRight(adoTblHr.FieldByName('Dept_Code').AsString); //部门编号
ledtDept_Name.Text :=TrimRight(adoTblHr.FieldByName('Dept_Name').AsString); //部门名称
ledtCard_Code.Text :=TrimRight(adoTblHr.FieldByName('Card_Code').AsString); //卡号
ledtState.Text :=TrimRight(adoTblHr.FieldByName('State').AsString); //停职标识
ledtNote.Text :=TrimRight(adoTblHr.FieldByName('Note').AsString); // 备注
exit;
end
else
exit;
end;
except
showmessage('数据读入异常!');
exit;
end;
showmessage('数据读入异常!');
end;
procedure TfrmHrAdd.ClearText;
begin
if optType=0 then ledtPerson_No.Text:=''; // 编号
ledtPerson_Name.Text :=''; // 姓名
ledtSex.Text :=''; // 性别
ledtBirthday.Text :=''; // 出生日期
ledtTelephone.Text :=''; // 联系电话
ledtDept_Code.Text :=''; //部门编号
ledtDept_Name.Text :=''; //部门名称
ledtCard_Code.Text :=''; //卡号
ledtState.Text :=''; //停职标识
ledtNote.Text :=''; // 备注
end;