w_out.srw

pb所需编程技巧和事例

$PBExportHeader$w_out.srw
forward
global type w_out from window
end type
type cb_print from commandbutton within w_out
end type
type cb_cy from commandbutton within w_out
end type
type st_8 from statictext within w_out
end type
type sle_dbqx from singlelineedit within w_out
end type
type sle_dbrq from singlelineedit within w_out
end type
type st_7 from statictext within w_out
end type
type sle_czy from singlelineedit within w_out
end type
type st_6 from statictext within w_out
end type
type sle_dbrdw from singlelineedit within w_out
end type
type st_5 from statictext within w_out
end type
type st_alarm from statictext within w_out
end type
type pb_1 from picturebutton within w_out
end type
type sle_zyh from singlelineedit within w_out
end type
type st_0 from statictext within w_out
end type
type sle_dbr from singlelineedit within w_out
end type
type st_3 from statictext within w_out
end type
type st_4 from statictext within w_out
end type
type sle_sqk from singlelineedit within w_out
end type
type st_2 from statictext within w_out
end type
type sle_yjk from singlelineedit within w_out
end type
type sle_fyhj from singlelineedit within w_out
end type
type st_1 from statictext within w_out
end type
type cb_jz from commandbutton within w_out
end type
end forward

global type w_out from window
integer width = 2578
integer height = 1536
boolean titlebar = true
string title = "出院结账"
boolean controlmenu = true
boolean minbox = true
boolean maxbox = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
cb_print cb_print
cb_cy cb_cy
st_8 st_8
sle_dbqx sle_dbqx
sle_dbrq sle_dbrq
st_7 st_7
sle_czy sle_czy
st_6 st_6
sle_dbrdw sle_dbrdw
st_5 st_5
st_alarm st_alarm
pb_1 pb_1
sle_zyh sle_zyh
st_0 st_0
sle_dbr sle_dbr
st_3 st_3
st_4 st_4
sle_sqk sle_sqk
st_2 st_2
sle_yjk sle_yjk
sle_fyhj sle_fyhj
st_1 st_1
cb_jz cb_jz
end type
global w_out w_out

on w_out.create
this.cb_print=create cb_print
this.cb_cy=create cb_cy
this.st_8=create st_8
this.sle_dbqx=create sle_dbqx
this.sle_dbrq=create sle_dbrq
this.st_7=create st_7
this.sle_czy=create sle_czy
this.st_6=create st_6
this.sle_dbrdw=create sle_dbrdw
this.st_5=create st_5
this.st_alarm=create st_alarm
this.pb_1=create pb_1
this.sle_zyh=create sle_zyh
this.st_0=create st_0
this.sle_dbr=create sle_dbr
this.st_3=create st_3
this.st_4=create st_4
this.sle_sqk=create sle_sqk
this.st_2=create st_2
this.sle_yjk=create sle_yjk
this.sle_fyhj=create sle_fyhj
this.st_1=create st_1
this.cb_jz=create cb_jz
this.Control[]={this.cb_print,&
this.cb_cy,&
this.st_8,&
this.sle_dbqx,&
this.sle_dbrq,&
this.st_7,&
this.sle_czy,&
this.st_6,&
this.sle_dbrdw,&
this.st_5,&
this.st_alarm,&
this.pb_1,&
this.sle_zyh,&
this.st_0,&
this.sle_dbr,&
this.st_3,&
this.st_4,&
this.sle_sqk,&
this.st_2,&
this.sle_yjk,&
this.sle_fyhj,&
this.st_1,&
this.cb_jz}
end on

on w_out.destroy
destroy(this.cb_print)
destroy(this.cb_cy)
destroy(this.st_8)
destroy(this.sle_dbqx)
destroy(this.sle_dbrq)
destroy(this.st_7)
destroy(this.sle_czy)
destroy(this.st_6)
destroy(this.sle_dbrdw)
destroy(this.st_5)
destroy(this.st_alarm)
destroy(this.pb_1)
destroy(this.sle_zyh)
destroy(this.st_0)
destroy(this.sle_dbr)
destroy(this.st_3)
destroy(this.st_4)
destroy(this.sle_sqk)
destroy(this.st_2)
destroy(this.sle_yjk)
destroy(this.sle_fyhj)
destroy(this.st_1)
destroy(this.cb_jz)
end on

type cb_print from commandbutton within w_out
integer x = 1033
integer y = 1224
integer width = 439
integer height = 124
integer taborder = 70
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "费用清单"
end type

event clicked;//OpenWithParm(w_print,:sle_zyh.text)

end event
type cb_cy from commandbutton within w_out
integer x = 2039
integer y = 1228
integer width = 411
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;close(parent)
end event
type st_8 from statictext within w_out
integer x = 1216
integer y = 656
integer width = 402
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "担保期限："
boolean focusrectangle = false
end type

type sle_dbqx from singlelineedit within w_out
integer x = 1673
integer y = 656
integer width = 457
integer height = 92
integer taborder = 60
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type sle_dbrq from singlelineedit within w_out
integer x = 517
integer y = 656
integer width = 453
integer height = 92
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_7 from statictext within w_out
integer x = 105
integer y = 656
integer width = 389
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "担保日期："
boolean focusrectangle = false
end type

type sle_czy from singlelineedit within w_out
integer x = 361
integer y = 1232
integer width = 457
integer height = 104
integer taborder = 50
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_6 from statictext within w_out
integer x = 64
integer y = 1244
integer width = 283
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "操作员"
boolean focusrectangle = false
end type

type sle_dbrdw from singlelineedit within w_out
integer x = 608
integer y = 500
integer width = 1522
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 displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_5 from statictext within w_out
integer x = 105
integer y = 500
integer width = 453
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "担保人单位："
boolean focusrectangle = false
end type

type st_alarm from statictext within w_out
integer x = 338
integer y = 828
integer width = 1559
integer height = 292
integer textsize = -20
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
boolean italic = true
long textcolor = 255
long backcolor = 67108864
alignment alignment = Center!
boolean border = true
borderstyle borderstyle = StyleShadowBox!
boolean focusrectangle = false
end type

type pb_1 from picturebutton within w_out
integer x = 1362
integer y = 28
integer width = 119
integer height = 108
integer taborder = 20
integer textsize = -18
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string picturename = "Search!"
alignment htextalign = left!
boolean map3dcolors = true
end type

event clicked;double sumMoney,yjk,sqk
string zyh
date dbrq
integer dbqx
//清空各个显示项
sle_fyhj.text=""
sle_yjk.text=""
sle_sqk.text=""
sle_dbr.text=""
sle_dbrdw.text=""
sle_dbrq.text=""
sle_dbqx.text=""

zyh=sle_zyh.text

select sum(feemoney)
into :sumMoney
from feerecord
where zyh=:zyh
using sqlca;

if IsNull(sumMoney) then
	messagebox("提示：","该病人没有账务记录！")
	cb_print.enabled=false
end if

select je,dbr,dw,dbrq,dbqx
into :yjk,:sle_dbr.text,:sle_dbrdw.text,:dbrq,:dbqx
from enter
where zyh=:zyh
using sqlca;

sle_fyhj.text=string(sumMoney,"0.00")
if sle_fyhj.text="" then
	return;
end if
sle_fyhj.text=string(sumMoney,"1000")
sle_yjk.text=string(yjk,"0.00")
sle_dbrq.text=string(dbrq)
sle_dbqx.text=string(dbqx)+" 个月"

if sumMoney <= yjk then
	sle_sqk.text="不欠款"	
	st_alarm.text="该病人账款已清，~n可以直接出院。"
	cb_jz.enabled=false
	cb_cy.enabled=true
else
	sqk= sumMoney - yjk
	cb_jz.enabled=true
	cb_cy.enabled=false
	sle_sqk.text=string(sqk,"0.00")
	st_alarm.text="目前该病人存在欠款行为，~n须结清账款方可出院。"
end if 	

end event
type sle_zyh from singlelineedit within w_out
integer x = 704
integer y = 20
integer width = 594
integer height = 112
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type st_0 from statictext within w_out
integer x = 96
integer y = 32
integer width = 599
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "出院病人住院号："
boolean focusrectangle = false
end type

type sle_dbr from singlelineedit within w_out
integer x = 1664
integer y = 332
integer width = 457
integer height = 92
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 displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_3 from statictext within w_out
integer x = 105
integer y = 332
integer width = 361
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "尚欠款："
boolean focusrectangle = false
end type

type st_4 from statictext within w_out
integer x = 1216
integer y = 332
integer width = 402
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "担保人："
boolean focusrectangle = false
end type

type sle_sqk from singlelineedit within w_out
integer x = 503
integer y = 332
integer width = 457
integer height = 92
integer taborder = 30
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
string text = "0.00"
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type st_2 from statictext within w_out
integer x = 1216
integer y = 204
integer width = 402
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "预交款："
boolean focusrectangle = false
end type

type sle_yjk from singlelineedit within w_out
integer x = 1664
integer y = 204
integer width = 457
integer height = 92
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 = "0.00"
boolean displayonly = true
borderstyle borderstyle = stylelowered!
end type

type sle_fyhj from singlelineedit within w_out
integer x = 503
integer y = 204
integer width = 457
integer height = 92
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
string text = "0.00"
borderstyle borderstyle = stylelowered!
end type

type st_1 from statictext within w_out
integer x = 105
integer y = 204
integer width = 379
integer height = 72
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
long backcolor = 67108864
string text = "费用合计："
boolean focusrectangle = false
end type

type cb_jz from commandbutton within w_out
integer x = 1563
integer y = 1224
integer width = 411
integer height = 128
integer taborder = 10
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
string text = "结账出院"
end type

event clicked;double sqk
sqk=double(sle_sqk.text)

insert into payrecord(zyh,money,paydate)
values(:sle_zyh.text,:sqk,now())
using sqlca;


end event