醫(yī)院信息系統(tǒng)畢業(yè)設計(編輯修改稿)
2025-01-04 01:37 本頁面
【文章內(nèi)容簡介】 榮聯(lián)系為 M： N，則它們之間的聯(lián)系由另一個關系模式表示，這個關系模式由每個參加的實體集的主鍵及這個聯(lián)系的任何屬性一起組成。 數(shù)據(jù)庫的實現(xiàn) 通過對轉(zhuǎn)換后 所得到關系模式的分析，結(jié)合本系統(tǒng)的功能及所選開發(fā)工具和數(shù)據(jù)庫系統(tǒng)的特點，對系統(tǒng)數(shù)據(jù)庫進行設計，建立一個具有良好的數(shù)據(jù)組織結(jié)構(gòu)的數(shù)據(jù)庫，應遵循的原則有： 可能減少數(shù)據(jù)冗余和重復 結(jié)構(gòu)設計和操作設計相結(jié)合 數(shù)據(jù)結(jié)構(gòu)具有相對的穩(wěn)定性 由于數(shù)據(jù)庫中所保存的數(shù)據(jù)是系統(tǒng)中非常重要的資源，所以在數(shù)據(jù)庫設計時一定要注意數(shù)據(jù)結(jié)構(gòu)的安全性、完整性，并發(fā)控制與恢復，而一般的數(shù)據(jù)庫管理系統(tǒng)都提供了一定的數(shù)據(jù)保護功能。 12 建立數(shù)據(jù)表 利用 Microsoft Access 2020 建立一個新的空的數(shù)據(jù)庫名為醫(yī)院信息管理系統(tǒng) .mdb；并建立表 ， 分別用來存儲病人信息、醫(yī)師信息、護士信息，病床信息，藥品入庫信息、藥品出庫信息、藥品庫存信息、門診信息。 病人信息表 字段 數(shù)據(jù)類型 長度 是否為空 備注 病 人 編號 自動編號 20 否 主鍵 姓名 文本 6 否 性別 文本 2 約束“男，女” 年齡 數(shù)字 3 小于 139，大于 0 床號 數(shù)字 12 否 外主鍵 主治醫(yī)師 文本 6 否 外主鍵 入院時間 日期 自動 否 病由 文本 50 病情說明 醫(yī)師信息表 字段 數(shù)據(jù)類型 長度 是否為空 備注 醫(yī)師編號 數(shù)字 20 否 主鍵 姓名 文本 6 否 性別 文本 2 否 約束“男，女” 年齡 數(shù)字 3 否 小于 139，大于 0 職位 文本 8 否 職稱 文本 8 否 密碼 文本 10 否 用 *覆蓋 護士信息表 字段 數(shù)據(jù)類型 長度 是否為空 備注 護士編號 數(shù)字 20 否 主鍵 姓名 文本 6 否 性別 文本 2 否 約束“男，女” 年齡 數(shù)字 3 否 小于 139，大于 0 職位 文本 8 否 職稱 文本 8 否 密碼 文本 10 否 用 *覆蓋 治療信息表 字段 數(shù)據(jù)類型 長度 是 否為空 備注 醫(yī)師編號 數(shù)字 20 否 主鍵 護士編號 數(shù)字 20 否 主鍵 13 病人編號 自動編號 20 否 主鍵 診斷時間 日期 否 醫(yī)囑 文本 50 記錄對病人的用藥情況 藥品入庫記錄表 字段 數(shù)據(jù)類型 長度 是否為空 備注 藥品編號 數(shù)字 20 否 主鍵 藥品名 文本 12 否 入庫時間 日期 否 廠商 文本 20 否 單價 貨幣 否 數(shù)量 數(shù)字 10 否 總價 貨幣 12 采購地址 文本 24 否 藥品出庫記錄表 字段 數(shù)據(jù)類型 長度 是否為 空 備注 藥品編號 數(shù)字 20 否 主鍵 藥品名 文本 12 否 出庫時間 日期 否 接收方 文本 24 否 單價 貨幣 否 數(shù)量 數(shù)字 10 否 總價 貨幣 12 藥品庫存信息表 字段 數(shù)據(jù)類型 長度 是否為空 備注 藥品編號 數(shù)字 20 否 主鍵 藥品名 文本 12 否 廠商 文本 20 否 單價 貨幣 否 現(xiàn)有數(shù)量 數(shù)字 10 否 當達到警戒數(shù)量時提示采購 門診信息 表 字段 數(shù)據(jù)類型 長度 是否為空 備注 門診單號 自動編號 20 否 主鍵 病人編號 自動編號 20 否 外鍵 科別 文本 內(nèi)科，外科 ，傳染科 繳費日期 日期 否 繳費金額 貨幣 14 模塊設計 （部分代碼） 登陸界面： Private Sub Combo1_Click() Set Res = New Recordset If = 數(shù)據(jù)輸入員 Then select count(yhzh) from login where yhlx=39。數(shù)據(jù)輸入員 39。, objCon, adOpenKeyset, adLockOptimistic If (0) = 0 Then MsgBox 當前無此類型賬號 , vbCritical, 提示 = False = False Exit Sub End If End If If = 1 Or = 2 Then = True = True = = Else = False = False = Guest = Guest End If End Sub Private Sub Command1_Click() Static res1 As Integer Dim strExec As String Dim bValiduser As Boolean Dim iOldMousePointer As Integer bValiduser = False iOldMousePointer = = 11 = iOldMouserPointer If = Then MsgBox 請輸入賬號 , vbCritical, 錯誤信息 Exit Sub ElseIf = Then MsgBox 請輸入密碼 , vbCritical, 錯誤信息 Exit Sub 15 End If Set Res = New Recordset Select Case Case 數(shù)據(jù)輸入員 strExec = select * from login where yhlx=39。 amp。 amp。 39。 Set Res = (strExec) If Not Then If Trim(Res(yhzh)) Trim() Then MsgBox 用戶賬號不正確 , vbCritical, 登錄錯誤 = = res1 = res1 + 1 ElseIf Trim(Res(yhmm)) Trim() Then
公司管理相關推薦
鄂ICP備17016276號-1