东华理工大学大学毕业设计 第五章 详细设计与实现
end if
（2）主界面: 进入系统后可能到如下界面：
图5-4 主界面
系统包括用户管理，业务管理，查询，报表系统维护五个主菜单。 （3）入院登记功能的设计：
点击“业务管理”下的“入院登记”模块就进入了该界面。在该界面录入病人的入院信息。如下图:
图5-5 入院登记界面
后台主要代码设计
a．入院登记窗口open事件的代码如下： // 设置显示数据窗口和打印数据窗口 dw_3.SetTransObject(sqlca)
dw_3.Modify(\idw_Display = dw_1 idw_Print = dw_
CHOOSE CASE is_UseMode
CASE \增加\ // 判断入院登记时是否输入缴款
String ls_Value
- 26 -
东华理工大学大学毕业设计 第五章 详细设计与实现
ls_Value = Upper(gf_GetPara(base_info.SysCode,\入院登记允许同IF ls_Value = \
ib_HandInWhenRegister = True
wf_NewAfterSave(False)//设置保存后不立即增加记录，以便保存缴款记录
时录入预缴款\
END IF
IF ib_HandInWhenRegister THEN
IF This.Height < 2020 THEN This.Height = 2020 uo_1.Visible = False
dw_2.SetPrintMode(\全打\ // 设置票据打印方式 dw_2.Visible = False
dw_2.New() ELSE END IF
cb_ybbr.Visible = False cb_drbr.Visible = False
CASE \修改\注销\查询\转换\调整\
CASE ELSE
END CHOOSE
IF is_UseMode = \增加\修改\
// 调整按钮位置
IF NOT ib_HandInWhenRegister THEN
cb_ybbr.Y = 1680 cb_drbr.Y = 1680 cb_reset.Y = 1680 cb_save.Y = 1680 cb_print.Y = 1680 cb_close.Y = 1680
uo_1.of_settext(1,0,\设置病人附加信息请双击病人姓名!\END IF
END IF
dw_1.Post ShareData(idw_Print) dw_3.Visible = False im_brdr = Create m_zy_brdr
- 27 -
东华理工大学大学毕业设计 第五章 详细设计与实现
im_brdr.mf_Init(This)
b．“保存”按钮的clicked事件代码如下： // 医保处理 Integer li_brxz debugbreak()
li_brxz = dw_1.Object.brxz[1]
CHOOSE CASE is_UseMode
CASE \增加\修改\
IF NOT dw_1.TRIGGER EVENT ue_Verify(li_brxz) THEN RETURN // 数据校验 IF NOT dw_1.TRIGGER EVENT ue_Check(li_brxz) THEN RETURN
// 身份验证
CASE ELSE END CHOOSE dw_1.accepttext()
IF Uybjk.of_ybpb(li_brxz) THEN
// HIS处理 Decimal{2} lc_jkje
IF is_UseMode = \增加\ // 入院登记时缴款处理
dw_2.AcceptText()
lc_jkje = dw_2.Object.jkje[1] IF IsNull(lc_jkje) THEN lc_jkje = 0 IF lc_jkje > 0 THEN
IF NOT dw_2.DataVerify() THEN RETURN END IF
IF isnull(dw_1.object.ybzyh[1]) THEN
Messagebox(\医保提示\医保住院号一定要录入,从医保系统中获RETURN CASE \注销\
取!\
END IF
END IF
END IF
- 28 -
东华理工大学大学毕业设计 第五章 详细设计与实现
wf_Dispose(Left(THIS.Text,4))
IF is_UseMode = \增加\
IF dw_1.IsSucceed() THEN
IF ib_HandInWhenRegister THEN // 入院登记时缴款处理
lc_jkje = dw_2.Object.jkje[1] IF IsNull(lc_jkje) THEN lc_jkje = 0 IF lc_jkje > 0 THEN
dw_2.Object.zyh [1] = dw_1.Object.zyh [1] dw_2.Object.zyhm[1] = dw_1.Object.zyhm[1] dw_2.Object.brxm[1] = dw_1.Object.brxm[1] dw_2.Object.brch[1] = dw_1.Object.brch[1]
IF dw_2.Save() THEN
dw_2.PrintReceipt(dw_2) // 打印收据
MessageBox(\提示信息\缴款保存失败，请在缴款管理处重新录入ELSE
缴款！\
END IF dw_2.New()
END IF dw_1.New() dw_1.New()
ELSE END IF
END IF
END IF
5.3.2出院结算功能的设计 1、功能：对病人进行出院结算。
在系统菜单中选择”结算管理”,系统会弹出如图5-6窗口,选择需要结算的病人。
- 29 -
东华理工大学大学毕业设计 第五章 详细设计与实现
图5-6
在选择病人时需要判断输入的住院号码是否存在，如果不存在，系统会弹出提示窗口要求重新输入；如果住院号码存在，系统会判断所选择的病人是否已经开出院证明，如果没有开出院证明，同样系统会弹出提示窗口，这个病人不能出院，如果已开出院证明就会到5-7窗口（收费预结算）
图5-7收费预结算图
在收费预结算窗口中检查各个收费项目是否有错误，总计金额是否有错误，如果没有问题，点击”结算”按钮进入结算窗口，点击”确定”按钮病人就出院了。
后台主要代码设计
a．“结算”按钮的clicked事件代码如下： // 向人员统计表中插入记录 Long ll_jlxh,ll_czqrs DateTime ldt_sysdate ldt_sysdate = gf_server_date() ll_jlxh = gf_get_max(sqlca,\ll_czqrs = gf_rstj(istr_jsxx.jsbr.brks,0) CHOOSE CASE istr_jsxx.jslx
CASE 1 , 3 TO 6 , 9 // 中结、再结、终结、出院、合并、退费
- 30 -
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库毕业设计定稿(7)在线全文阅读。
相关推荐：