數(shù)據(jù)庫(kù)課程設(shè)計(jì)--門(mén)診收費(fèi)管理系統(tǒng)

1、精品文檔 成 績(jī) 評(píng) 定 表學(xué)生姓名班級(jí)學(xué)號(hào)專 業(yè)課程設(shè)計(jì)題目評(píng)語(yǔ)組長(zhǎng)簽字：成績(jī)?nèi)掌?2021 年12月 日課程設(shè)計(jì)任務(wù)書(shū)學(xué) 院專 業(yè)學(xué)生姓名班級(jí)學(xué)號(hào)課程設(shè)計(jì)題目實(shí)踐教學(xué)要求與任務(wù):工作方案與進(jìn)度安排:第一周：數(shù)據(jù)庫(kù)設(shè)計(jì)，利用SQL Server創(chuàng)立數(shù)據(jù)庫(kù)及數(shù)據(jù)表。 總體結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)調(diào)試系統(tǒng)首頁(yè)、登陸窗體及MDI窗體。第二周：管理功能設(shè)計(jì)，設(shè)計(jì)調(diào)試各種數(shù)據(jù)管理功能窗體及打印報(bào)表功能。 撰寫(xiě)課程設(shè)計(jì)報(bào)告，驗(yàn)收與辯論。指導(dǎo)教師： 2021年 12月 日專業(yè)負(fù)責(zé)人：2021年 12月 日學(xué)院教學(xué)副院長(zhǎng)：2021 年12月 日摘 要本系統(tǒng)的主要功能是建立門(mén)診收費(fèi)管理系統(tǒng)，對(duì)藥品信息、治療信息和病人信

2、息的管理和查詢。本系統(tǒng)的數(shù)據(jù)庫(kù)是用SQL server 2000軟件進(jìn)行創(chuàng)立與設(shè)計(jì)，分別包括藥品信息表、病人信息表、治療信息表、檢查信息表四個(gè)表。通過(guò)系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)立的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫(kù)相連。利用VB軟件對(duì)系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，包括歡送界面、登錄界面、注冊(cè)新用戶界面、主界面、瀏覽窗體和查詢窗體等，可以通過(guò)這些窗體進(jìn)行登錄操作，對(duì)輸入的用戶信息進(jìn)行驗(yàn)證，和注冊(cè)新用戶操作，以及最重要的操作是對(duì)數(shù)據(jù)庫(kù)中信息進(jìn)行修改與查詢。并可以對(duì)數(shù)據(jù)進(jìn)行添加與刪除，做到及時(shí)更新關(guān)鍵詞： 門(mén)診收費(fèi)管理；SQL server 2000；VB;查詢目 錄第1章 系統(tǒng)功能概述11.1 系統(tǒng)功能11.2 系統(tǒng)

3、總體總圖1第2章 數(shù)據(jù)庫(kù)設(shè)計(jì)22.1 需求分析22.2 E-R模型32.3 關(guān)系模型32.4 表結(jié)構(gòu)設(shè)計(jì)4第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)53.1 各窗體的設(shè)計(jì)：53.2 主頁(yè)面53.3 登錄窗體63.4 MDI主窗體83.5 注冊(cè)新用戶93.6 顧客信息113.7 員工信息163.8 顧客信息查詢193.9 員工信息查詢21總 結(jié)23參考文獻(xiàn)24歡迎下載精品文檔第1章 系統(tǒng)功能概述1.1 系統(tǒng)功能門(mén)診收費(fèi)管理系統(tǒng)主要實(shí)現(xiàn)了藥品信息管理、病人信息管理、治療信息管理。設(shè)計(jì)為MDI窗體，含有主菜單：開(kāi)始、管理、信息查詢、 開(kāi)始菜單包含以下子菜單及其功能：注冊(cè)新用戶菜單：翻開(kāi)“注冊(cè)新用戶窗體登陸：轉(zhuǎn)

