mis課程設(shè)計(jì)報(bào)告---診所系統(tǒng)分析設(shè)計(jì)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：docx 頁數(shù)：34 大小：450.20KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

mis課程設(shè)計(jì)報(bào)告---診所系統(tǒng)分析設(shè)計(jì)_第1頁

已閱讀1頁，還剩33頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　MIS課程設(shè)計(jì)報(bào)告書　　(診所系統(tǒng)分析設(shè)計(jì))　　目錄：　　一.可行性分析………………………………………………………………… 4　　二.系統(tǒng)分析部分……………………………………………………………… 4&

2、lt;/p>　　1.業(yè)務(wù)流程圖……………………………………………………………… 5　　2.數(shù)據(jù)流程圖……………………………………………………………… 5　　3.功能分析圖……………………………………………………………… 6　　4.數(shù)據(jù)字典………………………………………………

3、………………… 7　　5.數(shù)據(jù)加工處理的描述…………………………………………………… 8　　6.管理信息系統(tǒng)流程設(shè)想圖……………………………………………… 9　　三.系統(tǒng)設(shè)計(jì)部分　　1.功能結(jié)構(gòu)圖設(shè)計(jì)……………………………

4、…………………………… 9　　2.新系統(tǒng)信息處理流程設(shè)計(jì)……………………………………………… 9　　3.輸出設(shè)計(jì)(主要指打印輸出設(shè)計(jì))……………………………………… 9　　4.存儲(chǔ)文件格式設(shè)計(jì)(數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì))………………………………… 9　　5.輸入設(shè)計(jì)

5、(主要指數(shù)據(jù)錄入卡設(shè)計(jì))…………………………………… 12　　6.代碼設(shè)計(jì)(職工證號(hào)和部門代號(hào)等)…………………………………… 14　　7.程序設(shè)計(jì)說明書………………………………………………………… 14　　四.系統(tǒng)實(shí)施部分

6、;　　1.程序框圖………………………………………………………………… 14　　2.源程序…………………………………………………………………… 18　　3.模擬運(yùn)行數(shù)據(jù)…………………………………………………………… 71　　4.打印報(bào)表………………………………………………………………… 72<

7、/p>　　5.系統(tǒng)使用說明書………………………………………………………… 72　　五.附錄或參考資料　　2008級(jí)MIS課程設(shè)計(jì)任務(wù)書　　1設(shè)計(jì)任務(wù)

8、;　　1.1設(shè)計(jì)目的　　通過本次設(shè)計(jì)，要求同學(xué)們能夠?qū)⑺鶎W(xué)到的信息系統(tǒng)分析方法與軟件設(shè)計(jì)技術(shù)及方法綜合運(yùn)用到實(shí)際信息系統(tǒng)的分析與設(shè)計(jì)中，提高同學(xué)們對(duì)軟件的綜合分析與設(shè)計(jì)能力，主要包括對(duì)數(shù)據(jù)的分析、組織能力，數(shù)據(jù)的提取、處理能力；軟件結(jié)構(gòu)的分析設(shè)計(jì)，復(fù)雜界面與輸入輸出設(shè)計(jì)能力；學(xué)習(xí)常用軟件開發(fā)工具的使用。　　1.2設(shè)計(jì)

9、要求　　結(jié)合所學(xué)習(xí)的系統(tǒng)分析與設(shè)計(jì)的具體方法，應(yīng)用程序設(shè)計(jì)的基本知識(shí)和數(shù)據(jù)庫知識(shí)進(jìn)行詳細(xì)的系統(tǒng)分析設(shè)計(jì)。具體要求如下：　　學(xué)習(xí)進(jìn)行相對(duì)復(fù)雜數(shù)據(jù)的分析與設(shè)計(jì)，建立合理的數(shù)據(jù)模型。　　學(xué)習(xí)使用VB的數(shù)據(jù)環(huán)境設(shè)計(jì)器和數(shù)據(jù)報(bào)表設(shè)計(jì)器進(jìn)行報(bào)表輸出設(shè)計(jì)。　　學(xué)習(xí)使

10、用visio工具進(jìn)行常用軟件圖形的繪制。　　進(jìn)一步熟練進(jìn)行軟件系統(tǒng)的界面設(shè)計(jì)，深入掌握界面設(shè)計(jì)元素。　　提供相應(yīng)的軟件設(shè)計(jì)報(bào)告。報(bào)告要求有系統(tǒng)的需求分析、系統(tǒng)流程圖、數(shù)據(jù)流程圖、軟件結(jié)構(gòu)圖、數(shù)據(jù)庫設(shè)計(jì)說明和軟件說明書。　　提供與設(shè)計(jì)報(bào)告相一致的軟件系統(tǒng)。　　每四人為一個(gè)課

