w_login.srw

pb所需编程技巧和事例

$PBExportHeader$w_login.srw
forward
global type w_login from window
end type
type ddlb_1 from dropdownlistbox within w_login
end type
type cb_2 from commandbutton within w_login
end type
type cb_1 from commandbutton within w_login
end type
type st_2 from statictext within w_login
end type
type st_1 from statictext within w_login
end type
type sle_2 from singlelineedit within w_login
end type
end forward

global type w_login from window
integer x = 800
integer y = 800
integer width = 1413
integer height = 780
boolean titlebar = true
string title = "登 录"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 79741120
string pointer = "Arrow!"
boolean center = true
ddlb_1 ddlb_1
cb_2 cb_2
cb_1 cb_1
st_2 st_2
st_1 st_1
sle_2 sle_2
end type
global w_login w_login

type variables
DataStore ds_pass
end variables

on w_login.create
this.ddlb_1=create ddlb_1
this.cb_2=create cb_2
this.cb_1=create cb_1
this.st_2=create st_2
this.st_1=create st_1
this.sle_2=create sle_2
this.Control[]={this.ddlb_1,&
this.cb_2,&
this.cb_1,&
this.st_2,&
this.st_1,&
this.sle_2}
end on

on w_login.destroy
destroy(this.ddlb_1)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.st_2)
destroy(this.st_1)
destroy(this.sle_2)
end on

event open;//简化版
ddlb_1.AddItem("test")
ddlb_1.AddItem("wxm")
end event

type ddlb_1 from dropdownlistbox within w_login
integer x = 663
integer y = 84
integer width = 553
integer height = 292
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean autohscroll = true
boolean sorted = false
boolean hscrollbar = true
boolean vscrollbar = true
borderstyle borderstyle = stylelowered!
end type

type cb_2 from commandbutton within w_login
integer x = 791
integer y = 484
integer width = 247
integer height = 108
integer taborder = 20
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "取 消"
boolean cancel = true
end type

event clicked;gi_level = -10
Close(w_login)
end event

type cb_1 from commandbutton within w_login
integer x = 357
integer y = 492
integer width = 247
integer height = 108
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "确 定"
boolean default = true
end type

event clicked;//简化版
//if trim(sle_2.text)="test" and Trim(ddlb_1.Text)="test" then
//  gi_level=1
//end if
gi_level=1
Close(parent)
end event
type st_2 from statictext within w_login
integer x = 174
integer y = 300
integer width = 251
integer height = 76
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "密 码："
boolean focusrectangle = false
end type

type st_1 from statictext within w_login
integer x = 146
integer y = 112
integer width = 453
integer height = 76
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
boolean enabled = false
string text = "使用者代号："
boolean focusrectangle = false
end type

type sle_2 from singlelineedit within w_login
integer x = 663
integer y = 292
integer width = 562
integer height = 92
integer taborder = 40
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean autohscroll = false
boolean password = true
borderstyle borderstyle = stylelowered!
end type