Q5/ws_objects/Ew_ljfieb.pbl.src/w_ljfieb_timer_ch.srw

$PBExportHeader$w_ljfieb_timer_ch.srw
forward
global type w_ljfieb_timer_ch from window
end type
type cb_2 from commandbutton within w_ljfieb_timer_ch
end type
type cb_1 from commandbutton within w_ljfieb_timer_ch
end type
type cbx_isrunning from checkbox within w_ljfieb_timer_ch
end type
type em_1 from editmask within w_ljfieb_timer_ch
end type
type st_1 from statictext within w_ljfieb_timer_ch
end type
type tab_1 from tab within w_ljfieb_timer_ch
end type
type tabpage_4 from userobject within tab_1
end type
type st_2 from statictext within tabpage_4
end type
type tabpage_4 from userobject within tab_1
st_2 st_2
end type
type tabpage_1 from userobject within tab_1
end type
type st_6 from statictext within tabpage_1
end type
type em_2 from editmask within tabpage_1
end type
type st_5 from statictext within tabpage_1
end type
type st_4 from statictext within tabpage_1
end type
type st_3 from statictext within tabpage_1
end type
type tabpage_1 from userobject within tab_1
st_6 st_6
em_2 em_2
st_5 st_5
st_4 st_4
st_3 st_3
end type
type tabpage_2 from userobject within tab_1
end type
type st_10 from statictext within tabpage_2
end type
type em_3 from editmask within tabpage_2
end type
type st_9 from statictext within tabpage_2
end type
type st_8 from statictext within tabpage_2
end type
type st_7 from statictext within tabpage_2
end type
type tabpage_2 from userobject within tab_1
st_10 st_10
em_3 em_3
st_9 st_9
st_8 st_8
st_7 st_7
end type
type tabpage_3 from userobject within tab_1
end type
type st_12 from statictext within tabpage_3
end type
type st_11 from statictext within tabpage_3
end type
type cbx_7 from checkbox within tabpage_3
end type
type cbx_6 from checkbox within tabpage_3
end type
type cbx_5 from checkbox within tabpage_3
end type
type cbx_1 from checkbox within tabpage_3
end type
type cbx_4 from checkbox within tabpage_3
end type
type cbx_3 from checkbox within tabpage_3
end type
type cbx_2 from checkbox within tabpage_3
end type
type tabpage_3 from userobject within tab_1
st_12 st_12
st_11 st_11
cbx_7 cbx_7
cbx_6 cbx_6
cbx_5 cbx_5
cbx_1 cbx_1
cbx_4 cbx_4
cbx_3 cbx_3
cbx_2 cbx_2
end type
type tab_1 from tab within w_ljfieb_timer_ch
tabpage_4 tabpage_4
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type
end forward

global type w_ljfieb_timer_ch from window
integer width = 1285
integer height = 904
boolean titlebar = true
string title = "选择计时策略"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
event ue_after_open ( )
cb_2 cb_2
cb_1 cb_1
cbx_isrunning cbx_isrunning
em_1 em_1
st_1 st_1
tab_1 tab_1
end type
global w_ljfieb_timer_ch w_ljfieb_timer_ch

type variables
s_ljfieb_timer_ch ins_rslt
end variables

event ue_after_open();ins_rslt = Message.PowerObjectParm
ins_rslt.ifchange = False

cbx_isrunning.Checked = (ins_rslt.IsRunning = 1)
IF IsNull(ins_rslt.nextexectime) THEN
	em_1.Text = String(Today(), 'yyyy-MM-dd HH:mm')
ELSE
	em_1.Text = String(ins_rslt.nextexectime, 'yyyy-MM-dd HH:mm')
END IF

IF ins_rslt.TimerType >= 1 And ins_rslt.TimerType <= 4 THEN
	tab_1.SelectedTab =ins_rslt.TimerType
END IF