11、題組，自由組合，檢查相應(yīng)的小組討論，討論結(jié)果計(jì)入平時(shí)成績(jī)。　　報(bào)告書寫規(guī)范見附件。　　2系統(tǒng)分析　　2.1系統(tǒng)分析概述　　系統(tǒng)分析就是根據(jù)系統(tǒng)調(diào)查中獲得的原始資料，對(duì)用戶組織內(nèi)部整體管理狀況和信息

12、處理堆積進(jìn)行分析，確定用戶需求，并建立系統(tǒng)邏輯模型的過程，著重于信息系統(tǒng)“做什么”，而不是“怎么做”。本部分就是在這個(gè)基礎(chǔ)上對(duì)系統(tǒng)業(yè)務(wù)流程和系統(tǒng)數(shù)據(jù)流程圖進(jìn)行分析。　　2.2可行性分析　　2.2.1目標(biāo)方案的可行性　　隨著計(jì)算機(jī)性能的不斷提高，計(jì)算機(jī)化的醫(yī)院信息系統(tǒng)已成為現(xiàn)代

13、化醫(yī)院運(yùn)營過程中必不可少的基礎(chǔ)設(shè)施與技術(shù)支撐環(huán)境。醫(yī)院信息系統(tǒng)利用電子計(jì)算機(jī)和通信設(shè)備為醫(yī)院所屬各部門提供病人診療信息和行政管理信息的收集、存儲(chǔ)、處理、提取和數(shù)據(jù)交換的能力，并滿足所有授權(quán)用戶的所有功能需求。　　2.2.2經(jīng)濟(jì)可行性　　現(xiàn)在，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。而本系統(tǒng)的開發(fā)，為醫(yī)院的工作效率帶來了一個(gè)質(zhì)的飛躍，為此主要表現(xiàn)有

14、以下幾個(gè)方面：　　第一，本系統(tǒng)的運(yùn)行可以代替人工進(jìn)行許多繁雜的勞動(dòng)；　　第二，本系統(tǒng)的運(yùn)行可以節(jié)省許多資源；　　第三，本系統(tǒng)的運(yùn)行可以大大的提高醫(yī)院的工作效率；　　第四，本系統(tǒng)可以使敏感文檔更加安全，等等。　　所以，本系統(tǒng)在經(jīng)濟(jì)上

15、是可行的。　　2.2.3技術(shù)可行性　　本系統(tǒng)的開發(fā)利用Microsoft SQL Server2000作為本系統(tǒng)的數(shù)據(jù)庫，它是一個(gè)支持多用戶的新型數(shù)據(jù)庫，適用于大中規(guī)模的數(shù)據(jù)量需求。學(xué)校校園網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。　　使用Visual Basic6.0作為系統(tǒng)開發(fā)的開發(fā)環(huán)境，它作為

16、一種現(xiàn)代的編程語言，提供完善的指令控制語句、類與對(duì)象的支持及豐富的數(shù)據(jù)類型，給開發(fā)高性能系統(tǒng)提供的保障為開發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對(duì)新系統(tǒng)的擴(kuò)展與修改。　　綜上所述，本系統(tǒng)的設(shè)計(jì)與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。　　2.2.4運(yùn)行可行性&l

17、t;p>　　本系統(tǒng)為一個(gè)小型的診所管理系統(tǒng)，所耗費(fèi)的資源非常的小，診所的電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統(tǒng)在運(yùn)行上是可行的。　　2.3系統(tǒng)需求分析　　由于本系統(tǒng)設(shè)計(jì)針對(duì)小區(qū)診所的具體情況，因此用戶需求的目的是通過該小區(qū)診所的需求調(diào)查，從中總結(jié)出診所對(duì)管理信息系統(tǒng)的需求，然后根據(jù)這些需求設(shè)計(jì)出系統(tǒng)

18、的方案。　　診所管理分為前臺(tái)管理系統(tǒng)和后臺(tái)管理系統(tǒng)兩部分，診所前臺(tái)系統(tǒng)主要負(fù)責(zé)掛號(hào)、劃價(jià)、收費(fèi)工作，后臺(tái)管理系統(tǒng)主要負(fù)責(zé)藥品、庫存信息的查詢、門診掛號(hào)的統(tǒng)計(jì)、以及病人資料的管理，系統(tǒng)的維護(hù)等工作。　　所以該系統(tǒng)由基礎(chǔ)維護(hù)、門診管理、院長查詢?nèi)竽K組成。其中基礎(chǔ)維護(hù)包括藥品信息維護(hù)和收費(fèi)項(xiàng)目維護(hù)，門診管理包括掛號(hào)管理、劃價(jià)管理、收費(fèi)管理和藥房發(fā)放，院長查

