w_person.srw

pb所需编程技巧和事例

$PBExportHeader$w_person.srw
forward
global type w_person from window
end type
type cb_down from commandbutton within w_person
end type
type cb_up from commandbutton within w_person
end type
type cb_del from commandbutton within w_person
end type
type cb_add from commandbutton within w_person
end type
type cb_save from commandbutton within w_person
end type
type dw_1 from datawindow within w_person
end type
end forward

global type w_person from window
integer width = 2779
integer height = 1632
boolean titlebar = true
string title = "人员信息维护"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_down cb_down
cb_up cb_up
cb_del cb_del
cb_add cb_add
cb_save cb_save
dw_1 dw_1
end type
global w_person w_person

on w_person.create
this.cb_down=create cb_down
this.cb_up=create cb_up
this.cb_del=create cb_del
this.cb_add=create cb_add
this.cb_save=create cb_save
this.dw_1=create dw_1
this.Control[]={this.cb_down,&
this.cb_up,&
this.cb_del,&
this.cb_add,&
this.cb_save,&
this.dw_1}
end on

on w_person.destroy
destroy(this.cb_down)
destroy(this.cb_up)
destroy(this.cb_del)
destroy(this.cb_add)
destroy(this.cb_save)
destroy(this.dw_1)
end on

event open;dw_1.setTransobject(sqlca)
dw_1.retrieve()
end event

type cb_down from commandbutton within w_person
integer x = 2309
integer y = 1332
integer width = 357
integer height = 112
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;dw_1.ScrollNextRow()
end event

type cb_up from commandbutton within w_person
integer x = 1865
integer y = 1332
integer width = 357
integer height = 112
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_1.ScrollPriorRow()

end event

type cb_del from commandbutton within w_person
integer x = 667
integer y = 1332
integer width = 357
integer height = 112
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;string selname
int rl
if dw_1.rowcount()=0 then
	return;
end if

rl=dw_1.DeleteRow(0)

selname=dw_1.GetItemString(rl,"name")
messagebox("",selname)

return;
if messagebox("提示","你确信要删除姓名为"+selname+"的记录吗?",Exclamation!, OKCancel!, 2)=1 then
	
	//dw_1.update()  
	dw_1.retrieve()
end if

end event

type cb_add from commandbutton within w_person
integer x = 201
integer y = 1332
integer width = 357
integer height = 112
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;long rl
rl=dw_1.InsertRow(0)
dw_1.ScrollToRow(rl)

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



end event
type cb_save from commandbutton within w_person
integer x = 1125
integer y = 1332
integer width = 357
integer height = 112
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;cb_add.enabled=true
cb_del.enabled=true
cb_save.enabled=true
dw_1.update()

dw_1.retrieve()
end event

type dw_1 from datawindow within w_person
integer x = 123
integer y = 64
integer width = 2560
integer height = 1164
integer taborder = 10
string title = "none"
string dataobject = "d_person"
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type