門診收費(fèi)管理系統(tǒng)畢業(yè)設(shè)計(jì)畢業(yè)論文

太原理工大學(xué)成人教育學(xué)院畢業(yè)（設(shè)計(jì)）論文：成績(jī)管理系統(tǒng)用戶信息管理用戶信息用戶信息用戶信息表操作員用戶信息用戶信息表操作員藥品管理藥品類別信息藥品管理藥品類別信息藥品類別信息文件藥品類別信息文件劃價(jià)信息管理劃價(jià)信息劃價(jià)藥品信息表劃價(jià)信息管理劃價(jià)信息劃價(jià)藥品信息表藥品收費(fèi)信息表收費(fèi)信息管理藥品收費(fèi)信息表收費(fèi)信息管理圖4.3.1圖4.3.1數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫設(shè)計(jì)是要在一個(gè)給定的應(yīng)用環(huán)境（DBMS）中，通過合理的邏輯設(shè)計(jì)和有效的物理設(shè)計(jì)，構(gòu)造較優(yōu)的數(shù)據(jù)庫模式、子模式，建立數(shù)據(jù)庫和設(shè)計(jì)應(yīng)用程序，滿足用戶的各種信息需求。1、概念結(jié)構(gòu)設(shè)計(jì)在數(shù)據(jù)庫設(shè)計(jì)中，先要對(duì)系統(tǒng)分析所得的數(shù)據(jù)字典中的數(shù)據(jù)存儲(chǔ)進(jìn)行分析，然后得出系統(tǒng)的關(guān)系模式，可以采用實(shí)體——聯(lián)系圖（簡(jiǎn)稱E——R圖）的方法進(jìn)行數(shù)據(jù)結(jié)構(gòu)的描述。E——R圖由實(shí)體、屬性、聯(lián)系三部分組成。E——R圖的有關(guān)符號(hào)說明如下：

散件實(shí)體編號(hào)名稱日期其它來源散件實(shí)體屬性聯(lián)系IDID帳號(hào)密碼用戶IDID單位名稱說明藥品單位IDID類型名稱說明藥品類型IDID科室名稱說明科室IDID醫(yī)師名稱說明醫(yī)師編號(hào)編號(hào)藥品編碼藥品名稱有效期型號(hào)規(guī)格藥品實(shí)體間主要關(guān)系如下:病人 病人藥品藥品劃價(jià)掛號(hào)藥品藥品劃價(jià)掛號(hào)門診收費(fèi)屬于門診收費(fèi)屬于醫(yī)師醫(yī)師2、物理結(jié)構(gòu)設(shè)計(jì)物理結(jié)構(gòu)設(shè)計(jì)的原則如下：（1） 盡可能的減少數(shù)據(jù)冗余和重復(fù)。（2） 結(jié)構(gòu)設(shè)計(jì)與操作設(shè)計(jì)相結(jié)合。（3） 數(shù)據(jù)結(jié)構(gòu)具有相對(duì)的穩(wěn)定性?；谝陨显O(shè)計(jì)原則，本系統(tǒng)設(shè)計(jì)了一個(gè)數(shù)據(jù)庫，包含基本信息表（如藥品、醫(yī)師、科室等）及幾個(gè)實(shí)體聯(lián)系建模后的表（如劃價(jià)信息表、收費(fèi)信息表等）。為了加快系統(tǒng)訪問的速度把這些表放在一個(gè)數(shù)據(jù)庫中。本系統(tǒng)中相關(guān)數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計(jì)舉例如下：用戶表（p_user）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2用戶名文本用戶名3密碼文本

