數(shù)據(jù)庫課程設(shè)計--門診收費管理系統(tǒng)(參考版)
2025-06-07 13:57本頁面
【正文】 。今后我會更加努力學(xué)習(xí)數(shù)據(jù)庫的相關(guān)知識，相信能為我以后帶來很大的幫助。 最后，我要感謝老師和同學(xué)悶給 予我的幫助和支持，使我能夠順利地完成本次的設(shè)計任務(wù)。經(jīng)過自己的思考，建立的數(shù)據(jù)庫框架，并且翻閱各種參考書和參考課件，經(jīng)過不斷的調(diào)試，終于基本完成了本次的課程設(shè)計任務(wù)。 治療信息查詢圖 選擇查詢條件為“名稱”，輸入“按摩”，點擊查詢按鈕，結(jié)果如圖： 治療信息查詢結(jié)果圖 總 結(jié) 經(jīng)過一段時間的數(shù)據(jù)庫系統(tǒng)學(xué)習(xí)，利用 Microsoft SQL Server2021軟件建立 相關(guān)信息的數(shù)據(jù)庫，并通過 Microsoft Visual Basic 。 為組合列表框添加各選項 單位 數(shù)量 名稱 價格 End Sub 選擇查詢條件為“單位”，輸入“克”，點擊查詢按鈕，結(jié)果如圖： 圖 藥品信息查詢結(jié)果 藥品信息查詢 點擊 MDI 主窗體的信息查詢菜單下的病人信息查詢，出現(xiàn)如下圖所示，可以進(jìn)行多條件查詢 。 %39。 amp。 amp。 藥品信息查詢圖 源代碼： Private Sub Command1_Click() Dim str As String str = Select * From 藥品信息 str = str amp。 [確定 ]按鈕無效 = False 39。 [添加 ]按鈕有效 = True 39。 [下一個 ]按鈕有效 = True 39。 [首記錄 ]按鈕無效 = False 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到首記錄上 = False = False End If End Sub Private Sub Command3_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 [取消 ]按鈕無效 End Sub 治療信息查詢 點擊 MDI 主窗體的管理菜單下的治療信息管理，出現(xiàn)治療信息管理界面，可以進(jìn)行增加，刪除，前移，后移，添加，修改，刪除等功能。 [刪除 ]按鈕有效 = False 39。 [末記錄 ]按鈕有效 = True 39。 [上一個 ]按鈕無效 = True 39。 移到末記錄 = True = True = False = False End Sub Private Sub Command5_Click() = False = False = True = True End Sub Private Sub Command6_Click() = True = True = False = False End Sub Private Sub Command7_Click() x = MsgBox(確實要刪除當(dāng)前記錄嗎？ , vbYesNo + vbQuestion, 確認(rèn) ) If x = vbYes Then If Then End If Else End If End Sub Private Sub Command8_Click() = True = True = False = False End Sub Private Sub Command9_Click() Unload Me End Sub Private Sub Form_Load() = False 39。 如果記錄指針移到了末記錄之后 39。則記錄指針移到首記錄上 = False = False End If End Sub Private Sub Command3_Click() 39。記錄指針移到前一條記錄 = True = True If Then 39。 讓 [末記錄 ]按鈕有效 39。 讓 [前移 ]按鈕無效 = True 39。 記錄指針移到首記錄（顯示首記錄） = False 39。 [取消 ]按鈕無效 End Sub 檢查信息管理 管理點擊 MDI 主窗體管理菜單下的檢查信息管理，出現(xiàn)檢查信息界面，可以進(jìn)行增加，刪除，前移后移，添加，修改，刪除等功能。 [刪除 ]按鈕有效 = False 39。 [末記錄 ]按鈕有效 = True 3
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1