1、精品文檔 成 績 評 定 表學生姓名班級學號專 業課程設計題目評語組長簽字：成績日期 2021 年12月 日課程設計任務書學 院專 業學生姓名班級學號課程設計題目實踐教學要求與任務:工作方案與進度安排:第一周：數據庫設計，利用SQL Server創立數據庫及數據表。 總體結構設計，設計調試系統首頁、登陸窗體及MDI窗體。第二周：管理功能設計，設計調試各種數據管理功能窗體及打印報表功能。 撰寫課程設計報告，驗收與辯論。指導教師： 2021年 12月 日專業負責人：2021年 12月 日學院教學副院長：2021 年12月 日摘 要本系統的主要功能是建立門診收費管理系統，對藥品信息、治療信息和病人信

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

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

4、到登陸頁面 管理 包含以下子菜單：藥品信息管理菜單：顯示藥品信息瀏覽和編輯窗體檢查信息管理菜單：顯示病人信息瀏覽和編輯窗體 信息查詢包含以下子菜單： 藥品信息查詢：顯示藥品信息查詢窗體病人信息查詢：顯示病人信息查詢窗體治療信息查詢：顯示治療信息查詢窗體第2章 數據庫設計2.1 需求分析這個是為某個門診準備的門診收費管理系統，這個系統需要處理四種信息。首先作為數據庫設計人員，需要知道所需信息：藥品信息：藥品編號、單位、數量、名稱、價格。病人信息：姓名、性別、備注、應付金額、實付金額、檢查類型、治療類型、藥品類型。治療信息：治療編號、名稱、價格、主治醫師。檢查信息：檢查編號、名稱、價格等信息。然后

5、作為數據庫設計人員需要考慮系統的處理要求。這個系統的適用對象是門診的管理人員，比方收銀員之類的人員才能夠使用。所以設有登錄系統，只有注冊過的工作人員才能使用這個系統。另外應該有查詢、添加、刪除、修改功能，可以進行查詢如病人進行了什么檢查，使用了什么藥品等信息。而管理人員坑爹不可能只有一名，所以還有注冊功能，可以進行用戶注冊，并且自己設置密碼。2.2 E-R模型病人信息檢查治療信息屬于治療信息屬于檢查信息檢查類型1nn1n 圖2.21 全局E-Rn2.3 關系模型1藥品信息：藥品編號、單位、數量、名稱、價格2病人信息：姓名、性別、備注、應付金額、實付金額、檢查類型、治療類型、藥品類型3治療信息：

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

7、紹各個窗體的設計語句及實現功能。3.2 主頁面歡送界面：運行vb程序，出現歡送界面，點擊進入系統按鈕，進入主窗體界面 歡送界面 圖3.1源代碼：Private Sub Command1_Click()MDIForm1.ShowUnload MeEnd Sub3.3 MDI主窗體主窗體含有主菜單：開始、管理、信息查詢。開始菜單包含子菜單注冊新用戶、登陸。管理菜單包含子藥品信息管理、檢查信息管理、治療信息管理。信息查詢菜單包含子菜單藥品信息查詢、病人信息查詢、治療信息查詢。 圖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()注冊新用戶.ShowEnd SubPrivate Sub ypgl_Click()Form3.ShowEnd SubPrivate Sub ypxx_Click()藥品信息查詢.ShowEnd SubPrivate Sub zlgl_Click()Form4.ShowEnd SubPrivate Sub zlxx_Click()治療信息查詢.ShowEnd Sub 登錄窗體翻開登錄界面后，輸

9、入用戶名和密碼，點擊登陸按鈕，進入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 "用戶名錯誤，請重新輸入

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

11、 + 1If miCount >= 3 Then Unload MeEnd Sub3.5 注冊新用戶在上面主窗體點擊菜單文件下的注冊新用戶，進入注冊新用戶界面，輸入用戶名、密碼、再次輸入密碼確認，注冊成功。注冊成功后會有提示，密碼不一致也會有提示。 圖3.4 新用戶注冊 圖3.5 注冊成功提示 圖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 "用戶名錯誤，請重新輸入！", vbExclamation, "警告"Text1.Text = "": Text1.SetFocusElseIf Adodc1.Recordset.Fields("密碼") = Text2.Text ThenMDIForm1.ShowUnload MeElseMsg

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

14、dset.MoveFirst ' 記錄指針移到首記錄顯示首記錄 Command1.Enabled = False ' 讓首記錄按鈕無效 Command2.Enabled = False ' 讓前移按鈕無效 Command3.Enabled = True ' 讓后移按鈕有效 Command4.Enabled = True ' 讓末記錄按鈕有效'在Label6上顯示當前記錄號/記錄總數：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("確實要刪除當前記錄嗎？", vbYesNo + vbQuestion, "確認")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 ' 首記錄按鈕無效Command2.Enabled = False ' 上一個按鈕無效Command3.Enabled = True ' 下一個按鈕有效Command4.Enabled = True ' 末記錄按鈕有效Command5.Enabled = True ' 添加按鈕有效

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

21、alse ' 讓首記錄按鈕無效 Command2.Enabled = False ' 讓前移按鈕無效 Command3.Enabled = True ' 讓后移按鈕有效 Command4.Enabled = True ' 讓末記錄按鈕有效'在Label6上顯示當前記錄號/記錄總數：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("確實要刪除當前記錄嗎？", vbYesNo + vbQuestion, "確認")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 ' 首記錄按鈕無效Command2.Enabled = False ' 上一個按鈕無效Command3.Enabled = True ' 下一個按鈕有效Command4.Enabled = True ' 末記錄按鈕有效Command5.Enabled = True ' 添加按鈕有效Command7.Enabled = True ' 刪除按鈕有效Command8.Enabled = F

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

28、按鈕無效 Command3.Enabled = True ' 讓后移按鈕有效 Command4.Enabled = True ' 讓末記錄按鈕有效'在Label6上顯示當前記錄號/記錄總數：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;確實要刪除當前記錄嗎？", vbYesNo + vbQuestion, "確認")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 ' 首記錄按鈕無效Command2.Enabled = False ' 上一個按鈕無效Command3.Enabled = True ' 下一個按鈕有效Command4.Enabled = True ' 末記錄按鈕有效Command5.Enabled = True ' 添加按鈕有效Command7.Enabled = True ' 刪除按鈕有效Command8.Enabled = False ' 確定按鈕無效Command6.Enabled = False ' 取消按鈕無效End Sub 3.9 藥品信息查詢點擊MDI主窗體的信息查詢菜單下的藥品信息查詢，出現如下列圖所示，可以進行多條件查詢。 藥品信息查詢圖3.10源代碼：Private Sub Command1_Click()Dim str As Stringstr = " Select * From 藥品信息 " str = str & " Where 藥品信息." & Combo1.Text & " like '"