Q5/ws_objects/Ew_rp.pbl.src/w_rp_name.srw

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

global type w_rp_name from window
integer width = 1339
integer height = 384
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
st_1 st_1
end type
global w_rp_name w_rp_name

type variables
string ls_rpname
end variables

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

on w_rp_name.destroy
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.sle_1)
destroy(this.st_1)
end on

event open;
ls_rpname=message.stringparm
sle_1.text=ls_rpname
end event

event close;CLOSEWITHRETURN(THIS,ls_rpname)
end event

type cb_2 from commandbutton within w_rp_name
integer x = 850
integer y = 200
integer width = 402
integer height = 92
integer taborder = 30
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "取消"
end type

event clicked;ls_rpname='cancel'
close(parent)
end event

type cb_1 from commandbutton within w_rp_name
integer x = 425
integer y = 200
integer width = 402
integer height = 92
integer taborder = 20
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "确定"
end type

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

type sle_1 from singlelineedit within w_rp_name
integer x = 123
integer y = 96
integer width = 1120
integer height = 84
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

type st_1 from statictext within w_rp_name
integer x = 27
integer y = 24
integer width = 457
integer height = 56
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