19、詢包括科室掛號(hào)量和庫存統(tǒng)計(jì)。　　2.4業(yè)務(wù)流程圖　　2.5數(shù)據(jù)流程圖　　2.6系統(tǒng)組織結(jié)構(gòu)分析圖　　2.7業(yè)務(wù)流程分析

20、;　　2.8數(shù)據(jù)流程分析　　根據(jù)上述的業(yè)務(wù)流程，對(duì)其中的數(shù)據(jù)處理、數(shù)據(jù)存儲(chǔ)以及數(shù)據(jù)流動(dòng)過程進(jìn)行抽象，得到了系統(tǒng)的邏輯模型，即系統(tǒng)的數(shù)據(jù)流程圖。　　2.9數(shù)據(jù)字典　　藥品庫存表&

21、lt;p>　　藥品資料表　　門診劃價(jià)表　　門診劃價(jià)明細(xì)表　　2.10系統(tǒng)各模塊詳細(xì)的業(yè)務(wù)流程圖　　3系統(tǒng)設(shè)計(jì)<

22、;/p>　　3.1系統(tǒng)設(shè)計(jì)概述及設(shè)計(jì)原則　　系統(tǒng)設(shè)計(jì)階段是開發(fā)管理信息系統(tǒng)的關(guān)鍵環(huán)節(jié)之一,因此它的工件質(zhì)量直接影響到新系統(tǒng)的穩(wěn)定性、可靠性、精確性和運(yùn)行費(fèi)用的高低。所以，整個(gè)系統(tǒng)設(shè)計(jì)過程的各項(xiàng)工作都必須按照科學(xué)的方法和原則進(jìn)行。　　系統(tǒng)設(shè)計(jì)原則：

23、　　1) 系統(tǒng)運(yùn)行安全可靠，穩(wěn)定性好； 　　2) 系統(tǒng)的可管理性和可維護(hù)性好； 　　3) 系統(tǒng)輸入界面友好，操作簡(jiǎn)便易行，盡量減少用戶的輸入工作量； 　　4）允許多種數(shù)據(jù)輸入方式，能實(shí)現(xiàn)多種查詢，允許進(jìn)行模糊查詢； 　　5）數(shù)據(jù)具有規(guī)范性，整體性，方便數(shù)據(jù)之間的比較分析。

24、　　3.2系統(tǒng)設(shè)計(jì)模塊　　權(quán)限管理　　主要是用戶的等級(jí)和權(quán)限的劃分。分３級(jí)用戶：管理員用戶、院長用戶、普通用戶，權(quán)限可以自定義添加和刪除。　　門診掛號(hào)管理&l

25、t;/p>　　建立和維護(hù)病人的索引信息，分配病人的ID號(hào)，確保病人信息的唯一性，為病人建立就診卡，對(duì)門診病人進(jìn)行掛號(hào)，為門診病人的后續(xù)活動(dòng)以及門診工作量統(tǒng)計(jì)提供信息。　　門診劃價(jià)收費(fèi)管理　　用于門診收費(fèi)處記錄病人的繳費(fèi)信息，并執(zhí)行相應(yīng)的統(tǒng)計(jì)核算功能。門診劃價(jià)用于完成門診病人的各種處方、檢查

26、申請(qǐng)、治療申請(qǐng)等診治費(fèi)用的計(jì)價(jià)工作；門診收費(fèi)用于完成門診病人各種各種診治費(fèi)用的收取工作，能夠依據(jù)劃價(jià)單查詢病人劃價(jià)信息，進(jìn)行費(fèi)用收取處理，并保存操作記錄備查。　　藥房管理　　用于管理醫(yī)院藥房的采購、入庫及出庫等業(yè)務(wù)。　　打印報(bào)表</

27、p>　　可以打印病人的藥品明細(xì)單和收費(fèi)票據(jù)。　　3.3編碼設(shè)計(jì)　　編碼是指代表事物名稱、屬性、狀態(tài)等的符號(hào)，它以簡(jiǎn)短的符號(hào)形式代替具體的文字說明。如中國郵政編碼采用了一種6位的編碼來表示省市、地區(qū)等信息。設(shè)計(jì)出一個(gè)好的編碼方案對(duì)系統(tǒng)的開發(fā)工作具有重要作用。<p

