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