w_jizhang.srw

很普通的一个程序

$PBExportHeader$w_jizhang.srw
forward
global type w_jizhang from window
end type
type st_77 from statictext within w_jizhang
end type
type st_76 from statictext within w_jizhang
end type
type st_75 from statictext within w_jizhang
end type
type st_74 from statictext within w_jizhang
end type
type st_73 from statictext within w_jizhang
end type
type st_72 from statictext within w_jizhang
end type
type st_71 from statictext within w_jizhang
end type
type st_70 from statictext within w_jizhang
end type
type st_69 from statictext within w_jizhang
end type
type st_68 from statictext within w_jizhang
end type
type st_67 from statictext within w_jizhang
end type
type st_66 from statictext within w_jizhang
end type
type st_65 from statictext within w_jizhang
end type
type st_64 from statictext within w_jizhang
end type
type st_63 from statictext within w_jizhang
end type
type st_62 from statictext within w_jizhang
end type
type st_61 from statictext within w_jizhang
end type
type st_60 from statictext within w_jizhang
end type
type st_59 from statictext within w_jizhang
end type
type st_58 from statictext within w_jizhang
end type
type st_57 from statictext within w_jizhang
end type
type st_56 from statictext within w_jizhang
end type
type st_55 from statictext within w_jizhang
end type
type st_54 from statictext within w_jizhang
end type
type st_53 from statictext within w_jizhang
end type
type st_52 from statictext within w_jizhang
end type
type st_51 from statictext within w_jizhang
end type
type st_50 from statictext within w_jizhang
end type
type st_49 from statictext within w_jizhang
end type
type st_48 from statictext within w_jizhang
end type
type st_47 from statictext within w_jizhang
end type
type st_46 from statictext within w_jizhang
end type
type st_45 from statictext within w_jizhang
end type
type st_44 from statictext within w_jizhang
end type
type st_43 from statictext within w_jizhang
end type
type st_42 from statictext within w_jizhang
end type
type st_41 from statictext within w_jizhang
end type
type st_其它 from statictext within w_jizhang
end type
type st_门西药 from statictext within w_jizhang
end type
type st_炮制费 from statictext within w_jizhang
end type
type st_口腔治疗 from statictext within w_jizhang
end type
type st_冷暖费 from statictext within w_jizhang
end type
type st_陪护费 from statictext within w_jizhang
end type
type st_婴护费 from statictext within w_jizhang
end type
type st_救护车 from statictext within w_jizhang
end type
type st_熏蒸费 from statictext within w_jizhang
end type
type st_化验费 from statictext within w_jizhang
end type
type st_输氧费 from statictext within w_jizhang
end type
type st_鼻窦镜 from statictext within w_jizhang
end type
type st_鉴定费 from statictext within w_jizhang
end type
type st_血流变 from statictext within w_jizhang
end type
type st_病理费 from statictext within w_jizhang
end type
type st_针灸费 from statictext within w_jizhang
end type
type st_理疗费 from statictext within w_jizhang
end type
type st_胃镜费 from statictext within w_jizhang
end type
type st_b超费 from statictext within w_jizhang
end type
type st_脑电图 from statictext within w_jizhang
end type
type st_心电图 from statictext within w_jizhang
end type
type st_ct费 from statictext within w_jizhang
end type
type st_放射费 from statictext within w_jizhang
end type
type st_同位素 from statictext within w_jizhang
end type
type st_输血费 from statictext within w_jizhang
end type
type st_pt from statictext within w_jizhang
end type
type st_接生费 from statictext within w_jizhang
end type
type st_会诊费 from statictext within w_jizhang
end type
type st_心电监护 from statictext within w_jizhang
end type
type st_手术费 from statictext within w_jizhang
end type
type st_治疗费 from statictext within w_jizhang
end type
type st_注射费 from statictext within w_jizhang
end type
type st_中草药 from statictext within w_jizhang
end type
type st_中成药 from statictext within w_jizhang
end type
type st_西药费 from statictext within w_jizhang
end type
type st_诊疗费 from statictext within w_jizhang
end type
type st_住院费 from statictext within w_jizhang
end type
type cb_exit from commandbutton within w_jizhang
end type
type cb_update from commandbutton within w_jizhang
end type
type cb_del from commandbutton within w_jizhang
end type
type cb_add from commandbutton within w_jizhang
end type
type dw_1 from datawindow within w_jizhang
end type
type st_ryrq from statictext within w_jizhang
end type
type st_7 from statictext within w_jizhang
end type
type st_ch from statictext within w_jizhang
end type
type st_5 from statictext within w_jizhang
end type
type st_ks from statictext within w_jizhang
end type
type st_3 from statictext within w_jizhang
end type
type st_xm from statictext within w_jizhang
end type
type st_1 from statictext within w_jizhang
end type
type cb_1 from commandbutton within w_jizhang
end type
type sle_zyh from singlelineedit within w_jizhang
end type
type gb_1 from groupbox within w_jizhang
end type
end forward