4、到登陸頁(yè)面 管理 包含以下子菜單：藥品信息管理菜單：顯示藥品信息瀏覽和編輯窗體檢查信息管理菜單：顯示病人信息瀏覽和編輯窗體 信息查詢包含以下子菜單： 藥品信息查詢：顯示藥品信息查詢窗體病人信息查詢：顯示病人信息查詢窗體治療信息查詢：顯示治療信息查詢窗體第2章 數(shù)據(jù)庫(kù)設(shè)計(jì)2.1 需求分析這個(gè)是為某個(gè)門(mén)診準(zhǔn)備的門(mén)診收費(fèi)管理系統(tǒng)，這個(gè)系統(tǒng)需要處理四種信息。首先作為數(shù)據(jù)庫(kù)設(shè)計(jì)人員，需要知道所需信息：藥品信息：藥品編號(hào)、單位、數(shù)量、名稱、價(jià)格。病人信息：姓名、性別、備注、應(yīng)付金額、實(shí)付金額、檢查類型、治療類型、藥品類型。治療信息：治療編號(hào)、名稱、價(jià)格、主治醫(yī)師。檢查信息：檢查編號(hào)、名稱、價(jià)格等信息。然后

5、作為數(shù)據(jù)庫(kù)設(shè)計(jì)人員需要考慮系統(tǒng)的處理要求。這個(gè)系統(tǒng)的適用對(duì)象是門(mén)診的管理人員，比方收銀員之類的人員才能夠使用。所以設(shè)有登錄系統(tǒng)，只有注冊(cè)過(guò)的工作人員才能使用這個(gè)系統(tǒng)。另外應(yīng)該有查詢、添加、刪除、修改功能，可以進(jìn)行查詢?nèi)绮∪诉M(jìn)行了什么檢查，使用了什么藥品等信息。而管理人員坑爹不可能只有一名，所以還有注冊(cè)功能，可以進(jìn)行用戶注冊(cè)，并且自己設(shè)置密碼。2.2 E-R模型病人信息檢查治療信息屬于治療信息屬于檢查信息檢查類型1nn1n 圖2.21 全局E-Rn2.3 關(guān)系模型1藥品信息：藥品編號(hào)、單位、數(shù)量、名稱、價(jià)格2病人信息：姓名、性別、備注、應(yīng)付金額、實(shí)付金額、檢查類型、治療類型、藥品類型3治療信息：

6、治療編號(hào)、名稱、價(jià)格、主治醫(yī)師4檢查信息：檢查編號(hào)、名稱、價(jià)格5密碼表:(用戶名、密碼)2.4 表結(jié)構(gòu)設(shè)計(jì) 圖2.41 藥品信息表 圖2.42 病人信息表 圖2.43 治療信息表 圖2.44 檢查信息表 圖2.45 密碼表依次在每個(gè)表中輸入數(shù)據(jù)： 圖2.46 藥品信息表內(nèi)容 圖2.47 病人信息表內(nèi)容 圖2.48治療信息表內(nèi)容 圖2.49 檢查信息表內(nèi)容 圖2.50 密碼表內(nèi)容第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)3.1 各窗體的設(shè)計(jì)：本門(mén)診收費(fèi)管理系統(tǒng)共包括10個(gè)窗體，分別為歡送界面，登錄，注冊(cè)新用戶，檢查管理，藥品信息管理，治療信息管理，檢查信息查詢，MDI窗體等。其中主窗體為MDI窗體。下面介

7、紹各個(gè)窗體的設(shè)計(jì)語(yǔ)句及實(shí)現(xiàn)功能。3.2 主頁(yè)面歡送界面：運(yùn)行vb程序，出現(xiàn)歡送界面，點(diǎn)擊進(jìn)入系統(tǒng)按鈕，進(jìn)入主窗體界面 歡送界面 圖3.1源代碼：Private Sub Command1_Click()MDIForm1.ShowUnload MeEnd Sub3.3 MDI主窗體主窗體含有主菜單：開(kāi)始、管理、信息查詢。開(kāi)始菜單包含子菜單注冊(cè)新用戶、登陸。管理菜單包含子藥品信息管理、檢查信息管理、治療信息管理。信息查詢菜單包含子菜單藥品信息查詢、病人信息查詢、治療信息查詢。 圖3.2 MDI主窗體界面 源代碼：Private Sub brxx_Click()病人信息查詢.ShowEnd SubPr

8、ivate Sub DL_Click()Form1.ShowEnd SubPrivate Sub jcgl_Click()Form2.ShowEnd SubPrivate Sub xcxyh_Click()注冊(cè)新用戶.ShowEnd SubPrivate Sub ypgl_Click()Form3.ShowEnd SubPrivate Sub ypxx_Click()藥品信息查詢.ShowEnd SubPrivate Sub zlgl_Click()Form4.ShowEnd SubPrivate Sub zlxx_Click()治療信息查詢.ShowEnd Sub 登錄窗體翻開(kāi)登錄界面后，輸

