w_users.srw

很普通的一个程序

$PBExportHeader$w_users.srw
forward
global type w_users from window
end type
type cb_3 from commandbutton within w_users
end type
type cb_2 from commandbutton within w_users
end type
type cb_1 from commandbutton within w_users
end type
type dw_1 from datawindow within w_users
end type
end forward

global type w_users from window
integer width = 1870
integer height = 1052
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
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
dw_1 dw_1
end type
global w_users w_users

on w_users.create
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.dw_1=create dw_1
this.Control[]={this.cb_3,&
this.cb_2,&
this.cb_1,&
this.dw_1}
end on

on w_users.destroy
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.dw_1)
end on

event open;dw_1.SetTransObject(SQLCA)
dw_1.Retrieve()
end event

type cb_3 from commandbutton within w_users
integer x = 1253
integer y = 780
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;dw_1.update()
end event

type cb_2 from commandbutton within w_users
integer x = 686
integer y = 776
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_1.DeleteRow(0)
dw_1.update()
end event
type cb_1 from commandbutton within w_users
integer x = 155
integer y = 776
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;dw_1.insertrow(0)
end event

type dw_1 from datawindow within w_users
integer x = 128
integer y = 160
integer width = 1691
integer height = 576
integer taborder = 10
string title = "none"
string dataobject = "d_users"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type