醫(yī)院信息管理系統(tǒng)

醫(yī)院管理信息系統(tǒng)設計設計一個醫(yī)院管理信息系統(tǒng)，該系統(tǒng)的用戶由一般用戶和管理員組成，然后不同的用戶統(tǒng)功能。用sqlsever2000創(chuàng)建后臺數據庫，然后利用程序設計語言(VB)編寫程序實現對數據庫的操作，按照要求完成所有的功能和模塊。2、醫(yī)院管理信息系統(tǒng)主要功能(1)用戶管理：用戶登錄界面，用戶注冊界面，病人資料登記界面(添加，打印等)，定條件)，病院病床查詢界面(一定條件)，藥劑信息查詢界面(添加，打印等)，藥劑信息選購界面(選購)，科室界面(查詢)，本用戶密碼的修改界面(2)管理員管理：管理員登錄界面，管理員注冊界面，職工資料管理界面(添加，修改，刪除)，病人資料管理界面(增加，修改，刪除)，用戶信息管理界面(添加，刪除)，病院病床管理界面(修改，刪除)，病院病床管理界面(添加，修改，刪除)，藥劑管理界面 (修改，刪除)，科室管理(修改，刪除)。3、醫(yī)院管理信息系統(tǒng)數據庫表單(1)用戶信息表單：用戶名，密碼，用戶身份(管理員和普通用戶)(2)職工信息表單：員工號，所屬科室，員工姓名，性別，現任職務，出身年月，開(3)病人信息表單：病人編號，病人姓名，病人性別，，病人年齡，職業(yè)，登記日期，證件號碼，過敏史，體重，血型，聯系電話，家庭住址，婚姻狀況。(4)科室表單：科室名稱，地點，員工號，科室主任，病房數，是否顯示(5)病院病床表單：病床代號，所屬科室，是否空閑(6)藥品信息表單：藥品編號，藥品名稱，規(guī)格名稱，計量單位，單價，主治癥狀(7)醫(yī)療儀器管理表單：儀器代號，儀器名稱，儀器價格，儀器數量(8)門診掛號表：編號，病人編號，姓名，性別，掛號科室，費用類型，掛號費用，是否已劃價1醫(yī)院管理信息系統(tǒng)需求分析(給出系統(tǒng)的功能模塊圖，對各個功能作出詳細介紹)2醫(yī)院管理信息系統(tǒng)界面設計(給出界面截圖及其主要控件的屬性設置表格)3醫(yī)院管理信息系統(tǒng)數據庫設計(給出數據庫各個表單中數據的字段名，數據類型及其相應的說明)4醫(yī)院管理信息系統(tǒng)程序設計(按照功能模塊給出詳細的程序代碼，并給出重點語句釋)門診掛號登門診掛號登記用戶信息管用戶信息管理醫(yī)療儀器管理科室信息管理藥劑資料管理病院病床管理病人資料管理職工資料管理用戶密碼修改職工信息查詢科室信息查詢藥劑信息查詢病人信息登記病院病床查詢醫(yī)院管理信息系統(tǒng)管理員登陸用戶登陸新用戶注冊管理員服務登陸用戶服務刪除添加更新 新，從管理員可以添加，刪除，更新，查詢各用戶的信息，從而改變數據庫中的改對象屬性設置值Labelcaption修改密碼Labelcaption新密碼Labelcaption新密碼確認碼修改界面屬性表對象屬性設置值AdodccaptionAdodc1evisiblefalseptionptionLabelCaption額LabelCaption商品選購及結算LabelCaptionRMB對象屬性設置值AdodccaptionAdodc1evisiblefalseionCaptiononption息查詢界面屬性表對象置值姓名性別患者編號齡體重證件號碼業(yè)婚姻狀況聯系電話聯系地址登記日期過敏史病人信息登記對象設置值職工信息姓名查詢條件姓名性別科室編號科室齡務入職時間請輸入查詢條件對象對象置值病人信息中心姓名齡性別病號登記日期家庭住址業(yè)聯系電話婚姻狀況型體重過敏史息查詢界面屬性表對對象性設置值病人編號號姓名掛號科室性別掛號費用是否劃價號登記界面屬性表息管理界面屬性表對象屬性設置值Labelcaption科室信息管理Labelcaption科室名稱Labelcaption科室編號Labelcaption員工號Labelcaption病房數Labelcaption科室地點Labelcaption系主任設置值用戶名碼用戶類型對象面屬性表料管理界面屬性表對象對象置值病人信息中心姓名齡性別病號登記日期家庭住址業(yè)聯系電話婚姻狀況型體重過敏史對對象性設置值Yaojixinxi藥品編號藥品規(guī)格藥品數量主治癥狀所屬藥房料管理界面屬性表.11管理員密碼修改界面屬性表對象性設置值管理員修改密碼中心新密碼新密碼確認字字段名稱標始名稱數據類型是否允許為空字段說明用戶名用戶名否碼碼否是字字段名稱標始名稱數據類型是否允許為空字段說明病床代號病床代號Int否所屬科室所屬科室是是否空閑是否空閑是字段名稱姓名齡性別登記日期證件號碼病號家庭住址聯系電話過敏史業(yè)婚姻狀況體重標始名稱姓名齡性別登記日期證件號碼病號家庭住址聯系電話過敏史業(yè)婚姻狀況個體重表數據類型Intint3.3病人資料信息表是否允許為空否是是是是否是是是是是是是字段說明字段名稱標始名稱數據類型是否允許為空字段說明Int否病人編號病人編號是姓名姓名是性別性別是掛號科室掛號科室是是掛號費用掛號費用是是是是否劃價是否劃價是字段名稱標始名稱數據類型是否允許為空字段說明科室名稱科室名稱否地點地點是Int是科室編號科室編號是科室主任科室主任是病房數病房數int是字段名稱標始名稱數據類型是否允許為空字段說明藥品編號藥品編號Int否藥品名稱藥品名稱否規(guī)格名稱規(guī)格名稱是是主治癥狀主治癥狀是所屬藥房所屬藥房是藥品數量藥品數量是字段名稱標始名稱數據類型是否允許為空字段說明儀器代號儀器代號Int否儀器名稱儀器名稱是儀器價格儀器價格是儀器數量儀器數量int是所屬科室所屬科室是字字段名稱標始名稱數據類型是否允許為空字段說明int否姓名姓名是性別性別是齡齡是所屬科室所屬科室是現任職務現任職務是開始工作時間開始工作時間是是科室編號科室編號int否是4．醫(yī)院管理信息系統(tǒng)程序設計(部分代碼)它進入到登陸系統(tǒng)。界面輸入自己的姓名和密碼通過驗證后方可進入下一個界面。如下PrivateSubCommand1_Click()DimstrselectnameAsStringDimstrAsStringDimstrselectpasswordAsStringstr=Trim(Text1.Text)strselectname="select用戶名fromuser1where用戶名="&"'"&str&"'"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=chenyan;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectname'從用戶信息表中查詢所有的用戶姓名Adodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenret=MsgBox("姓名錯誤！",48,"warming!")'如果用戶輸入的姓名與用戶信息表中姓名不一致，就會出現該對話框提醒用戶重新輸入Text1.Text=""Text2.Text=""ExitSubEndIfstrselectpassword="select密碼fromuser1where用戶名="&"'"&Trim(Text1.Text)&"'"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=chenyan;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectpasswordAdodc1.RefreshIfTrim(Adodc1.Recordset.Fields("密碼").Value)<>Trim(Text2.Text)Thenret=MsgBox("密碼錯誤！",48,"warming!")'如果用戶輸入的密碼與用戶信息表中的密碼不一致就會出現該對話框Text2.Text=""Text2.SetFocusExitSubElse'Text1.Text=""'Text2.Text=""form2.Hideform1.ShowEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSubPrivateSubCommand3_Click()Text1.Text=""Text2.Text=""form2.HideForm20.ShowEndSubPrivateSubForm_Load()Text1.Text=""Text2.Text=""EndSub確認注冊便可以成功注冊，同時該用戶的信息也被寫入到了用戶信息表中(部分代PrivateSubCommand1_Click()Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=chenyan;DataSource=(local)"Adodc1.CommandType=adCmdTablerwhereTrimTextText&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用戶名已經存在！請重新輸入",0,"提示"Text1.Text=""Text1.SetFocusExitSubEndIfIfText1.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox"請輸入用戶名或密碼",0,"提示"ElseIfText2.Text<>Text3.TextThenMsgBox"確認密碼錯誤，請重新輸入",0,"提示"Text1.Text=""Text2.Text=""Text3.Text=""ElseMsgBox"恭喜你注冊成功"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=chenyan;DataSource=(local)"Adodc1.CommandType=adCmdTableAdodc1.RecordSource="user1"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名").Value=Trim(Text1.Text)Adodc1.Recordset.Fields("密碼").Value=Trim(Text2.Text)Adodc1.Recordset.Fields("用戶類型").Value="用戶"Adodc1.Recordset.UpdateText1.Text=""Text2.Text=""Text3.Text=""EndIfExitSub