[軟件管理系統(tǒng)類精品]MIS課程設(shè)計報告診所系統(tǒng)分析設(shè)計

1、mis課程設(shè)計報告書(診所系統(tǒng)分析設(shè)計)系部名稱：信息與管理工程系學(xué)生姓名：專業(yè)名稱：信息管理與信息系統(tǒng)班 級：時間：2011年3月14日-2011年12月26日目 錄：一.可行性分析 4二.系統(tǒng)分析部分 4 1.業(yè)務(wù)流程圖 5 2.數(shù)據(jù)流程圖 5 3.功能分析圖 6 4.數(shù)據(jù)字典 7 5.數(shù)據(jù)加工處理的描述 8 6.管理信息系統(tǒng)流程設(shè)想圖 9三.系統(tǒng)設(shè)計部分 1.功能結(jié)構(gòu)圖設(shè)計 9 2.新系統(tǒng)信息處理流程設(shè)計 9 3.輸出設(shè)計(主要指打印輸出設(shè)計) 9 4.存儲文件格式設(shè)計(數(shù)據(jù)庫結(jié)構(gòu)設(shè)計) 9 5.輸入設(shè)計(主要指數(shù)據(jù)錄入卡設(shè)計) 12 6.代碼設(shè)計(職工證號和部門代號等) 14 7.程序

2、設(shè)計說明書 14四.系統(tǒng)實施部分 1.程序框圖 14 2.源程序 18 3.模擬運行數(shù)據(jù) 71 4.打印報表 72 5.系統(tǒng)使用說明書 72五.附錄或參考資料信管專業(yè)2008級mis課程設(shè)計任務(wù)書1設(shè)計任務(wù)1.1設(shè)計目的通過本次設(shè)計，要求同學(xué)們能夠?qū)⑺鶎W(xué)到的信息系統(tǒng)分析方法與軟件設(shè)計技術(shù)及方法綜合運用到實際信息系統(tǒng)的分析與設(shè)計中，提高同學(xué)們對軟件的綜合分析與設(shè)計能力，主要包括對數(shù)據(jù)的分析、組織能力，數(shù)據(jù)的提取、處理能力；軟件結(jié)構(gòu)的分析設(shè)計，復(fù)雜界面與輸入輸出設(shè)計能力；學(xué)習(xí)常用軟件開發(fā)工具的使用。1.2設(shè)計要求結(jié)合所學(xué)習(xí)的系統(tǒng)分析與設(shè)計的具體方法，應(yīng)用程序設(shè)計的基本知識和數(shù)據(jù)庫知識進(jìn)行詳細(xì)的系統(tǒng)

3、分析設(shè)計。具體要求如下：1、 學(xué)習(xí)進(jìn)行相對復(fù)雜數(shù)據(jù)的分析與設(shè)計，建立合理的數(shù)據(jù)模型。2、 學(xué)習(xí)使用vb的數(shù)據(jù)環(huán)境設(shè)計器和數(shù)據(jù)報表設(shè)計器進(jìn)行報表輸出設(shè)計。3、 學(xué)習(xí)使用visio工具進(jìn)行常用軟件圖形的繪制。4、 進(jìn)一步熟練進(jìn)行軟件系統(tǒng)的界面設(shè)計，深入掌握界面設(shè)計元素。5、 提供相應(yīng)的軟件設(shè)計報告。報告要求有系統(tǒng)的需求分析、系統(tǒng)流程圖、數(shù)據(jù)流程圖、軟件結(jié)構(gòu)圖、數(shù)據(jù)庫設(shè)計說明和軟件說明書。6、 提供與設(shè)計報告相一致的軟件系統(tǒng)。7、 每四人為一個課題組，自由組合，檢查相應(yīng)的小組討論，討論結(jié)果計入平時成績。8、 報告書寫規(guī)范見附件。2系統(tǒng)分析2.1系統(tǒng)分析概述系統(tǒng)分析就是根據(jù)系統(tǒng)調(diào)查中獲得的原始資料，對