28、>　　1、編碼能反映數(shù)據(jù)或信息間的邏輯關(guān)系，并使其具有唯一性。　　2、信息編碼化便于利用計(jì)算機(jī)進(jìn)行信息或數(shù)據(jù)的識(shí)別和處理。　　3、利用編碼可以節(jié)省計(jì)算機(jī)課的存儲(chǔ)空間、提高運(yùn)行速度。　　4、利用編碼可以提高系統(tǒng)的可靠性。　　常用的編碼主要有順序碼、區(qū)間碼、助記碼和縮寫

29、碼。　　下面對(duì)商品編號(hào)的編碼設(shè)計(jì)進(jìn)行介紹。　　代碼名稱：商品編號(hào) 代碼類型：區(qū)間碼代碼長度：8位　　前三位代表類別,后五位為內(nèi)部順序碼。　　3.4輸入/輸出設(shè)計(jì)　　系統(tǒng)輸入/輸出（I/O)設(shè)計(jì)是在系統(tǒng)設(shè)計(jì)中很容易被忽視的環(huán)節(jié)，又

30、是一個(gè)很重要的環(huán)節(jié)，它對(duì)于用戶和今后系統(tǒng)使用的方便和安全可靠性來說都是非常重要的。一個(gè)好的輸入系統(tǒng)設(shè)計(jì)可以為用戶和系統(tǒng)雙方帶來良好的工作環(huán)境，一個(gè)好的輸出系統(tǒng)可以為管理者提供簡(jiǎn)潔、明了、實(shí)用的管理和控制信息。　　輸入設(shè)計(jì)包括輸入方式設(shè)計(jì)、用戶界面設(shè)計(jì)。在本系統(tǒng)中，輸入幾乎都是采用鍵盤輸入，鍵盤輸入與用戶界面設(shè)計(jì)是緊密聯(lián)系在一起的。設(shè)計(jì)時(shí)本著方便用戶的原則，主要采用了以下措施：

31、　　(1) 注意保證各個(gè)模塊的輸入格式一致，方便用戶使用不同的模塊。　　(2) 嚴(yán)格的檢錯(cuò)措施。盡量減少用戶的輸入，以減少出錯(cuò)羈旅；對(duì)用戶的輸入內(nèi)容作空格、非法字符等檢驗(yàn)。　　(3) 使用菜單方式，使得條例清晰、邏輯性強(qiáng)。　　(4) 關(guān)鍵性的強(qiáng)調(diào)和警告：對(duì)于數(shù)據(jù)庫的更新、刪除及用戶登錄等操作

32、，利用提問的方式來幫助用戶進(jìn)一步來幫助用戶進(jìn)一步確認(rèn)操作的有效性。　　一個(gè)好的輸出設(shè)計(jì)不僅可以贏得用戶的好評(píng)，更重要的是可以為用戶提供簡(jiǎn)潔、明了、有效、實(shí)用的管理和控制信息。　　為適應(yīng)診所日常管理的需要提供對(duì)內(nèi)對(duì)外的報(bào)告和單據(jù)，本系統(tǒng)主要采用屏幕輸出和打印輸出。屏幕輸出主要是滿足日常管理的需要，用于查詢結(jié)果的顯示；而打印輸出主要是為了提供對(duì)內(nèi)對(duì)外的報(bào)告和

33、單據(jù)。　　4系統(tǒng)實(shí)施　　4.1系統(tǒng)配置　　（1）硬件環(huán)境CPU賽揚(yáng)1.2，內(nèi)存64Mb以上，硬盤3G以上。　?。?）軟件環(huán)境各種操作系統(tǒng)，如：windows98/windowsxp/windos2

34、000。　　4.2系統(tǒng)菜單　　系統(tǒng)菜單包括門診管理、院長查詢、項(xiàng)目信息、幫助。門診管理包含門診掛號(hào)、門診劃價(jià)、門診收費(fèi)和藥品發(fā)放子菜單：院長查詢包括科室掛號(hào)量、藥品庫存子菜單；項(xiàng)目信息包括藥品庫存和藥品信息子菜單。　　4.3系統(tǒng)窗口及源代碼<p&

35、gt;　　登陸界面，代碼如下： 　　Private Sub btnExit_Click()　　Unload Me　　End Sub　　Private Sub btnLogin_Click()<

36、;/p>　　Dim Psw1, Psw2, Psw3 As String　　Psw1 = "user"　　Psw2 = "lead"　　Psw3 = "admin"　　If Combo

37、User.Text = "用戶" Then　　If txbPsw.Text = Psw1 Then　　Me.Hide　　frmAbout.Show　　Else

38、;　　MsgBox "密碼錯(cuò)誤！"　　txbPsw.Text = ""　　End If　　QuanXian = 1　　End If&l

39、t;/p>　　If ComboUser.Text = "院長" Then　　If txbPsw.Text = Psw2 Then　　Me.Hide　　frmAbout.Show<b

