w_personel.srw

pb所需编程技巧和事例

$PBExportHeader$w_personel.srw
forward
global type w_personel from window
end type
type cb_add from commandbutton within w_personel
end type
type cb_del from commandbutton within w_personel
end type
type cb_exit from commandbutton within w_personel
end type
type cb_save from commandbutton within w_personel
end type
type dw_1 from datawindow within w_personel
end type
end forward

global type w_personel from window
integer width = 1682
integer height = 1096
boolean titlebar = true
string title = "员工管理"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_add cb_add
cb_del cb_del
cb_exit cb_exit
cb_save cb_save
dw_1 dw_1
end type
global w_personel w_personel

on w_personel.create
this.cb_add=create cb_add
this.cb_del=create cb_del
this.cb_exit=create cb_exit
this.cb_save=create cb_save
this.dw_1=create dw_1
this.Control[]={this.cb_add,&
this.cb_del,&
this.cb_exit,&
this.cb_save,&
this.dw_1}
end on

on w_personel.destroy
destroy(this.cb_add)
destroy(this.cb_del)
destroy(this.cb_exit)
destroy(this.cb_save)
destroy(this.dw_1)
end on

event open;dw_1.SetTransObject(Sqlca)
dw_1.retrieve()
end event

type cb_add from commandbutton within w_personel
integer x = 64
integer y = 764
integer width = 320
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;dw_1.insertrow(0)
cb_add.enabled=false
cb_del.enabled=false
cb_save.enabled=true
cb_exit.enabled=false

end event
type cb_del from commandbutton within w_personel
integer x = 457
integer y = 764
integer width = 320
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;dw_1.deleterow(0)
dw_1.update()
dw_1.retrieve()
end event
type cb_exit from commandbutton within w_personel
integer x = 1230
integer y = 764
integer width = 320
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;close(parent)
end event

type cb_save from commandbutton within w_personel
integer x = 841
integer y = 764
integer width = 320
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;dw_1.update()
dw_1.retrieve()
end event
type dw_1 from datawindow within w_personel
integer x = 59
integer y = 52
integer width = 1445
integer height = 660
integer taborder = 10
string title = "none"
string dataobject = "d_personel"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type