CHOOSE CASE ins_rslt.TimerType
	CASE 2
		IF IsNumber(ins_rslt.TimerParm) THEN
			tab_1.tabpage_1.em_2.Text = ins_rslt.TimerParm
		END IF
	CASE 3
		IF IsNumber(ins_rslt.TimerParm) THEN
			tab_1.tabpage_2.em_3.Text = ins_rslt.TimerParm
		END IF
	CASE 4
		tab_1.tabpage_3.cbx_1.Checked = (Mid(ins_rslt.TimerParm, 1, 1) = '1')
		tab_1.tabpage_3.cbx_2.Checked = (Mid(ins_rslt.TimerParm, 2, 1) = '1')
		tab_1.tabpage_3.cbx_3.Checked = (Mid(ins_rslt.TimerParm, 3, 1) = '1')
		tab_1.tabpage_3.cbx_4.Checked = (Mid(ins_rslt.TimerParm, 4, 1) = '1')
		tab_1.tabpage_3.cbx_5.Checked = (Mid(ins_rslt.TimerParm, 5, 1) = '1')
		tab_1.tabpage_3.cbx_6.Checked = (Mid(ins_rslt.TimerParm, 6, 1) = '1')
		tab_1.tabpage_3.cbx_7.Checked = (Mid(ins_rslt.TimerParm, 7, 1) = '1')
END CHOOSE


end event

on w_ljfieb_timer_ch.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.cbx_isrunning=create cbx_isrunning
this.em_1=create em_1
this.st_1=create st_1
this.tab_1=create tab_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.cbx_isrunning,&
this.em_1,&
this.st_1,&
this.tab_1}
end on

on w_ljfieb_timer_ch.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.cbx_isrunning)
destroy(this.em_1)
destroy(this.st_1)
destroy(this.tab_1)
end on

event close;closewithreturn(this, ins_rslt)
end event

event open;postevent('ue_after_open')
end event

type cb_2 from commandbutton within w_ljfieb_timer_ch
integer x = 974
integer y = 704
integer width = 251
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;Close(Parent)

end event

type cb_1 from commandbutton within w_ljfieb_timer_ch
integer x = 722
integer y = 704
integer width = 251
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;IF cbx_isrunning.Checked THEN
	ins_rslt.isrunning = 1
ELSE
	ins_rslt.isrunning = 0
END IF

ins_rslt.nextexectime = DateTime(Date(Mid(em_1.Text, 1, 10)), Time(Mid(em_1.Text, 12) + ":00"))

CHOOSE CASE tab_1.SelectedTab
	CASE 1
		ins_rslt.TimerType = 1
		ins_rslt.TimerParm = ''
	CASE 2
		ins_rslt.TimerType = 2
		ins_rslt.TimerParm = tab_1.tabpage_1.em_2.Text
	CASE 3
		ins_rslt.TimerType = 3
		ins_rslt.TimerParm = tab_1.tabpage_2.em_3.Text
	CASE 4
		ins_rslt.TimerType = 4
		ins_rslt.TimerParm = '0000000'
		IF tab_1.tabpage_3.cbx_1.Checked THEN ins_rslt.TimerParm = Replace(ins_rslt.TimerParm, 1, 1, '1')
		IF tab_1.tabpage_3.cbx_2.Checked THEN ins_rslt.TimerParm = Replace(ins_rslt.TimerParm, 2, 1, '1')
		IF tab_1.tabpage_3.cbx_3.Checked THEN ins_rslt.TimerParm = Replace(ins_rslt.TimerParm, 3, 1, '1')
		IF tab_1.tabpage_3.cbx_4.Checked THEN ins_rslt.TimerParm = Replace(ins_rslt.TimerParm, 4, 1, '1')
		IF tab_1.tabpage_3.cbx_5.Checked THEN ins_rslt.TimerParm = Replace(ins_rslt.TimerParm, 5, 1, '1')
		IF tab_1.tabpage_3.cbx_6.Checked THEN ins_rslt.TimerParm = Replace(ins_rslt.TimerParm, 6, 1, '1')
		IF tab_1.tabpage_3.cbx_7.Checked THEN ins_rslt.TimerParm = Replace(ins_rslt.TimerParm, 7, 1, '1')
	CASE ELSE
		ins_rslt.TimerType = 0
		ins_rslt.TimerParm = ''
