Q5/ws_objects/Oa_workremind.pbl.src/w_oa_workremind_test.srw

$PBExportHeader$w_oa_workremind_test.srw
forward
global type w_oa_workremind_test from window
end type
type cb_5 from commandbutton within w_oa_workremind_test
end type
type cb_4 from commandbutton within w_oa_workremind_test
end type
type cb_3 from commandbutton within w_oa_workremind_test
end type
type cb_2 from commandbutton within w_oa_workremind_test
end type
type cb_1 from commandbutton within w_oa_workremind_test
end type
end forward

global type w_oa_workremind_test from window
integer width = 1120
integer height = 960
boolean titlebar = true
string title = "测试"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
boolean resizable = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_5 cb_5
cb_4 cb_4
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
end type
global w_oa_workremind_test w_oa_workremind_test

on w_oa_workremind_test.create
this.cb_5=create cb_5
this.cb_4=create cb_4
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.Control[]={this.cb_5,&
this.cb_4,&
this.cb_3,&
this.cb_2,&
this.cb_1}
end on

on w_oa_workremind_test.destroy
destroy(this.cb_5)
destroy(this.cb_4)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
end on

event open;// //Profile l1data_show
//SQLCA.DBMS = "MSS Microsoft SQL Server"
//SQLCA.Database = "Eclever"
//SQLCA.LogPass = "954433111"
//SQLCA.ServerName = "."
//SQLCA.LogId = "sa"
//SQLCA.AutoCommit = False
//SQLCA.DBParm = ""
//connect;

end event

type cb_5 from commandbutton within w_oa_workremind_test
boolean visible = false
integer x = 137
integer y = 688
integer width = 754
integer height = 136
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "5.~t触发规则"
end type

event clicked;open(w_oa_workremind_detonate)
end event

type cb_4 from commandbutton within w_oa_workremind_test
integer x = 142
integer y = 536
integer width = 754
integer height = 136
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "4.~t工作提醒管理订阅窗口"
end type

event clicked;open(w_oa_workremindadmin)
end event

type cb_3 from commandbutton within w_oa_workremind_test
integer x = 137
integer y = 372
integer width = 754
integer height = 136
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "3.~t工作提醒用户订阅窗口"
end type

event clicked;open(w_oa_workreminduser)
end event

type cb_2 from commandbutton within w_oa_workremind_test
integer x = 133
integer y = 208
integer width = 754
integer height = 136
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "2.~t工作提醒定义窗口"
end type

event clicked;open(w_oa_workreminddef)
end event

type cb_1 from commandbutton within w_oa_workremind_test
integer x = 123
integer y = 48
integer width = 754
integer height = 136
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "1.~t工作提醒弹出窗口"
end type

event clicked;open(w_oa_workremind)
end event