典型处理.txt

进销存进销存进销存进销存进销存进销存进销存进销存进销存进销存

典型的字典维护处理
1.在Window中
. open_event
//Retrieve Row
postevent("ue_retrieve")
//将所有 Datawindow 设置为保护状态
f_setdwprotect(tab_1.tabpage_2.dw_1,true)
//将所有删除，保存，取消button设为不可视
cb_del1.visible = false
cb_save1.visible = false
cb_cancel1.visible = false

. key
this.post event ue_key(key,keyflags)

. resize
//处理状态行
ln_1.beginx = st_1.x
ln_1.endx = st_1.width
ln_2.beginx = ln_1.beginx
ln_2.endx = ln_1.endx
 
. ue_key
//处理热键
choose case key
	case KeyF1!
	case keyf2!
	case keyF8!
		//sample
 		if cb_save1.visible then
			cb_save1.postevent(clicked!)
		end if
end choose
return 0

2.Datawindow
. constructor
this.SetRowFocusIndicator(p_cursor) //设置行指示图列

. dberror
//判断关键字是否有重复现象
if sqldbcode = -193 then
	rollback;
	messagebox("信息","银行帐号重复，请您核对后重新输入！")
	dw_1.post function setfocus()
	dw_1.post function scrollToRow(row)
	dw_1.post function setcolumn("eh_account")
	return 1 //disable message
end if

. itemchanged
//自动增加一个空行
if row = this.RowCount() then
	this.post function insertrow(0)
end if

. ue_key
//热键处理
w_manager_kheh.post event key (key,keyflags)

. getfocus
//更新状态行
string scol
scol = this.getcolumnname()
st_1.text = this.Describe(scol + ".tag")

. itemFocusChanged
//更新状态行
string scol
scol = this.getcolumnname()
st_1.text = this.Describe(scol + ".tag")