global type w_jizhang from window
integer width = 3753
integer height = 2056
boolean titlebar = true
string title = "病人费用记账"
boolean controlmenu = true
long backcolor = 67108864
string icon = "AppIcon!"
boolean center = true
st_77 st_77
st_76 st_76
st_75 st_75
st_74 st_74
st_73 st_73
st_72 st_72
st_71 st_71
st_70 st_70
st_69 st_69
st_68 st_68
st_67 st_67
st_66 st_66
st_65 st_65
st_64 st_64
st_63 st_63
st_62 st_62
st_61 st_61
st_60 st_60
st_59 st_59
st_58 st_58
st_57 st_57
st_56 st_56
st_55 st_55
st_54 st_54
st_53 st_53
st_52 st_52
st_51 st_51
st_50 st_50
st_49 st_49
st_48 st_48
st_47 st_47
st_46 st_46
st_45 st_45
st_44 st_44
st_43 st_43
st_42 st_42
st_41 st_41
st_其它 st_其它
st_门西药 st_门西药
st_炮制费 st_炮制费
st_口腔治疗 st_口腔治疗
st_冷暖费 st_冷暖费
st_陪护费 st_陪护费
st_婴护费 st_婴护费
st_救护车 st_救护车
st_熏蒸费 st_熏蒸费
st_化验费 st_化验费
st_输氧费 st_输氧费
st_鼻窦镜 st_鼻窦镜
st_鉴定费 st_鉴定费
st_血流变 st_血流变
st_病理费 st_病理费
st_针灸费 st_针灸费
st_理疗费 st_理疗费
st_胃镜费 st_胃镜费
st_b超费 st_b超费
st_脑电图 st_脑电图
st_心电图 st_心电图
st_ct费 st_ct费
st_放射费 st_放射费
st_同位素 st_同位素
st_输血费 st_输血费
st_pt st_pt
st_接生费 st_接生费
st_会诊费 st_会诊费
st_心电监护 st_心电监护
st_手术费 st_手术费
st_治疗费 st_治疗费
st_注射费 st_注射费
st_中草药 st_中草药
st_中成药 st_中成药
st_西药费 st_西药费
st_诊疗费 st_诊疗费
st_住院费 st_住院费
cb_exit cb_exit
cb_update cb_update
cb_del cb_del
cb_add cb_add
dw_1 dw_1
st_ryrq st_ryrq
st_7 st_7
st_ch st_ch
st_5 st_5
st_ks st_ks
st_3 st_3
st_xm st_xm
st_1 st_1
cb_1 cb_1
sle_zyh sle_zyh
gb_1 gb_1
end type
global w_jizhang w_jizhang