END CHOOSE

ins_rslt.ifchange = True

Close(Parent)


end event

type cbx_isrunning from checkbox within w_ljfieb_timer_ch
integer x = 997
integer y = 32
integer width = 178
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "启用"
boolean lefttext = true
end type

type em_1 from editmask within w_ljfieb_timer_ch
integer x = 425
integer y = 20
integer width = 558
integer height = 84
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "none"
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datetimemask!
string mask = "yyyy-MM-dd HH:mm"
boolean autoskip = true
boolean spin = true
end type

type st_1 from statictext within w_ljfieb_timer_ch
integer x = 5
integer y = 36
integer width = 402
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "下次执行时间"
alignment alignment = right!
boolean focusrectangle = false
end type

type tab_1 from tab within w_ljfieb_timer_ch
integer y = 124
integer width = 1262
integer height = 552
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 67108864
boolean raggedright = true
boolean focusonbuttondown = true
integer selectedtab = 1
tabpage_4 tabpage_4
tabpage_1 tabpage_1
tabpage_2 tabpage_2
tabpage_3 tabpage_3
end type

on tab_1.create
this.tabpage_4=create tabpage_4
this.tabpage_1=create tabpage_1
this.tabpage_2=create tabpage_2
this.tabpage_3=create tabpage_3
this.Control[]={this.tabpage_4,&
this.tabpage_1,&
this.tabpage_2,&
this.tabpage_3}
end on

on tab_1.destroy
destroy(this.tabpage_4)
destroy(this.tabpage_1)
destroy(this.tabpage_2)
destroy(this.tabpage_3)
end on

type tabpage_4 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 1225
integer height = 440
long backcolor = 67108864
string text = "一次"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_2 st_2
end type

on tabpage_4.create
this.st_2=create st_2
this.Control[]={this.st_2}
end on

on tabpage_4.destroy
destroy(this.st_2)
end on

type st_2 from statictext within tabpage_4
integer width = 914
integer height = 276
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "执行一次后自动将启用改成无效"
boolean focusrectangle = false
end type

type tabpage_1 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 1225
integer height = 440
long backcolor = 67108864
string text = "每隔N分"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_6 st_6
em_2 em_2
st_5 st_5
st_4 st_4
st_3 st_3
end type

on tabpage_1.create
this.st_6=create st_6
this.em_2=create em_2
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.Control[]={this.st_6,&
this.em_2,&
this.st_5,&
this.st_4,&
this.st_3}
end on

on tabpage_1.destroy
destroy(this.st_6)
destroy(this.em_2)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
end on

type st_6 from statictext within tabpage_1
integer x = 402
integer y = 156
integer width = 402
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "分钟"
boolean focusrectangle = false
end type

type em_2 from editmask within tabpage_1
integer x = 210
integer y = 140
integer width = 169
integer height = 84
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,##0"
end type

type st_5 from statictext within tabpage_1
integer y = 156
integer width = 215
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "间隔："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_4 from statictext within tabpage_1
integer y = 72
integer width = 1225
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "时间推迟N分钟"
boolean focusrectangle = false
end type

type st_3 from statictext within tabpage_1
integer width = 1248
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "每隔N分钟执行一次，每执行一次会自动将下次执行"
boolean focusrectangle = false
end type

type tabpage_2 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 1225
integer height = 440
long backcolor = 67108864
string text = "每隔N天"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_10 st_10
em_3 em_3
st_9 st_9
st_8 st_8
st_7 st_7
end type

