2,495
社区成员
发帖
与我相关
我的任务
分享
procedure TRES_KPIMB_F.btnSB_NewClick(Sender: TObject);
begin
inherited;
if FFocus= fMaster then
begin
cbb_orgy.SetFocus;
qry_jd.Append;
qry_jd.FieldByName('SUPER').AsString:=_UserName;
qry_jd.FieldByName('UsrID').AsString:=_UserNo;
ChangeStatusJD(sEdit);
end else
begin
edt_xm.SetFocus;
if not qry_mbop.Active then
qry_mbop.Open;
qry_mbop.Append;
qry_mbop.FieldByName('JD_ID').AsString:=qry_jd.fieldbyname('AuID').AsString;
qry_mbop.FieldByName('UsrID').AsString:=_UserNo;
ChangeStatus(sEdit);
end;
end;
procedure TRES_KPIMB_F.btnSB_DelClick(Sender: TObject);
begin
inherited;
if FFocus= fMaster then
begin
if not qry_jd.IsEmpty then
begin
if MessageDlg('你確定要刪除"'+cbb_orgnm.Text+'"的工作說明嗎?',mtInformation,[mbYes,mbNo],0)=idyes then
begin
qry_jd.Edit;
qry_jd.FieldByName('DelStatus').AsString:='1';
CanPost:=True;
qry_jd.Post;
RestData;
end;
end;
end else
begin
if not qry_mbop.IsEmpty then
begin
if MessageDlg('你確定要刪除所選中的KPI項目嗎?'+char(13)+char(13)+qry_mbop.fieldbyname('TAG_PROJ').AsString,mtInformation,[mbYes,mbNo],0)=idyes then
begin
qry_mbop.Edit;
qry_mbop.FieldByName('DelStatus').AsString:='1';
CanPost:=True;
qry_mbop.Post;
RestData;
end;
end;
end;
end;
select a.*,b.* from SYS_LOGINUSER a
left join Res_User_Temp b on a.ACCOUNT_ID=b.Account_Id