數(shù)據(jù)庫課程設(shè)計--門診收費管理系統(tǒng)

1、<p><b>　　課程設(shè)計任務(wù)書</b></p><p><b>　　摘 要</b></p><p>　　本系統(tǒng)的主要功能是建立門診收費管理系統(tǒng)，對藥品信息、治療信息和病人信息的管理和查詢。本系統(tǒng)的數(shù)據(jù)庫是用SQL server 2000軟件進行創(chuàng)建與設(shè)計，分別包括藥品信息表、病人信息表、治療信息表、檢查信息表四個表。通過系統(tǒng)ODBC

2、數(shù)據(jù)源管理工具把已創(chuàng)建的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對系統(tǒng)的窗口進行設(shè)計，包括歡迎界面、登錄界面、注冊新用戶界面、主界面、瀏覽窗體和查詢窗體等，可以通過這些窗體進行登錄操作，對輸入的用戶信息進行驗證，和注冊新用戶操作，以及最重要的操作是對數(shù)據(jù)庫中信息進行修改與查詢。并可以對數(shù)據(jù)進行添加與刪除，做到及時更新</p><p>　　關(guān)鍵詞： 門診收費管理；SQL server 2000；VB;查詢</p&

3、gt;<p><b>　　目 錄</b></p><p>　　第1章 系統(tǒng)功能概述1</p><p>　　1.1 系統(tǒng)功能1</p><p>　　1.2 系統(tǒng)總體總圖1</p><p>　　第2章 數(shù)據(jù)庫設(shè)計2</p><p>　　2.1 需求分析2</p&g

4、t;<p>　　2.2 E-R模型3</p><p>　　2.3 關(guān)系模型3</p><p>　　2.4 表結(jié)構(gòu)設(shè)計4</p><p>　　第3章 系統(tǒng)各功能模塊的詳細設(shè)計5</p><p>　　3.1 各窗體的設(shè)計：5</p><p>　　3.2 主頁面5</p>&

5、lt;p>　　3.3 登錄窗體6</p><p>　　3.4 MDI主窗體8</p><p>　　3.5 注冊新用戶9</p><p>　　3.6 顧客信息11</p><p>　　3.7 員工信息16</p><p>　　3.8 顧客信息查詢19</p><p>

6、　　3.9 員工信息查詢21</p><p><b>　　總 結(jié)23</b></p><p><b>　　參考文獻24</b></p><p>　　第1章 系統(tǒng)功能概述</p><p><b>　　1.1 系統(tǒng)功能</b></p><p>　　

7、門診收費管理系統(tǒng)主要實現(xiàn)了藥品信息管理、病人信息管理、治療信息管理。</p><p>　　設(shè)計為MDI窗體，含有主菜單：[開始]、[管理]、[信息查詢]、</p><p>　　[開始]菜單包含以下子菜單及其功能：</p><p>　　[注冊新用戶]菜單：打開“注冊新用戶”窗體</p><p>　　[登陸]：轉(zhuǎn)到登陸頁面</p>

8、<p>　　[管理] 包含以下子菜單：</p><p>　　[藥品信息管理]菜單：顯示藥品信息瀏覽和編輯窗體</p><p>　　[檢查信息管理]菜單：顯示病人信息瀏覽和編輯窗體</p><p>　　[信息查詢]包含以下子菜單： </p><p>　　[藥品信息查詢]：顯示藥品信息查詢窗體</p><p>　

9、　[病人信息查詢]：顯示病人信息查詢窗體</p><p>　　[治療信息查詢]：顯示治療信息查詢窗體</p><p><b>　　第2章 數(shù)據(jù)庫設(shè)計</b></p><p><b>　　2.1 需求分析</b></p><p>　　這個是為某個門診準備的門診收費管理系統(tǒng)，這個系統(tǒng)需要處理四種信息。

10、</p><p>　　首先作為數(shù)據(jù)庫設(shè)計人員，需要知道所需信息：藥品信息：藥品編號、單位、數(shù)量、名稱、價格。病人信息：姓名、性別、備注、應(yīng)付金額、實付金額、檢查類型、治療類型、藥品類型。治療信息：治療編號、名稱、價格、主治醫(yī)師。檢查信息：檢查編號、名稱、價格等信息。然后作為數(shù)據(jù)庫設(shè)計人員需要考慮系統(tǒng)的處理要求。這個系統(tǒng)的適用對象是門診的管理人員，比如收銀員之類的人員才能夠使用。所以設(shè)有登錄系統(tǒng)，只有注冊過的工作人