4、用戶組織內(nèi)部整體管理狀況和信息處理堆積進(jìn)行分析，確定用戶需求，并建立系統(tǒng)邏輯模型的過程，著重于信息系統(tǒng)“做什么”，而不是“怎么做”。本部分就是在這個基礎(chǔ)上對系統(tǒng)業(yè)務(wù)流程和系統(tǒng)數(shù)據(jù)流程圖進(jìn)行分析。2.2可行性分析2.2.1目標(biāo)方案的可行性隨著計算機性能的不斷提高，計算機化的醫(yī)院信息系統(tǒng)已成為現(xiàn)代化醫(yī)院運營過程中必不可少的基礎(chǔ)設(shè)施與技術(shù)支撐環(huán)境。醫(yī)院信息系統(tǒng)利用電子計算機和通信設(shè)備為醫(yī)院所屬各部門提供病人診療信息和行政管理信息的收集、存儲、處理、提取和數(shù)據(jù)交換的能力，并滿足所有授權(quán)用戶的所有功能需求。2.2.2經(jīng)濟可行性現(xiàn)在，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。而本系統(tǒng)的開發(fā)，為醫(yī)院的

5、工作效率帶來了一個質(zhì)的飛躍，為此主要表現(xiàn)有以下幾個方面：第一，本系統(tǒng)的運行可以代替人工進(jìn)行許多繁雜的勞動；第二，本系統(tǒng)的運行可以節(jié)省許多資源；第三，本系統(tǒng)的運行可以大大的提高醫(yī)院的工作效率；第四，本系統(tǒng)可以使敏感文檔更加安全，等等。所以，本系統(tǒng)在經(jīng)濟上是可行的。2.2.3技術(shù)可行性本系統(tǒng)的開發(fā)利用microsoft sql server2000作為本系統(tǒng)的數(shù)據(jù)庫，它是一個支持多用戶的新型數(shù)據(jù)庫，適用于大中規(guī)模的數(shù)據(jù)量需求。學(xué)校校園網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。使用visual basic6.0作為系統(tǒng)開發(fā)的開發(fā)環(huán)境，它作為一種現(xiàn)代的編程語言，提供完善的指令控制語句、類

6、與對象的支持及豐富的數(shù)據(jù)類型，給開發(fā)高性能系統(tǒng)提供的保障為開發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統(tǒng)的擴展與修改。綜上所述，本系統(tǒng)的設(shè)計與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。2.2.4運行可行性本系統(tǒng)為一個小型的診所管理系統(tǒng)，所耗費的資源非常的小，診所的電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統(tǒng)在運行上是可行的。2.3系統(tǒng)需求分析由于本系統(tǒng)設(shè)計針對小區(qū)診所的具體情況，因此用戶需求的目的是通過該小區(qū)診所的需求調(diào)查，從中總結(jié)出診所對管理信息系統(tǒng)的需求，然后根據(jù)這些需求設(shè)計出系統(tǒng)的方案。診所管理分為前臺管理系統(tǒng)和

7、后臺管理系統(tǒng)兩部分，診所前臺系統(tǒng)主要負(fù)責(zé)掛號、劃價、收費工作，后臺管理系統(tǒng)主要負(fù)責(zé)藥品、庫存信息的查詢、門診掛號的統(tǒng)計、以及病人資料的管理，系統(tǒng)的維護等工作。所以該系統(tǒng)由基礎(chǔ)維護、門診管理、院長查詢?nèi)竽K組成。其中基礎(chǔ)維護包括藥品信息維護和收費項目維護，門診管理包括掛號管理、劃價管理、收費管理和藥房發(fā)放，院長查詢包括科室掛號量和庫存統(tǒng)計。2.4業(yè)務(wù)流程圖2.5數(shù)據(jù)流程圖2.6系統(tǒng)組織結(jié)構(gòu)分析圖2.7業(yè)務(wù)流程分析2.8數(shù)據(jù)流程分析根據(jù)上述的業(yè)務(wù)流程，對其中的數(shù)據(jù)處理、數(shù)據(jù)存儲以及數(shù)據(jù)流動過程進(jìn)行抽象，得到了系統(tǒng)的邏輯模型，即系統(tǒng)的數(shù)據(jù)流程圖。2.9數(shù)據(jù)字典藥品庫存表編號庫房藥品編號藥品數(shù)量備注

