w_main.srw

pb所需编程技巧和事例

$PBExportHeader$w_main.srw
forward
global type w_main from window
end type
type st_11 from statictext within w_main
end type
type sle_weight from singlelineedit within w_main
end type
type st_10 from statictext within w_main
end type
type st_9 from statictext within w_main
end type
type sle_height from singlelineedit within w_main
end type
type sle_major from singlelineedit within w_main
end type
type st_8 from statictext within w_main
end type
type mle_resume from multilineedit within w_main
end type
type sle_class from singlelineedit within w_main
end type
type em_birthday from editmask within w_main
end type
type sle_department from singlelineedit within w_main
end type
type sle_nativeplace from singlelineedit within w_main
end type
type sle_gender from singlelineedit within w_main
end type
type sle_name from singlelineedit within w_main
end type
type st_7 from statictext within w_main
end type
type st_6 from statictext within w_main
end type
type st_5 from statictext within w_main
end type
type st_4 from statictext within w_main
end type
type st_3 from statictext within w_main
end type
type st_2 from statictext within w_main
end type
type cb_inquiry from commandbutton within w_main
end type
type st_1 from statictext within w_main
end type
type sle_number from singlelineedit within w_main
end type
type cb_exit from commandbutton within w_main
end type
end forward


global w_main w_main

on w_main.create
this.st_11=create st_11
this.sle_weight=create sle_weight
this.st_10=create st_10
this.st_9=create st_9
this.sle_height=create sle_height
this.sle_major=create sle_major
this.st_8=create st_8
this.mle_resume=create mle_resume
this.sle_class=create sle_class
this.em_birthday=create em_birthday
this.sle_department=create sle_department
this.sle_nativeplace=create sle_nativeplace
this.sle_gender=create sle_gender
this.sle_name=create sle_name
this.st_7=create st_7
this.st_6=create st_6
this.st_5=create st_5
this.st_4=create st_4
this.st_3=create st_3
this.st_2=create st_2
this.cb_inquiry=create cb_inquiry
this.st_1=create st_1
this.sle_number=create sle_number
this.cb_exit=create cb_exit
this.Control[]={this.st_11,&
this.sle_weight,&
this.st_10,&
this.st_9,&
this.sle_height,&
this.sle_major,&
this.st_8,&
this.mle_resume,&
this.sle_class,&
this.em_birthday,&
this.sle_department,&
this.sle_nativeplace,&
this.sle_gender,&
this.sle_name,&
this.st_7,&
this.st_6,&
this.st_5,&
this.st_4,&
this.st_3,&
this.st_2,&
this.cb_inquiry,&
this.st_1,&
this.sle_number,&
this.cb_exit}
end on

on w_main.destroy
destroy(this.st_11)
destroy(this.sle_weight)
destroy(this.st_10)
destroy(this.st_9)
destroy(this.sle_height)
destroy(this.sle_major)
destroy(this.st_8)
destroy(this.mle_resume)
destroy(this.sle_class)
destroy(this.em_birthday)
destroy(this.sle_department)
destroy(this.sle_nativeplace)
destroy(this.sle_gender)
destroy(this.sle_name)
destroy(this.st_7)
destroy(this.st_6)
destroy(this.st_5)
destroy(this.st_4)
destroy(this.st_3)
destroy(this.st_2)
destroy(this.cb_inquiry)
destroy(this.st_1)
destroy(this.sle_number)
destroy(this.cb_exit)
end on