on tabpage_2.create
this.st_10=create st_10
this.em_3=create em_3
this.st_9=create st_9
this.st_8=create st_8
this.st_7=create st_7
this.Control[]={this.st_10,&
this.em_3,&
this.st_9,&
this.st_8,&
this.st_7}
end on

on tabpage_2.destroy
destroy(this.st_10)
destroy(this.em_3)
destroy(this.st_9)
destroy(this.st_8)
destroy(this.st_7)
end on

type st_10 from statictext within tabpage_2
integer x = 402
integer y = 156
integer width = 402
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "天"
boolean focusrectangle = false
end type

type em_3 from editmask within tabpage_2
integer x = 210
integer y = 140
integer width = 169
integer height = 84
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "1"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "#,##0"
end type

type st_9 from statictext within tabpage_2
integer y = 156
integer width = 215
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "间隔："
alignment alignment = right!
boolean focusrectangle = false
end type

type st_8 from statictext within tabpage_2
integer y = 72
integer width = 1225
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "时间推迟N天"
boolean focusrectangle = false
end type

type st_7 from statictext within tabpage_2
integer width = 1225
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "每隔N天执行一次，每执行一次会自动将下次执行"
boolean focusrectangle = false
end type

type tabpage_3 from userobject within tab_1
integer x = 18
integer y = 96
integer width = 1225
integer height = 440
long backcolor = 67108864
string text = "每周"
long tabtextcolor = 33554432
long picturemaskcolor = 536870912
st_12 st_12
st_11 st_11
cbx_7 cbx_7
cbx_6 cbx_6
cbx_5 cbx_5
cbx_1 cbx_1
cbx_4 cbx_4
cbx_3 cbx_3
cbx_2 cbx_2
end type

on tabpage_3.create
this.st_12=create st_12
this.st_11=create st_11
this.cbx_7=create cbx_7
this.cbx_6=create cbx_6
this.cbx_5=create cbx_5
this.cbx_1=create cbx_1
this.cbx_4=create cbx_4
this.cbx_3=create cbx_3
this.cbx_2=create cbx_2
this.Control[]={this.st_12,&
this.st_11,&
this.cbx_7,&
this.cbx_6,&
this.cbx_5,&
this.cbx_1,&
this.cbx_4,&
this.cbx_3,&
this.cbx_2}
end on

on tabpage_3.destroy
destroy(this.st_12)
destroy(this.st_11)
destroy(this.cbx_7)
destroy(this.cbx_6)
destroy(this.cbx_5)
destroy(this.cbx_1)
destroy(this.cbx_4)
destroy(this.cbx_3)
destroy(this.cbx_2)
end on

type st_12 from statictext within tabpage_3
integer y = 72
integer width = 1225
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "执行时间"
boolean focusrectangle = false
end type

type st_11 from statictext within tabpage_3
integer width = 1385
integer height = 48
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "每周在指定天执行，每执行一次会自动计算下次"
boolean focusrectangle = false
end type

type cbx_7 from checkbox within tabpage_3
integer x = 357
integer y = 236
integer width = 155
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "六"
end type

type cbx_6 from checkbox within tabpage_3
integer x = 197
integer y = 236
integer width = 155
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "五"
end type

type cbx_5 from checkbox within tabpage_3
integer x = 37
integer y = 236
integer width = 155
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "四"
end type

type cbx_1 from checkbox within tabpage_3
integer x = 517
integer y = 236
integer width = 155
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "日"
end type

type cbx_4 from checkbox within tabpage_3
integer x = 357
integer y = 152
integer width = 155
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "三"
end type

type cbx_3 from checkbox within tabpage_3
integer x = 197
integer y = 152
integer width = 155
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "二"
end type

type cbx_2 from checkbox within tabpage_3
integer x = 37
integer y = 152
integer width = 155
integer height = 60
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "一"
end type