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

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

2、數(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í)更新</p><p>　　關(guān)鍵詞： 門(mén)診收費(fèi)管理；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ù)庫(kù)設(shè)計(jì)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è)計(jì)4</p><p>　　第3章 系統(tǒng)各功能模塊的詳細(xì)設(shè)計(jì)5</p><p>　　3.1 各窗體的設(shè)計(jì)：5</p><p>　　3.2 主頁(yè)面5</p>&

5、lt;p>　　3.3 登錄窗體6</p><p>　　3.4 MDI主窗體8</p><p>　　3.5 注冊(cè)新用戶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>　　參考文獻(xiàn)24</b></p><p>　　第1章 系統(tǒng)功能概述</p><p><b>　　1.1 系統(tǒng)功能</b></p><p>　　

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

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

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

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

11、員才能使用這個(gè)系統(tǒng)。另外應(yīng)該有查詢、添加、刪除、修改功能，可以進(jìn)行查詢?nèi)绮∪诉M(jìn)行了什么檢查，使用了什么藥品等信息。而管理人員坑爹不可能只有一名，所以還有注冊(cè)功能，可以進(jìn)行用戶注冊(cè)，并且自己設(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>　?。?）藥品信息：（藥品編號(hào)、單位、數(shù)量、名稱、價(jià)格）</p><p>　　（2）病人信息：（姓名、性

13、別、備注、應(yīng)付金額、實(shí)付金額、檢查類型、治療類型、藥品類型）</p><p>　　（3）治療信息：（治療編號(hào)、名稱、價(jià)格、主治醫(yī)師）</p><p>　　（4）檢查信息：（檢查編號(hào)、名稱、價(jià)格）</p><p>　?。?）密碼表:(用戶名、密碼)</p><p>　　2.4 表結(jié)構(gòu)設(shè)計(jì)</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>　　依次在每個(gè)表中輸入數(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)各功能模塊的詳細(xì)設(shè)計(jì)</p><p>　　3.1

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

17、p>　　歡迎界面：運(yùn)行vb程序，出現(xiàn)歡迎界面，點(diǎn)擊進(jìn)入系統(tǒng)按鈕，進(jìn)入主窗體界面</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>　　主窗體含有主菜單：[開(kāi)始]、[管理]、[信息查詢]。[開(kāi)始]菜單包含子菜單注冊(cè)新用戶、登陸。[管理]菜單包含子藥品

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>　　注冊(cè)新用戶.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>　　打開(kāi)登錄界面后，輸入用戶名和密碼，點(diǎn)擊登陸按鈕，進(jìn)入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 "用戶名錯(cuò)誤，請(qǐng)重新輸入！", 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、密碼錯(cuò)誤，請(qǐng)重新輸入！", 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 注冊(cè)新用戶</p><p>　　在上面主窗體點(diǎn)擊菜單文件下的注冊(cè)新用戶，進(jìn)入注冊(cè)新用戶

31、界面，輸入用戶名、密碼、再次輸入密碼確認(rèn)，注冊(cè)成功。注冊(cè)成功后會(huì)有提示，密碼不一致也會(huì)有提示。</p><p>　　圖3.4 新用戶注冊(cè) </p><p>　　圖3.5 注冊(cè)成功提示 圖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 "用戶名錯(cuò)誤，請(qǐng)重新輸入！", 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 "密碼錯(cuò)誤，請(qǐng)重新輸入！", 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>　　點(diǎn)擊MDI主窗體的管理菜單下的藥品信息管理，出現(xiàn)藥品信息管理界面，可以進(jì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、 ' 讓[首記錄](méi)按鈕無(wú)效</p><p>　　Command2.Enabled = False ' 讓[前移]按鈕無(wú)效</p><p>　　Command3.Enabled = True ' 讓[后移]按鈕有效</p><p>　　Command4.Enabled = True ' 讓[末記錄](méi)按

40、鈕有效</p><p>　　'在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(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("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")</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 ' [首記錄](méi)按鈕無(wú)效</p><p>　　Command2.Enabled = False ' [上一個(gè)]按鈕無(wú)效</p><p>　　Command3.

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

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

58、p><p>　　管理點(diǎn)擊MDI主窗體管理菜單下的檢查信息管理，出現(xiàn)檢查信息界面，可以進(jì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 ' 讓[首記錄](méi)按鈕無(wú)效</p><p>　　Command2.Enabled = False ' 讓[前移]按鈕無(wú)效</p><p>

60、　　Command3.Enabled = True ' 讓[后移]按鈕有效</p><p>　　Command4.Enabled = True ' 讓[末記錄](méi)按鈕有效</p><p>　　'在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(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("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQu

71、estion, "確認(rèn)")</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; [首記錄](méi)按鈕無(wú)效</p><p>　　Command2.Enabled = False ' [上一個(gè)]按鈕無(wú)效</p><p>　　Command3.Enabled = True ' [下一個(gè)]按鈕有效</p><p>　　Command4.Enabled = True ' [末記錄](méi)按鈕有效</p><

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

78、alse ' [取消]按鈕無(wú)效</p><p><b>　　End Sub</b></p><p>　　3.8 治療信息查詢</p><p>　　點(diǎn)擊MDI主窗體的管理菜單下的治療信息管理，出現(xiàn)治療信息管理界面，可以進(jì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 ' 讓[首記錄](méi)按鈕無(wú)效</p><p>　　Command2.Enabled = False ' 讓[前移]按鈕無(wú)效</p><p>　　Command3.Enabled = True ' 讓[后移]按鈕有效</p><p>　　Command4.Enabled = True ' 讓[末記錄

81、]按鈕有效</p><p>　　'在Label6上顯示當(dāng)前記錄號(hào)/記錄總數(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("確實(shí)要?jiǎng)h除當(dāng)前記錄嗎？", vbYesNo + vbQuestion, "確認(rèn)")</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 ' [首記錄](méi)按鈕無(wú)效</p><p>　　Command2.Enabled = False ' [上一個(gè)]按鈕無(wú)效</p><p>　　Command3.Enabled = T

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

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

100、p>　　點(diǎn)擊MDI主窗體的信息查詢菜單下的藥品信息查詢，出現(xiàn)如下圖所示，可以進(jì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 "藥品編號(hào)" ' 為組合列表框添加各選項(xiàng)</p>

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

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

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

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

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

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

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