校醫(yī)院門診管理信息系統(tǒng)實驗報告doc(參考版)
2025-07-21 09:40本頁面
【正文】 最后我還鍛煉了自己堅持學習和思考的能力，這次的設(shè)計讓我連續(xù)熬了一段時間的夜，但是我也堅持下來了，遇到一些問題暫時沒有解決的就主動去查閱資料和虛心請教同學，增強了人際交往能力，也更好地學會了在將來的人生中如何應(yīng)對挑戰(zhàn)。其次，我認識到自己無論在對于數(shù)據(jù)庫知識的理解和應(yīng)用上都有很大不足，而且編程的能力有待提高。 雖然存在大量的問題，但是經(jīng)過這一次的小型應(yīng)用程序設(shè)計，我收獲了很多。而且對于新用戶的添加，添加什么用戶的類型全靠用戶自覺，系統(tǒng)無法做到強制用戶只能添加與當前用戶類型相同的新用戶。4． 總結(jié)與心得 這是一個小型的校醫(yī)院門診管理信息系統(tǒng)，基本的功能都已經(jīng)具備，其中也插入了我的個人信息作為標示。當用戶點擊不屬于自己的權(quán)限的選項時，會彈出消息框提示用戶沒有該權(quán)限。由于前面的兩個關(guān)系圖的存在，所以對于用戶使用各功能的順序有要求，必須先由“掛號人員”錄入病人的基本信息，其他用戶才能進一步進行信息添加。當“掛號人員”進入主界面時，可以選擇“病人管理”中的“學生掛號記錄編輯”來查詢學生的掛號記錄，如下圖所示：當用戶單擊“添加”按鈕時，添加一個新紀錄，各輸入框顯示為空，同時添加按鈕變?yōu)椴豢捎茫苊舛啻螁螕簟疤砑印卑粹o產(chǎn)生多條空記錄，而“保存”按鈕可以使用，當用戶在輸入框中輸入各字段后，單擊“保存”按鈕，則將新紀錄寫入數(shù)據(jù)庫中。 以實現(xiàn)“醫(yī)生”用戶的“處方編輯”功能的權(quán)限為例，在MDIForm1中有如下代碼：Private Sub 學生處方記錄編輯_Click()If usertype = 1 Then“處方編輯”窗口ElseMsgBox 對不起，您沒有訪問權(quán)限, , 提示End IfEnd Sub3． 程序運行結(jié)果展示 以“掛號人員”用戶使用此系統(tǒng)為例展示運行結(jié)果，其他用戶的運行方式和所見到的各界面與此類似。窗體中插入ADO控件，關(guān)聯(lián)到數(shù)據(jù)表“處方信息”中。End Sub Private Sub Command2_Click()Unload MeEnd Sub這樣，當用戶輸入了想要查詢費用的病人的學號并且點擊了“查詢”按鈕之后，這個病人的繳費記錄就能單獨顯示在數(shù)據(jù)網(wǎng)格中。 Trim() amp。此時該窗體的代碼如下：Private Sub Command1_Click() = SELECT * From 費用 Where 學號=39。將數(shù)據(jù)網(wǎng)格“DataGrid1”的DataSource屬性設(shè)置為”Adodc1”,AllowUpdate屬性設(shè)置為“False”。 （I)實現(xiàn)查詢功能的代碼（以Form9為例）： 在窗體Form9中插入ADO數(shù)據(jù)控件，將其命名為“Adodc1”,將其CommandType屬性設(shè)置為“1adCmdText”,RcordSource屬性設(shè)置為“SELECT * From 費用”。而當CommandType屬性被設(shè)置為1adCmdText時，則需要用SQL語句獲取所需記錄集，需要將相應(yīng)SQL語句設(shè)置為ADO控件的RcordSource屬性。當用戶打算結(jié)束本次使用的時候，用戶可以在主界面中選擇“退出系統(tǒng)”選項，這時會彈出一個帶有作者信息的消息框，點擊確定之后即可退出系統(tǒng)。每一類用戶都可添加新用戶，但是建議用戶添加與自己類型相同的用戶，這樣可以便于各種職業(yè)的用戶各司其職，不會看到自己的用戶類型本不應(yīng)該看到的信息，更好地保護用戶的隱私。 圖一 學生處方編輯 圖二 病人
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1