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

$PBExportHeader$w_sys_log.srw
forward
global type w_sys_log from w_publ_easyq
end type
type cbx_1 from checkbox within w_sys_log
end type
type cb_4 from uo_imflatbutton within w_sys_log
end type
end forward

global type w_sys_log from w_publ_easyq
string title = "系统操作日志"
cbx_1 cbx_1
cb_4 cb_4
end type
global w_sys_log w_sys_log

on w_sys_log.create
int iCurrent
call super::create
this.cbx_1=create cbx_1
this.cb_4=create cb_4
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cbx_1
this.Control[iCurrent+2]=this.cb_4
end on

on w_sys_log.destroy
call super::destroy
destroy(this.cbx_1)
destroy(this.cb_4)
end on

event ue_before_openretrieve;call super::ue_before_openretrieve;EM_1.TEXT=STRING(TODAY(),'YYYY-MM-DD')
EM_2.TEXT=EM_1.TEXT
end event

type cb_func from w_publ_easyq`cb_func within w_sys_log
end type

type cb_exit from w_publ_easyq`cb_exit within w_sys_log
integer x = 658
end type

type cb_2 from w_publ_easyq`cb_2 within w_sys_log
boolean visible = false
integer x = 699
integer taborder = 100
boolean bringtotop = true
end type

type cb_psetup from w_publ_easyq`cb_psetup within w_sys_log
boolean visible = false
integer x = 658
boolean bringtotop = true
end type

type cb_1 from w_publ_easyq`cb_1 within w_sys_log
boolean bringtotop = true
end type

event cb_1::clicked;call super::clicked;datetime first_date,end_date

first_date=datetime(date(em_1.text),time(0))
end_date=datetime(date(em_2.text),time('23:59:59'))
dw_1.retrieve(first_date,end_date)
end event

type st_3 from w_publ_easyq`st_3 within w_sys_log
integer x = 23
integer y = 220
end type

type st_4 from w_publ_easyq`st_4 within w_sys_log
integer x = 631
integer y = 224
end type

type em_1 from w_publ_easyq`em_1 within w_sys_log
integer x = 242
integer y = 200
integer width = 398
integer taborder = 110
end type

type em_2 from w_publ_easyq`em_2 within w_sys_log
integer x = 731
integer y = 200
integer width = 398
integer taborder = 120
end type

type ddlb_yl from w_publ_easyq`ddlb_yl within w_sys_log
boolean visible = false
integer x = 1531
integer y = 40
end type

type cbx_yl from w_publ_easyq`cbx_yl within w_sys_log
boolean visible = false
integer x = 1326
integer y = 44
end type

type dw_1 from w_publ_easyq`dw_1 within w_sys_log
integer y = 304
string dataobject = "dw_sys_log"
end type

type sle_mtrl from w_publ_easyq`sle_mtrl within w_sys_log
end type

type sle_cust from w_publ_easyq`sle_cust within w_sys_log
end type

type st_mtrl from w_publ_easyq`st_mtrl within w_sys_log
end type

type st_cust from w_publ_easyq`st_cust within w_sys_log
end type

type cbx_loginretr from w_publ_easyq`cbx_loginretr within w_sys_log
end type

type pb_em1 from w_publ_easyq`pb_em1 within w_sys_log
end type

type pb_em2 from w_publ_easyq`pb_em2 within w_sys_log
integer x = 1138
end type

type pb_2 from w_publ_easyq`pb_2 within w_sys_log
integer x = 1248
end type

type cb_help from w_publ_easyq`cb_help within w_sys_log
integer x = 507
end type

type cb_copyself from w_publ_easyq`cb_copyself within w_sys_log
boolean visible = false
end type

type gb_1 from w_publ_easyq`gb_1 within w_sys_log
end type

type ln_bar from w_publ_easyq`ln_bar within w_sys_log
end type

type ln_bar2 from w_publ_easyq`ln_bar2 within w_sys_log
end type

type r_bar from w_publ_easyq`r_bar within w_sys_log
end type

type ln_1 from w_publ_easyq`ln_1 within w_sys_log
end type

type ln_2 from w_publ_easyq`ln_2 within w_sys_log
end type

type ln_3 from w_publ_easyq`ln_3 within w_sys_log
end type

type ln_4 from w_publ_easyq`ln_4 within w_sys_log
end type

type cbx_1 from checkbox within w_sys_log
integer x = 1376
integer y = 204
integer width = 224
integer height = 76
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
string text = "全选"
end type

event clicked;long i
if dw_1.rowcount()>0 then
	if this.checked then
		for i=1 to dw_1.rowcount() 
			dw_1.object.deleteflag[i]=1
		next
	else
		for i=1 to dw_1.rowcount() 
			dw_1.object.deleteflag[i]=0			
		next
	end if
end if
		
	
end event

type cb_4 from uo_imflatbutton within w_sys_log
integer x = 302
integer width = 206
integer height = 164
integer taborder = 80
boolean bringtotop = true
string text = "删日志"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;if not sys_power_issuper then 
	messagebox(publ_operator,'你没有使用权限！')
	return
end if

long i,logid
if dw_1.rowcount()>0 then
	for i=1 to dw_1.rowcount()
		if dw_1.object.deleteflag[i]=1 then
			logid=dw_1.object.logid[i]
			delete from sys_oplog where logid=:logid;
			if sqlca.sqlcode<>0 then
				messagebox('错误','删除日志失败', StopSign!, OK! )
				return
			end if				
		end if
	next
	messagebox('错误','删除日志成功', StopSign!, OK! )
	cb_1.triggerevent(clicked!)
else
	messagebox('错误','没有可删除的日志', StopSign!, OK! )
end if
		
	
end event

type cb_sent from w_publ_easyq`cb_func within w_sys_log
int X=530
int Y=0
int TabOrder=90
boolean BringToTop=true
end type