技术类2(delphi)

最新推荐文章于 2023-05-05 23:01:13 发布

Steven_xg

最新推荐文章于 2023-05-05 23:01:13 发布

阅读量646

点赞数

分类专栏： Delphi技术精华文章标签： delphi 电话 function string

本文链接：https://blog.csdn.net/steven_xg/article/details/1805353

版权

Delphi技术精华专栏收录该内容

14 篇文章 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;