9、入用戶名和密碼，點(diǎn)擊登陸按鈕，進(jìn)入MDI主窗體。 圖3.2 登錄界面 源代碼：Private Sub Command1_Click()Static miCout As IntegerDim sqlstr As Stringsqlstr = "Select * from 密碼表 Where 用戶名='" & Text1.Text & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox "用戶名錯(cuò)誤，請(qǐng)重新輸入

10、！", vbExclamation, "警告"Text1.Text = "": Text1.SetFocusElseIf Adodc1.Recordset.Fields("密碼") = Text2.Text ThenMDIForm1.ShowUnload MeElseMsgBox "密碼錯(cuò)誤，請(qǐng)重新輸入！", vbExclamation, "警告"Text2.Text = "": Text2.SetFocusEnd IfEnd IfmiCount = miCount

11、 + 1If miCount >= 3 Then Unload MeEnd Sub3.5 注冊(cè)新用戶在上面主窗體點(diǎn)擊菜單文件下的注冊(cè)新用戶，進(jìn)入注冊(cè)新用戶界面，輸入用戶名、密碼、再次輸入密碼確認(rèn)，注冊(cè)成功。注冊(cè)成功后會(huì)有提示，密碼不一致也會(huì)有提示。 圖3.4 新用戶注冊(cè) 圖3.5 注冊(cè)成功提示 圖3.6 密碼不一致提示源代碼：Private Sub Command1_Click()Static miCout As IntegerDim sqlstr As Stringsqlstr = "Select * from 密碼表 Where 用戶名='" &

12、Text1.Text & "'"Adodc1.RecordSource = sqlstrAdodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox "用戶名錯(cuò)誤，請(qǐng)重新輸入！", vbExclamation, "警告"Text1.Text = "": Text1.SetFocusElseIf Adodc1.Recordset.Fields("密碼") = Text2.Text ThenMDIForm1.ShowUnload MeElseMsg

13、Box "密碼錯(cuò)誤，請(qǐng)重新輸入！", vbExclamation, "警告"Text2.Text = "": Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount >= 3 Then Unload MeEnd Sub3.6 藥品信息管理點(diǎn)擊MDI主窗體的管理菜單下的藥品信息管理，出現(xiàn)藥品信息管理界面，可以進(jìn)行增加，刪除，前移，后移，添加，修改，刪除等功能。 圖3.7 藥品信息管理源代碼：Private Sub Command1_Click() Adodc1.Recor

14、dset.MoveFirst ' 記錄指針移到首記錄顯示首記錄 Command1.Enabled = False ' 讓首記錄按鈕無(wú)效 Command2.Enabled = False ' 讓前移按鈕無(wú)效 Command3.Enabled = True ' 讓后移按鈕有效 Command4.Enabled = True ' 讓末記錄按鈕有效'在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(shù)：End SubPrivate Sub Command2_Click() Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄C

15、ommand3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.Recordset.BOF Then '如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst '那么記錄指針移到首記錄上 Command1.Enabled = FalseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄 Command3.Enabled = True Comma

16、nd2.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast '那么記錄指針移到末記錄上 Command3.Enabled = False Command4.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveLast ' 移到末記錄Command1.Enabled = True Command2.Enabled = True Command3.Ena

17、bled = False Command4.Enabled = FalseEnd SubPrivate Sub Command5_Click() Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.RefreshCommand5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Ena

