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