40、>　　Else　　MsgBox "密碼錯(cuò)誤！"　　txbPsw.Text = ""　　End If　　QuanXian = 2

41、　　End If　　If ComboUser.Text = "管理員" Then　　If txbPsw.Text = Psw3 Then　　Me.Hide　　frmAbout.

42、Show　　Else　　MsgBox "密碼錯(cuò)誤！"　　txbPsw.Text = ""　　End If　　Qua

43、nXian = 3　　End If　　Dim db As New Databases　　Dim strSQL As String　　strSQL = "insert into 登錄信息( 用戶類型編號(hào),登錄時(shí)間) value

44、s ('"　　strSQL = strSQL + Trim(QuanXian) + "','"　　strSQL = strSQL + CStr(Date) + "')"　　db.RunSelectSQL (strSQL)</p

45、>　　End Sub　　Private Sub Form_Load()　　ComboUser.AddItem ("用戶")　　ComboUser.AddItem ("院長")<p

46、>　　ComboUser.AddItem ("管理員")　　End Sub　　Private Sub Timer1_Timer()　　Label4.Caption = Format(Now, "AMPM(hh:mm:ss)")&l

47、t;/p>　　End Sub　　所有用戶進(jìn)入系統(tǒng)簡(jiǎn)介界面　　代碼如下：　　Private Sub Command1_Click()　　Me.Hide&

48、lt;/b>　　frmMain.Show　　End Sub　　點(diǎn)擊確定，進(jìn)入系統(tǒng)主界面　　代碼如下：　　Private Sub mnCash_Cli

49、ck()　　Dim frm As New frmCash　　If QuanXian = 3 Then　　frm.Show　　Else　　MsgBox &q

50、uot;你無權(quán)查看此信息！"　　End If　　End Sub　　Private Sub Exit_Click()　　End

51、　　End Sub　　Private Sub mnGHL_Click()　　Dim frm As New frmGHL　　If QuanXian = 1 Then　　MsgBox "你無權(quán)查看此信息！&qu

52、ot;　　Else　　frm.Show　　End If　　End Sub　　P

53、rivate Sub mnGuaHao_Click()　　Dim frm As New frmGuaHao　　frm.Show　　End Sub　　Private Sub mnHuaJia_Cli

54、ck()　　Set formHuaJia = New frmHuaJia　　formHuaJia.Show　　End Sub　　Private Sub mnKCL_Click()　　Dim f

55、rm As New frmKCL　　If QuanXian = 1 Then　　MsgBox "你無權(quán)查看此信息！"　　Else　　frm.Show&l

56、t;p>　　End If　　End Sub　　Private Sub mnLogin_Click()　　Dim frm As New frmLoginCX　　If QuanXian = 1

57、Then　　MsgBox "你無權(quán)查看此信息！"　　Else　　frm.Show　　End If

58、　　End Sub　　Private Sub mnMedicine_Click()　　Dim frm As New frmMedicine　　If QuanXian = 3 Then　　frm.Show</b&

59、gt;　　Else　　MsgBox "你無權(quán)查看此信息！"　　End If　　End Sub

60、Private Sub mnShouFei_Click()　　Dim frm As New frmShouFei　　frm.Show　　End Sub　　Private Sub mnZhuXiao

61、_Click()　　Me.Hide　　frmLogin.Show　　End Sub　　點(diǎn)擊門診管理門診掛號(hào)，進(jìn)入門診掛號(hào)界面，該界面代碼如下：　　Pr

62、ivate Sub Clear()　　Me.txbName.Text = ""　　Me.cbbSex.Text = "男"　　Me.txbAge.Text = ""　　Me.txbMoney.Text = &qu

63、ot;"　　Me.txbName.Text = ""　　Me.txbTime.Text = CStr(Date)　　Me.txbNation.Text = "漢族"　　Me.cbbMoneyType.Text = &quo

64、t;自費(fèi)"　　Me.cbbRegType.Text = "普通號(hào)"　　Dim db As New Databases　　Dim rs As Recordset　　Set rs = db.RunSelectSQL("select 編號(hào)

65、,名稱 from 科室資料")　　Set Me.cbbRoomType.RowSource = rs　　Me.cbbRoomType.ListField = "名稱"　　Set rs = db.RunSelectSQL("select 編號(hào),姓名 from 醫(yī)生資料&quo

66、t;)　　Set Me.cbbDoctor.RowSource = rs　　Me.cbbDoctor.ListField = "姓名"　　End Sub　　Private Sub Save()

67、　　Dim iAge As Integer　　iAge = 0　　iAge = CInt(Trim(txbAge.Text))　　Dim strSQL As String　　strSQL = "selec