8、1中藥房1001102中藥房100253中藥房1003314中藥房100435 藥品資料表編號名稱單價分類費用歸類拼音碼有效期1001青霉素5西藥西藥類qms31002北豆根12西藥西藥類bdg51003止痛片2西藥西藥類ztp51004感嘆號9西藥西藥類gth5 門診劃價表編號科室劃價編號醫(yī)生劃價時間劃價員20100000002內(nèi)科20100000002張為2010-6-6張三20100000003檢查科20100000003李虹2010-6-6張三20100000004外科20100000004王新新2010-6-6張三20100000012內(nèi)科20100000012郝燕麗2010-6-6

9、張三 門診劃價明細(xì)表編號劃價編號藥品編號單價數(shù)量金額420100000001100212336220100000001200431332010000000120023135201000000111002121122.10系統(tǒng)各模塊詳細(xì)的業(yè)務(wù)流程圖3系統(tǒng)設(shè)計3.1系統(tǒng)設(shè)計概述及設(shè)計原則系統(tǒng)設(shè)計階段是開發(fā)管理信息系統(tǒng)的關(guān)鍵環(huán)節(jié)之一,因此它的工件質(zhì)量直接影響到新系統(tǒng)的穩(wěn)定性、可靠性、精確性和運行費用的高低。所以，整個系統(tǒng)設(shè)計過程的各項工作都必須按照科學(xué)的方法和原則進(jìn)行。系統(tǒng)設(shè)計原則： 1) 系統(tǒng)運行安全可靠，穩(wěn)定性好； 2) 系統(tǒng)的可管理性和可維護性好； 3) 系統(tǒng)輸入界面友好，操作簡便易行，盡量減

10、少用戶的輸入工作量； 4）允許多種數(shù)據(jù)輸入方式，能實現(xiàn)多種查詢，允許進(jìn)行模糊查詢； 5）數(shù)據(jù)具有規(guī)范性，整體性，方便數(shù)據(jù)之間的比較分析。3.2系統(tǒng)設(shè)計模塊u 權(quán)限管理主要是用戶的等級和權(quán)限的劃分。分級用戶：管理員用戶、院長用戶、普通用戶，權(quán)限可以自定義添加和刪除。u 門診掛號管理建立和維護病人的索引信息，分配病人的id號，確保病人信息的唯一性，為病人建立就診卡，對門診病人進(jìn)行掛號，為門診病人的后續(xù)活動以及門診工作量統(tǒng)計提供信息。u 門診劃價收費管理用于門診收費處記錄病人的繳費信息，并執(zhí)行相應(yīng)的統(tǒng)計核算功能。門診劃價用于完成門診病人的各種處方、檢查申請、治療申請等診治費用的計價工作；門診收費用于

11、完成門診病人各種各種診治費用的收取工作，能夠依據(jù)劃價單查詢病人劃價信息，進(jìn)行費用收取處理，并保存操作記錄備查。u 藥房管理用于管理醫(yī)院藥房的采購、入庫及出庫等業(yè)務(wù)。u 打印報表可以打印病人的藥品明細(xì)單和收費票據(jù)。3.3編碼設(shè)計編碼是指代表事物名稱、屬性、狀態(tài)等的符號，它以簡短的符號形式代替具體的文字說明。如中國郵政編碼采用了一種6位的編碼來表示省市、地區(qū)等信息。設(shè)計出一個好的編碼方案對系統(tǒng)的開發(fā)工作具有重要作用。1、編碼能反映數(shù)據(jù)或信息間的邏輯關(guān)系，并使其具有唯一性。2、信息編碼化便于利用計算機進(jìn)行信息或數(shù)據(jù)的識別和處理。3、利用編碼可以節(jié)省計算機課的存儲空間、提高運行速度。4、利用編碼可以提

