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