68、t max(編號(hào)) as 編號(hào) "　　strSQL = strSQL + " from 病人信息庫 where 編號(hào) like '"　　strSQL = strSQL + CStr(Year(Date)) + "%'"　　Dim db As New

69、 Databases　　Dim rs As Recordset　　Dim strT As String　　Dim strId As String　　Set rs = db.RunSelectSQL(strSQL)　　If Not

70、IsNull(rs(0)) Then　　strT = ""　　strId = CStr(CInt(Mid(rs(0), 5, 7)) + 1)　　For i = Len(strId) To 6　　strT = st

71、rT + "0"　　Next i　　strId = strT + strId　　Else　　strId = "0000001"<

72、;p>　　End If　　strId = CStr(Year(Date)) + strId　　strSQL = "insert into 病人信息庫(編號(hào), 姓名, 性別, 年齡, "　　strSQL = strSQL + "民族, 費(fèi)用類

73、型) values('" + strId + "','"　　strSQL = strSQL + Trim(txbName.Text) + "','" + Trim(cbbSex.Text) + "','"　　strSQL = st

74、rSQL + Trim(txbAge.Text) + "','" + Trim(txbNation.Text) + "','"　　strSQL = strSQL + Trim(cbbMoneyType.Text) + "')"　　db.RunSelectS

75、QL (strSQL)　　Dim strPatientId As String　　strPatientId = strId　　strSQL = "select max(編號(hào)) as 編號(hào) from 門診掛號(hào) where 編號(hào) like '"

76、strSQL = strSQL + CStr(Year(Date)) + "%'"　　Set rs = db.RunSelectSQL(strSQL)　　If Not IsNull(rs(0)) <> 0 Then　　strT = ""

77、　　strId = CStr(CInt(Mid(rs(0), 5, 7) + 1))　　For i = Len(strId) To 7　　strT = strT + "0"　　Next i<

78、;/p>　　strId = strT + strId　　Else　　strId = "0000001"　　End If　　strId = CStr(

79、Year(Date)) + strId　　strSQL = "insert into 門診掛號(hào)(編號(hào), 病人編號(hào), 姓名, "　　strSQL = strSQL + "性別, 掛號(hào)科室,費(fèi)用類型, 掛號(hào)類型, 掛號(hào)費(fèi)用,醫(yī)生,"　　strSQL = strSQL + &q

80、uot;時(shí)間, 是否已劃價(jià)) values('" + strPatientId + "','"　　strSQL = strSQL + strId + "','" + Trim(txbName.Text) + "','"　　strS

81、QL = strSQL + Trim(cbbSex.Text) + "','" + Trim(cbbRoomType.Text)　　strSQL = strSQL + "','" + Trim(cbbMoneyType.Text) + "','"

82、　strSQL = strSQL + Trim(Me.cbbRegType.Text) + "'," + Trim(Me.txbMoney.Text)　　strSQL = strSQL + ",'" + Trim(Me.cbbDoctor.Text) + "','"

83、;　　strSQL = strSQL + Trim(Me.txbTime.Text) + "','否')"　　db.RunSelectSQL (strSQL)　　Clear　　End Sub&l

84、t;/p>　　Private Sub cbbRegType_Click()　　Select Case Me.cbbRegType.Text　　Case "普通號(hào) 1元"　　Me.txbMoney.Text = "1"<

85、;p>　　Case "專家號(hào) 20元"　　Me.txbMoney.Text = "20"　　Case "專家號(hào) 5元"　　Me.txbMoney.Text = "5"　　End Sele

86、ct　　End Sub　　Private Sub Form_Load()　　cbbRegType.AddItem ("普通號(hào) 1元")　　cbbRegType.AddItem ("專家號(hào) 5元"

87、)　　cbbRegType.AddItem ("專家號(hào) 20元")　　cbbMoneyType.AddItem ("自費(fèi)")　　cbbMoneyType.AddItem ("公費(fèi)")　　cbbMoneyType.

88、AddItem ("離休")　　cbbSex.AddItem ("男")　　cbbSex.AddItem ("女")　　Clear　　End Sub<

89、/b>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)　　If StrComp(Button.Key, "btnNew") = 0 Then　　Clear&l

90、t;/p>　　ElseIf StrComp(Button.Key, "btnSave") = 0 Then　　If Trim(txbAge.Text) = "" Then　　MsgBox "請(qǐng)輸入年齡"　　E

91、xit Sub　　End If　　Save　　ElseIf StrComp(Button.Key, "btnCancel") = 0 Then<b&g

92、t;　　Clear　　ElseIf StrComp(Button.Key, "btnExit") = 0 Then　　Hide　　ElseIf StrComp(Button.Key, "btnHJ") = 0 The

