數(shù)據(jù)庫課程設(shè)計(jì)--門診收費(fèi)管理系統(tǒng)-資料下載頁
2025-06-03 13:57本頁面
【正文】 lse = False = False = False End Sub 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(確實(shí)要?jiǎng)h除當(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。 [首記錄 ]按鈕無效 = False 39。 [上一個(gè) ]按鈕無效 = True 39。 [下一個(gè) ]按鈕有效 = True 39。 [末記錄 ]按鈕有效 = True 39。 [添加 ]按鈕有效 = True 39。 [刪除 ]按鈕有效 = False 39。 [確定 ]按鈕無效 = False 39。 [取消 ]按鈕無效 End Sub 藥品信息查詢 點(diǎn)擊 MDI 主窗體的信息查詢菜單下的藥品信息查詢，出現(xiàn)如下圖所示，可以進(jìn)行多條件查詢。 藥品信息查詢圖 源代碼： Private Sub Command1_Click() Dim str As String str = Select * From 藥品信息 str = str amp。 Where 藥品信息 . amp。 amp。 like 39。 amp。 Text1 amp。 %39。 = str End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 藥品編號(hào) 39。 為組合列表框添加各選項(xiàng) 單位 數(shù)量 名稱 價(jià)格 End Sub 選擇查詢條件為“單位”，輸入“克”，點(diǎn)擊查詢按鈕，結(jié)果如圖： 圖 藥品信息查詢結(jié)果 藥品信息查詢 點(diǎn)擊 MDI 主窗體的信息查詢菜單下的病人信息查詢，出現(xiàn)如下圖所示，可以進(jìn)行多條件查詢 。 病人信息查詢圖 選擇查詢條件為“性別”，輸入“女”，點(diǎn)擊查詢按鈕，結(jié)果如圖： 病人信息查詢結(jié)果圖 治療信息查詢 點(diǎn)擊 MDI 主窗體的信息查詢菜單下的治療信息查詢，出現(xiàn)如下圖所示，可以進(jìn)行多條件查詢。 治療信息查詢圖 選擇查詢條件為“名稱”，輸入“按摩”，點(diǎn)擊查詢按鈕，結(jié)果如圖： 治療信息查詢結(jié)果圖 總 結(jié) 經(jīng)過一段時(shí)間的數(shù)據(jù)庫系統(tǒng)學(xué)習(xí)，利用 Microsoft SQL Server2021軟件建立 相關(guān)信息的數(shù)據(jù)庫，并通過 Microsoft Visual Basic 。在老師的幫助和指導(dǎo)下進(jìn)行的本次課程設(shè)計(jì)。經(jīng)過自己的思考，建立的數(shù)據(jù)庫框架，并且翻閱各種參考書和參考課件，經(jīng)過不斷的調(diào)試，終于基本完成了本次的課程設(shè)計(jì)任務(wù)。本次完成的門診收費(fèi)管理系統(tǒng)基本符合所需的工作要求，但由于時(shí)間緊張，加上本人經(jīng)驗(yàn)上的不足，未能豐富系統(tǒng)的功能，日后希望能夠繼續(xù)努力，做到更好。 最后，我要感謝老師和同學(xué)悶給 予我的幫助和支持，使我能夠順利地完成本次的設(shè)計(jì)任務(wù)。讓我們對(duì)數(shù)據(jù)庫有了更進(jìn)一步的認(rèn)識(shí)和了解。今后我會(huì)更加努力學(xué)習(xí)數(shù)據(jù)庫的相關(guān)知識(shí)，相信能為我以后帶來很大的幫助。 參考文獻(xiàn) [1] 王珊 .數(shù)據(jù)庫系統(tǒng)簡明教程 . 北京 ：高等教育出版社， [2] 賽奎春 .Visual Basic信息系統(tǒng)開發(fā)實(shí)例精選 . 北京 ：高等教育出版社， [3] 劉韜、何旭洪主編，《 Visual BASIC數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 人民郵電出版社 [4] 武新華、魏平俊、魏經(jīng)娟， Visual BASIC管理信息系統(tǒng)開發(fā)案例，西安：西安電子科技 大學(xué)出版社， 2021 年 4 月。
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1