简单的门诊收费系统

1、 简单的门诊收费系统简单的门诊收费系统本章内容本章内容l1、简单的门诊收费系统介绍 l2、pb教程三1.1简单的门诊收费系统需求简单的门诊收费系统需求 新病人到收费处，收费员为病人注册，新病人到收费处，收费员为病人注册，收取预交金。病人到医生处开单（医嘱），收取预交金。病人到医生处开单（医嘱），或在医技部门执行完医疗项目后，都可到收或在医技部门执行完医疗项目后，都可到收费处结算。系统为病人结算后，打印出发票费处结算。系统为病人结算后，打印出发票给病人。复诊病人直接去找医生开单。给病人。复诊病人直接去找医生开单。 病人看完病如果有剩余的预交金，可以病人看完病如果有剩余的预交金，可以到收费处退费。

2、到收费处退费。l就诊流程图，见附件1.2 就诊流程图就诊流程图1.3 收费系统相关数据表收费系统相关数据表(简约版简约版)l1) 科室基本信息表l2) 职员基本信息表l3) 病人基本信息表l4) 收费项目表l5) 挂号记录表l6) 开单明细表1.3 收费系统相关数据表收费系统相关数据表(简约版简约版)l7) 结算记录主表l8) 结算记录细表l9) 发票领用记录表l10) 预交金记录表l11) 预交金余额表1.3.1科室基本信息表科室基本信息表(简约版简约版)l表名: department_info dept_code varchar2(6), -科室编码 dept_name varchar2(

3、25), -科室名称 location varchar2(30), -位置 spell_code varchar2(10) -快速定位码 主键为 dept_code1.3.2职员基本信息表职员基本信息表(简约版简约版)l表名: employe_info staff_no varchar2(8), -职员号 name varchar2(10), -姓名 dept_code varchar2(6), -科室代码 work_type varchar2(2), -工作类别 title_type varchar2(3), -职称 spell_code varchar2(10) -快速定位码 主键为 st

4、aff_no1.3.3 病人基本信息表病人基本信息表(简约版简约版)l表名: patient_info patient_id varchar2(8), -职员号 name varchar2(20) not null, -姓名 birthdate date , -出生日期 sex char(1) default 0, - 性别,0为男 - 1为女 card_no varchar2(12), -病历卡号 telephone varchar2(13) -联系电话 主键为 patient_idalter table patient rename to patient_info ;alter table

5、 patient_info add telephone varchar2(13);1.3.4 收费项目表收费项目表(简约版简约版)l表名:item_info item_id varchar2(8), -职员号 item_class varchar2(5), -项目类别 item_name varchar2(200) not null, -名称 unit varchar2(8) , -计价单位 price number(10,4), -单价 valid_flag char(1) default y , -有效标志 spell_code varchar2(10) , -快速定位码 start_da

6、te date, -启用日期 stop_date date -停止日期 主键为 item_id1.3.5 挂号记录表挂号记录表(简约版简约版)l表名: register_record register_id varchar2(10), -挂号流水号 patient_id varchar2(8), -病人号 reg_date date , -挂号时间 reg_doctor varchar2(8), -挂号医生 fade_doctor varchar2(8), -退号医生 fade_date date, -退号时间 status char(1), -0挂号,1接诊,9退号 cost number(

7、10,4) , -挂号费 reg_type varchar2(3) -挂号类别,如主任号 主键 register_id 1.3.6 开单明细表开单明细表(简约版简约版)l表名: apply_item_detail apply_id varchar2(10), -开单序号 sub_seq number(3) , -子序号 patient_id varchar2(8), -病人号码 register_id varchar2(10), -挂号流水号 item_ id varchar2(8), -项目代码 item_class varchar2(5), -项目类别 item_name varchar2

8、(200) not null, -名称 unit varchar2(8) , -计价规格 price number(9,4), -单价 1.3.6 开单明细表开单明细表(简约版简约版)l表名: apply_item_detail quantity number(9,4), -数量 cost number(10,4), -金额 apply_date date , -开单日期 apply_operator varchar2(8) -开单人 exec_date date , -执行日期 exec_operator varchar2(8) -执行人 charge_date date, -扣费日期 ch

9、arge_operator varchar2(8) -扣费人 status char(1) , -0开单,1扣费, 2执行,9作废主键为 apply_id,sub_seq联合做主键1.3.7 结算记录主表结算记录主表(简约版简约版)l表名: settle_main settle_id varchar2(10), -结算号 receipt_id varchar2(10), -发票号 patient_id varchar2(8), -病人id register_id varchar2(10), -挂号流水号 settle_date date , -结算日期 status char(1), -0 正

10、常,1作废 settle_operator varchar2(8) , -结算收款员 fade_operator varchar2(8), -作废收款员 fade_date date, -作废日期 cost number(10,4), -总费用 charge number(10,4), -应付金额主键为 settle_id1.3.8 结算记录细表结算记录细表(简约版简约版)l表名: settle_detail settle_id varchar2(10), -结算号 settle_class varchar2(3), -结算子类别 cost number(10,4) -金额 主键为 settl