93、n　　Hide　　Set formHuaJia = New frmHuaJia　　formHuaJia.Show　　End If　　En

94、d Sub　　點(diǎn)擊保存，將病人掛號(hào)信息存入門診掛號(hào)表，單擊劃價(jià)進(jìn)入進(jìn)價(jià)界面　　代碼如下：　　Private Sub btnAdd_Click()　　If Len(Trim(txbName.Text)) = 0 Or

95、 _　　Len(Trim(txbMXID.Text)) = 0 Then　　Exit Sub　　End If　　CalMXMoney　　fgDetail.

96、Rows = fgDetail.Rows + 1　　fgDetail.TextMatrix(fgDetail.Rows - 1, 1) = Trim(Me.txbMXID.Text)　　fgDetail.TextMatrix(fgDetail.Rows - 1, 2) = Trim(Me.txbMName.Text)<p&g

97、t;　　fgDetail.TextMatrix(fgDetail.Rows - 1, 3) = Trim(Me.txbPrice.Text)　　fgDetail.TextMatrix(fgDetail.Rows - 1, 4) = Trim(Me.txbNumber.Text)　　fgDetail.TextMatrix(fgDetail.Rows - 1

98、, 5) = Trim(Me.txbMMoney.Text)　　fgDetail.TextMatrix(fgDetail.Rows - 1, 6) = Trim(Me.txbPY.Text)　　ClearMX　　CalTotalMoney<p&g

99、t;　　End Sub　　Private Sub btnCancel_Click()　　fgDetail.Rows = 1　　End Sub　　Private Sub btnDelete_Clic

100、k()　　If MsgBox("你確定要?jiǎng)h除嗎？", vbYesNo) = vbYes Then　　fgDetail.RemoveItem fgDetail.Row　　CalTotalMoney　　End If&l

101、t;/p>　　End Sub　　Private Sub btnModify_Click()　　fgDetail.TextMatrix(fgDetail.Row, 1) = Trim(Me.txbMXID.Text)　　fgDetail.TextMa

102、trix(fgDetail.Row, 2) = Trim(Me.txbMName.Text)　　fgDetail.TextMatrix(fgDetail.Row, 3) = Trim(Me.txbPrice.Text)　　fgDetail.TextMatrix(fgDetail.Row, 4) = Trim(Me.txbNumber.Text)</

103、p>　　fgDetail.TextMatrix(fgDetail.Row, 5) = Trim(Me.txbMMoney.Text)　　fgDetail.TextMatrix(fgDetail.Row, 6) = Trim(Me.txbPY.Text)　　CalTotalMoney&l

104、t;b>　　End Sub　　Private Sub btnSave_Click()　　If fgDetail.Rows = 1 Then　　Exit Sub　　End If</b&g

105、t;　　Dim strSQL As String　　Dim db As New Databases　　strSQL = "select max(編號(hào)) as 編號(hào) from 門診劃價(jià) where "　　strSQL = strSQL + "編

106、號(hào) like '" + CStr(Year(Date)) + "%'"　　Dim rs As Recordset　　Set rs = db.RunSelectSQL(strSQL)　　Dim strT As String　　D

107、im strId As String　　If Not IsNull(rs(0)) Then　　strT = ""　　strId = CStr(CInt(Mid(rs(0), 5, 7)) + 1)　　For i =

108、 Len(strId) To 7　　strT = strT + "0"　　Next i　　strId = strT + strId　　Else<p

109、>　　strId = "0000001"　　End If　　strId = CStr(Year(Date)) + strId　　strSQL = " Insert into 門診劃價(jià)(編號(hào), 科室, 掛號(hào)編號(hào), 醫(yī)生, "<

110、/p>　　strSQL = strSQL + "劃價(jià)時(shí)間, 劃價(jià)員, 是否收費(fèi),劃價(jià)金額, 是否發(fā)藥) "　　strSQL = strSQL + "values ('" + strId + "','" + cbbRoom.Text + "','"&l

111、t;/p>　　strSQL = strSQL + Trim(txbID.Text) + "','"　　strSQL = strSQL + Trim(cbbDoctor.Text) + "','"　　strSQL = strSQL + CStr(Date)

112、+ "','張三','否',"　　strSQL = strSQL + Trim(txbMoney.Text) + ",'否') "　　For i = 1 To fgDetail.Rows - 1　　strSQL =

113、strSQL + " Insert into 門診劃價(jià)明細(xì)(劃價(jià)編號(hào),"　　strSQL = strSQL + " 藥品編號(hào), 單價(jià), 數(shù)量, 金額) values ('"　　strSQL = strSQL + strId + "','" + fgDetail.Text

