結(jié)構(gòu)化電子病歷的設(shè)計與實現(xiàn)畢業(yè)論文-資料下載頁
2025-06-27 21:53本頁面
【正文】 rmation system project failures: Lessons form a New Zealand hospital ,1～20[7] [J].中華醫(yī)院管理雜志,1999,8(4),7～15[8] ,2002,6(1),14～15[9] :人民衛(wèi)生出版社,2003:214～254[10]::57～59[11],2002,10(3),112～114[12],2008,10(11),123～125[13]:[畢業(yè)論文].保存地點:大連理工大學,2009,30～32[14],2004,5(7),3～5[15],2004,8(3),6～7[16]:[畢業(yè)論文].保存地點:同濟大學,2007,34～35[17]鐘麗玲,2004,5(8),9～10[18]:[畢業(yè)論文].保存地點:浙江大學,2002,45～46[19]薩師煊,(第三版).北京:高等教育出版社,2002:56～60[20] ::57～59 [21]::78～79[22]董國平,顏志軍, :電子工業(yè)出版社,2006:55～64,214～294[23] Basic + :清華大學出版社,2006:41～157[24],2002,9(5),18～20[25],10(4),6～7 附 錄1．添加功能程序：Private Sub 添加1_Click()On Error Resume Next = False = False = False = False = False = False = False = False = False = False…………End Sub說明：省略號的內(nèi)容需要根據(jù)具體情況而定，例如：在設(shè)計出院小結(jié)子模塊時，因為該界面中有18個text按鈕，所以在上述程序段后還需要再添加8個“ = False”，其中X=11，12，……，18。2．查詢功能完整程序Private Sub 查找_Click()NAME1$ = 請輸入要查詢的姓名：NAME2$ = InputBox(NAME1, 查詢記錄) = 0 = 病案首頁 姓名 = amp。 39。 amp。 NAME2$ amp。 39。If Then MsgBox (沒有找到要查詢的記錄！) End IfEnd Sub3．刪除功能完整程序Private Sub 刪除_Click()If ThenEnd IfEnd Sub4．主界面設(shè)計的主要程序Private Sub 病案首頁_Click()End SubPrivate Sub 出院小結(jié)_Click()End SubPrivate Sub 護理記錄_Click()End SubPrivate Sub 會診記錄_Click()End SubPrivate Sub 交接班記錄_Click()End SubPrivate Sub 麻醉記錄_Click()End SubPrivate Sub 搶救記錄_Click()End SubPrivate Sub 入院記錄_Click()End SubPrivate Sub 首次病程記錄_Click()End SubPrivate Sub 手術(shù)記錄_Click()End SubPrivate Sub 術(shù)后首次病程記錄_Click()End SubPrivate Sub 術(shù)前討論記錄_Click()End SubPrivate Sub 退出系統(tǒng)_Click()EndEnd SubPrivate Sub 退出系統(tǒng)1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = False = False = False = False = False = True = amp。HC0E0FFEnd SubPrivate Sub 新增病人_Click()End SubPrivate Sub 新增病人1_Click()End SubPrivate Sub 新增病人1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = True = False = False = False = False = False = False = False = amp。HC0E0FFEnd SubPrivate Sub 病案首頁1_Click()End SubPrivate Sub 病案首頁1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = True = False = False = False = False = False = False = amp。HC0E0FFEnd SubPrivate Sub 入院記錄1_Click()End SubPrivate Sub 入院記錄1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = True = False = False = False = False = False = amp。HC0E0FFEnd SubPrivate Sub 病程記錄1_Click()End SubPrivate Sub 病程記錄1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = False = True = False = False = False = False = amp。HC0E0FFEnd SubPrivate Sub 出院小結(jié)1_Click()End SubPrivate Sub 出院小結(jié)1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = False = False = True = False = False = False = amp。HC0E0FFEnd SubPrivate Sub 護理記錄1_Click()End SubPrivate Sub 護理記錄1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = False = False = False = True = False = False = amp。HC0E0FFEnd SubPrivate Sub 意見反饋1_Click()End SubPrivate Sub 意見反饋1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = False = False = False = False = True = False = amp。HC0E0FFEnd SubPrivate Sub 退出系統(tǒng)1_Click()EndEnd SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = Truen = = amp。HFF0000 = 33End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = False = False = False = False = False = False = amp。H80FF80 = amp。H80FF80 = amp。H80FF80 = amp。H80FF80 = amp。H80FF80 = amp。H80FF80 = amp。H80FF80 = amp。H80FF80 = vbGreen = False = 28End SubPrivate Sub 疑難病例討論記錄_Click()End SubPrivate Sub 意見反饋_Click()End SubPrivate Sub 轉(zhuǎn)科記錄_Click()End Sub
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1