w_main.srw

pb所需编程技巧和事例

$PBExportHeader$w_main.srw
forward
global type w_main from window
end type
type ddlb_1 from dropdownlistbox within w_main
end type
type st_1 from statictext within w_main
end type
type pb_1 from picturebutton within w_main
end type
type cb_4 from commandbutton within w_main
end type
type cb_3 from commandbutton within w_main
end type
type cb_2 from commandbutton within w_main
end type
type cb_1 from commandbutton within w_main
end type
type gb_1 from groupbox within w_main
end type
end forward

global type w_main from window
integer width = 2450
integer height = 1080
boolean titlebar = true
string title = "实验室基本情况"
boolean controlmenu = true
long backcolor = 134217732
string icon = "AppIcon!"
boolean center = true
ddlb_1 ddlb_1
st_1 st_1
pb_1 pb_1
cb_4 cb_4
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
gb_1 gb_1
end type
global w_main w_main

on w_main.create
this.ddlb_1=create ddlb_1
this.st_1=create st_1
this.pb_1=create pb_1
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.gb_1=create gb_1
this.Control[]={this.ddlb_1,&
this.st_1,&
this.pb_1,&
this.cb_4,&
this.cb_3,&
this.cb_2,&
this.cb_1,&
this.gb_1}
end on

on w_main.destroy
destroy(this.ddlb_1)
destroy(this.st_1)
destroy(this.pb_1)
destroy(this.cb_4)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.gb_1)
end on

type ddlb_1 from dropdownlistbox within w_main
integer x = 357
integer y = 688
integer width = 969
integer height = 452
integer taborder = 70
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 134217856
boolean sorted = false
boolean vscrollbar = true
string item[] = {"实验室基本情况","实验室专职工作人员情况","实验室各类实验开出情况","实验室任务及人员情况"}
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_main
integer x = 357
integer y = 556
integer width = 1070
integer height = 100
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "选择要上报的数据库"
alignment alignment = center!
boolean focusrectangle = false
end type

type pb_1 from picturebutton within w_main
integer x = 1490
integer y = 556
integer width = 581
integer height = 360
integer taborder = 60
integer textsize = -12
integer weight = 700
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = fixed!
fontfamily fontfamily = modern!
string facename = "新宋体"
string pointer = "AppStarting!"
string text = "生成上报数据"
string picturename = "D:\bookexam\9-labdata\安装程序.bmp"
alignment htextalign = Center!
end type

event clicked;integer li_FileNum
string filepath;
filepath="D:\bookexam\1.txt"

li_FileNum = FileOpen(filepath, &
		LineMode!, Write!, LockWrite!, Replace!)
FileWrite(li_FileNum, "New Employees")
end event
type cb_4 from commandbutton within w_main
integer x = 1289
integer y = 308
integer width = 1001
integer height = 128
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "实验室任务及人员情况"
end type

event clicked;open(w_taskpersonel)
end event

type cb_3 from commandbutton within w_main
integer x = 133
integer y = 308
integer width = 1001
integer height = 128
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "实验室各类实验开出情况"
end type

event clicked;open(w_experiment)
end event

type cb_2 from commandbutton within w_main
integer x = 1289
integer y = 88
integer width = 1001
integer height = 128
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "实验室专职工作人员情况"
end type

event clicked;open(w_employee)
end event

type cb_1 from commandbutton within w_main
integer x = 133
integer y = 88
integer width = 1001
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "实验室基本情况"
end type

event clicked;open(w_baseinfo)
end event

type gb_1 from groupbox within w_main
integer x = 160
integer y = 480
integer width = 2107
integer height = 480
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
end type