密碼藥品單位（med_dw）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2單位名稱文本單位名稱藥品類型表（med_type）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2類型名稱文本類型名稱科室表（med_ks）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2科室名稱文本科室名稱科室表（med_ys）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2醫(yī)師名稱文本醫(yī)師名稱藥品劃價(jià)表（hj_t）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2藥品編碼文本藥品編碼3藥品名稱日期藥品名稱4型號(hào)規(guī)格文本型號(hào)規(guī)格5數(shù)量數(shù)值數(shù)量6應(yīng)付款數(shù)值應(yīng)付款7掛號(hào)ID數(shù)值掛號(hào)ID藥品劃價(jià)匯總表（hj）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2類型文本類型3應(yīng)收款數(shù)值應(yīng)收款4掛號(hào)ID數(shù)值掛號(hào)ID門診收費(fèi)表（hj_aa）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2收費(fèi)項(xiàng)目文本收費(fèi)項(xiàng)目3應(yīng)付款數(shù)值應(yīng)付款4掛號(hào)ID數(shù)值掛號(hào)ID門診收費(fèi)匯總表（hj_a）編號(hào)字段名稱字段類型字段說明1ID數(shù)值ID2類型文本類型3應(yīng)收款數(shù)值應(yīng)收款4掛號(hào)ID數(shù)值掛號(hào)ID詳細(xì)設(shè)計(jì)系統(tǒng)主界面在此系統(tǒng)中，充分考慮到人們的使用習(xí)慣，利用了菜單對(duì)系統(tǒng)中功能進(jìn)行分類列舉,用使對(duì)系統(tǒng)的使用，通過菜單即能完成，這樣使得主界面簡(jiǎn)潔，易于使用。另一方面，對(duì)當(dāng)前使用的某一功能選項(xiàng)對(duì)應(yīng)的窗口，以模式的方式進(jìn)行工作，使得在同一窗口，僅能打開某一類功能的窗口，也在一定程度上減輕了用戶的使用難度。系統(tǒng)的主界面如下:用戶管理界面此界面為本系統(tǒng)中，較常用的一種界面結(jié)構(gòu)。主要由最上方的工具條，中間的現(xiàn)有數(shù)據(jù)顯示區(qū)及下方的新增內(nèi)容區(qū)。在系統(tǒng)細(xì)節(jié)，主要采用了一個(gè)ADO.recordset對(duì)象，當(dāng)增加保存時(shí)，使用了其addnew及post方法；當(dāng)刪除某一行數(shù)據(jù)時(shí)，使用了其Delete,post方法主要實(shí)現(xiàn)代碼如下:PrivateSubForm_Load()CallExcuteSql(rec_user,"select*fromp_user")CallShowInfo(rec_user,flexb)EndSubPublicSubShowInfo(ByValrsAsADODB.Recordset,ByValsearchListAsMSHFlexGrid)OnErrorResumeNextDimSumFields,i,jSumFields=rs.Fields.Count'該表的字段總數(shù)searchList.Clear'清空列表，防止增加或修改調(diào)用時(shí)重復(fù)顯示'searchList.BackColor=&HC0FFFF'設(shè)置網(wǎng)格背景顏色searchList.Cols=SumFields'設(shè)置網(wǎng)格列數(shù)searchList.Row=0WithsearchList.FillStyle=flexFillSingle'.ScrollTrack=True'.AllowUserResizing=flexResizeColumns.FixedRows=1.FixedCols=0.SelectionMode=flexSelectionByRowEndWith'設(shè)置第一行的各列標(biāo)題Fori=0ToSumFields-1searchList.Col=isearchList.TextMatrix(0,i)=rs.Fields(i).NamesearchList.ColAlignmentFixed(i)=3'searchList.BackColor=&H8000000FNexti'設(shè)置第一行的各列標(biāo)題文字格式Fori=0ToSumFields-1searchList.Col=isearchList.CellAlignment=4'searchList.CellFontBold=True'searchList.CellForeColor=vbBluej=TextWidth(rs.Fields(i).DefinedSize)*8'設(shè)置標(biāo)題寬度，防止部分長(zhǎng)文字不顯示Ifj>searchList.ColWidth(i)ThensearchList.ColWidth(i)=jEndIfNexti'循環(huán)開始--顯示所有符合條件記錄rs.MoveLastsearchList.Rows=rs.RecordCount+1'其中標(biāo)題占一行rs.MoveFirstsearchList.Row=0WhileNotrs.EOFsearchList.Row=searchList.Row+1'增加一行，用于寫入內(nèi)容Fori=0ToSumFields-1searchList.Col=iIfsearchList.Col=0ThensearchList.CellBackColor=&H8000000FEndIfsearchList.CellAlignment=4'讀入內(nèi)容IfNotIsNull(rs.Fields(i).Value)ThensearchList.Text=rs.Fields(i).ValueElsesearchList.Text=""EndIfNextirs.MoveNextWend'循環(huán)結(jié)束--顯示所有符合條件記錄EndSubPrivateSubtblOperator_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"add"CallForm3.setType("add")Form3.ShowvbModalCase"modify"CallForm3.setType("modify")Form3.ShowvbModalCase"exit"UnloadMeCase"delete"rec_user.Deleterec_user.UpdateEndSelectCallShowInfo(rec_user,flexb)EndSubPrivateSubflexb_DblClick()IfNotrec_user.EOFThenDimfAsNewForm3Callf.setType("modify")f.ShowvbModalCallShowInfo(rec_user,flexb)EndIfEndSubPrivateSubflexb_SelChange()DimstrID,strFindCallGetFlexGridFirstColValue(flexb,strID)IfstrID<>EmptyThenstrFind="ID="&Trim(strID)IfNot(rec_user.EOFAndrec_user.BOF)Thenrec_user.MoveFirstrec_user.Find(strFind)'實(shí)時(shí)的移動(dòng)記錄'Debug.Print"Moveto"&strIDEndIfEndIfEndSub藥品管理界面本界面，主要實(shí)現(xiàn)對(duì)藥品信息的管理，如藥品編碼、藥品名稱、型號(hào)規(guī)格、有效期等.能進(jìn)行完備的藥品編輯操作。主要代碼如下:PrivateSubtblOperator_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"add"CallForm13.setType("add")Form13.ShowvbModalCase"modify"CallForm13.setType("modify")Form13.ShowvbModalCase"exit"UnloadMeCase"delete"rec_med.Deleterec_med.UpdateEndSelectCallShowInfo(rec_med,flexb)EndSubPrivateSubflexb_DblClick()IfNotrec_med.EOFThenDimfAsNewForm13Callf.setType("modify")f.ShowvbModalCallShowInfo(rec_med,flexb)EndIfEndSubPrivateSubflexb_SelChange()DimstrID,strFindCallGetFlexGridFirstColValue(flexb,strID)IfstrID<>EmptyThenstrFind="ID="&Trim(strID)IfNot(rec_med.EOFAndrec_med.BOF)Thenrec_med.MoveFirstrec_med.Find(strFind)'實(shí)時(shí)的移動(dòng)記錄'Debug.Print"Moveto"&strIDEndIfEndIfEndSub掛號(hào)界面掛號(hào)是系統(tǒng)主要流程的第一步，它的主要功能是為病人人分配一個(gè)唯一的編號(hào)，在以后的流程中，這個(gè)編號(hào)即掛的號(hào)為劃價(jià)、收費(fèi)的基礎(chǔ)。在具體的實(shí)現(xiàn)中，在醫(yī)師輸入框后，放置了一命令按鈕，方便用戶快速的查找醫(yī)師的信息。醫(yī)師的信息也是以后查詢醫(yī)師的業(yè)績(jī)的主要標(biāo)識(shí).主要代碼如下:PrivateSubCommand1_Click()Dimc_glAsStringIfTrim(Text1)=""ThenText1.SetFocusEndIfIft_="add"AndText1.Text<>"init"Thenc_gl=Now()c_gl=Replace(c_gl,"-","")c_gl=Replace(c_gl,":","")c_gl=Replace(c_gl,"","")CallExcuteSql(rec_gh,"select*frommed_gl")Ifre