【正文】 有了報表才能清楚地知道貨品的出入庫情況，在數(shù)據(jù)報表功能中包括出庫報表，庫存報表及經(jīng)辦人員報表等一些基本信息的打印，方便簡潔。需要哪個功能的時候就點哪個菜單，相對應(yīng)的窗體會自動彈出。 date2 = amp。39。39。39。39。39。39。判斷是否已經(jīng)存在用戶 MsgBox 這個用戶已經(jīng)存在！請重新輸入用戶名稱！, vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else If Trim() Trim() Then 39。修改密碼 sql = update 用戶 set UserPWD = 39。errprompt: = 0 Select Case Case 57 MsgBox 磁盤已滿！, vbCritical Case 70 MsgBox 磁盤寫保護(hù)！, vbCritical End SelectEnd SubPrivate Sub Command2_Click() Load main = True Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd Sub●數(shù)據(jù)恢復(fù)模塊的實現(xiàn)Private Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Dir1_Change() = End SubPrivate Sub Drive1_Change() = End SubPrivate Sub File1_Click() = amp。 DescriptionEnd SubPrivate Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。驗證代碼置于此處 39。顯示信息內(nèi)容 = 1 While Not = + 1 ( 1, 0) = rs(0) ( 1, 1) = rs(1) ( 1, 2) = rs(2) ( 1, 3) = rs(3) ( 1, 4) = rs(4) ( 1, 5) = rs(5) ( 1, 6) = rs(6) ( 1, 7) = rs(7) ( 1, 8) = rs(8) ( 1, 9) = rs(9) ( 1, 10) = rs(10) ( 1, 11) = rs(11) ( 1, 12) = rs(12) Wend End IfEnd Sub●貨品入庫登記模塊的實現(xiàn)圖5－3 入庫登記窗口Private Sub Form_Unload(Cancel As Integer) = vbDefaultEnd SubPrivate Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。 \, amp。重新設(shè)置初始化為空 = = = End If End If End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() = = = End Sub●修改用戶密碼的實現(xiàn)Option ExplicitPublic gUserName As StringPrivate Sub Command1_Click()Dim sql As String Dim rs As If Trim() = Then 39。 amp。39。39。39。39。39。 + denlu_name + 39。調(diào)入數(shù)據(jù)恢復(fù) Load main_sjhf End SubPrivate Sub b1_Click()End SubPrivate Sub b12_Click() sql = select * from 貨品信息 order by 貨品編碼 (sql) End SubPrivate Sub b2_Click()End SubPrivate Sub B3_Click()End SubPrivate Sub b4_Click()End SubPrivate Sub c1_Click()End SubPrivate Sub c2_Click()End SubPrivate Sub c3_Click()End SubPrivate Sub c4_Click()End SubPrivate Sub Command1_Click()date1 = amp。據(jù)流程圖：登陸庫存管理系統(tǒng)驗證用戶信息系統(tǒng)主窗體倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數(shù)據(jù)管理打印、查詢系統(tǒng)貨品入庫單經(jīng)辦人員報表貨品出庫單數(shù)據(jù)備份備份輸出庫存匯總圖4－1 庫存管理系統(tǒng)數(shù)據(jù)流程圖 密碼錯誤 匯總計算貨品信息管理數(shù)據(jù)流程圖：貨品登記基本信息錄入貨品基本信息管理貨品調(diào)配匯總出庫貨品信息管理入庫貨品信息管理貨品其他信息管理圖4－2 貨品信息管理數(shù)據(jù)流程圖本庫存管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的，所以只需建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)結(jié)構(gòu)表描述如下：貨品信息表字段名數(shù)據(jù)類型字段長度是否為空貨品編碼文本5貨品名稱文本10類別文本8型號文本4單位文本2倉庫編碼文本5存放倉庫文本12入庫計劃單價貨幣出庫計劃單價貨幣原始庫存數(shù)字長整型默認(rèn)貨位文本5警戒底線庫存數(shù)字長整型警戒高線庫存數(shù)字長整型表1 貨品信息表入庫登記表字段名數(shù)據(jù)類型字段長度是否為空入庫日期日期/時間入庫單號文本10貨物編碼文本5數(shù)量數(shù)字長整型進(jìn)貨價貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表2 入庫登記表出庫登記表字段名數(shù)據(jù)類型字段長度是否為空出庫日期日期/時間出庫單號文本10貨物編碼文本5貨物名稱文本10數(shù)量數(shù)字長整型單價貨幣出貨價貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表3 貨品出庫表倉庫信息表字段名數(shù)據(jù)類型字段長度是否為空倉庫編號文本5倉庫名稱文本12存貨種類文本2存貨價值貨幣表4 倉庫信息表供貨單位信息表（收貨單位表）字段名數(shù)據(jù)類型字段長度是否為空單位編號文本5單位名稱文本50單位地址文本50電話文本15聯(lián)系人文本8表5 供貨單位信息表經(jīng)辦人員表字段名數(shù)據(jù)類型字段長度是否為空編號文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6 經(jīng)辦人員表用戶表字段名數(shù)據(jù)類型字段長度是否為空UserID文本10userPWD文本6表7 用戶表另外，我們還建立了幾張查詢表，用以存放部分用于計算的統(tǒng)計信息，以便查詢。有了貨品的入庫，自然也就有貨品的出庫，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對一些出庫貨品的管理，也很方便數(shù)據(jù)的輸入。計算機(jī)通過增加了條件的monthquery查詢組成了新的記錄集。這時就要借助于DaatGrid控件。它使用Recordset對象提供對存儲在數(shù)據(jù)庫中數(shù)據(jù)的訪問。第三章 應(yīng)用系統(tǒng)開發(fā)工具 Visual Basic簡介及實現(xiàn)原理Visual Basic（簡稱VB）是美國微軟公司（Microsoft）于1990年推出的一套完整的Windows系統(tǒng)軟件開發(fā)工具，可用于開發(fā)Windows環(huán)境下的各類應(yīng)用程序，是一種可視化、面向?qū)ο?、用事件?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言和工具，是目前使用最廣泛的編程語言之一。（5）物理設(shè)計的任務(wù)是確定所有屬性的類型、寬度與取值范圍，設(shè)計出基本表的主鍵，將所有的表名與字段名英文化（現(xiàn)在很多軟件能支持中文字段，如Access 2000），實現(xiàn)物理建庫，完成數(shù)據(jù)庫物理設(shè)計字典。條碼技術(shù)在儲存管理中的應(yīng)用，可進(jìn)一步完善系統(tǒng)各倉庫之間及各倉庫與作業(yè)主管部門之間的信息共享和交換功能，最終達(dá)到對產(chǎn)品的全程跟蹤管理，充分發(fā)揮條碼技術(shù)在整個流通中的作用。因此，很有必要建立一個庫存管理系統(tǒng)，使貨品管理工作規(guī)范化，系統(tǒng)化，程序化。設(shè)計子系統(tǒng)有一個方便數(shù)據(jù)庫及其應(yīng)用創(chuàng)建的工具集。然而，大多數(shù)現(xiàn)代的DBMS產(chǎn)品存儲這種數(shù)據(jù)作為數(shù)據(jù)庫的一部分。因為DBMS產(chǎn)品是用來存儲和操縱表的，所以大多數(shù)產(chǎn)品把元數(shù)據(jù)以表的形式存儲，有時稱作系統(tǒng)表。數(shù)據(jù)庫技術(shù)在計算機(jī)軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于60年代，30多年來數(shù)據(jù)庫技術(shù)得到了迅速發(fā)展，并已形成較為完整的理論體系和一大批實用系統(tǒng)。作為計算機(jī)應(yīng)用的一部分，使用計算機(jī)對產(chǎn)品庫存信息進(jìn)行管理，具有著人工管理無法比擬的優(yōu)點，它檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等，可減少更多的人力物力，這些都能夠極大地提高貨品庫存的管理效率，也是企業(yè)庫存管理科學(xué)化、正規(guī)化，與世界接軌的重要條件。因此，開發(fā)一個庫存管理系統(tǒng)是很有必要的，具有其特有的技術(shù)意義和管理意義。并且，近年來，隨著World Wide Web(WWW)的猛增及Internet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時成為最熱門技術(shù)之一。這些系統(tǒng)表存儲了數(shù)據(jù)庫中表的情況，指出每一個表中有多少列，那一列是主關(guān)鍵字，每一列的數(shù)據(jù)類型的描述，它也存儲索引、關(guān)鍵字、規(guī)則和數(shù)據(jù)庫結(jié)構(gòu)的其他部分。一般來說，數(shù)據(jù)庫開發(fā)人員和用戶都不直接訪問應(yīng)用元數(shù)據(jù)，相反，他們通過DBMS中的工具來處理這些數(shù)據(jù)。它典型地包含產(chǎn)生表、窗體、查詢和報表的工具。提高信息處理的速度和準(zhǔn)確性。同時，在軟件系統(tǒng)的研發(fā)過程中，將會融入一種EPR的企業(yè)管理思想。（5）數(shù)據(jù)字典設(shè)計：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計，便于維護(hù)和修改。VB的重要特點之一是可視性。Data控件允許從一個記錄移動到另一個記錄，并顯示和操縱來自被連接控件的記錄的數(shù)據(jù)。用戶可以設(shè)置DataGrid控件的DataSource屬性為一個ADO Data控件，從而將ADO Data中的數(shù)據(jù)自動地填充到DataGrid表格中。AS為關(guān)鍵字表示，并定義了別名。倉庫貨品的信息量大，數(shù)據(jù)安全性和保密性要求高?！袢霂斓怯浗y(tǒng)計表 入庫登記_合計●貨