11、員才能使用這個系統(tǒng)。另外應(yīng)該有查詢、添加、刪除、修改功能，可以進行查詢?nèi)绮∪诉M行了什么檢查，使用了什么藥品等信息。而管理人員坑爹不可能只有一名，所以還有注冊功能，可以進行用戶注冊，并且自己設(shè)置密碼。</p><p>　　2.2 E-R模型</p><p><b>　　1nn1</b></p><p><b>　　n</b

12、></p><p>　　圖2.21 全局E-R</p><p><b>　　n</b></p><p><b>　　2.3 關(guān)系模型</b></p><p>　　（1）藥品信息：（藥品編號、單位、數(shù)量、名稱、價格）</p><p>　　（2）病人信息：（姓名、性

13、別、備注、應(yīng)付金額、實付金額、檢查類型、治療類型、藥品類型）</p><p>　　（3）治療信息：（治療編號、名稱、價格、主治醫(yī)師）</p><p>　　（4）檢查信息：（檢查編號、名稱、價格）</p><p>　?。?）密碼表:(用戶名、密碼)</p><p>　　2.4 表結(jié)構(gòu)設(shè)計</p><p>　　圖2.41

14、 藥品信息表</p><p>　　圖2.42 病人信息表 </p><p>　　圖2.43 治療信息表</p><p>　　圖2.44 檢查信息表</p><p><b>　　圖2.45 密碼表</b></p><p>　　依次在每個表中輸入數(shù)據(jù)：</p><p>　

15、　圖2.46 藥品信息表內(nèi)容</p><p>　　圖2.47 病人信息表內(nèi)容</p><p>　　圖2.48治療信息表內(nèi)容</p><p>　　圖2.49 檢查信息表內(nèi)容</p><p>　　圖2.50 密碼表內(nèi)容</p><p>　　第3章 系統(tǒng)各功能模塊的詳細設(shè)計</p><p>　　3.1

16、 各窗體的設(shè)計：</p><p>　　本門診收費管理系統(tǒng)共包括10個窗體，分別為歡迎界面，登錄，注冊新用戶，檢查管理，藥品信息管理，治療信息管理，檢查信息查詢，MDI窗體等。其中主窗體為MDI窗體。</p><p>　　下面介紹各個窗體的設(shè)計語句及實現(xiàn)功能。</p><p><b>　　3.2 主頁面</b></p><

17、p>　　歡迎界面：運行vb程序，出現(xiàn)歡迎界面，點擊進入系統(tǒng)按鈕，進入主窗體界面</p><p><b>　　歡迎界面 圖3.1</b></p><p><b>　　源代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　MDIForm

18、1.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　3.3 MDI主窗體</p><p>　　主窗體含有主菜單：[開始]、[管理]、[信息查詢]。[開始]菜單包含子菜單注冊新用戶、登陸。[管理]菜單包含子藥品

19、信息管理、檢查信息管理、治療信息管理。[信息查詢]菜單包含子菜單藥品信息查詢、病人信息查詢、治療信息查詢。</p><p>　　圖3.2 MDI主窗體界面 </p><p><b>　　源代碼：</b></p><p>　　Private Sub brxx_Click()</p><p>　　病人信息查詢.Show&

20、lt;/p><p><b>　　End Sub</b></p><p>　　Private Sub DL_Click()</p><p>　　Form1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub jcgl_Click

21、()</p><p>　　Form2.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub xcxyh_Click()</p><p>　　注冊新用戶.Show</p><p><b>　　End Sub</b></p

22、><p>　　Private Sub ypgl_Click()</p><p>　　Form3.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub ypxx_Click()</p><p>　　藥品信息查詢.Show</p><

23、p><b>　　End Sub</b></p><p>　　Private Sub zlgl_Click()</p><p>　　Form4.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub zlxx_Click()</p>

