w_experiment.srw

pb所需编程技巧和事例

$PBExportHeader$w_experiment.srw
forward
global type w_experiment from window
end type
type mle_1 from multilineedit within w_experiment
end type
type dw_1 from datawindow within w_experiment
end type
type cb_exit from commandbutton within w_experiment
end type
type cb_save from commandbutton within w_experiment
end type
type cb_update from commandbutton within w_experiment
end type
type cb_del from commandbutton within w_experiment
end type
type cb_add from commandbutton within w_experiment
end type
type dw_2 from datawindow within w_experiment
end type
end forward

global type w_experiment from window
integer width = 3022
integer height = 2268
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
mle_1 mle_1
dw_1 dw_1
cb_exit cb_exit
cb_save cb_save
cb_update cb_update
cb_del cb_del
cb_add cb_add
dw_2 dw_2
end type
global w_experiment w_experiment

on w_experiment.create
this.mle_1=create mle_1
this.dw_1=create dw_1
this.cb_exit=create cb_exit
this.cb_save=create cb_save
this.cb_update=create cb_update
this.cb_del=create cb_del
this.cb_add=create cb_add
this.dw_2=create dw_2
this.Control[]={this.mle_1,&
this.dw_1,&
this.cb_exit,&
this.cb_save,&
this.cb_update,&
this.cb_del,&
this.cb_add,&
this.dw_2}
end on

on w_experiment.destroy
destroy(this.mle_1)
destroy(this.dw_1)
destroy(this.cb_exit)
destroy(this.cb_save)
destroy(this.cb_update)
destroy(this.cb_del)
destroy(this.cb_add)
destroy(this.dw_2)
end on

event open;dw_1.SetTransObject(Sqlca)
dw_1.Retrieve()

dw_2.SetTransObject(Sqlca)
dw_2.Retrieve()

mle_1.text="(1)实验序号：前3位为系号，中间2位为系内实验室编号，后3位为本实验顺序号  " &
+ "(2)专业分类号：按教育部1998年颁布的专业目录代码填写，目录中没有的可向一级学科" &
+ "和专业类上靠，后面用00代替  (3)课程和项目：课程名称或科研课题、生产项目名称  " &
+ "(4) 每组人数：每套仪器设备上作实验的人数"
end event

type mle_1 from multilineedit within w_experiment
integer x = 110
integer y = 1828
integer width = 2752
integer height = 296
integer taborder = 70
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean underline = true
long textcolor = 33554432
long backcolor = 67108864
boolean border = false
end type

type dw_1 from datawindow within w_experiment
integer x = 123
integer y = 28
integer width = 2729
integer height = 572
integer taborder = 10
string title = "none"
string dataobject = "d_experiment_1"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event clicked;dw_2.ScrollToRow(row)
end event

type cb_exit from commandbutton within w_experiment
integer x = 2409
integer y = 1592
integer width = 457
integer height = 128
integer taborder = 60
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "退出"
end type

event clicked;close(parent)
end event

type cb_save from commandbutton within w_experiment
integer x = 2409
integer y = 1380
integer width = 457
integer height = 128
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "保存"
end type

event clicked;dw_2.update()
dw_1.Retrieve()

cb_add.enabled=true
cb_del.enabled=true
cb_update.enabled=true
cb_save.enabled=false
cb_exit.enabled=true
dw_2.enabled=false
end event
type cb_update from commandbutton within w_experiment
integer x = 2409
integer y = 1160
integer width = 457
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;cb_add.enabled=false
cb_del.enabled=false
cb_update.enabled=false
cb_save.enabled=true
cb_exit.enabled=false
dw_2.enabled=true
end event

type cb_del from commandbutton within w_experiment
integer x = 2409
integer y = 936
integer width = 457
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;dw_2.DeleteRow(0)
end event

type cb_add from commandbutton within w_experiment
integer x = 2409
integer y = 700
integer width = 457
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;long ll;
ll=dw_2.InsertRow(0)
dw_2.ScrollToRow(ll)
cb_add.enabled=false
cb_del.enabled=false
cb_update.enabled=false
cb_save.enabled=true
cb_exit.enabled=false
dw_2.enabled=true
end event

type dw_2 from datawindow within w_experiment
integer x = 123
integer y = 636
integer width = 2181
integer height = 1160
integer taborder = 10
boolean enabled = false
string title = "none"
string dataobject = "d_experiment"
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type