Q5/ws_objects/Ew_gz.pbl.src/w_ue_pt_alter_dscrp.srw

$PBExportHeader$w_ue_pt_alter_dscrp.srw
forward
global type w_ue_pt_alter_dscrp from window
end type
type cb_2 from commandbutton within w_ue_pt_alter_dscrp
end type
type cb_1 from commandbutton within w_ue_pt_alter_dscrp
end type
type sle_1 from singlelineedit within w_ue_pt_alter_dscrp
end type
end forward

global type w_ue_pt_alter_dscrp from window
integer width = 1673
integer height = 336
boolean titlebar = true
string title = "请输入批修改备注"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_2 cb_2
cb_1 cb_1
sle_1 sle_1
end type
global w_ue_pt_alter_dscrp w_ue_pt_alter_dscrp

type variables
string ls_dscrp=''
end variables

on w_ue_pt_alter_dscrp.create
this.cb_2=create cb_2
this.cb_1=create cb_1
this.sle_1=create sle_1
this.Control[]={this.cb_2,&
this.cb_1,&
this.sle_1}
end on

on w_ue_pt_alter_dscrp.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.sle_1)
end on

event close;CloseWithReturn(this,ls_dscrp)
end event

type cb_2 from commandbutton within w_ue_pt_alter_dscrp
integer x = 1019
integer y = 120
integer width = 402
integer height = 116
integer taborder = 30
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_ue_pt_alter_dscrp
integer x = 215
integer y = 120
integer width = 402
integer height = 116
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

event clicked;ls_dscrp=trim(sle_1.text)
close(parent)
end event

type sle_1 from singlelineedit within w_ue_pt_alter_dscrp
integer x = 18
integer width = 1632
integer height = 100
integer taborder = 10
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type