24、<p>　　治療信息查詢.Show</p><p><b>　　End Sub</b></p><p><b>　　登錄窗體</b></p><p>　　打開登錄界面后，輸入用戶名和密碼，點擊登陸按鈕，進入MDI主窗體。</p><p>　　圖3.2 登錄界面 </p>

25、<p><b>　　源代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Static miCout As Integer</p><p>　　Dim sqlstr As String</p><p>　　sqlstr = "Select

26、 * from 密碼表 Where 用戶名='" & Text1.Text & "'"</p><p>　　Adodc1.RecordSource = sqlstr</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.BOF Then</p&

27、gt;<p>　　MsgBox "用戶名錯誤，請重新輸入！", vbExclamation, "警告"</p><p>　　Text1.Text = "": Text1.SetFocus</p><p><b>　　Else</b></p><p>　　If Adodc1

28、.Recordset.Fields("密碼") = Text2.Text Then</p><p>　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　MsgBox "

29、密碼錯誤，請重新輸入！", vbExclamation, "警告"</p><p>　　Text2.Text = "": Text2.SetFocus</p><p><b>　　End If</b></p><p><b>　　End If</b></p>

30、<p>　　miCount = miCount + 1</p><p>　　If miCount >= 3 Then Unload Me</p><p><b>　　End Sub</b></p><p>　　3.5 注冊新用戶</p><p>　　在上面主窗體點擊菜單文件下的注冊新用戶，進入注冊新用戶

31、界面，輸入用戶名、密碼、再次輸入密碼確認，注冊成功。注冊成功后會有提示，密碼不一致也會有提示。</p><p>　　圖3.4 新用戶注冊 </p><p>　　圖3.5 注冊成功提示 圖3.6 密碼不一致提示</p><p><b>　　源代碼：</b></p><p>　　Private Sub

32、Command1_Click()</p><p>　　Static miCout As Integer</p><p>　　Dim sqlstr As String</p><p>　　sqlstr = "Select * from 密碼表 Where 用戶名='" & Text1.Text & "'&q

33、uot;</p><p>　　Adodc1.RecordSource = sqlstr</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.BOF Then</p><p>　　MsgBox "用戶名錯誤，請重新輸入！", vbExclamation, "

34、警告"</p><p>　　Text1.Text = "": Text1.SetFocus</p><p><b>　　Else</b></p><p>　　If Adodc1.Recordset.Fields("密碼") = Text2.Text Then</p><p&g

35、t;　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　MsgBox "密碼錯誤，請重新輸入！", vbExclamation, "警告"</p><p>　

36、　Text2.Text = "": Text2.SetFocus</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　miCount = miCount + 1</p><p>　　If miCount >

37、= 3 Then Unload Me</p><p><b>　　End Sub</b></p><p>　　3.6 藥品信息管理</p><p>　　點擊MDI主窗體的管理菜單下的藥品信息管理，出現(xiàn)藥品信息管理界面，可以進行增加，刪除，前移，后移，添加，修改，刪除等功能。</p><p>　　圖3.7 藥品信息

38、管理</p><p><b>　　源代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄（顯示首記錄）</p><p>　　Command1.Enabled = False

39、 ' 讓[首記錄]按鈕無效</p><p>　　Command2.Enabled = False ' 讓[前移]按鈕無效</p><p>　　Command3.Enabled = True ' 讓[后移]按鈕有效</p><p>　　Command4.Enabled = True ' 讓[末記錄]按

40、鈕有效</p><p>　　'在Label6上顯示當前記錄號/記錄總數(shù)：</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Adodc1.Recordset.MovePrevious '記錄指針移到前一

41、條記錄</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　If Adodc1.Recordset.BOF Then '如果記錄指針移到首記錄之前,</p><p>　　Adodc1.Recordset.MoveFirst

42、 '則記錄指針移到首記錄上</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

43、<p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄</p><p>　　Command3.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　I

44、f Adodc1.Recordset.EOF Then ' 如果記錄指針移到了末記錄之后</p><p>　　Adodc1.Recordset.MoveLast '則記錄指針移到末記錄上</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p>

45、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Adodc1.Recordset.MoveLast ' 移到末記錄</p><p>　　C

46、ommand1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　End Sub</b></p>