on w_jizhang.create
this.st_77=create st_77
this.st_76=create st_76
this.st_75=create st_75
this.st_74=create st_74
this.st_73=create st_73
this.st_72=create st_72
this.st_71=create st_71
this.st_70=create st_70
this.st_69=create st_69
this.st_68=create st_68
this.st_67=create st_67
this.st_66=create st_66
this.st_65=create st_65
this.st_64=create st_64
this.st_63=create st_63
this.st_62=create st_62
this.st_61=create st_61
this.st_60=create st_60
this.st_59=create st_59
this.st_58=create st_58
this.st_57=create st_57
this.st_56=create st_56
this.st_55=create st_55
this.st_54=create st_54
this.st_53=create st_53
this.st_52=create st_52
this.st_51=create st_51
this.st_50=create st_50
this.st_49=create st_49
this.st_48=create st_48
this.st_47=create st_47
this.st_46=create st_46
this.st_45=create st_45
this.st_44=create st_44
this.st_43=create st_43
this.st_42=create st_42
this.st_41=create st_41
this.st_其它=create st_其它
this.st_门西药=create st_门西药
this.st_炮制费=create st_炮制费
this.st_口腔治疗=create st_口腔治疗
this.st_冷暖费=create st_冷暖费
this.st_陪护费=create st_陪护费
this.st_婴护费=create st_婴护费
this.st_救护车=create st_救护车
this.st_熏蒸费=create st_熏蒸费
this.st_化验费=create st_化验费
this.st_输氧费=create st_输氧费
this.st_鼻窦镜=create st_鼻窦镜
this.st_鉴定费=create st_鉴定费
this.st_血流变=create st_血流变
this.st_病理费=create st_病理费
this.st_针灸费=create st_针灸费
this.st_理疗费=create st_理疗费
this.st_胃镜费=create st_胃镜费
this.st_b超费=create st_b超费
this.st_脑电图=create st_脑电图
this.st_心电图=create st_心电图
this.st_ct费=create st_ct费
this.st_放射费=create st_放射费
this.st_同位素=create st_同位素
this.st_输血费=create st_输血费
this.st_pt=create st_pt
this.st_接生费=create st_接生费
this.st_会诊费=create st_会诊费
this.st_心电监护=create st_心电监护
this.st_手术费=create st_手术费
this.st_治疗费=create st_治疗费
this.st_注射费=create st_注射费
this.st_中草药=create st_中草药
this.st_中成药=create st_中成药
this.st_西药费=create st_西药费
this.st_诊疗费=create st_诊疗费
this.st_住院费=create st_住院费
this.cb_exit=create cb_exit
this.cb_update=create cb_update
this.cb_del=create cb_del
this.cb_add=create cb_add
this.dw_1=create dw_1
this.st_ryrq=create st_ryrq
this.st_7=create st_7
this.st_ch=create st_ch
this.st_5=create st_5
this.st_ks=create st_ks
this.st_3=create st_3
this.st_xm=create st_xm
this.st_1=create st_1
this.cb_1=create cb_1
this.sle_zyh=create sle_zyh
this.gb_1=create gb_1
this.Control[]={this.st_77,&
this.st_76,&
this.st_75,&
this.st_74,&
this.st_73,&
this.st_72,&
this.st_71,&
this.st_70,&
this.st_69,&
this.st_68,&
this.st_67,&
this.st_66,&
this.st_65,&
this.st_64,&
this.st_63,&
this.st_62,&
this.st_61,&
this.st_60,&
this.st_59,&
this.st_58,&
this.st_57,&
this.st_56,&
this.st_55,&
this.st_54,&
this.st_53,&
this.st_52,&
this.st_51,&
this.st_50,&
this.st_49,&
this.st_48,&
this.st_47,&
this.st_46,&
this.st_45,&
this.st_44,&
this.st_43,&
this.st_42,&
this.st_41,&
this.st_其它,&
this.st_门西药,&
this.st_炮制费,&
this.st_口腔治疗,&
this.st_冷暖费,&
this.st_陪护费,&
this.st_婴护费,&
this.st_救护车,&
this.st_熏蒸费,&
this.st_化验费,&
this.st_输氧费,&
this.st_鼻窦镜,&
this.st_鉴定费,&
this.st_血流变,&
this.st_病理费,&
this.st_针灸费,&
this.st_理疗费,&
this.st_胃镜费,&
this.st_b超费,&
this.st_脑电图,&
this.st_心电图,&
this.st_ct费,&
this.st_放射费,&
this.st_同位素,&
this.st_输血费,&
this.st_pt,&
this.st_接生费,&
this.st_会诊费,&
this.st_心电监护,&
this.st_手术费,&
this.st_治疗费,&
this.st_注射费,&
this.st_中草药,&
this.st_中成药,&
this.st_西药费,&
this.st_诊疗费,&
this.st_住院费,&
this.cb_exit,&
this.cb_update,&
this.cb_del,&
this.cb_add,&
this.dw_1,&
this.st_ryrq,&
this.st_7,&
this.st_ch,&
this.st_5,&
this.st_ks,&
this.st_3,&
this.st_xm,&
this.st_1,&
this.cb_1,&
this.sle_zyh,&
this.gb_1}
end on

