w_query.srw

来自「用pb（power builder）制作的医院管理系统 附有数据库脚本」· SRW 代码 · 共 197 行

$PBExportHeader$w_query.srw
forward
global type w_query from window
end type
type cb_3 from commandbutton within w_query
end type
type cb_2 from commandbutton within w_query
end type
type cb_1 from commandbutton within w_query
end type
type sle_1 from singlelineedit within w_query
end type
type ddlb_1 from dropdownlistbox within w_query
end type
type dw_1 from datawindow within w_query
end type
end forward

global type w_query from window
integer width = 2930
integer height = 1552
boolean titlebar = true
boolean controlmenu = true
windowtype windowtype = popup!
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
sle_1 sle_1
ddlb_1 ddlb_1
dw_1 dw_1
end type
global w_query w_query

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

on w_query.destroy
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.sle_1)
destroy(this.ddlb_1)
destroy(this.dw_1)
end on

event open;dw_1.settrans(sqlca)
dw_1.retrieve()
 dw_1.insertrow(0)
end event

type cb_3 from commandbutton within w_query
integer x = 1874
integer y = 28
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.dataobject="d_query_grid"
dw_1.settrans( sqlca)
dw_1.retrieve( )
end event

type cb_2 from commandbutton within w_query
integer x = 2391
integer y = 28
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;close(parent)
end event

type cb_1 from commandbutton within w_query
integer x = 1362
integer y = 28
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.dataobject="d_query_free"
 
dw_1.settransobject(sqlca)
if ddlb_1.text="" then 
	messagebox("提示!","选择查询条件!")
elseif trim(sle_1.text)="" then
			messagebox("提示!","输入查询值!")
		else
			
choose case ddlb_1.text
case "药品编号" 
	dw_1.setfilter("drug_id='"+trim(sle_1.text)+"'" )  
	 
case "药品名称"
	dw_1.setfilter("drug_name='"+trim(sle_1.text)+"'" )
   
end choose
dw_1.retrieve( )
 
if dw_1.retrieve( )<>1     then
//	messagebox("提示!","没有要查询数据!")
else  
	return
end if
 
end if

end event

type sle_1 from singlelineedit within w_query
integer x = 791
integer y = 20
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"
long textcolor = 33554432
string text = " "
borderstyle borderstyle = stylelowered!
end type

type ddlb_1 from dropdownlistbox within w_query
integer x = 128
integer y = 28
integer width = 549
integer height = 444
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean autohscroll = true
string item[] = {"药品编号","药品名称"}
borderstyle borderstyle = stylelowered!
end type

type dw_1 from datawindow within w_query
integer x = 37
integer y = 288
integer width = 2894
integer height = 984
integer taborder = 10
string title = "none"
string dataobject = "d_query_free"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type