47、;<p>　　Private Sub Command5_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p>　　Command5.Enabled = False</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enable

48、d = True</p><p>　　Command6.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　Adodc1.Refresh</p><p>　　Comman

49、d5.Enabled = True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = False</p><p>　　Command6.Enabled = False</p><p><b>　　End Sub</b></p>&l

50、t;p>　　Private Sub Command7_Click()</p><p>　　x = MsgBox("確實要刪除當前記錄嗎？", vbYesNo + vbQuestion, "確認")</p><p>　　If x = vbYes Then</p><p>　　Adodc1.Recordset.Delete&

51、lt;/p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b

52、>　　Else</b></p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><

53、;p>　　Adodc1.Recordset.Update</p><p>　　Command5.Enabled = True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = False</p><p>　　Command6.Enabled = False<

54、;/p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　End

55、Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Command1.Enabled = False ' [首記錄]按鈕無效</p><p>　　Command2.Enabled = False ' [上一個]按鈕無效</p><p>　　Command3.

56、Enabled = True ' [下一個]按鈕有效</p><p>　　Command4.Enabled = True ' [末記錄]按鈕有效</p><p>　　Command5.Enabled = True ' [添加]按鈕有效</p><p>　　Command7.Enabled = True ' [刪除]按鈕

57、有效</p><p>　　Command8.Enabled = False ' [確定]按鈕無效</p><p>　　Command6.Enabled = False ' [取消]按鈕無效</p><p><b>　　End Sub</b></p><p>　　3.7 檢查信息管理</

58、p><p>　　管理點擊MDI主窗體管理菜單下的檢查信息管理，出現(xiàn)檢查信息界面，可以進行增加，刪除，前移后移，添加，修改，刪除等功能。</p><p>　　圖3.8 員工信息表 </p><p><b>　　源代碼：</b></p><p>　　Private Sub Command1_Click()</p>

59、<p>　　Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄（顯示首記錄）</p><p>　　Command1.Enabled = False ' 讓[首記錄]按鈕無效</p><p>　　Command2.Enabled = False ' 讓[前移]按鈕無效</p><p>

60、　　Command3.Enabled = True ' 讓[后移]按鈕有效</p><p>　　Command4.Enabled = True ' 讓[末記錄]按鈕有效</p><p>　　'在Label6上顯示當前記錄號/記錄總數(shù)：</p><p><b>　　End Sub</b></p>

61、;<p>　　Private Sub Command2_Click()</p><p>　　Adodc1.Recordset.MovePrevious '記錄指針移到前一條記錄</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><

62、;p>　　If Adodc1.Recordset.BOF Then '如果記錄指針移到首記錄之前,</p><p>　　Adodc1.Recordset.MoveFirst '則記錄指針移到首記錄上</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = Fals

63、e</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄</p

64、><p>　　Command3.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　If Adodc1.Recordset.EOF Then ' 如果記錄指針移到了末記錄之后</p><p>　　Adodc1.Recordset.MoveLast '則記錄指針移到

65、末記錄上</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Pr

66、ivate Sub Command4_Click()</p><p>　　Adodc1.Recordset.MoveLast ' 移到末記錄</p><p>　　Command1.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　　Command3.Enabled =

67、False</p><p>　　Command4.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p>　

68、　Command5.Enabled = False</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enabled = True</p><p>　　Command6.Enabled = True</p><p><b>　　End Sub</b></p&

69、gt;<p>　　Private Sub Command6_Click()</p><p>　　Adodc1.Refresh</p><p>　　Command5.Enabled = True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = False

70、</p><p>　　Command6.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　x = MsgBox("確實要刪除當前記錄嗎？", vbYesNo + vbQu

71、estion, "確認")</p><p>　　If x = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then</p>

72、<p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></

73、p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　Adodc1.Recordset.Update</p><p>　　Command5.Enabled = True</p><p>　　Command7.E

74、nabled = True</p><p>　　Command8.Enabled = False</p><p>　　Command6.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p>&

75、lt;p>　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Command1.Enabled = False &#

76、39; [首記錄]按鈕無效</p><p>　　Command2.Enabled = False ' [上一個]按鈕無效</p><p>　　Command3.Enabled = True ' [下一個]按鈕有效</p><p>　　Command4.Enabled = True ' [末記錄]按鈕有效</p><

