关闭

技术类2(delphi)

443人阅读 评论(0) 收藏 举报

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;
 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:57738次
    • 积分:1018
    • 等级:
    • 排名:千里之外
    • 原创:45篇
    • 转载:0篇
    • 译文:0篇
    • 评论:7条