12、高系統(tǒng)的可靠性。常用的編碼主要有順序碼、區(qū)間碼、助記碼和縮寫碼。下面對商品編號的編碼設(shè)計進(jìn)行介紹。代碼名稱：商品編號 代碼類型：區(qū)間碼 代碼長度：8位前三位代表類別,后五位為內(nèi)部順序碼。3.4輸入/輸出設(shè)計系統(tǒng)輸入/輸出（i/o)設(shè)計是在系統(tǒng)設(shè)計中很容易被忽視的環(huán)節(jié)，又是一個很重要的環(huán)節(jié)，它對于用戶和今后系統(tǒng)使用的方便和安全可靠性來說都是非常重要的。一個好的輸入系統(tǒng)設(shè)計可以為用戶和系統(tǒng)雙方帶來良好的工作環(huán)境，一個好的輸出系統(tǒng)可以為管理者提供簡潔、明了、實用的管理和控制信息。輸入設(shè)計包括輸入方式設(shè)計、用戶界面設(shè)計。在本系統(tǒng)中，輸入幾乎都是采用鍵盤輸入，鍵盤輸入與用戶界面設(shè)計是緊密聯(lián)系在一起的。設(shè)

13、計時本著方便用戶的原則，主要采用了以下措施：(1) 注意保證各個模塊的輸入格式一致，方便用戶使用不同的模塊。(2) 嚴(yán)格的檢錯措施。盡量減少用戶的輸入，以減少出錯羈旅；對用戶的輸入內(nèi)容作空格、非法字符等檢驗。(3) 使用菜單方式，使得條例清晰、邏輯性強。(4) 關(guān)鍵性的強調(diào)和警告：對于數(shù)據(jù)庫的更新、刪除及用戶登錄等操作，利用提問的方式來幫助用戶進(jìn)一步來幫助用戶進(jìn)一步確認(rèn)操作的有效性。一個好的輸出設(shè)計不僅可以贏得用戶的好評，更重要的是可以為用戶提供簡潔、明了、有效、實用的管理和控制信息。為適應(yīng)診所日常管理的需要提供對內(nèi)對外的報告和單據(jù)，本系統(tǒng)主要采用屏幕輸出和打印輸出。屏幕輸出主要是滿足日常管理

14、的需要，用于查詢結(jié)果的顯示；而打印輸出主要是為了提供對內(nèi)對外的報告和單據(jù)。4系統(tǒng)實施4.1系統(tǒng)配置（1）硬件環(huán)境cpu賽揚1.2，內(nèi)存64mb以上，硬盤3g以上。（2）軟件環(huán)境各種操作系統(tǒng)，如：windows98/windowsxp/windos2000。4.2系統(tǒng)菜單系統(tǒng)菜單包括門診管理、院長查詢、項目信息、幫助。門診管理包含門診掛號、門診劃價、門診收費和藥品發(fā)放子菜單：院長查詢包括科室掛號量、藥品庫存子菜單；項目信息包括藥品庫存和藥品信息子菜單。4.3系統(tǒng)窗口及源代碼 登陸界面，代碼如下： private sub btnexit_click() unload meend subprivat

15、e sub btnlogin_click() dim psw1, psw2, psw3 as string psw1 = user psw2 = lead psw3 = admin if combouser.text = 用戶 then if txbpsw.text = psw1 then me.hide frmabout.show else msgbox 密碼錯誤！ txbpsw.text = end if quanxian = 1 end if if combouser.text = 院長 then if txbpsw.text = psw2 then me.hide frmabout.s