11、e_id,settle_class联合做主键1.3.9 发票领用记录表发票领用记录表(简约版简约版)l表名: receipt_apply_record apply_id varchar2(10), -领用序号，主键 apply_date date, -领用日期 operator varchar2(8) , -领用发票的收款员编号 begin_number varchar2(10), -开始号码 end_number varchar2(10), -结束号码 curr_number varchar2(10) -当前号码主键为 apply_id1.3.10 预交金记录表预交金记录表(简约版简约版)l

12、表名: prepay_record patient_id varchar2(8), -病人id pre_id number(5) , -子序号 operator_date date, -领用日期 operator varchar2(8) , -操作员编码 action char(1) ,-0缴费,1退费 主键为 patient_id与pre_id联合做主键1.3.11 预交金余额表预交金余额表(简约版简约版)l表名: patient_prepay_remain patient_id varchar2(8), -病人id money number(10,4) -多少金额 主键为 patient_

13、id1.4 门诊收费系统功能门诊收费系统功能(简约版简约版)l1） 病人信息维护(注册、查询、修改)l2） 领用发票,已被领用的不允许再被领用l3） 病人预交金操作(收、退)l4） 为病人结算，打印发票l5） 作废发票1.5 实验的延伸实验的延伸(简约版简约版) 实现基本信息管理子系统l1） 维护科室信息l2） 维护员工信息l3） 维护收费项目信息2、pb教程三2.1 pb编程中数据类型和变量的定义规则编程中数据类型和变量的定义规则2.1.1 对象名称定义命名规范l1)基本对象: m_ menu w_ window d_ datawindow object dddw_ dropdrowndat

14、awindow struc_ structure f_ funciton p_ pipelines2.1.1 对象名称定义命名规范对象名称定义命名规范l2)用户对象: nvoc_ 类用户对象(定制 custom) custom class user object nvos_ 类用户对象(标准 standard) standard class user object voc_ 可视用户对象(定制 custom) visual user object custom voe_ 可视用户对象(外部 external) visual user object external vos_ 可视用户对象(标准

15、 standard) visual user object standard2.1.1 对象名称定义命名规范对象名称定义命名规范l3) 控件级对象: cbx_ checkbox cb_ commandbutton dw_ datawindow ddlb_ dropdownlistbox em_ editmask gr_ graph gb_ groupbox hsb_ hscrollbar 2.1.1 对象名称定义命名规范对象名称定义命名规范l3) 控件级对象: ln_ line lb_ listbox mle_ multilineedit ole_ ole2.0 ocx_ ocx oval_

16、oval p_ picture pb_ picturebutton rb_ radiobutton 2.1.1 对象名称定义命名规范对象名称定义命名规范2.1.2 变量名称定义l1) 简单变量 类型 说明 a_ any b_ boolean d_ date dec_ decimal e_ enumerated l_ long s_ string2.1.2 变量名称定义变量名称定义l1) 简单变量 类型 说明 ui_ unsignedinteger blb_ blob ch_ character dt_ datetime dbl_ double i_ integer r_ real tm_ ti

17、me ul_ unsignedlong2.1.2 变量名称定义变量名称定义l2) 范围前缀 类型 说明 g global variable l local variable i instance variable s shared variable 如如 string gs_username /全局变量，表示用户名全局变量，表示用户名 long ll_row /局部变量，表示行数局部变量，表示行数2.2 程序控制流程程序控制流程 1) 顺序执行 2) 分支选择 3) 循环2.2.1 顺序执行顺序执行程序语句一条一条按书写先后顺序执行。如： string ls_str1, ls_str2, ls

18、_str3 ls_str1 =“张三” ls_str2 =“体检正常” ls_str3 = ls1 + ls2 2.2.2 分支选择分支选择 if 条件 then 也有可能只是: ./执行语句 if 条件 then 语句 else 在这种情况下，语句只 /执行语句 能一条。 end if 该语句不需要该语句不需要end if 2.2.2 分支选择分支选择/获取ls_title的值if ls_title=“主任” then ldec_register=32.00 else if ls_title=“副主任” then ldec_register = 23.00 else ldec_registe

19、r = 13 end ifend if if ls_title=“普通” then ldec_register=132.2.2 分支选择分支选择lchoose case 条件 case 值: /语句 case 值: /语句 case else /语句 end choose2.2.2 分支选择分支选择choose case ls_titlecase 主任ldec_register=32 case 副主任ldec_register=23case elseldec_register=13end choose2.2.3 循环循环lfor循环ldo loop 循环for循环举例：long ll_i,ll

20、_rows ll_rows = 3 for ll_i = 1 to ll_rows step 1 messagebox(“提示”,第+string(ll_i) +”行”) next2.2.3 循环循环ldo loop 循环举例1long ll_i,ll_rowsll_i=1,ll_rows=3do messagebox(“提示”,第+string(ll_i) +”行”) ll_i+ while( ll_i = ll_rows)loop 2.2.3 循环循环ldo loop 循环举例2long ll_i,ll_rowsll_i=1,ll_rows=3do while(ll_i 3 then exit next 2.3.3 循环循环l退出整个循环 exitlong ll_i,ll_rows ll_rows = 6 for ll_i = 1 to ll_rows step 1 if ll_i3 then exit if mod(ll_i,2)=0 then continue st_1.text += 第+string(ll_i) +”行;” next 2.4 创建一个全局函数创建一个全局函数l1) 全局函数，所谓全局，就是任何子对象都能调用l2) 函数可以返回