簡單的門診收費系統(tǒng)

1、 簡單的門診收費系統(tǒng)簡單的門診收費系統(tǒng)本章內(nèi)容本章內(nèi)容l1、簡單的門診收費系統(tǒng)介紹 l2、pb教程三1.1簡單的門診收費系統(tǒng)需求簡單的門診收費系統(tǒng)需求 新病人到收費處，收費員為病人注冊，新病人到收費處，收費員為病人注冊，收取預(yù)交金。病人到醫(yī)生處開單（醫(yī)囑），收取預(yù)交金。病人到醫(yī)生處開單（醫(yī)囑），或在醫(yī)技部門執(zhí)行完醫(yī)療項目后，都可到收或在醫(yī)技部門執(zhí)行完醫(yī)療項目后，都可到收費處結(jié)算。系統(tǒng)為病人結(jié)算后，打印出發(fā)票費處結(jié)算。系統(tǒng)為病人結(jié)算后，打印出發(fā)票給病人。復(fù)診病人直接去找醫(yī)生開單。給病人。復(fù)診病人直接去找醫(yī)生開單。 病人看完病如果有剩余的預(yù)交金，可以病人看完病如果有剩余的預(yù)交金，可以到收費處退費。

2、到收費處退費。l就診流程圖，見附件1.2 就診流程圖就診流程圖1.3 收費系統(tǒng)相關(guān)數(shù)據(jù)表收費系統(tǒng)相關(guān)數(shù)據(jù)表(簡約版簡約版)l1) 科室基本信息表l2) 職員基本信息表l3) 病人基本信息表l4) 收費項目表l5) 掛號記錄表l6) 開單明細表1.3 收費系統(tǒng)相關(guān)數(shù)據(jù)表收費系統(tǒng)相關(guān)數(shù)據(jù)表(簡約版簡約版)l7) 結(jié)算記錄主表l8) 結(jié)算記錄細表l9) 發(fā)票領(lǐng)用記錄表l10) 預(yù)交金記錄表l11) 預(yù)交金余額表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) -聯(lián)系電話 主鍵為 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), -掛號醫(yī)生 fade_doctor varchar2(8), -退號醫(yī)生 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) , -計價規(guī)格 price number(9,4), -單價 1.3.6 開單明細表開單明細表(簡約版簡約版)l表名: apply_item_detail quantity number(9,4), -數(shù)量 cost number(10,4), -金額 apply_date date , -開單日期 apply_operator varchar2(8) -開單人 exec_date date , -執(zhí)行日期 exec_operator varchar2(8) -執(zhí)行人 charge_date date, -扣費日期 ch

9、arge_operator varchar2(8) -扣費人 status char(1) , -0開單,1扣費, 2執(zhí)行,9作廢主鍵為 apply_id,sub_seq聯(lián)合做主鍵1.3.7 結(jié)算記錄主表結(jié)算記錄主表(簡約版簡約版)l表名: settle_main settle_id varchar2(10), -結(jié)算號 receipt_id varchar2(10), -發(fā)票號 patient_id varchar2(8), -病人id register_id varchar2(10), -掛號流水號 settle_date date , -結(jié)算日期 status char(1), -0 正

10、常,1作廢 settle_operator varchar2(8) , -結(jié)算收款員 fade_operator varchar2(8), -作廢收款員 fade_date date, -作廢日期 cost number(10,4), -總費用 charge number(10,4), -應(yīng)付金額主鍵為 settle_id1.3.8 結(jié)算記錄細表結(jié)算記錄細表(簡約版簡約版)l表名: settle_detail settle_id varchar2(10), -結(jié)算號 settle_class varchar2(3), -結(jié)算子類別 cost number(10,4) -金額 主鍵為 settl