on w_jizhang.destroy
destroy(this.st_77)
destroy(this.st_76)
destroy(this.st_75)
destroy(this.st_74)
destroy(this.st_73)
destroy(this.st_72)
destroy(this.st_71)
destroy(this.st_70)
destroy(this.st_69)
destroy(this.st_68)
destroy(this.st_67)
destroy(this.st_66)
destroy(this.st_65)
destroy(this.st_64)
destroy(this.st_63)
destroy(this.st_62)
destroy(this.st_61)
destroy(this.st_60)
destroy(this.st_59)
destroy(this.st_58)
destroy(this.st_57)
destroy(this.st_56)
destroy(this.st_55)
destroy(this.st_54)
destroy(this.st_53)
destroy(this.st_52)
destroy(this.st_51)
destroy(this.st_50)
destroy(this.st_49)
destroy(this.st_48)
destroy(this.st_47)
destroy(this.st_46)
destroy(this.st_45)
destroy(this.st_44)
destroy(this.st_43)
destroy(this.st_42)
destroy(this.st_41)
destroy(this.st_其它)
destroy(this.st_门西药)
destroy(this.st_炮制费)
destroy(this.st_口腔治疗)
destroy(this.st_冷暖费)
destroy(this.st_陪护费)
destroy(this.st_婴护费)
destroy(this.st_救护车)
destroy(this.st_熏蒸费)
destroy(this.st_化验费)
destroy(this.st_输氧费)
destroy(this.st_鼻窦镜)
destroy(this.st_鉴定费)
destroy(this.st_血流变)
destroy(this.st_病理费)
destroy(this.st_针灸费)
destroy(this.st_理疗费)
destroy(this.st_胃镜费)
destroy(this.st_b超费)
destroy(this.st_脑电图)
destroy(this.st_心电图)
destroy(this.st_ct费)
destroy(this.st_放射费)
destroy(this.st_同位素)
destroy(this.st_输血费)
destroy(this.st_pt)
destroy(this.st_接生费)
destroy(this.st_会诊费)
destroy(this.st_心电监护)
destroy(this.st_手术费)
destroy(this.st_治疗费)
destroy(this.st_注射费)
destroy(this.st_中草药)
destroy(this.st_中成药)
destroy(this.st_西药费)
destroy(this.st_诊疗费)
destroy(this.st_住院费)
destroy(this.cb_exit)
destroy(this.cb_update)
destroy(this.cb_del)
destroy(this.cb_add)
destroy(this.dw_1)
destroy(this.st_ryrq)
destroy(this.st_7)
destroy(this.st_ch)
destroy(this.st_5)
destroy(this.st_ks)
destroy(this.st_3)
destroy(this.st_xm)
destroy(this.st_1)
destroy(this.cb_1)
destroy(this.sle_zyh)
destroy(this.gb_1)
end on

event open;dw_1.enabled=false
cb_add.enabled=false
cb_del.enabled=false
cb_update.enabled=false

dw_1.SetTransObject(sqlca)

end event

type st_77 from statictext within w_jizhang
integer x = 1737
integer y = 792
integer width = 334
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