16、how else msgbox 密碼錯誤！ txbpsw.text = end if quanxian = 2 end if if combouser.text = 管理員 then if txbpsw.text = psw3 then me.hide frmabout.show else msgbox 密碼錯誤！ txbpsw.text = end if quanxian = 3 end if dim db as new databases dim strsql as string strsql = insert into 登錄信息( 用戶類型編號,登錄時間) values ( strsql

17、 = strsql + trim(quanxian) + , strsql = strsql + cstr(date) + ) db.runselectsql (strsql)end subprivate sub form_load() combouser.additem (用戶) combouser.additem (院長) combouser.additem (管理員)end subprivate sub timer1_timer() label4.caption = format(now, ampm(hh:mm:ss)end sub 所有用戶進(jìn)入系統(tǒng)簡介界面 代碼如下：private s

18、ub command1_click() me.hide frmmain.showend sub點擊確定，進(jìn)入系統(tǒng)主界面 代碼如下：private sub mncash_click() dim frm as new frmcash if quanxian = 3 then frm.show else msgbox 你無權(quán)查看此信息！ end ifend subprivate sub exit_click() endend subprivate sub mnghl_click() dim frm as new frmghl if quanxian = 1 then msgbox 你無權(quán)查看此信息！

19、 else frm.show end ifend subprivate sub mnguahao_click() dim frm as new frmguahao frm.showend subprivate sub mnhuajia_click() set formhuajia = new frmhuajia formhuajia.showend subprivate sub mnkcl_click() dim frm as new frmkcl if quanxian = 1 then msgbox 你無權(quán)查看此信息！ else frm.show end ifend subprivate

20、sub mnlogin_click() dim frm as new frmlogincx if quanxian = 1 then msgbox 你無權(quán)查看此信息！ else frm.show end ifend subprivate sub mnmedicine_click() dim frm as new frmmedicine if quanxian = 3 then frm.show else msgbox 你無權(quán)查看此信息！ end ifend subprivate sub mnshoufei_click() dim frm as new frmshoufei frm.showen

21、d subprivate sub mnzhuxiao_click() me.hide frmlogin.showend sub點擊門診管理 門診掛號，進(jìn)入門診掛號界面，該界面代碼如下：private sub clear() me.txbname.text = me.cbbsex.text = 男 me.txbage.text = me.txbmoney.text = me.txbname.text = me.txbtime.text = cstr(date) me.txbnation.text = 漢族 me.cbbmoneytype.text = 自費 me.cbbregtype.text

22、= 普通號 dim db as new databases dim rs as recordset set rs = db.runselectsql(select 編號,名稱 from 科室資料) set me.cbbroomtype.rowsource = rs me.cbbroomtype.listfield = 名稱 set rs = db.runselectsql(select 編號,姓名 from 醫(yī)生資料) set me.cbbdoctor.rowsource = rs me.cbbdoctor.listfield = 姓名end subprivate sub save() dim

23、 iage as integer iage = 0 iage = cint(trim(txbage.text) dim strsql as string strsql = select max(編號) as 編號 strsql = strsql + from 病人信息庫 where 編號 like strsql = strsql + cstr(year(date) + % dim db as new databases dim rs as recordset dim strt as string dim strid as string set rs = db.runselectsql(strs

24、ql) if not isnull(rs(0) then strt = strid = cstr(cint(mid(rs(0), 5, 7) + 1) for i = len(strid) to 6 strt = strt + 0 next i strid = strt + strid else strid = 0000001 end if strid = cstr(year(date) + strid strsql = insert into 病人信息庫(編號, 姓名, 性別, 年齡, strsql = strsql + 民族, 費用類型) values( + strid + , strsq

25、l = strsql + trim(txbname.text) + , + trim(cbbsex.text) + , strsql = strsql + trim(txbage.text) + , + trim(txbnation.text) + , strsql = strsql + trim(cbbmoneytype.text) + ) db.runselectsql (strsql) dim strpatientid as string strpatientid = strid strsql = select max(編號) as 編號 from 門診掛號 where 編號 like

26、strsql = strsql + cstr(year(date) + % set rs = db.runselectsql(strsql) if not isnull(rs(0) 0 then strt = strid = cstr(cint(mid(rs(0), 5, 7) + 1) for i = len(strid) to 7 strt = strt + 0 next i strid = strt + strid else strid = 0000001 end if strid = cstr(year(date) + strid strsql = insert into 門診掛號(編

27、號, 病人編號, 姓名, strsql = strsql + 性別, 掛號科室,費用類型, 掛號類型, 掛號費用,醫(yī)生, strsql = strsql + 時間, 是否已劃價) values( + strpatientid + , strsql = strsql + strid + , + trim(txbname.text) + , strsql = strsql + trim(cbbsex.text) + , + trim(cbbroomtype.text) strsql = strsql + , + trim(cbbmoneytype.text) + , strsql = strsql

28、 + trim(me.cbbregtype.text) + , + trim(me.txbmoney.text) strsql = strsql + , + trim(me.cbbdoctor.text) + , strsql = strsql + trim(me.txbtime.text) + ,否) db.runselectsql (strsql) clearend subprivate sub cbbregtype_click() select case me.cbbregtype.text case 普通號 1元 me.txbmoney.text = 1 case 專家號 20元 me

29、.txbmoney.text = 20 case 專家號 5元 me.txbmoney.text = 5 end selectend subprivate sub form_load() cbbregtype.additem (普通號 1元) cbbregtype.additem (專家號 5元) cbbregtype.additem (專家號 20元) cbbmoneytype.additem (自費) cbbmoneytype.additem (公費) cbbmoneytype.additem (離休) cbbsex.additem (男) cbbsex.additem (女) clear

30、end subprivate sub toolbar1_buttonclick(byval button as mscomctllib.button) if strcomp(button.key, btnnew) = 0 then clear elseif strcomp(button.key, btnsave) = 0 then if trim(txbage.text) = then msgbox 請輸入年齡 exit sub end if save elseif strcomp(button.key, btncancel) = 0 then clear elseif strcomp(but

31、ton.key, btnexit) = 0 then hide elseif strcomp(button.key, btnhj) = 0 then hide set formhuajia = new frmhuajia formhuajia.show end ifend sub點擊保存，將病人掛號信息存入門診掛號表，單擊劃價進(jìn)入進(jìn)價界面代碼如下：private sub btnadd_click() if len(trim(txbname.text) = 0 or _ len(trim(txbmxid.text) = 0 then exit sub end if calmxmoney fgde

32、tail.rows = fgdetail.rows + 1 fgdetail.textmatrix(fgdetail.rows - 1, 1) = trim(me.txbmxid.text) fgdetail.textmatrix(fgdetail.rows - 1, 2) = trim(me.txbmname.text) fgdetail.textmatrix(fgdetail.rows - 1, 3) = trim(me.txbprice.text) fgdetail.textmatrix(fgdetail.rows - 1, 4) = trim(me.txbnumber.text) fg

33、detail.textmatrix(fgdetail.rows - 1, 5) = trim(me.txbmmoney.text) fgdetail.textmatrix(fgdetail.rows - 1, 6) = trim(me.txbpy.text) clearmx caltotalmoney end subprivate sub btncancel_click() fgdetail.rows = 1end subprivate sub btndelete_click() if msgbox(你確定要刪除嗎？, vbyesno) = vbyes then fgdetail.remove

34、item fgdetail.row caltotalmoney end ifend subprivate sub btnmodify_click() fgdetail.textmatrix(fgdetail.row, 1) = trim(me.txbmxid.text) fgdetail.textmatrix(fgdetail.row, 2) = trim(me.txbmname.text) fgdetail.textmatrix(fgdetail.row, 3) = trim(me.txbprice.text) fgdetail.textmatrix(fgdetail.row, 4) = t

35、rim(me.txbnumber.text) fgdetail.textmatrix(fgdetail.row, 5) = trim(me.txbmmoney.text) fgdetail.textmatrix(fgdetail.row, 6) = trim(me.txbpy.text) caltotalmoneyend subprivate sub btnsave_click() if fgdetail.rows = 1 then exit sub end if dim strsql as string dim db as new databases strsql = select max(

36、編號) as 編號 from 門診劃價 where strsql = strsql + 編號 like + cstr(year(date) + % dim rs as recordset set rs = db.runselectsql(strsql) dim strt as string dim strid as string if not isnull(rs(0) then strt = strid = cstr(cint(mid(rs(0), 5, 7) + 1) for i = len(strid) to 7 strt = strt + 0 next i strid = strt +

37、strid else strid = 0000001 end if strid = cstr(year(date) + strid strsql = insert into 門診劃價(編號, 科室, 掛號編號, 醫(yī)生, strsql = strsql + 劃價時間, 劃價員, 是否收費,劃價金額, 是否發(fā)藥) strsql = strsql + values ( + strid + , + cbbroom.text + , strsql = strsql + trim(txbid.text) + , strsql = strsql + trim(cbbdoctor.text) + , strs

38、ql = strsql + cstr(date) + ,張三,否, strsql = strsql + trim(txbmoney.text) + ,否) for i = 1 to fgdetail.rows - 1 strsql = strsql + insert into 門診劃價明細(xì)(劃價編號, strsql = strsql + 藥品編號, 單價, 數(shù)量, 金額) values ( strsql = strsql + strid + , + fgdetail.textmatrix(i, 1) + , + fgdetail.textmatrix(i, 3) strsql = strsql

39、 + , + fgdetail.textmatrix(i, 4) + , + fgdetail.textmatrix(i, 5) + ) next db.runselectsql (strsql) strsql = update 門診掛號 set 是否已劃價=是 where 編號 = strsql = strsql + trim(txbid.text) + db.runselectsql (strsql) db.closeconn clearmx clear fgdetail.rows = 1end subprivate sub btnselect_click() dim frm as new

40、 frmselecthuajia frm.show vbmodal dim db as new databases dim strsql as string strsql = select * from 門診掛號 where 編號= strsql = strsql + trim(txbid) + and 是否已劃價=否 dim rs as recordset set rs = db.runselectsql(strsql) if not rs.eof then me.txbname.text = rs(姓名) me.txbsex.text = rs(性別) me.cbbdoctor.text

41、= rs(醫(yī)生) me.cbbroom.text = rs(掛號科室) end ifend subprivate sub calmxmoney() dim dprice as double dprice = cdbl(txbprice.text) dim icount as integer icount = cint(txbnumber.text) me.txbmmoney.text = cstr(dprice * icount) ttmoney = me.txbmoney.textend subprivate sub clear() me.txbid.text = me.txbmoney.t

42、ext = me.txbname.text = me.txbsex.text = end subprivate sub clearmx() me.txbmxid.text = me.txbmname.text = me.txbprice.text = 0 me.txbnumber.text = 1 me.txbmmoney.text = me.txbpy.text = end subprivate sub caltotalmoney() dim dtotal as double for i = 1 to fgdetail.rows - 1 dtotal = dtotal + cdbl(fgde

43、tail.textmatrix(i, 5) next me.txbmoney.text = cstr(dtotal)end subprivate sub command1_click() hideend subprivate sub fgdetail_selchange() me.txbmxid.text = fgdetail.textmatrix(fgdetail.row, 1) me.txbmname.text = fgdetail.textmatrix(fgdetail.row, 2) me.txbprice.text = fgdetail.textmatrix(fgdetail.row

44、, 3) me.txbnumber.text = fgdetail.textmatrix(fgdetail.row, 4) me.txbmmoney.text = fgdetail.textmatrix(fgdetail.row, 5) me.txbpy.text = fgdetail.textmatrix(fgdetail.row, 6)end subprivate sub form_load() dim db as new databases adodc1.connectionstring = db.sconn adodc2.connectionstring = db.sconn fgde

45、tail.cols = 7 fgdetail.rows = 1 fgdetail.textmatrix(0, 1) = 編號 fgdetail.textmatrix(0, 2) = 名稱 fgdetail.textmatrix(0, 3) = 單價 fgdetail.textmatrix(0, 4) = 數(shù)量 fgdetail.textmatrix(0, 5) = 金額 fgdetail.textmatrix(0, 6) = 拼音碼end subprivate sub txbnumber_keyup(keycode as integer, shift as integer) if keycod

46、e 58 then txbnumber.text = 1 end ifend subprivate sub txbnumber_lostfocus() calmxmoneyend subprivate sub txbpy_keypress(keyascii as integer) if keyascii = 13 then dim frm as new frmselecthuajiamx frm.show vbmodal dim db as new databases dim rs as recordset dim strsql as string strsql = select * from v收費項目及藥品 where 編號= strsql = strsql + trim(me.txbmxid.text) + set rs = db.runselectsql(strsql) if (not rs.eof) then me.txbpy.text = rs(拼音碼) me.txbmname.text = rs(名稱) me.txbprice.text =