Q5/ws_objects/Ew_datatran.pbl.src/w_his_data_del.srw

$PBExportHeader$w_his_data_del.srw
forward
global type w_his_data_del from w_publ_base
end type
type mle_log from multilineedit within w_his_data_del
end type
type st_msg from statictext within w_his_data_del
end type
type gb_14 from groupbox within w_his_data_del
end type
type st_222 from statictext within w_his_data_del
end type
type ddlb_bg from dropdownlistbox within w_his_data_del
end type
type st_1 from statictext within w_his_data_del
end type
type cb_1 from commandbutton within w_his_data_del
end type
type st_2 from statictext within w_his_data_del
end type
type em_step from editmask within w_his_data_del
end type
end forward

global type w_his_data_del from w_publ_base
integer x = 46
integer y = 32
integer width = 3118
integer height = 1640
string title = "历史数据删除"
boolean maxbox = true
windowstate windowstate = maximized!
long backcolor = 80269524
mle_log mle_log
st_msg st_msg
gb_14 gb_14
st_222 st_222
ddlb_bg ddlb_bg
st_1 st_1
cb_1 cb_1
st_2 st_2
em_step em_step
end type
global w_his_data_del w_his_data_del

type variables
uo_yfct uo_ct





end variables

on w_his_data_del.create
int iCurrent
call super::create
this.mle_log=create mle_log
this.st_msg=create st_msg
this.gb_14=create gb_14
this.st_222=create st_222
this.ddlb_bg=create ddlb_bg
this.st_1=create st_1
this.cb_1=create cb_1
this.st_2=create st_2
this.em_step=create em_step
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.mle_log
this.Control[iCurrent+2]=this.st_msg
this.Control[iCurrent+3]=this.gb_14
this.Control[iCurrent+4]=this.st_222
this.Control[iCurrent+5]=this.ddlb_bg
this.Control[iCurrent+6]=this.st_1
this.Control[iCurrent+7]=this.cb_1
this.Control[iCurrent+8]=this.st_2
this.Control[iCurrent+9]=this.em_step
end on

on w_his_data_del.destroy
call super::destroy
destroy(this.mle_log)
destroy(this.st_msg)
destroy(this.gb_14)
destroy(this.st_222)
destroy(this.ddlb_bg)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.st_2)
destroy(this.em_step)
end on

event resize;mle_log.width=newwidth - mle_log.x - 5
mle_log.height=newheight - mle_log.y - 10
end event

type cb_func from w_publ_base`cb_func within w_his_data_del
boolean visible = false
integer x = 649
integer y = 708
boolean enabled = false
end type

type cb_exit from w_publ_base`cb_exit within w_his_data_del
boolean visible = false
integer x = 969
integer y = 708
boolean enabled = false
end type

type mle_log from multilineedit within w_his_data_del
integer y = 284
integer width = 3077
integer height = 1248
integer taborder = 100
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean hscrollbar = true
boolean vscrollbar = true
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_msg from statictext within w_his_data_del
integer y = 192
integer width = 2880
integer height = 88
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long backcolor = 16776960
boolean enabled = false
boolean border = true
boolean focusrectangle = false
end type

type gb_14 from groupbox within w_his_data_del
integer width = 2665
integer height = 192
integer taborder = 70
integer textsize = -9
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 67108864
string text = "历史数据库删除范围:"
end type

type st_222 from statictext within w_his_data_del
integer x = 32
integer y = 88
integer width = 375
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 67108864
boolean enabled = false
string text = "删除截数时间:"
boolean focusrectangle = false
end type

type ddlb_bg from dropdownlistbox within w_his_data_del
integer x = 393
integer y = 72
integer width = 667
integer height = 972
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
boolean sorted = false
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

event constructor;long ctmint
long ctdt_num=0

 DECLARE ct_cur CURSOR FOR  
  SELECT distinct u_inware.ctmint  
    FROM u_inware  
ORDER BY u_inware.ctmint ASC  ;
open ct_cur;
fetch ct_cur into :ctmint;
do while sqlca.sqlcode=0
	ddlb_bg.additem(string(ctmint))
	ctdt_num++
	fetch ct_cur into :ctmint;
loop
close ct_cur;

if ctdt_num=0 then
	ctmint = 19000101
	ddlb_bg.additem(string(ctmint))
end if
ddlb_bg.text=string(ctmint)

	
end event

type st_1 from statictext within w_his_data_del
integer x = 1074
integer y = 88
integer width = 402
integer height = 64
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 255
long backcolor = 67108864
string text = "以前的数据！"
boolean focusrectangle = false
end type

type cb_1 from commandbutton within w_his_data_del
integer x = 2089
integer y = 72
integer width = 302
integer height = 96
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "执行删除"
end type

event clicked;if MessageBox("询问",'是否确定要删除数据? ', Exclamation!, yesno!, 2) =2 then return

//if if_hisdb then
//	messagebox("系统提示",'当前数据库是历史查询数据库,不能删除历史数据')
//	return 
//end if
datetime arg_ct_time
long bg_ctmint,ed_ctmint
int ls_step
string arg_msg,arg_log

bg_ctmint=long(ddlb_bg.text)
ed_ctmint=long(ddlb_bg.text)

ls_step=integer(em_step.text)
if ls_step=0 then 
	messagebox("提示",'请输入提交步长',information!,OK!)
	return
end if
st_msg.text=''
uo_ct = create uo_yfct 
uo_ct.del_ct_data(arg_ct_time,0,bg_ctmint,ed_ctmint,ls_step,arg_msg,arg_log,true)
mle_log.text=arg_log
destroy uo_yfct
messagebox("提示",'数据删除完毕',information!,OK!)




end event

type st_2 from statictext within w_his_data_del
integer x = 1417
integer y = 88
integer width = 274
integer height = 64
boolean bringtotop = true
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 em_step from editmask within w_his_data_del
integer x = 1705
integer y = 72
integer width = 302
integer height = 96
integer taborder = 110
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string text = "100"
alignment alignment = center!
borderstyle borderstyle = stylelowered!
string mask = "###"
boolean spin = true
double increment = 10
string minmax = "50~~150"
end type