Q5/ws_objects/Ew_mainface.pbl.src/w_sys_message.srw

$PBExportHeader$w_sys_message.srw
forward
global type w_sys_message from w_publ_base
end type
type dw_1 from datawindow within w_sys_message
end type
type cb_3 from commandbutton within w_sys_message
end type
end forward

global type w_sys_message from w_publ_base
integer y = 388
integer width = 2377
integer height = 1619
string title = "系统用户信息"
dw_1 dw_1
cb_3 cb_3
end type
global w_sys_message w_sys_message

on w_sys_message.create
int iCurrent
call super::create
this.dw_1=create dw_1
this.cb_3=create cb_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.dw_1
this.Control[iCurrent+2]=this.cb_3
end on

on w_sys_message.destroy
call super::destroy
destroy(this.dw_1)
destroy(this.cb_3)
end on

event open;call super::open;dw_1.settransobject(sqlca)
dw_1.retrieve()
if dw_1.rowcount()=0 then dw_1.insertrow(0)

IF NOT sys_power_issuper THEN
	cb_3.Visible = FALSE
END IF
end event

event close;f_set_sysmessage()
end event

type cb_func from w_publ_base`cb_func within w_sys_message
integer x = 633
integer y = 1379
integer width = 311
integer height = 96
string text = "保存"
string normalpicname = "save.bmp"
integer picsize = 0
toolbaralignment pic_align = alignatleft!
boolean border = true
end type

event cb_func::clicked;if dw_1.update()<>1 then 
	messagebox('提示','系统用户信息修改失败,请重试!', Information!, OK! )
	rollback;
else
	messagebox('提示','系统用户信息修改成功!', Information!, OK! )
	commit;
	f_set_sysmessage()
end if
end event

type cb_exit from w_publ_base`cb_exit within w_sys_message
integer x = 1353
integer y = 1379
integer taborder = 30
end type

type dw_1 from datawindow within w_sys_message
event dwmkey pbm_dwnkey
integer x = 4
integer y = 29
integer width = 2194
integer height = 1306
integer taborder = 10
boolean bringtotop = true
string dataobject = "dw_sys_message"
boolean border = false
boolean livescroll = true
end type

event dwmkey;PARENT.TriggerEvent('key')
end event

type cb_3 from commandbutton within w_sys_message
integer x = 1313
integer y = 1200
integer width = 388
integer height = 96
integer taborder = 40
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "注册信息"
end type

event clicked;Open(w_reg_manager)
end event