Q5/ws_objects/Ew_email.pbl.src/w_email_ds_rev.srw

$PBExportHeader$w_email_ds_rev.srw
forward
global type w_email_ds_rev from window
end type
type cb_3 from commandbutton within w_email_ds_rev
end type
type cb_2 from commandbutton within w_email_ds_rev
end type
type st_6 from statictext within w_email_ds_rev
end type
type sle_auottime from singlelineedit within w_email_ds_rev
end type
type st_1 from statictext within w_email_ds_rev
end type
type cb_1 from commandbutton within w_email_ds_rev
end type
end forward

global type w_email_ds_rev from window
integer width = 1298
integer height = 492
boolean titlebar = true
string title = "定时收件"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_3 cb_3
cb_2 cb_2
st_6 st_6
sle_auottime sle_auottime
st_1 st_1
cb_1 cb_1
end type
global w_email_ds_rev w_email_ds_rev

type variables
transaction Commit_Tran  // 帐号表所有数据库

transaction fj_tran      // 邮件附件数据库
end variables

on w_email_ds_rev.create
this.cb_3=create cb_3
this.cb_2=create cb_2
this.st_6=create st_6
this.sle_auottime=create sle_auottime
this.st_1=create st_1
this.cb_1=create cb_1
this.Control[]={this.cb_3,&
this.cb_2,&
this.st_6,&
this.sle_auottime,&
this.st_1,&
this.cb_1}
end on

on w_email_ds_rev.destroy
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.st_6)
destroy(this.sle_auottime)
destroy(this.st_1)
destroy(this.cb_1)
end on

event open;sle_auottime.text =string( Long(f_ProfileString(sys_empid,publ_userid+'_'+'sle_auottime', "autotime",'0')))
commit_tran = sqlca
fj_tran = sys_email_sqlca
end event

type cb_3 from commandbutton within w_email_ds_rev
integer x = 165
integer y = 260
integer width = 923
integer height = 128
integer taborder = 80
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "后台自动接收（不用打开ERP）"
end type

event clicked;String ls_run
ls_run = 'lj_email.exe -longjoe&'&
		+ sys_system_id + '&'&
		+ sys_cur_version + '&'&
		+ String(sys_if_register) + '&'&
		+ Commit_Tran.Database + '&'& 
		+ Commit_Tran.UserID + '&'&
		+ f_psw_bczh(Commit_Tran.DBPass,0,sys_power_key) + '&'&
		+ Commit_Tran.LogID + '&'&
		+ f_psw_bczh(Commit_Tran.LogPass,0,sys_power_key) + '&'&
		+ Commit_Tran.ServerName + '&'&
		+ string(sys_empid) + '&'&
		+ '-1&'&
		+ '0&'&
		+ fj_tran.Database + '&'&
		+ fj_tran.UserID + '&'&
		+ f_psw_bczh(fj_tran.DBPass,0,sys_power_key) + '&'&
		+ fj_tran.LogID + '&'&
		+ f_psw_bczh(fj_tran.LogPass,0,sys_power_key) + '&'&
		+ fj_tran.ServerName + '&'&
         +String(long(trim(sle_auottime.text))) + '&'

IF Run( ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	RETURN
END IF 
close(parent)
end event

type cb_2 from commandbutton within w_email_ds_rev
integer x = 690
integer y = 128
integer width = 402
integer height = 108
integer taborder = 70
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;CloseWithReturn(parent,"cancel")
end event

type st_6 from statictext within w_email_ds_rev
integer x = 1115
integer y = 28
integer width = 123
integer height = 80
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 sle_auottime from singlelineedit within w_email_ds_rev
integer x = 800
integer y = 16
integer width = 288
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 = "10"
end type

type st_1 from statictext within w_email_ds_rev
integer x = 23
integer y = 36
integer width = 782
integer height = 72
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 cb_1 from commandbutton within w_email_ds_rev
integer x = 165
integer y = 128
integer width = 402
integer height = 108
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;f_SetProfileString (sys_empid,publ_userid+'_'+'sle_auottime', "autotime",String(long(trim(sle_auottime.text))))
close(parent)
end event