【正文】 為這個 recordset 顯示當(dāng)前記錄位置 = Record: amp。 CStr()End SubPrivate Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。設(shè)置所有表格對齊方式 (i) = 4 Next i For i = 0 To 11 39。 End SubPrivate Sub Command1_Click()39。確認(rèn)數(shù)據(jù)備份 = 11 YesNo = MsgBox(準(zhǔn)備好了嗎？, vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 MkDir ( amp。 NewPWD amp。 39。判斷密碼是否為空 MsgBox 密碼不能為空！, vbOKOnly + vbExclamation, 警告 = ConfirmPWD = Else 39。 Else MsgBox 密碼不正確, , 登陸信息 End If End If End Sub●添加用戶模塊的實(shí)現(xiàn)Option ExplicitPrivate Sub Command1_Click() Dim sql As String Dim rs As If Trim() = Then 39。39。39。39。39。39。39。39。39。39。39。39。Data Source=。 amp。 iflag = 2 Resume TransactSQL_ExitEnd Function●主窗體的程序代碼圖5－1 主窗體界面Private Sub a1_Click()End SubPrivate Sub a2_Click()Dim fAdd As New frmAddUser 0End SubPrivate Sub a3_Click()Dim fChangePWD As New frmChangePWD End SubPrivate Sub a4_Click()End SubPrivate Sub a5_Click() 39。保存用戶名39。庫存管理系統(tǒng)倉庫管理入庫管理出庫管理盤存管理綜合管理附項(xiàng)分類歷史數(shù)據(jù)管理打印、查詢系統(tǒng)貨品信息管理貨品庫存管理短線貨品管理超儲貨品管理出庫登記管理貨品出庫年度統(tǒng)計收貨單位年度收貨金額統(tǒng)計盤存錄入貨品出入庫期間匯總表倉庫信息管理供貨單位管理收貨單位管理經(jīng)辦人員管理 基本模塊與功能：包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對整個數(shù)據(jù)庫進(jìn)行備份，以確保數(shù)據(jù)的安全性。 ●系統(tǒng)特色： ，即時對系統(tǒng)數(shù)據(jù)進(jìn)行安全設(shè)置與保護(hù)。對于一個倉庫來說，最大的功能就是存儲貨品，所以倉庫管理就是對貨品信息，倉庫信息，短線貨品及超儲貨品的管理，用戶可以根據(jù)實(shí)際情況對各種貨品信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫等。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。需要說明的兩點(diǎn)是：①使用前先定義Dim mydb AS Database及myquery AS querydef.②查詢”monthquery”沒有使用Data控件，也就不直接顯示信息。 SQL語言在VB中的應(yīng)用為實(shí)現(xiàn)使用VB程序調(diào)用SQL語言訪問Access數(shù)據(jù)庫多個記錄的目的，我們利用SQL提供的函數(shù)。DataCombo控件的功能與DataList控件完全相同，只不過DataCombo控件是一個組合框。因?yàn)槌绦騿T無需編寫任何代碼，就可以在這些控件中顯示當(dāng)前記錄的數(shù)據(jù)。下面將分別對這些控件的主要功能及使用方法進(jìn)行介紹。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。 SQL語句SQL語句概括起來可以分為數(shù)據(jù)操作語言，數(shù)據(jù)定義語言和數(shù)據(jù)控制語言幾大組，它們用于對數(shù)據(jù)庫數(shù)據(jù)的查詢，修改和更新，是一種完備的數(shù)據(jù)處理語言。使用SQL的常見關(guān)系數(shù)據(jù)庫管理系統(tǒng)有：Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres等等。（4）數(shù)據(jù)庫結(jié)構(gòu)定義：目前的數(shù)據(jù)庫管理系統(tǒng)（DBMS）有的是支持聯(lián)機(jī)事務(wù)處理CLTP（負(fù)責(zé)對事務(wù)數(shù)據(jù)進(jìn)行采集、處理、存儲）的操作型DBMS，有的可支持?jǐn)?shù)據(jù)倉庫、有聯(lián)機(jī)分析處理CLAP（指為支持決策的制定對數(shù)據(jù)的一種加工操作）功能的大型DBMS，有的數(shù)據(jù)庫是關(guān)系型的、有的可支持面向?qū)ο髷?shù)據(jù)庫。邏輯設(shè)計的任務(wù)是從ER圖與對應(yīng)的綱要表出發(fā)，確定各個實(shí)體及關(guān)系的表名屬性。而庫存管理又涉及入庫、出庫的產(chǎn)品、經(jīng)辦人員及客戶等方方面面的因素，如何管理這些信息數(shù)據(jù)，是一項(xiàng)復(fù)雜的系統(tǒng)工程，充分考驗(yàn)著倉庫管理員的工作能力，工作量的繁重是可想而知的，所以這就需要由庫存管理系統(tǒng)來提高庫存管理工作的效率，這對信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢，減少管理方面的工作量，同時對于調(diào)動廣大員工的工作積極性，提高企業(yè)的生產(chǎn)效率，都具有十分重要的現(xiàn)實(shí)意義。產(chǎn)品保障信息網(wǎng)是實(shí)現(xiàn)物資儲運(yùn)全過程可視化的前提。因此，要實(shí)現(xiàn)收發(fā)作業(yè)的快速、準(zhǔn)確、高效，倉儲管理自動化勢在必行?？偟膩碚f，缺乏系統(tǒng)、規(guī)范的信息管理手段。DBMS引擎還涉及事務(wù)管理、鎖、備份和恢復(fù)。SQL語言是關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)化語言，已得到了廣泛的應(yīng)用。DBMS總是基于某種數(shù)據(jù)模型，可以把DBMS看成是某種數(shù)據(jù)模型在計算機(jī)系統(tǒng)上的具體實(shí)現(xiàn)。四、應(yīng)用元數(shù)據(jù)存儲在數(shù)據(jù)庫中的第四種數(shù)據(jù)是應(yīng)用元數(shù)據(jù)，它用來存儲用戶窗體、報表、查詢和其他形式的查詢組件。假定數(shù)據(jù)在磁盤上是按’貨品編號’的遞增順序排列的，用戶想打印一個按’貨品名稱’排序的貨品數(shù)據(jù)報表。結(jié)果表明，將關(guān)系分別存儲，在生成報表的時候?qū)⑺鼈兘Y(jié)合起來，比把它們存儲在一個合成的表中更好。表的列包含域或?qū)傩裕淼男邪瑢?yīng)業(yè)務(wù)環(huán)境中的實(shí)體的記錄。開發(fā)的主要過程為：理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計。簡言之，管理信息系統(tǒng)是一個以計算機(jī)為工具，具有數(shù)據(jù)處理、預(yù)測、控制和輔助決策功能的信息系統(tǒng)。s material flow management.Keywords: stock management, database, information management, VB第一章 緒論庫存管理系統(tǒng)是一個企事業(yè)單位不可缺少的一部分,它的內(nèi)容對于企業(yè)的決策者和管理者來說都是至關(guān)重要的，因此，庫存管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?，但一直以來人們使用傳統(tǒng)的人工方式管理庫存，這種管理方式存在著許多缺點(diǎn)，諸如效率低，保密性差等，而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困難。達(dá)到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了庫存管理系統(tǒng)作為典型的信息管理系統(tǒng)(MIS)的要求。在21世紀(jì)信息高速發(fā)展的時代中，管理信息系統(tǒng)具有很重要的作用，它的預(yù)測和輔助決策的功能，即利用現(xiàn)代管理的決策和支持。具體講，管理信息系統(tǒng)的三大支柱是：計算機(jī)網(wǎng)絡(luò)、數(shù)據(jù)庫和現(xiàn)代化的管理，這三打支柱稱為管理信息系統(tǒng)的擴(kuò)展部件。它主要包括四個要素：用戶數(shù)據(jù)、元數(shù)據(jù)、索引和應(yīng)用元數(shù)據(jù)。因此數(shù)據(jù)用兩個關(guān)系表示更好。三、索引第三種類型的數(shù)據(jù)改進(jìn)了數(shù)據(jù)庫的性能和可訪問性，這種數(shù)據(jù)經(jīng)常稱作開銷數(shù)據(jù)，盡管有時也采用其他類型的數(shù)據(jù)結(jié)構(gòu)，如鏈表，但它主要還是索引。如果沒有索引，則必須搜索整個源表；但有了索引之后，可以找到索引條目，并使用它來挑選所有合適的行。數(shù)據(jù)庫管理系統(tǒng)（DBMS）是指數(shù)據(jù)庫系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。關(guān)系模式相當(dāng)于前面提到的記錄類型，它的實(shí)例稱為關(guān)系，每個關(guān)系實(shí)際上是一張二維表格。運(yùn)行子系統(tǒng)處理用設(shè)計子系統(tǒng)開發(fā)的應(yīng)用組件。倉庫作為一總貨品資源的集散地，貨品的種類繁多，包含很多的信息數(shù)據(jù)的管理。今后此類軟件將會向條碼庫存管理系統(tǒng)發(fā)展，現(xiàn)階段，伴隨物流及管理信息化、網(wǎng)絡(luò)化的發(fā)展，應(yīng)用條碼技術(shù)進(jìn)行庫存管理、實(shí)現(xiàn)倉庫作業(yè)自動化，將是一個必然的發(fā)展趨勢，也是需要迫切解決的一個現(xiàn)實(shí)問題。比較發(fā)現(xiàn)，信息輸入時，條碼輸入速度是鍵盤輸入的5倍。另外，庫存管理的信息化和可視化，每個企業(yè)將會擁有兩個倉庫，一個是裝滿貨物的倉庫，還有一個就是管理系統(tǒng)里的數(shù)據(jù)庫，對上萬種貨物分別編碼，使其成為計算機(jī)可識別的語言，形象地說，貨架上的號碼就是貨物的地址，從而避免了貨物的分揀和提取時的翻箱倒柜式的查找。（2）數(shù)據(jù)庫設(shè)計主要是進(jìn)行數(shù)據(jù)庫的邏輯設(shè)計，即將數(shù)據(jù)按一定的分類、分組系統(tǒng)和邏輯層次組織起來，是面向用戶的。數(shù)據(jù)表設(shè)計不僅要滿足數(shù)據(jù)存儲的要求，還要增加一些如反映有關(guān)信息、操作責(zé)任、中間數(shù)據(jù)的字段或臨時數(shù)據(jù)表。SQL通常使用于數(shù)據(jù)庫的通訊。SQL的集合特性允許一條SQL語句的結(jié)果作為另一條SQL語句的輸入。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計菜單和對話框，VB會自動生成相應(yīng)的代碼。例如幾個窗體上的添加、刪除、返回按鈕的作用，就是通過在各個相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達(dá)到當(dāng)在幾個按鈕上出現(xiàn)單擊（Click）事件后，相應(yīng)按鈕實(shí)現(xiàn)添加、刪除、返回的功能的。Data控件可以執(zhí)行大部分?jǐn)?shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。 ADO Data控件ADO Data控件與內(nèi)部Data控件以及Remote Data控件（RDC）相似。 MSChart控件MSChart控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。amp。 Access 2000簡述Access2000 是關(guān)系數(shù)據(jù)庫開發(fā)工具，1992年，Microsoft Access作為第一個面向Windows操作平臺的桌面數(shù)據(jù)庫管理系統(tǒng)而誕生，它不但充分體現(xiàn)了面向?qū)ο蟮乃枷?，提供可視化的編程手段，而且充分利用了Windows操作平臺的優(yōu)越性，采用與Windows完全一致的界面風(fēng)格，使界面非常友好。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨品的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。操作快捷、方便。通過運(yùn)行程序首先進(jìn)入歡迎界面和登陸窗體，通過輸入密碼，驗(yàn)證身份后進(jìn)入主窗體，在主窗體上有10個菜單項(xiàng)，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)，庫存管理，入庫管理，出庫管理，盤存管理，綜合管理，附項(xiàng)管理，歷史數(shù)據(jù)管理，打印和查詢。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(sql), con, adOpenKeyset, adLockOptimistic Set transactSQL = rs 39。 / amp。調(diào)入庫存匯總f1_ClickCase Is = zhcx 39。39。39。39。39。39。 MsgBox 身份正確, , 登陸信息 Unload Me 39。39。39。39。39。39。39。 Set rs = transactSQL(sql) If = False Then 39。,39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！, vbOKOnly + vbExclamation, 警告 = = Else 39。 39。 .mdb = 0 MsgBox 數(shù)據(jù)已備份完畢。但它無法對數(shù)據(jù)進(jìn)行動態(tài)輸入，只能提供瀏覽功能。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。想要忽略錯誤，注釋掉下一行 39。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUn