w_jizhang.srw

很普通的一个程序

borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_心电监护 from statictext within w_jizhang
integer x = 443
integer y = 1072
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_手术费 from statictext within w_jizhang
integer x = 443
integer y = 944
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_治疗费 from statictext within w_jizhang
integer x = 443
integer y = 808
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_注射费 from statictext within w_jizhang
integer x = 443
integer y = 680
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_中草药 from statictext within w_jizhang
integer x = 443
integer y = 564
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_中成药 from statictext within w_jizhang
integer x = 443
integer y = 428
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_西药费 from statictext within w_jizhang
integer x = 443
integer y = 300
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_诊疗费 from statictext within w_jizhang
integer x = 443
integer y = 164
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_住院费 from statictext within w_jizhang
integer x = 443
integer y = 24
integer width = 329
integer height = 92
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
boolean border = true
long bordercolor = 8421504
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type cb_exit from commandbutton within w_jizhang
integer x = 3122
integer y = 1664
integer width = 279
integer height = 128
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;close(parent)
end event

type cb_update from commandbutton within w_jizhang
integer x = 2770
integer y = 1664
integer width = 279
integer height = 128
integer taborder = 60
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_del from commandbutton within w_jizhang
integer x = 2418
integer y = 1664
integer width = 279
integer height = 128
integer taborder = 50
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.retrieve()
end event

type cb_add from commandbutton within w_jizhang
integer x = 2075
integer y = 1664
integer width = 279
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;long nr
string zyh

zyh=sle_zyh.text
nr=dw_1.InsertRow(0)
dw_1.ScrollToRow(nr)
dw_1.setitem(nr,"zyh",zyh)
end event

type dw_1 from datawindow within w_jizhang
integer x = 1902
integer y = 956
integer width = 1765
integer height = 648
integer taborder = 30
boolean enabled = false
string dataobject = "d_jizhang"
boolean vscrollbar = true
boolean livescroll = true
borderstyle borderstyle = stylelowered!
end type

event itemfocuschanged;string feename
double feemoney

feemoney=dw_1.GetItemDecimal(row,"feemoney")
if feemoney=0 then
	return;
end if
feename=dw_1.GetItemString(row,"feename")

choose case feename
	case "住院费"//1
		st_住院费.text=string(feemoney)
	case "诊疗费"//2
		st_诊疗费.text=string(feemoney)
	case "西药费"//3
		st_西药费.text=string(feemoney)
	case "中成药"//4
		st_中成药.text=string(feemoney)
	case "中草药"//5
		st_中草药.text=string(feemoney)
	case "注射费"//6
		st_注射费.text=string(feemoney)
	case "治疗费"//7
		st_治疗费.text=string(feemoney)
	case "手术费"//8
		st_手术费.text=string(feemoney)
	case "心电监护"//9
		st_心电监护.text=string(feemoney)
	case "会诊费"//10
		st_会诊费.text=string(feemoney)
	case "接生费"//11
		st_接生费.text=string(feemoney)
	case "PT"//12
		st_PT.text=string(feemoney)
	case "输血费"//13
		st_输血费.text=string(feemoney)
	case "输氧费"//14
		st_输氧费.text=string(feemoney)
	case "化验费"//15
		st_化验费.text=string(feemoney)
	case "同位素"//16
		st_同位素.text=string(feemoney)
	case "放射费"//17
		st_放射费.text=string(feemoney)
	case "CT费"//18
		st_CT费.text=string(feemoney)
	case "心电图"//19
		st_心电图.text=string(feemoney)
	case "脑电图"//20
		st_脑电图.text=string(feemoney)	
	case "B超费"//21
		st_B超费.text=string(feemoney)	
	case "胃镜费"//22
		st_胃镜费.text=string(feemoney)	
	case "理疗费"//23
		st_理疗费.text=string(feemoney)	
	case "针灸费"//24
		st_针灸费.text=string(feemoney)	
	case "病理费"//25
		st_病理费.text=string(feemoney)	
	case "血流变"//26
		st_血流变.text=string(feemoney)	
	case "鉴定费"//27
		st_鉴定费.text=string(feemoney)	
	case "鼻窦镜"//28
		st_鼻窦镜.text=string(feemoney)	
	case "熏蒸费"//29
		st_熏蒸费.text=string(feemoney)	
	case "救护车"//30
		st_救护车.text=string(feemoney)	
	case "婴护费"//31
		st_婴护费.text=string(feemoney)	
	case "陪护费"//32
		st_陪护费.text=string(feemoney)	
	case "冷暖费"//33
		st_冷暖费.text=string(feemoney)	
	case "口腔治疗"//34
		st_口腔治疗.text=string(feemoney)	
	case "炮制费"//35
		st_炮制费.text=string(feemoney)	
	case "门西药"//36
		st_门西药.text=string(feemoney)	
	case "其它"//37
		st_其它.text=string(feemoney)		
end choose

end event
type st_ryrq from statictext within w_jizhang
integer x = 2999
integer y = 660
integer width = 457
integer height = 92
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 border = true
long bordercolor = 15780518
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_7 from statictext within w_jizhang
integer x = 2693
integer y = 660
integer width = 306
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_ch from statictext within w_jizhang
integer x = 2999
integer y = 536
integer width = 457
integer height = 92
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 border = true
long bordercolor = 15780518
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_5 from statictext within w_jizhang
integer x = 2693
integer y = 548
integer width = 233
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_ks from statictext within w_jizhang
integer x = 2994
integer y = 428
integer width = 457
integer height = 92
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 border = true
long bordercolor = 15780518
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_3 from statictext within w_jizhang
integer x = 2688
integer y = 428
integer width = 256
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_xm from statictext within w_jizhang
integer x = 2999
integer y = 320
integer width = 457
integer height = 92
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 border = true
long bordercolor = 15780518
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

type st_1 from statictext within w_jizhang
integer x = 2693
integer y = 328
integer width = 192
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_1 from commandbutton within w_jizhang
integer x = 3479
integer y = 152
integer width = 137
integer height = 104
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 xm,ks,ch
date ryrq
select brxm,ks,ch,rysj
into :xm,:ks,:ch,:ryrq
from enter
where zyh=:sle_zyh.text
using sqlca;

st_xm.text=xm
st_ks.text=ks
st_ch.text=ch
st_ryrq.text=string(ryrq)

if st_xm.text<>"" then
//搜索到了符合条件的记录	
	dw_1.enabled=true
	cb_add.enabled=true
	cb_del.enabled=true
	cb_update.enabled=true
else
	dw_1.enabled=false
	cb_add.enabled=false
	cb_del.enabled=false
	cb_update.enabled=false
end if
	

end event

type sle_zyh from singlelineedit within w_jizhang
integer x = 2715
integer y = 156
integer width = 741
integer height = 112
integer taborder = 20
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 gb_1 from groupbox within w_jizhang
integer x = 2629
integer y = 68
integer width = 1019
integer height = 720
integer taborder = 20
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 = "按住院号查询"
end type