114、Matrix(i, 1) + "','" + fgDetail.TextMatrix(i, 3)　　strSQL = strSQL + "','" + fgDetail.TextMatrix(i, 4) + "','" + fgDetail.TextMatrix(i, 5) + "

115、;') "　　Next　　db.RunSelectSQL (strSQL)　　strSQL = " update 門診掛號(hào) set 是否已劃價(jià)='是' where 編號(hào) = '"<p

116、>　　strSQL = strSQL + Trim(txbID.Text) + "'"　　db.RunSelectSQL (strSQL)　　db.CloseConn　　ClearMX

117、;　　Clear　　fgDetail.Rows = 1　　End Sub　　Private Sub btnSelect_Click()　　Dim frm As New frmSelectHuaJia</p&g

118、t;　　frm.Show vbModal　　Dim db As New Databases　　Dim strSQL As String　　strSQL = "select * from 門診掛號(hào) where 編號(hào)='"

119、strSQL = strSQL + Trim(txbID) + "' and 是否已劃價(jià)='否'"　　Dim rs As Recordset　　Set rs = db.RunSelectSQL(strSQL)　　If Not rs.EOF Then

120、　　Me.txbName.Text = rs("姓名")　　Me.txbSex.Text = rs("性別")　　Me.cbbDoctor.Text = rs("醫(yī)生")　　Me.cbbRoom.Text = rs("掛號(hào)科

121、室")　　End If　　End Sub　　Private Sub CalMXMoney()　　Dim dPrice As Double　　dP

122、rice = CDbl(txbPrice.Text)　　Dim iCount As Integer　　iCount = CInt(txbNumber.Text)　　Me.txbMMoney.Text = CStr(dPrice * iCount)　　TTMoney = M

123、e.txbMoney.Text　　End Sub　　Private Sub Clear()　　Me.txbID.Text = ""　　Me.txbMoney.Text = ""

124、;　　Me.txbName.Text = ""　　Me.txbSex.Text = ""　　End Sub　　Private Sub ClearMX()　　Me.txbMX

125、ID.Text = ""　　Me.txbMName.Text = ""　　Me.txbPrice.Text = "0"　　Me.txbNumber.Text = "1"　　Me.txbMMon

126、ey.Text = ""　　Me.txbPY.Text = ""　　End Sub　　Private Sub CalTotalMoney()　　Dim dTotal As Double</

127、p>　　For i = 1 To fgDetail.Rows - 1　　dTotal = dTotal + CDbl(fgDetail.TextMatrix(i, 5))　　Next　　Me.txbMoney.Text = CStr(dTotal)

128、　　End Sub　　Private Sub Command1_Click()　　Hide　　End Sub　　Pr

129、ivate Sub fgDetail_SelChange()　　Me.txbMXID.Text = fgDetail.TextMatrix(fgDetail.Row, 1)　　Me.txbMName.Text = fgDetail.TextMatrix(fgDetail.Row, 2)　　Me.txbPrice.

130、Text = fgDetail.TextMatrix(fgDetail.Row, 3)　　Me.txbNumber.Text = fgDetail.TextMatrix(fgDetail.Row, 4)　　Me.txbMMoney.Text = fgDetail.TextMatrix(fgDetail.Row, 5)<p&g

131、t;　　Me.txbPY.Text = fgDetail.TextMatrix(fgDetail.Row, 6)　　End Sub　　Private Sub Form_Load()　　Dim db As New Databases

132、Adodc1.ConnectionString = db.sConn　　Adodc2.ConnectionString = db.sConn　　fgDetail.Cols = 7　　fgDetail.Rows = 1　　fgDetail.TextMatrix(0, 1)

133、= "編號(hào)"　　fgDetail.TextMatrix(0, 2) = "名稱"　　fgDetail.TextMatrix(0, 3) = "單價(jià)"　　fgDetail.TextMatrix(0, 4) = "數(shù)量"

134、;　　fgDetail.TextMatrix(0, 5) = "金額"　　fgDetail.TextMatrix(0, 6) = "拼音碼"　　End Sub　　Private Sub txbNumber_KeyU

135、p(KeyCode As Integer, Shift As Integer)　　If KeyCode < 48 Or KeyCode > 58 Then　　txbNumber.Text = "1"　　End If<

136、;p>　　End Sub　　Private Sub txbNumber_LostFocus()　　CalMXMoney　　End Sub　　Private Sub txbPY_KeyPres

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

mis課程設(shè)計(jì)報(bào)告---診所系統(tǒng)分析設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

mis課程設(shè)計(jì)報(bào)告---診所系統(tǒng)分析設(shè)計(jì)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載