技术类2(delphi)

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;
 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值