18、bled = FalseEnd SubPrivate Sub Command7_Click()x = MsgBox("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Command5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = Fa

19、lseCommand6.Enabled = FalseEnd SubPrivate Sub Command9_Click()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Command1.Enabled = False ' 首記錄按鈕無(wú)效Command2.Enabled = False ' 上一個(gè)按鈕無(wú)效Command3.Enabled = True ' 下一個(gè)按鈕有效Command4.Enabled = True ' 末記錄按鈕有效Command5.Enabled = True ' 添加按鈕有效

20、Command7.Enabled = True ' 刪除按鈕有效Command8.Enabled = False ' 確定按鈕無(wú)效Command6.Enabled = False ' 取消按鈕無(wú)效End Sub 3.7 檢查信息管理管理點(diǎn)擊MDI主窗體管理菜單下的檢查信息管理，出現(xiàn)檢查信息界面，可以進(jìn)行增加，刪除，前移后移，添加，修改，刪除等功能。 圖3.8 員工信息表 源代碼：Private Sub Command1_Click() Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄顯示首記錄 Command1.Enabled = F

21、alse ' 讓首記錄按鈕無(wú)效 Command2.Enabled = False ' 讓前移按鈕無(wú)效 Command3.Enabled = True ' 讓后移按鈕有效 Command4.Enabled = True ' 讓末記錄按鈕有效'在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(shù)：End SubPrivate Sub Command2_Click() Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄Command3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.R

22、ecordset.BOF Then '如果記錄指針移到首記錄之前, Adodc1.Recordset.MoveFirst '那么記錄指針移到首記錄上 Command1.Enabled = FalseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄 Command3.Enabled = True Command2.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果記

23、錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast '那么記錄指針移到末記錄上 Command3.Enabled = False Command4.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click() Adodc1.Recordset.MoveLast ' 移到末記錄Command1.Enabled = True Command2.Enabled = True Command3.Enabled = False Command4.Enabled = FalseEnd SubPrivate Sub

24、Command5_Click() Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.RefreshCommand5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command7_Click()x = MsgBo

25、x("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Command5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command9_C

26、lick()MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Command1.Enabled = False ' 首記錄按鈕無(wú)效Command2.Enabled = False ' 上一個(gè)按鈕無(wú)效Command3.Enabled = True ' 下一個(gè)按鈕有效Command4.Enabled = True ' 末記錄按鈕有效Command5.Enabled = True ' 添加按鈕有效Command7.Enabled = True ' 刪除按鈕有效Command8.Enabled = F

27、alse ' 確定按鈕無(wú)效Command6.Enabled = False ' 取消按鈕無(wú)效End Sub3.8 治療信息查詢點(diǎn)擊MDI主窗體的管理菜單下的治療信息管理，出現(xiàn)治療信息管理界面，可以進(jìn)行增加，刪除，前移，后移，添加，修改，刪除等功能。 治療信息管理表 圖3.9源代碼：Private Sub Command1_Click() Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄顯示首記錄 Command1.Enabled = False ' 讓首記錄按鈕無(wú)效 Command2.Enabled = False ' 讓前移

28、按鈕無(wú)效 Command3.Enabled = True ' 讓后移按鈕有效 Command4.Enabled = True ' 讓末記錄按鈕有效'在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(shù)：End SubPrivate Sub Command2_Click() Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄Command3.Enabled = TrueCommand4.Enabled = TrueIf Adodc1.Recordset.BOF Then '如果記錄指針移到首記錄之前, Adodc1.Recordset

29、.MoveFirst '那么記錄指針移到首記錄上 Command1.Enabled = FalseCommand2.Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄 Command3.Enabled = True Command2.Enabled = TrueIf Adodc1.Recordset.EOF Then ' 如果記錄指針移到了末記錄之后 Adodc1.Recordset.MoveLast '那么記錄指針移到末記錄

30、上 Command3.Enabled = False Command4.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueText1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseEnd SubEnd SubPrivate Sub Comman

31、d5_Click() Command5.Enabled = False Command7.Enabled = FalseCommand8.Enabled = True Command6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.RefreshCommand5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command7_Click()x = MsgBox(&quo

32、t;確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub Command8_Click()Command5.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = FalseCommand6.Enabled = FalseEnd SubPrivate Sub Command9_Click()

33、MDIForm1.ShowUnload MeEnd SubPrivate Sub Form_Load()Command1.Enabled = False ' 首記錄按鈕無(wú)效Command2.Enabled = False ' 上一個(gè)按鈕無(wú)效Command3.Enabled = True ' 下一個(gè)按鈕有效Command4.Enabled = True ' 末記錄按鈕有效Command5.Enabled = True ' 添加按鈕有效Command7.Enabled = True ' 刪除按鈕有效Command8.Enabled = False ' 確定按鈕無(wú)效Command6.Enabled = False ' 取消按鈕無(wú)效End Sub 3.9 藥品信息查詢點(diǎn)擊MDI主窗體的信息查詢菜單下的藥品信息查詢，出現(xiàn)如下列圖所示，可以進(jìn)行多條件查詢。 藥品信息查詢圖3.10源代碼：Private Sub Command1_Click()Dim str As Stringstr = " Select * From 藥品信息 " str = str & " Where 藥品信息." & Combo1.Text & " like '"