77、;p>　　Command5.Enabled = True ' [添加]按鈕有效</p><p>　　Command7.Enabled = True ' [刪除]按鈕有效</p><p>　　Command8.Enabled = False ' [確定]按鈕無效</p><p>　　Command6.Enabled = F

78、alse ' [取消]按鈕無效</p><p><b>　　End Sub</b></p><p>　　3.8 治療信息查詢</p><p>　　點擊MDI主窗體的管理菜單下的治療信息管理，出現(xiàn)治療信息管理界面，可以進行增加，刪除，前移，后移，添加，修改，刪除等功能。</p><p>　　治療信息管理表

79、圖3.9</p><p><b>　　源代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adodc1.Recordset.MoveFirst ' 記錄指針移到首記錄（顯示首記錄）</p><p>　　Command1.Enabled = Fal

80、se ' 讓[首記錄]按鈕無效</p><p>　　Command2.Enabled = False ' 讓[前移]按鈕無效</p><p>　　Command3.Enabled = True ' 讓[后移]按鈕有效</p><p>　　Command4.Enabled = True ' 讓[末記錄

81、]按鈕有效</p><p>　　'在Label6上顯示當前記錄號/記錄總數(shù)：</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Adodc1.Recordset.MovePrevious '記錄指針移到

82、前一條記錄</p><p>　　Command3.Enabled = True</p><p>　　Command4.Enabled = True</p><p>　　If Adodc1.Recordset.BOF Then '如果記錄指針移到首記錄之前,</p><p>　　Adodc1.Recordset.MoveFirst

83、 '則記錄指針移到首記錄上</p><p>　　Command1.Enabled = False</p><p>　　Command2.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

84、<p>　　Private Sub Command3_Click()</p><p>　　Adodc1.Recordset.MoveNext '記錄指針移到下一條記錄</p><p>　　Command3.Enabled = True</p><p>　　Command2.Enabled = True</p><p>　

85、　If Adodc1.Recordset.EOF Then ' 如果記錄指針移到了末記錄之后</p><p>　　Adodc1.Recordset.MoveLast '則記錄指針移到末記錄上</p><p>　　Command3.Enabled = False</p><p>　　Command4.Enabled = False</p>

86、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p>　　Command5.Enab

87、led = False</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enabled = True</p><p>　　Command6.Enabled = True</p><p>　　Text1.Locked = False</p><p>　　Text

88、2.Locked = False</p><p>　　Text3.Locked = False</p><p>　　Text4.Locked = False</p><p><b>　　End Sub</b></p><p><b>　　End Sub</b></p><p>

89、;　　Private Sub Command5_Click()</p><p>　　Adodc1.Recordset.AddNew</p><p>　　Command5.Enabled = False</p><p>　　Command7.Enabled = False</p><p>　　Command8.Enabled = True<

90、;/p><p>　　Command6.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　Adodc1.Refresh</p><p>　　Command5.Enabled

91、= True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = False</p><p>　　Command6.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Pr

92、ivate Sub Command7_Click()</p><p>　　x = MsgBox("確實要刪除當前記錄嗎？", vbYesNo + vbQuestion, "確認")</p><p>　　If x = vbYes Then</p><p>　　Adodc1.Recordset.Delete</p>

93、<p>　　Adodc1.Recordset.MoveNext</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p><b>　　End If</b></p><p><b>　　Else&

94、lt;/b></p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　Ado

95、dc1.Recordset.Update</p><p>　　Command5.Enabled = True</p><p>　　Command7.Enabled = True</p><p>　　Command8.Enabled = False</p><p>　　Command6.Enabled = False</p>&l

96、t;p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b&g

97、t;</p><p>　　Private Sub Form_Load()</p><p>　　Command1.Enabled = False ' [首記錄]按鈕無效</p><p>　　Command2.Enabled = False ' [上一個]按鈕無效</p><p>　　Command3.Enabled = T

98、rue ' [下一個]按鈕有效</p><p>　　Command4.Enabled = True ' [末記錄]按鈕有效</p><p>　　Command5.Enabled = True ' [添加]按鈕有效</p><p>　　Command7.Enabled = True ' [刪除]按鈕有效</p>

