w_baseinfo.srw

pb所需编程技巧和事例

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

global type w_baseinfo from window
integer width = 2752
integer height = 1952
boolean titlebar = true
string title = "实验室基本情况"
boolean controlmenu = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_exit cb_exit
cb_save cb_save
cb_update cb_update
cb_del cb_del
cb_add cb_add
mle_1 mle_1
dw_2 dw_2
dw_1 dw_1
end type
global w_baseinfo w_baseinfo

on w_baseinfo.create
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.mle_1=create mle_1
this.dw_2=create dw_2
this.dw_1=create dw_1
this.Control[]={this.cb_exit,&
this.cb_save,&
this.cb_update,&
this.cb_del,&
this.cb_add,&
this.mle_1,&
this.dw_2,&
this.dw_1}
end on

on w_baseinfo.destroy
destroy(this.cb_exit)
destroy(this.cb_save)
destroy(this.cb_update)
destroy(this.cb_del)
destroy(this.cb_add)
destroy(this.mle_1)
destroy(this.dw_2)
destroy(this.dw_1)
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. 实验室位置：楼名及主房间号 " & 
+ ".4. 建室时间：需注明年月日 例如：2001-09-01代表2001年9月1日  .7. 使用面积：以系内分配面积为准  " & 
+ ".8. 兼职教师数：教师全学年兼职工作量，大于1/3而又小于2/3的所有教师工作量的总和，折合成的整人数"
end event

type cb_exit from commandbutton within w_baseinfo
integer x = 2181
integer y = 1248
integer width = 402
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 = "退出(E&xit)"
end type

event clicked;close(parent)
end event

type cb_save from commandbutton within w_baseinfo
integer x = 1682
integer y = 1248
integer width = 402
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 = "保存(&Save)"
end type

event clicked;dw_2.update()
cb_add.enabled=true
cb_del.enabled=true
cb_update.enabled=true
cb_save.enabled=false
cb_exit.enabled=false

dw_1.retrieve()
dw_2.enabled=false
end event

type cb_update from commandbutton within w_baseinfo
integer x = 1134
integer y = 1248
integer width = 448
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 = "更改(&Update)"
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_baseinfo
integer x = 622
integer y = 1248
integer width = 402
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 = "删除(&Del)"
end type

event clicked;dw_2.DeleteRow(0)
end event

type cb_add from commandbutton within w_baseinfo
integer x = 133
integer y = 1248
integer width = 402
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 = "添加(&Add)"
end type

event clicked;long ll;
ll=dw_2.InsertRow(0)
dw_2.ScrollToRow(ll)
dw_2.enabled=true

cb_add.enabled=false
cb_del.enabled=false
cb_update.enabled=false
cb_save.enabled=true
cb_exit.enabled=false

end event

type mle_1 from multilineedit within w_baseinfo
integer x = 142
integer y = 1420
integer width = 2400
integer height = 368
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean underline = true
long textcolor = 134217746
long backcolor = 67108864
boolean border = false
boolean displayonly = true
borderstyle borderstyle = styleshadowbox!
end type

type dw_2 from datawindow within w_baseinfo
integer x = 64
integer y = 636
integer width = 2642
integer height = 576
integer taborder = 20
boolean enabled = false
string title = "none"
string dataobject = "d_basedata"
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

type dw_1 from datawindow within w_baseinfo
string tag = "单击某项，察看具体信息"
integer x = 59
integer y = 48
integer width = 2610
integer height = 540
integer taborder = 10
boolean dragauto = true
boolean titlebar = true
string title = ">>>单击某项，察看具体信息"
string dataobject = "d_base_1"
boolean vscrollbar = true
boolean border = false
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event clicked;dw_2.ScrollToRow(row)
end event