【文章內(nèi)容簡介】
設(shè)計(jì)好的基本ER圖,轉(zhuǎn)換為邏輯結(jié)構(gòu)。ER圖向關(guān)系模型轉(zhuǎn)換的結(jié)果如下所示:其中下劃線為主鍵。設(shè)備(設(shè)備編號(hào),設(shè)備類型,生產(chǎn)廠商,購置日期,金額,保修年限,使用人,管理員,所屬實(shí)驗(yàn)室,備注,是否已外借)設(shè)備維修記錄(記錄號(hào),設(shè)備號(hào),類型,所屬實(shí)驗(yàn)室,損壞部件,損壞原因,維修意見,意見回復(fù),維修單位,維修費(fèi)用,維修時(shí)間,電話)設(shè)備報(bào)廢記錄(記錄號(hào),設(shè)備編號(hào),設(shè)備類型,報(bào)廢意見,意見回復(fù),報(bào)廢日期,所屬實(shí)驗(yàn)室,報(bào)廢設(shè)備倉庫)設(shè)備賠償記錄(記錄號(hào),設(shè)備編號(hào),設(shè)備類型,所屬實(shí)驗(yàn)室,賠償原因,賠償金額,賠償單位,賠償日期)設(shè)備借還記錄(記錄號(hào),設(shè)備編號(hào),類型,所屬實(shí)驗(yàn)室,單價(jià),借用單位(個(gè)人),聯(lián)系電話,借用日期,歸還日期) 設(shè)備類別(類別編號(hào),類別名稱)使用者(使用者編號(hào),姓名,聯(lián)系電話)實(shí)驗(yàn)室管理員(編號(hào),姓名,性別,住址,電話 )管理員(管理員編號(hào),管理員名稱,管理員密碼,權(quán)限類型,備注)實(shí)驗(yàn)室(實(shí)驗(yàn)室編號(hào),實(shí)驗(yàn)室名稱,管理員編號(hào))供應(yīng)商(供應(yīng)商編號(hào),名稱,電話,傳真,供貨類型 )日志信息表(操作員編號(hào),操作員姓名,操作日期,操作時(shí)間,操作模塊,操作,備注)數(shù)據(jù)庫最終是要存儲(chǔ)在物理設(shè)備上的。為一個(gè)給定的邏輯數(shù)據(jù)模型選取一個(gè)最適合應(yīng)用環(huán)境的物理結(jié)構(gòu)的過程,就是數(shù)據(jù)庫的物理設(shè)計(jì)。物理結(jié)構(gòu)依賴于給定的DBMS和和硬件系統(tǒng),因此設(shè)計(jì)人員必須充分了解所用DBMS的內(nèi)部特征,特別是存儲(chǔ)結(jié)構(gòu)和存取方法;充分了解應(yīng)用環(huán)境,特別是應(yīng)用的處理頻率和響應(yīng)時(shí)間要求;以及充分了解外存設(shè)備的特性。 數(shù)據(jù)庫的物理設(shè)計(jì)通常分為兩步: (1).確定數(shù)據(jù)庫的物理結(jié)構(gòu) (2).對(duì)物理結(jié)構(gòu)進(jìn)行評(píng)價(jià),評(píng)價(jià)的重點(diǎn)是時(shí)間和空間效率 系統(tǒng)功能結(jié)構(gòu)圖主要從功能的角度描述了系統(tǒng)的結(jié)構(gòu),但并未表達(dá)各功能之間的數(shù)據(jù)傳送關(guān)系。事實(shí)上,系統(tǒng)中許多業(yè)務(wù)或功能都是通過數(shù)據(jù)文件聯(lián)系起來的。例如,某一功能模塊向某一數(shù)據(jù)文件中存入數(shù)據(jù),而另一個(gè)功能模塊則從該數(shù)據(jù)文件中取出數(shù)據(jù)。再比如,雖然在數(shù)據(jù)流程圖中的某兩個(gè)功能模塊之間原來并沒有通過數(shù)據(jù)文件發(fā)生聯(lián)系,但為了處理方便,在具體實(shí)現(xiàn)中有可能在兩個(gè)處理功能之間設(shè)立一個(gè)臨時(shí)的中間文件以便把它們聯(lián)系起來。上述這些關(guān)系在設(shè)計(jì)中是通過繪制信息系統(tǒng)流程圖來從整體上表達(dá)的。下圖為系統(tǒng)功能圖。 系統(tǒng)功能模塊圖用戶擁有自己的用戶名、密碼和使用權(quán)限。當(dāng)輸入用戶名和密碼以后,點(diǎn)擊“確定”鍵,如果用戶名和密碼都正確就可以順利進(jìn)入主窗體,如果輸入錯(cuò)誤,那么就有相應(yīng)的提示信息。 登陸界面圖主要代碼如下所示: Private Sub Command1_Click() Dim rs As New Dim rs1 As New Dim rs2 As New Dim rs3 As New Dim n, X, M As Integer If = Then MsgBox 請(qǐng)輸入用戶名! Exit Sub End If If = Then MsgBox 請(qǐng)輸入密碼 Exit Sub End If If = Admin Or = admin Then select * from SysAd_Info where Admin_Name=39。 amp。 Trim() amp。 39。 and Admin_SecNum=39。 amp。 Trim() amp。 39。, DBCnn, adOpenStatic, adLockOptimistic select * from SysAd_Info where Admin_SecNum=39。 amp。 Trim() amp。 39。, DBCnn, adOpenStatic, adLockOptimisti End If End If End If主要代碼如下所示:Private Sub Command1_Click() = False = = False = = MsgBox 請(qǐng)輸入要添加的用戶信息!End Sub 對(duì)“刪除用戶”按鈕的代碼如下:Private Sub Command2_Click() Dim rs As New Dim rs1 As New