【正文】 美的數(shù)據(jù)模型。后來(lái)Codd又陸續(xù)發(fā)表多篇文章，論述了范式理論和衡量關(guān)系系統(tǒng)的12條標(biāo)準(zhǔn)，用數(shù)學(xué)理論奠定了關(guān)系數(shù)據(jù)庫(kù)的基礎(chǔ)。關(guān)系模型有嚴(yán)格的數(shù)學(xué)基礎(chǔ)，抽象級(jí)別比較高，而且簡(jiǎn)單清晰，便于理解和使用。但是當(dāng)時(shí)也有人認(rèn)為關(guān)系模型是理想化的數(shù)據(jù)模型，用來(lái)實(shí)現(xiàn) DBMS是不現(xiàn)實(shí)的，尤其擔(dān)心關(guān)系數(shù)據(jù)庫(kù)的性能難以接受，更有人視其為當(dāng)時(shí)正在進(jìn)行中的網(wǎng)狀數(shù)據(jù)庫(kù)規(guī)范化工作的嚴(yán)重威脅。為了促進(jìn)對(duì)問(wèn)題的理解，1974 年ACM牽頭組織了一次研討會(huì)，會(huì)上開展了一場(chǎng)分別以Codd和Bachman為首的支持和反對(duì)關(guān)系數(shù)據(jù)庫(kù)兩派之間的辯論。這次著名的辯論推動(dòng)了關(guān)系數(shù)據(jù)庫(kù)的發(fā)展，使其最終成為現(xiàn)代數(shù)據(jù)庫(kù)產(chǎn)品的主流。數(shù)據(jù)庫(kù)設(shè)計(jì)的步驟主要是：①數(shù)據(jù)庫(kù)結(jié)構(gòu)定義：目前的數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS）有的是支持聯(lián)機(jī)事務(wù)處理CLTP（負(fù)責(zé)對(duì)事務(wù)數(shù)據(jù)進(jìn)行采集、處理、存儲(chǔ)）的操作型DBMS，有的可支持?jǐn)?shù)據(jù)倉(cāng)庫(kù)、有聯(lián)機(jī)分析處理CLAP（指為支持決策的制定對(duì)數(shù)據(jù)的一種加工操作）功能的大型DBMS，有的數(shù)據(jù)庫(kù)是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫(kù)。針對(duì)選擇的DBMS，進(jìn)行數(shù)據(jù)庫(kù)結(jié)構(gòu)定義。②數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫(kù)中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱、類型、表示形式、缺省值、校驗(yàn)規(guī)則、是否關(guān)鍵字、可否為空等。關(guān)系型數(shù)據(jù)庫(kù)要盡量按關(guān)系規(guī)范化要求進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)，但為使效率高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來(lái)決定。數(shù)據(jù)表設(shè)計(jì)不僅要滿足數(shù)據(jù)存儲(chǔ)的要求，還要增加一些如反映有關(guān)信息、操作責(zé)任、中間數(shù)據(jù)的字段或臨時(shí)數(shù)據(jù)表。③存儲(chǔ)設(shè)備和存儲(chǔ)空間組織：確定數(shù)據(jù)的存放地點(diǎn)、存儲(chǔ)路徑、存儲(chǔ)設(shè)備等，備份方案，對(duì)多版本如何保證一致性和數(shù)據(jù)的完整性。④數(shù)據(jù)使用權(quán)限設(shè)置：針對(duì)用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權(quán)限，確保數(shù)據(jù)安全性。⑤數(shù)據(jù)字典設(shè)計(jì)：用數(shù)據(jù)字典描述數(shù)據(jù)庫(kù)的設(shè)計(jì)，便于維護(hù)和修改。本倉(cāng)庫(kù)管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的，所以只需建立起一個(gè)數(shù)據(jù)庫(kù)，在此數(shù)據(jù)庫(kù)基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)結(jié)構(gòu)表描述如下：入庫(kù)表表xx 入庫(kù)表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空貨物編號(hào)文本12否貨物名稱文本12否庫(kù)存地址文本12否入庫(kù)時(shí)間日期/時(shí)間否貨物規(guī)格文本8否單位文本8否入庫(kù)數(shù)量數(shù)字長(zhǎng)整型否經(jīng)手人文本8否始發(fā)地文本8否目的地 文本8否倉(cāng)庫(kù)數(shù)據(jù)中包含了三張數(shù)據(jù)表，分別為：入庫(kù)表、庫(kù)存表、出庫(kù)表。隨著入庫(kù)和出庫(kù)的操作，它們成為一個(gè)動(dòng)態(tài)的數(shù)據(jù)庫(kù)。其中入庫(kù)表中數(shù)據(jù)是隨入庫(kù)管理時(shí)輸入的貨物信息改變的，出庫(kù)表數(shù)據(jù)則是隨出庫(kù)管理改變數(shù)據(jù)，而庫(kù)存表數(shù)據(jù)隨入庫(kù)管理數(shù)據(jù)增加，隨出庫(kù)管理數(shù)據(jù)減少或改變。庫(kù)存表表XX 庫(kù)存表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空貨物編號(hào)文本12否貨物名稱文本12否庫(kù)存地址文本12否登記人文本8否數(shù)量數(shù)字長(zhǎng)整型否單位文本8否日期日期/時(shí)間否出庫(kù)表表XX 出庫(kù)表字段名數(shù)據(jù)類型字段長(zhǎng)度是否為空貨物編號(hào)文本12否貨物名稱文本12否登記人編號(hào)文本12否出庫(kù)數(shù)量數(shù)字長(zhǎng)整型否單位文本8否領(lǐng)貨人文本8否出庫(kù)地址文本8否出庫(kù)時(shí)間日期/時(shí)間否入庫(kù)管理出庫(kù)管理入庫(kù)表數(shù)據(jù)庫(kù)存表數(shù)據(jù)出庫(kù)表數(shù)據(jù)倉(cāng)庫(kù)數(shù)據(jù)庫(kù)5程序模塊的設(shè)計(jì)及界面的實(shí)現(xiàn)本應(yīng)用程序由12個(gè)窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫(kù)管理窗體，出庫(kù)管理窗體，入庫(kù)表窗體，出庫(kù)表窗體，庫(kù)存表窗體及庫(kù)位查詢等窗體組成。通過(guò)運(yùn)行程序首先進(jìn)入歡迎界面和登陸窗體，通過(guò)輸入密碼，驗(yàn)證身份后進(jìn)入主窗體，在主窗體上有5個(gè)菜單項(xiàng)，分別對(duì)應(yīng)各自的功能模塊窗體，包括貨物管理，庫(kù)位查詢，數(shù)據(jù)統(tǒng)計(jì)及報(bào)表，基本信息設(shè)置，幫助。需要哪個(gè)菜單就點(diǎn)哪個(gè)菜單，相對(duì)應(yīng)的窗體會(huì)自動(dòng)彈出。該圖為系統(tǒng)的歡迎界面。圖xx 系統(tǒng)歡迎界面主界面是整個(gè)系統(tǒng)的核心界面，其中有5個(gè)菜單項(xiàng)，6個(gè)按鈕。菜單貨物管理項(xiàng)下是入庫(kù)管理和出庫(kù)管理，庫(kù)位查詢只庫(kù)位查詢一個(gè)功能，而數(shù)據(jù)統(tǒng)計(jì)民報(bào)表菜單下有入庫(kù)表、庫(kù)存表和出庫(kù)表。基礎(chǔ)信息設(shè)置菜單項(xiàng)則包括：操作員登陸、注冊(cè)審理、密碼修改、返回登陸、退出系統(tǒng)。設(shè)置6個(gè)按鈕則為常用功能，依次是：入庫(kù)管理、出庫(kù)管理、入庫(kù)表、庫(kù)存表、出庫(kù)表和退出系統(tǒng)。圖xx為系統(tǒng)的主界面圖。圖xx 系統(tǒng)主界面設(shè)計(jì)主界面時(shí)，窗體主要添加了12個(gè)Label控件，6個(gè)Command控件，1個(gè)Timer控件，2個(gè)Image控件。其中6個(gè)Command控件的源代碼為：Private Sub Command1_Click() 39。打開入庫(kù)管理界面Unload MeEnd SubPrivate Sub Command2_Click() 39。打開出庫(kù)管理界面Unload MeEnd SubPrivate Sub Command3_Click() 39。打開報(bào)表Unload MeEnd SubPrivate Sub Command4_Click() 39。出庫(kù)表Unload MeEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click() 39。庫(kù)存表Unload MeEnd SubTimer控件主要實(shí)現(xiàn)主界面中時(shí)間的顯示功能，其代碼為：Private Sub Timer1_Timer() = Time = Day(Now) = Month(Now) = Year(Now)End Sub該界面實(shí)現(xiàn)用戶名和密碼的驗(yàn)證，驗(yàn)證通過(guò)后才能使用本系統(tǒng)。如圖xx為系統(tǒng)的登陸界面，用戶名和密碼必須匹配，如果匹配不正確則提示錯(cuò)誤如圖x所示。圖xx系統(tǒng)登陸界面圖xx錯(cuò)誤提示設(shè)計(jì)登陸界面時(shí)，窗體主要添加了2個(gè)Label控件，2個(gè)Command控件，2個(gè)Text控件。登陸源代碼為：Private Sub Command1_Click()Dim db1 As Database 39。數(shù)據(jù)庫(kù)連接變量聲明Dim rs1 As Recordset 39。記錄集連接變量聲明Dim c As String 39。SQL數(shù)據(jù)庫(kù)查詢語(yǔ)言，在VB中以字符串形式體現(xiàn)Dim d As String 39。提取text1內(nèi)容，輔助c變量生成SQL語(yǔ)句Dim a As String 39。提出數(shù)據(jù)庫(kù)中的用戶名Dim b As String 39。提出數(shù)據(jù)庫(kù)中的密碼Dim m As String 39。測(cè)試記錄集中的記錄條數(shù)Set db1 = (0).OpenDatabase( amp。 \) 39。從mimab數(shù)據(jù)表中查詢字段用戶名， 39。在VB中以字符串形式實(shí)現(xiàn)SQL查詢，賦值給字符串變量c. 39。形成記錄集賦值給變量rs1d = c = select * from mimab where 用戶名=39。 amp。 d amp。 39。Set rs1 = (c, dbOpenDynaset)m = 39。測(cè)試記錄集內(nèi)數(shù)據(jù)有幾條If m 0 Then 39。記錄集不為空，說(shuō)明用戶名正確，從數(shù)據(jù)庫(kù)中找到了相應(yīng)的用戶 a = rs1!用戶名 39。取出記錄集中的用戶名和密碼，用于下面If塊中的比對(duì)判斷 b = rs1!密碼 39。打開密碼表，用戶名和密碼兩個(gè)字段的值提出來(lái) 39。a=用戶名字段的值 39。b=密碼字段的值 If = a And = b Then 39。正確 Unload Me Else 39。不正確 MsgBox 密碼錯(cuò)誤，請(qǐng)重新輸入。, vbExclamation, 友情提示 = = End If Else 39。記錄集為空，說(shuō)明根本沒有該用戶。 MsgBox 用戶名錯(cuò)誤，請(qǐng)重新輸入。, vbExclamation, 友情提示 = = End If入庫(kù)管理主要是現(xiàn)實(shí)對(duì)入庫(kù)貨物的信息管理、入庫(kù)數(shù)據(jù)和庫(kù)存數(shù)據(jù)的記錄。貨物信息包括：貨物編號(hào)、貨物名稱、庫(kù)存地址、入庫(kù)時(shí)間、貨物規(guī)格、單位、入庫(kù)數(shù)量、經(jīng)手人、始發(fā)地、目的地。設(shè)計(jì)入庫(kù)管理面時(shí)，窗體主要添加了10個(gè)Label控件，2個(gè)Command控件，10個(gè)Text控件。其中2個(gè)Command控件的源代碼為：Private Sub Command1_Click()Dim MyDb1 As DatabaseDim MyRs1 As Recordset 39。入庫(kù)數(shù)據(jù)Dim MySql1 As StringDim MyRs2 As Recordset 39。庫(kù)存數(shù)據(jù)Dim MySql2 As StringDim a As String 39。貨物編號(hào)Dim b As String 39。庫(kù)存地址Dim c As String 39。貨物規(guī)格Dim d As String 39。入庫(kù)數(shù)量Dim e As String 39。始發(fā)地Dim f As String 39。貨物名稱Dim g As String 39。入庫(kù)時(shí)間Dim h As String 39。單位Dim i As String 39。經(jīng)手人Dim j As String 39。目的地a = 39。負(fù)值b = c = d = e = f = g = h = i = j = If a And b And c And d And e And f _ And g And h And i And j Then 39。判斷是否輸入完整， 程序換行用空格下畫線空格 Set MyDb1 = (0).OpenDatabase( amp。 \) MySql1 = select * from rukub 39。更新入庫(kù)表 Set MyRs1 = (MySql1, dbOpenDynaset) MyRs1!貨物編號(hào) = a MyRs1!庫(kù)存地址 = b MyRs1!貨物規(guī)格 = c MyRs1!入庫(kù)數(shù)量 = d MyRs1!始發(fā)地 = e MyRs1!貨物名稱 = f MyRs1!入庫(kù)時(shí)間 = g MyRs1!單位 = h MyRs1!經(jīng)手人 = i MyRs1!目的地 = j MySql2 = select * from kucunb 39。更新庫(kù)存表 Set MyRs2 = (MySql2, dbOpenDynaset) MyRs2!貨物編號(hào) = a MyRs2!庫(kù)存地址 = b MyRs2!數(shù)量 = d MyRs2!貨物名稱 = f MyRs2!日期 = g MyRs2!單位 = h MyRs2!登記人 = i MsgBox 入庫(kù)登記完成！, vbInformation, 友好提示Else MsgBox 數(shù)據(jù)輸入不完整，請(qǐng)重新輸入！, vbInformation, 友好提示End IfEnd SubPrivate Sub Command2_Click() 39。返回主界面Unload MeEnd Sub出庫(kù)管理主要是現(xiàn)實(shí)對(duì)入出庫(kù)貨物的信息管理、出庫(kù)數(shù)據(jù)和庫(kù)存數(shù)據(jù)的記錄。貨物信息包括：登記人編號(hào)、領(lǐng)貨人、貨物編號(hào)、貨物名稱、出庫(kù)數(shù)量、單位、出庫(kù)時(shí)間、出庫(kù)地址。圖zz為系統(tǒng)的出庫(kù)管理界面。圖zz系統(tǒng)出庫(kù)管理界面。設(shè)計(jì)出庫(kù)管理界面時(shí)，窗體主要添加了8個(gè)Label控件，2個(gè)Command控件，8個(gè)Text控件。其中2個(gè)Command控件的源代碼為：Private Sub Command1_Click()Dim MyDb As DatabaseDim MyRs1 As Recordset 39。入庫(kù)數(shù)據(jù)Dim MySql1 As StringDim MyRs2 As Recordset 39。庫(kù)存數(shù)據(jù)Dim MySql2 As StringDim a As String 39。登記人編號(hào)Dim b As String 39。貨物編號(hào)Dim c As String 39。出庫(kù)數(shù)量Dim d As String 39。出庫(kù)時(shí)間Dim e As String 39。領(lǐng)貨人Dim f As String 39。貨物名稱Dim g As String 39。單位Dim h As String 39。庫(kù)存地