【正文】 MsgBox 兩 次輸入的密碼不一致，請重新輸入密碼！ , vbOKOnly + vbExclamation, 警告 = = Exit Sub ElseIf Trim() = Then 39。 UserName amp。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。, my, adOpenKeyset, adLockOptimistic If = True And = True Then MsgBox 查無此人 , , 登陸信息 Else If myrs(userPWD) = denlu_pass Then 39。調(diào)入數(shù)據(jù)備份 a5_Click End Select End Sub Private Sub x_Click() End End Sub ● 登陸模塊的實(shí)現(xiàn) Private Sub cmdLogin_Click() denlu_name = denlu_pass = Dim my As New Dim myrs As New Set myrs = New Provider=。調(diào)入 入庫登記 c1_Click Case Is = ck 39。 / amp。 / amp。執(zhí)行命令 iflag = 1 End If TransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit Function TransactSQL_Error: MsgBox 查詢錯(cuò)誤： amp。創(chuàng)建記錄集 On Error GoTo TransactSQL_Error strConnection = Provider=。 程序源代碼 程序?qū)崿F(xiàn)的部分代碼如下： ●公共模塊 Public date1 As String Public date2 As String Public gUserName As String 39。 ● 入庫登記統(tǒng)計(jì)表 入庫登記 _合計(jì) ● 貨物入庫年度統(tǒng)計(jì)表 入庫登記 _n ● 供貨單位年度供貨金額統(tǒng)計(jì)表 入庫登記 _w ● 倉庫匯總表 倉庫 ● 出庫登記統(tǒng)計(jì)表 出庫登記 _合計(jì) ● 貨物出庫年度統(tǒng)計(jì)表 出庫登記 _h ● 收貨單位年度收貨金額統(tǒng)計(jì)表 出庫登記 _d 入庫登記 _合計(jì)表與出庫登記 _合計(jì)分別是以入庫登記表和出庫登記表為基礎(chǔ)的，所以此處不再描述；倉庫匯總表主要由出庫表和入庫表建立關(guān)系獲得。系統(tǒng)集輸入、維護(hù)、查詢、統(tǒng)計(jì)和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。 ， 選用具有大型數(shù)據(jù)庫安全機(jī)制的 數(shù)據(jù)庫系統(tǒng) ，提供各種級別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，確保數(shù)據(jù)的安全可靠。 本系統(tǒng)基本涵蓋了倉庫管理的主要需求， 具有完善細(xì)致的功能、友好的用戶界面、強(qiáng)大的數(shù)據(jù)處理功能和完備的安全機(jī)制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。 倉庫貨物的信息量大，數(shù)據(jù)安全性和保密性要求高。 貨物進(jìn)出庫管理系統(tǒng)需滿足倉庫管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計(jì)不同用戶的操作權(quán)限和登陸方法。 存在的問題 雖然知道這個(gè)系統(tǒng)的主要模塊是什么，但是要實(shí)現(xiàn)這些模塊的功能還需要知道該怎么樣才能實(shí)現(xiàn)各個(gè)模塊的功能。 Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。 數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。 AS為關(guān)鍵字表示，并定義了別名。這里用到了 Setect Statement) 以后如果需要這樣的查詢，只需要引用查詢名 ”monthquery”即可。這種改變基于數(shù)據(jù)庫關(guān)系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。 MSChart控件支持一下特性： 真三維表示； 支持所有主要的圖表類型； 數(shù)據(jù)網(wǎng)絡(luò)成員支持隨機(jī) 數(shù)據(jù)，數(shù)據(jù)數(shù)組。用戶可以設(shè)置 DataGrid控件的 DataSource屬性為一個(gè) ADO Data控件，從而將 ADO Data中的數(shù)據(jù)自動(dòng)地填充到 DataGrid表格中。 DataList控件 /DataCombo控件 DataList 控件是一個(gè)數(shù)據(jù)綁定列表框，它可以自動(dòng)地由一個(gè)附加數(shù)據(jù)源中的一個(gè)字段充填，并且可選擇地更新另一個(gè)數(shù)據(jù)源中一個(gè)相關(guān)表的一個(gè)字段。所有這些控件都允許一次顯示或操作幾個(gè)記錄。這些與 Data控件結(jié)合使用的控件，可以稱之為“數(shù)據(jù)覺察控件”。 Data 控件允許從一個(gè)記錄移動(dòng)到另一個(gè)記錄，并顯示和操縱來自被連接控件的記錄的數(shù)據(jù)。這些控件包括： ● Data控件； ● ADO Data控件； ● DataList控件 /DataCombo控件； ● DataGrid控件； ● MSChart控件。如要修改窗體或控件的某項(xiàng)屬性，只需在相應(yīng)的窗體或控件的屬性窗口修改相應(yīng)的參數(shù)便可達(dá)到需要的設(shè)計(jì)效果。當(dāng)窗體或控件上發(fā)生一個(gè)事件時(shí)， VB 立即把控制權(quán)交給程序員。 VB的重要特點(diǎn)之一是可視性。 SQL語句 SQL語句概括起來可以分為數(shù)據(jù)操作語言，數(shù)據(jù)定義語言和數(shù)據(jù)控制語言幾大組，它們用于對數(shù)據(jù)庫數(shù)據(jù)的查詢，修改和更新， 是一種完備的數(shù)據(jù)處理語言。 SQL語言的突出優(yōu)點(diǎn)就是它的非過程化、統(tǒng)一，而且還是所有關(guān)系數(shù)據(jù)庫的公共語言。 ANSI 即 美國國家標(biāo)準(zhǔn)學(xué)會稱， SQL 是關(guān)系數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。 （ 4） 數(shù)據(jù)使用權(quán)限設(shè)置：針對用戶的不同使用要求，確定數(shù)據(jù)的用戶使用權(quán)限，確保數(shù)據(jù)安全。 （ 2） 數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫中數(shù)據(jù)表的結(jié)構(gòu)，數(shù)據(jù)表的邏輯結(jié)構(gòu)包括：屬性名稱、類型、表示形式、缺省值、校驗(yàn)規(guī)則、是否關(guān)鍵字、可否為空等。隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì) 算機(jī)在企業(yè)中應(yīng)用的普及為了滿足信息化管理的需要，實(shí)現(xiàn)倉庫的電腦化管理很需要一個(gè)貨物出入庫管理系統(tǒng) 第二章 數(shù)據(jù)庫理論基礎(chǔ) 數(shù)據(jù)庫系統(tǒng)設(shè)計(jì) 一個(gè)成功的信息管理系統(tǒng)，是建立在許多條件之上的，而數(shù)據(jù)庫是其中一個(gè)非常重要的條件和關(guān)鍵技術(shù)。產(chǎn)品保障信息網(wǎng)是實(shí)現(xiàn)物資儲運(yùn)全 過程可視化的前提。因此，要實(shí)現(xiàn)快速、準(zhǔn)確、高效的收發(fā)作業(yè)，倉儲管理自動(dòng)化勢在必行。 現(xiàn)在對這類系統(tǒng)的開發(fā)與研究很有實(shí)用性的，基本上能滿足各企業(yè)的自身特點(diǎn)，對倉庫的管理，同時(shí)，這類系統(tǒng)在不斷地深入與發(fā)展，從而適用更多的企業(yè)，但是都沒有針對大眾的廣泛應(yīng)用，只能運(yùn)用某個(gè)企業(yè)或單位，所以這一點(diǎn)還有待于進(jìn)一步開發(fā)與實(shí)踐。此外，數(shù)據(jù)信息處 理工作量大，容易出錯(cuò)，數(shù)據(jù)繁多，容易丟失，且不易查找。利用計(jì)算機(jī)能夠進(jìn)行信息管理，進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。它所包含的運(yùn)行處理器用來處理窗體和數(shù)據(jù)庫的數(shù)據(jù)交互，以及回答查詢和打印報(bào)表等。 設(shè)計(jì)子系統(tǒng)有一個(gè)方便數(shù)據(jù)庫及其應(yīng)用創(chuàng)建的工具集。關(guān)系模型是由若干個(gè)關(guān)系模式組成的集合。對數(shù)據(jù)庫的一切操作，都是通過 DBMS進(jìn)行的。 不是 所有的 DBMS都支持應(yīng)用組件，支持組件的 DBMS 也不一定把全部組件的結(jié)構(gòu)作為應(yīng)用元數(shù)據(jù)存儲在數(shù)據(jù)庫中。如果沒有索 引，則必須搜索整個(gè)源表；但有了索引之后，可以找到索引條目，并使用它來挑選所有合適的行。 三、索引 第三種類型的數(shù)據(jù)改進(jìn)了數(shù)據(jù)庫的性能和可訪問性，這種數(shù)據(jù) 被稱 作開銷數(shù)據(jù)，盡管有時(shí)采用其他類型的數(shù)據(jù)結(jié)構(gòu)，但它主要還是索引。并非所有的關(guān)系都同樣符合要求，有些關(guān)系比其它關(guān)系更結(jié)構(gòu)化一些。它主要包括四個(gè)要素：用戶數(shù)據(jù)、元數(shù)據(jù)、索引和應(yīng)用元數(shù)據(jù)。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫并且功能完備、高效能。因此，一個(gè)成功的管理信息系統(tǒng)應(yīng)該具有可靠的硬件、實(shí)用的軟件、強(qiáng)有力的現(xiàn)代化管理水平。它是一個(gè)以計(jì)算機(jī)為工具，具有數(shù)據(jù)處理、預(yù)測、控制和輔助決策功能的信息系統(tǒng)。因此，開發(fā)一個(gè)貨物進(jìn)出庫管理系統(tǒng)是很有必要的，具有其特有的技術(shù)意義和管理意義。達(dá)到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了貨物進(jìn)出庫管理系統(tǒng)作 為 典型的信息管理系統(tǒng) (MIS)的要求。 本文主要分析了貨物進(jìn)出庫管理系統(tǒng)的一些基本功能和組成情況，包括系統(tǒng)的需求分析、系統(tǒng)結(jié)構(gòu)，功能模塊劃分以及數(shù)據(jù)庫模式分析等，重點(diǎn)對應(yīng)用程序的實(shí)際開發(fā)實(shí)現(xiàn)作了介紹。 使用計(jì) 算機(jī)對產(chǎn)品倉庫信息進(jìn)行管理，具有著人工管理無法比擬的優(yōu)點(diǎn)，它檢索迅速、查找方便、存儲量大、保密性好、成本低等，可減少更多的人力物力和財(cái)力，這些都能夠極大地提高貨物倉庫的管理效率，也是企業(yè)倉庫管理科學(xué)化、正規(guī)化，與世界接軌的重要條件。 管理信息系統(tǒng)是一個(gè)由人、機(jī) （計(jì)算機(jī)）組成的能進(jìn)行管理信息的收集、傳遞、存儲、加工、維護(hù)和使用的系統(tǒng)。 管理信息系統(tǒng)的基本結(jié)構(gòu)可以概括為四大部件，即信息源、信息處理器 、信息用戶和信息管理者。開發(fā)的主要過程為：理解用戶的需求，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計(jì)。 數(shù)據(jù)庫由 DBMS（數(shù)據(jù)庫管理系統(tǒng)）處理， DBMS 則由開發(fā)人員和用戶通過應(yīng)用程序直接或間接地使用。表的列包含域或?qū)傩?，表的行包含對?yīng)的實(shí)體的記錄。這些系統(tǒng)表存儲了數(shù)據(jù)庫中表的情況，每一個(gè)表中有多少列， 哪 一列是主關(guān)鍵 字，各 列的數(shù)據(jù)類型的描述，它也存儲索引、關(guān)鍵字、規(guī)則和數(shù)據(jù)庫結(jié)構(gòu)的其他部分。例如，一個(gè)用戶只想訪問 貨物信息 表中 ?類別 ?值為 ?01?的那些貨物 。 四、應(yīng)用元數(shù)據(jù) 存儲在數(shù)據(jù)庫中的第四種數(shù)據(jù)是應(yīng)用元數(shù)據(jù)，它用來存儲用戶窗體、報(bào)表、查詢和其他形式的查詢組件。 DBMS 是數(shù)據(jù)庫系統(tǒng)的核心組成部分。關(guān)系模型主要是用二維表格結(jié)構(gòu)表達(dá)實(shí)體集，用外鍵表示實(shí)體間聯(lián)系。 DBMS的特點(diǎn)和功能可以分為三個(gè)子系統(tǒng)：設(shè)計(jì)工具子系統(tǒng)、運(yùn)行子系統(tǒng)和 DBMS引擎。 運(yùn)行子系統(tǒng)處理用設(shè)計(jì)子系統(tǒng)開發(fā)的應(yīng)用組件。 貨物進(jìn)出庫管理系統(tǒng) 簡介 當(dāng)今時(shí)代是信息大爆炸的時(shí)代，在各行各業(yè)中離不開信息處理，計(jì)算機(jī)被廣泛應(yīng)用于信息處理系統(tǒng)的環(huán)境。以前倉庫進(jìn)行信息管理的方式主要是基于文本、表格等紙介質(zhì)的手工處理，對管理者的管理權(quán)限等不受約束，這樣容易引起資料外泄。提高信息處理的速度和準(zhǔn)確性。 技術(shù)應(yīng)用于倉庫管理是實(shí)現(xiàn)倉庫管理自動(dòng)化的有效途徑 倉庫品種多，數(shù)量大。 技術(shù)應(yīng)用于倉庫管理是完善產(chǎn)品保障信息網(wǎng)絡(luò)的重要手段 儲存產(chǎn)品信息是產(chǎn)品保障信息網(wǎng)絡(luò)的重要組成部分，是做好產(chǎn)品供應(yīng)保障工作的基礎(chǔ)。但據(jù)抽樣調(diào)查，這些軟件的主要作用體現(xiàn)在提高效率和規(guī)范管理方面，而對企業(yè)業(yè)務(wù)流程優(yōu)化和直接效益相關(guān)不高，倉儲管理部門需要一套成本低、性能高、方便使用、功能完善的綜合倉庫管理信息系統(tǒng)來提供幫助。 所以 選擇 DBMS， 需要 數(shù)據(jù)庫結(jié)構(gòu)定義。 （ 3） 存儲設(shè)備和存儲空間組織：確定數(shù)據(jù)的存放地點(diǎn)、存儲路徑、存 儲設(shè)備等，備份方案，對多版本如何保證一致性和數(shù)據(jù)的完整性。 SQL 通常使用于數(shù)據(jù)庫的通訊。標(biāo)準(zhǔn)的 SQL 命令，比如 Select、 Insert、 Update、 Delete、 Create和 Drop常常被用于完成絕大多數(shù)數(shù)據(jù)庫的操作。不要求用戶指定對數(shù)據(jù)的存放方法， 用 戶更易集中精力于要得到的結(jié)果； 作為統(tǒng)一的語言， SQL 可用于所有用戶的 DB 活動(dòng)模型，包括系統(tǒng)管理員、數(shù)據(jù)庫管理員、 應(yīng)用程序員、決策支持系統(tǒng)人員及許多其它類型的終端用戶。至今以升級到了 。 VB 的另一重要特點(diǎn)是事件驅(qū)動(dòng)。 利用 VB 的可視性特點(diǎn)，可方便的設(shè)計(jì)了程序的窗體界面，并在各個(gè)窗體中的合適位置繪制所需的每種控件。 數(shù)據(jù)庫組件介紹 在使用 Visual Basic 開發(fā)數(shù)據(jù)庫應(yīng)用程序的時(shí)候，會經(jīng)常使用數(shù)據(jù)庫訪問控件。它使用 Recordset對象提供對存儲在數(shù)據(jù)庫中數(shù)據(jù)的訪問。Data控件通常需要與其他控件結(jié)合使用。 當(dāng)與 Data控件相連接時(shí)， DataList、 DataCombo、 DataGrid 和 MSHFlexGrid控件都能管理記錄集合。用戶可以使用 ADO Data控件快速地創(chuàng)建一個(gè)到數(shù)據(jù)庫的連接。這 時(shí)就要借助于 DaatGrid控件。這會使枯燥的數(shù)據(jù)變得更加生動(dòng)直觀，增加了程序的實(shí)用價(jià)值。 假定“ Orders”是數(shù)據(jù)庫文件中地一張表格，則 x=Dsum(“[Feight]”,”O(jiān)rder”.”[ship country]=?UK?”) SQL訪問多個(gè)記錄地方法 在進(jìn)信息查詢和統(tǒng)計(jì)地過程中， 我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息?！?? ” (利用查詢的 SQL屬性，建立查詢依據(jù)，即查詢的條件。 計(jì)算機(jī)通過增加了條件的 monthquery查詢組成了新的記錄集。在 Access中，用戶不需要編寫復(fù)雜的程序就可以建立一個(gè)完整的數(shù)據(jù)庫應(yīng)用系統(tǒng)，是一個(gè)典型的開放式數(shù)據(jù)庫系統(tǒng) ，它可以和 Windows下的其他應(yīng)用程序共享數(shù)據(jù)庫資源。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。 第四章 貨物進(jìn)出庫管理系統(tǒng)設(shè)計(jì)分析 . 開發(fā)現(xiàn)狀 . 自己開發(fā)的