11、e_id,settle_class聯(lián)合做主鍵1.3.9 發(fā)票領(lǐng)用記錄表發(fā)票領(lǐng)用記錄表(簡約版簡約版)l表名: receipt_apply_record apply_id varchar2(10), -領(lǐng)用序號，主鍵 apply_date date, -領(lǐng)用日期 operator varchar2(8) , -領(lǐng)用發(fā)票的收款員編號 begin_number varchar2(10), -開始號碼 end_number varchar2(10), -結(jié)束號碼 curr_number varchar2(10) -當前號碼主鍵為 apply_id1.3.10 預(yù)交金記錄表預(yù)交金記錄表(簡約版簡約版)l

12、表名: prepay_record patient_id varchar2(8), -病人id pre_id number(5) , -子序號 operator_date date, -領(lǐng)用日期 operator varchar2(8) , -操作員編碼 action char(1) ,-0繳費,1退費 主鍵為 patient_id與pre_id聯(lián)合做主鍵1.3.11 預(yù)交金余額表預(yù)交金余額表(簡約版簡約版)l表名: patient_prepay_remain patient_id varchar2(8), -病人id money number(10,4) -多少金額 主鍵為 patient_

13、id1.4 門診收費系統(tǒng)功能門診收費系統(tǒng)功能(簡約版簡約版)l1） 病人信息維護(注冊、查詢、修改)l2） 領(lǐng)用發(fā)票,已被領(lǐng)用的不允許再被領(lǐng)用l3） 病人預(yù)交金操作(收、退)l4） 為病人結(jié)算，打印發(fā)票l5） 作廢發(fā)票1.5 實驗的延伸實驗的延伸(簡約版簡約版) 實現(xiàn)基本信息管理子系統(tǒng)l1） 維護科室信息l2） 維護員工信息l3） 維護收費項目信息2、pb教程三2.1 pb編程中數(shù)據(jù)類型和變量的定義規(guī)則編程中數(shù)據(jù)類型和變量的定義規(guī)則2.1.1 對象名稱定義命名規(guī)范l1)基本對象: m_ menu w_ window d_ datawindow object dddw_ dropdrowndat

14、awindow struc_ structure f_ funciton p_ pipelines2.1.1 對象名稱定義命名規(guī)范對象名稱定義命名規(guī)范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 對象名稱定義命名規(guī)范對象名稱定義命名規(guī)范l3) 控件級對象: cbx_ checkbox cb_ commandbutton dw_ datawindow ddlb_ dropdownlistbox em_ editmask gr_ graph gb_ groupbox hsb_ hscrollbar 2.1.1 對象名稱定義命名規(guī)范對象名稱定義命名規(guī)范l3) 控件級對象: ln_ line lb_ listbox mle_ multilineedit ole_ ole2.0 ocx_ ocx oval_

16、oval p_ picture pb_ picturebutton rb_ radiobutton 2.1.1 對象名稱定義命名規(guī)范對象名稱定義命名規(guī)范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 /局部變量，表示行數(shù)局部變量，表示行數(shù)2.2 程序控制流程程序控制流程 1) 順序執(zhí)行 2) 分支選擇 3) 循環(huán)2.2.1 順序執(zhí)行順序執(zhí)行程序語句一條一條按書寫先后順序執(zhí)行。如： string ls_str1, ls_str2, ls

18、_str3 ls_str1 =“張三” ls_str2 =“體檢正?！?ls_str3 = ls1 + ls2 2.2.2 分支選擇分支選擇 if 條件 then 也有可能只是: ./執(zhí)行語句 if 條件 then 語句 else 在這種情況下，語句只 /執(zhí)行語句 能一條。 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 循環(huán)循環(huán)lfor循環(huán)ldo loop 循環(huán)for循環(huán)舉例：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 循環(huán)循環(huán)ldo loop 循環(huán)舉例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 循環(huán)循環(huán)ldo loop 循環(huán)舉例2long ll_i,ll_rowsll_i=1,ll_rows=3do while(ll_i 3 then exit next 2.3.3 循環(huán)循環(huán)l退出整個循環(huán) 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 創(chuàng)建一個全局函數(shù)創(chuàng)建一個全局函數(shù)l1) 全局函數(shù)，所謂全局，就是任何子對象都能調(diào)用l2) 函數(shù)可以返回