毕业设计定稿(6)

东华理工大学大学毕业设计 第四章 总体设计

CWXB CWFY ICU JCPB ZYH

Numeric Numeric Numeric Numeric Numeric 4 6 8 1 18 床位性别 床位费用 icu费用 加床判别 住院号 6、住院收费汇总日报涉及到的数据库表：ZY_JZXX和ZY_JZHZ

ZY_JZXX为收款结帐信息表，操作员将每天个人日结时在该表中增加一条记录。此表的主键为JZRQ（结帐日期）和CZGH（操作工号）组合而成的主键。

表4-8 日报表

列名 JZRQ CZGH CYSR YJJE TPJE YSJE TYJJ HZRQ YJQT YSQT SRJE

数据类型 Datetime Varchar Numeric Numeric Numeric Numeric Numeric Datetime Numeric Numeric Numeric 长度 12 10 12 12 12 12 12 12 12 12 6 列名注释 结帐日期 操作工号 出院收入 预缴金额 退票金额 应收金额 退预交金 汇总日期 预缴其它 应收其它 舍入金额 ZY_JZHZ为住院收费日报汇总。当要汇总今天的收费的情况就会调用表5-8,此表的主键为CZGH（汇总日期）和XMBH（项目编号）。

表4-9日报汇总表

列名 HZRQ XMBH SQJC BQFS BQJS CYDJ QFJE

数据类型 Datetime 长度 12 1 12 12 12 12 12 - 21 -

列名注释 汇总日期 项目编号 上期结存 本期发生 本期结算 出院待结 欠费金额 Datetime Numeric Numeric Numeric Numeric Numeric 东华理工大学大学毕业设计 第四章 总体设计

QTJE BQYE Numeric Numeric 12 12 其他应收 本期余额 - 22 -

东华理工大学大学毕业设计 第五章 详细设计与实现

第五章 详细设计与实现

5.1系统的流程

住院系统将住院管理人员的工作概括为：

1、住院结算：病人入院登记，注册档案；出院时到收费处交款，打印发票，完成一次收费过程。

2、退款：因为药品不足或其它原因，病人要求退款时发生。 3、统计查询、报表：收款发票查询、收款员收费查询。

4、系统服务：维护设置（包括：票据维护、用户设置、口令设置等）。

5.2数据库的连接

本系统采用的是SQL数据库，首先要新建一个HIS数据库，在数据库中新建一些需要用到的表，例如ZY_BRRY，ZY_FYHZ等表。本数据库的表名起为HIS。数据库与表都建立好后到PB开发环境中去连接数库。

连接方法：首先点击数据库管道按钮，会弹出一个?Database Profiles?对话框，然后选中MSS Microsoft SQL Server再单击‘设置’按钮。输入一些数据库名等一些信息单击‘OK’按钮即可，就把数据库连接上了。 连接数据的代码库：

SQLCA.DBMS = \SQLCA.Database = \SQLCA.ServerName = \SQLCA.LogId = \SQLCA.DBParm = \ SQLCA.AutoCommit = False

- 23 -

东华理工大学大学毕业设计 第五章 详细设计与实现

图5-1 数据库配置

5.3 部分功能实现及源代码

5.3.1 用户登陆窗口的设计

（1）登录界面：用户登陆功能实现对用户的限制, 本窗口制作了一个数据窗口，是为了

输入用户代码就能自动检索出用户名称，又填加了两个按钮—?确定?与?取消?。

图5-2登录窗口

模块流程图：用户必须输入正确的密码才能进入系统主界面,如果密码输入错误会提示错误信息.登录窗口的流程图如图5-3示：

- 24 -

东华理工大学大学毕业设计 第五章 详细设计与实现

后台主要代码设计

a．登录窗口open事件的代码如下： STRING ls_CurrentUserCode

istr_DataExc = Message.PowerObjectParm if uo_support.gethisver() >= 2600 then

dw_1.dataobject = \ //加载数据窗口d_login dw_1.dataobject = \else end if

dw_1.InsertRow(0) //新增一行 dw_1.setfocus() //得到焦点 uo_1.size = 32

uo_1.of_loadIcon(\cb_cancel.of_setcancel(True)

RegistryGet(\Parm[1]),\//获取当前输入的员工代码 if uo_support.gethisver() >= 2600 then

dw_1.Modify(\else

dw_1.Modify(\

- 25 -

开 始 输入用户代码 输入密码 提示密码错误码率 否 密码正确？ 是 进入主界面 结 束 图5-3 模块流程图

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库毕业设计定稿(6)在线全文阅读。