99、;<p>　　Command8.Enabled = False ' [確定]按鈕無效</p><p>　　Command6.Enabled = False ' [取消]按鈕無效</p><p><b>　　End Sub</b></p><p>　　3.9 藥品信息查詢</p><

100、p>　　點擊MDI主窗體的信息查詢菜單下的藥品信息查詢，出現(xiàn)如下圖所示，可以進行多條件查詢。</p><p>　　藥品信息查詢圖3.10</p><p><b>　　源代碼：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim str As String

101、</p><p>　　str = " Select * From 藥品信息 "</p><p>　　str = str & " Where 藥品信息." & Combo1.Text & " like '" & Text1 & "%'"</p>

102、<p>　　Adodc1.RecordSource = str</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　MDIForm1.Show</p>

103、<p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Combo1.AddItem "藥品編號" ' 為組合列表框添加各選項</p>

104、<p>　　Combo1.AddItem "單位"</p><p>　　Combo1.AddItem "數(shù)量"</p><p>　　Combo1.AddItem "名稱"</p><p>　　Combo1.AddItem "價格"</p><p>&

105、lt;b>　　End Sub</b></p><p>　　選擇查詢條件為“單位”，輸入“克”，點擊查詢按鈕，結(jié)果如圖： </p><p>　　圖3.11 藥品信息查詢結(jié)果</p><p>　　3.10 藥品信息查詢</p><p>　　點擊MDI主窗體的信息查詢菜單下的病人信息查詢，出

106、現(xiàn)如下圖所示，可以進行多條件查詢。</p><p>　　病人信息查詢圖3.12</p><p>　　選擇查詢條件為“性別”，輸入“女”，點擊查詢按鈕，結(jié)果如圖：</p><p>　　病人信息查詢結(jié)果圖3.13</p><p>　　3.11 治療信息查詢</p><p>　　點擊MDI主窗體的信息查詢菜單下的治療信息查詢

107、，出現(xiàn)如下圖所示，可以進行多條件查詢。</p><p>　　治療信息查詢圖3.13</p><p>　　選擇查詢條件為“名稱”，輸入“按摩”，點擊查詢按鈕，結(jié)果如圖：</p><p>　　治療信息查詢結(jié)果圖3.14</p><p><b>　　總 結(jié)</b></p><p>　　經(jīng)過一段時間的數(shù)據(jù)

108、庫系統(tǒng)學習，利用Microsoft SQL Server2000軟件建立相關(guān)信息的數(shù)據(jù)庫，并通過Microsoft Visual Basic 6.0實現(xiàn)對相關(guān)信息的查詢。在老師的幫助和指導(dǎo)下進行的本次課程設(shè)計。經(jīng)過自己的思考，建立的數(shù)據(jù)庫框架，并且翻閱各種參考書和參考課件，經(jīng)過不斷的調(diào)試，終于基本完成了本次的課程設(shè)計任務(wù)。本次完成的門診收費管理系統(tǒng)基本符合所需的工作要求，但由于時間緊張，加上本人經(jīng)驗上的不足，未能豐富系統(tǒng)的功能，日后希望

109、能夠繼續(xù)努力，做到更好。</p><p>　　最后，我要感謝老師和同學們給予我的幫助和支持，使我能夠順利地完成本次的設(shè)計任務(wù)。讓我們對數(shù)據(jù)庫有了更進一步的認識和了解。今后我會更加努力學習數(shù)據(jù)庫的相關(guān)知識，相信能為我以后帶來很大的幫助。</p><p><b>　　參考文獻</b></p><p>　　[1] 王珊 .數(shù)據(jù)庫系統(tǒng)簡明教程 . 北京

110、 ：高等教育出版社，2004.9</p><p>　　[2] 賽奎春 .Visual Basic信息系統(tǒng)開發(fā)實例精選 . 北京 ：高等教育出版社，2004.9</p><p>　　[3] 劉韜、何旭洪主編，《Visual BASIC數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航》 人民郵電出版社</p><p>　　[4] 武新華、魏平俊、魏經(jīng)娟，Visual BASIC管理信息系統(tǒng)開發(fā)案