原本 放在 Qa_action 區 處理.
因為 添加 物件的使用權限 與 帳號的連結 ..
所以 改寫 放在
Qb_New
class::Qa_Action(false)&& 開啟 [取消鍵]
Local o
o = Form.cTa.b
o.QB_P1.enabled:= false&& 新增
o.QB_P2.enabled:= false&& 編修
o.QB_P4.enabled:= false&& 刪除
o.QB_P5.enabled:= true&& 放棄
form.CTA.A.QA_P5.enabled:=false && 單頭 關閉 放棄鍵
Qb_Edit
class::Qa_Action(false)&& 關閉 無關本次 輸入作業區
Local o
o = Form.cTa.b
o.QB_P1.enabled:= false&& 新增
o.QB_P2.enabled:= false&& 編修
o.QB_P4.enabled:= false&& 刪除
o.QB_P5.enabled:= true&& 放棄
form.CTA.A.QA_P5.enabled:=false && 關閉 單頭 放棄鍵
Qb資料載入_1
R = F.Qb.rowset
N = R.count()&& N>0, 有資料..
if N>0&&單身 有資料
F.cta.B.Qb_P2.enabled:= F.QPass[2]&& 編修
F.cta.B.Qb_P4.enabled:= F.QPass[4]&& 刪除
// F.CTD.A.VS1.value := 1
else&&單身 沒資料
F.cta.B.Qb_P2.enabled:= false
F.cta.B.Qb_P4.enabled:= false
F.CTD.A.VS1.value := 0
endif
F.cta.B.Qb_P1.enabled:= F.QPass[1] && 新增
Qb_Cancel_onClick()
o = F.cTa.b
o.QB_P1.enabled:= F.QPass[1]&& 新增
o.QB_P2.enabled:= F.QPass[2]&& 編修
o.QB_P4.enabled:= F.QPass[4]&& 編修
o.QB_P5.enabled:= false&& 放棄
&& 單身沒資料
if f.CTX.XSPIN2.value = 0
o.QB_P2.enabled:= false
o.QB_P4.enabled:= false
endif
&& 單身 沒資料.
if (x2 = 0)
? ‘狀況 0’
F.CTD.A.VS1.value := 0
F.CTX.xSpin6.value := 0&& Qb.rowset.rowNo()
F.CTX.xSpin3.value := 0&& 焦點 容器 位置
class::Qb_P5_onClick()&& 刷新 單身 控制項
return
endif