目錄摘要…………1Abstract……………………2 緒論………………31.1管理信息系統(tǒng)的概述………32數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)簡(jiǎn)介…………………33庫(kù)存管理系統(tǒng)………………51.3.1國(guó)內(nèi)外同類(lèi)管理軟件的研究現(xiàn)實(shí)狀況與發(fā)展趨勢(shì)………………… 51。3。2庫(kù)存管理系統(tǒng)研究背景與意義……………………6第二章數(shù)據(jù)庫(kù)理論基礎(chǔ)……………………72.1數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)………………72。2SQL語(yǔ)言簡(jiǎn)介…………………72.2.1SQL基礎(chǔ)……………72.2.2SQL語(yǔ)句……………8第三章應(yīng)用系統(tǒng)開(kāi)發(fā)工具………………93。1VisualBasic簡(jiǎn)介及實(shí)現(xiàn)原理…………………93。2數(shù)據(jù)庫(kù)組件簡(jiǎn)介………………93.3SQL語(yǔ)言在VB中的應(yīng)用……………………103。4Access簡(jiǎn)述………………11庫(kù)存管理系統(tǒng)設(shè)計(jì)分析…………124。1需求分析………………………124。2模塊劃分………………………134。3數(shù)據(jù)庫(kù)設(shè)計(jì)……………………15應(yīng)用程序設(shè)計(jì)……………………185。1程序構(gòu)造……………………185。2程序源代碼…………………19第六章設(shè)計(jì)總結(jié)………38參照文獻(xiàn)……………………39

摘要 伴隨現(xiàn)代工業(yè)的發(fā)展，計(jì)算機(jī)信息管理系統(tǒng)越來(lái)越受到企業(yè)重視。本文重要分析了庫(kù)存管理系統(tǒng)的某些基本功能和構(gòu)成狀況，包括系統(tǒng)的需求分析、系統(tǒng)構(gòu)造,功能模塊劃分以及數(shù)據(jù)庫(kù)模式分析等,重點(diǎn)對(duì)應(yīng)用程序的實(shí)際開(kāi)發(fā)實(shí)現(xiàn)作了簡(jiǎn)介。到達(dá)了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了庫(kù)存管理系統(tǒng)作為經(jīng)典的信息管理系統(tǒng)（MIS)的規(guī)定.同步簡(jiǎn)樸簡(jiǎn)介了VisualBasic編程環(huán)境和Access數(shù)據(jù)庫(kù)管理系統(tǒng)的功能特點(diǎn)，庫(kù)存管理系統(tǒng)是企業(yè)物流管理中不可或缺的一部分。關(guān)鍵詞：庫(kù)存管理，數(shù)據(jù)庫(kù)，信息管理，VB

AbstractWiththedevelopmentofmodernindustry，theinformationmanagementsystemofthecomputerisbeingpaidattentiontobyenterprises。Thistexthasanalysedsomebasicfunctionsoftheadministrativesystemofthestockandmakesupthesituationmainly，includingthesystematicdemandisanalysed，systematicstructure,thefunctionmoduledividesandthedatabasemodeisanalysedetc。，haverealizeddoingtheintroductiontotheactualdevelopmentoftheapplicationprogramespecially。Havingreachedtheconsistencyandsecurityofthedata，andtheapplicationprogramfunctioniscomplete,haveaccordedwiththeadministrativesystemofthestockastherequestforthetypicalinformationmanagementsystem(MIS).IntroducedthefunctioncharacteristicsofVisualBasicprogrammingenvironmentandAccessdatabasemanagementsystembrieflyatthesametime，theadministrativesystemofthestockisanindispensablepartinenterprise’smaterialflowmanagement。Keywords：stockmanagement,database，informationmanagement，VB

緒論庫(kù)存管理系統(tǒng)是一種企事業(yè)單位不可缺乏的一部分,它的內(nèi)容對(duì)于企業(yè)的決策者和管理者來(lái)說(shuō)都是至關(guān)重要的，因此,庫(kù)存管理系統(tǒng)應(yīng)當(dāng)可認(rèn)為顧客提供充足的信息和快捷的查詢(xún)手段，但一直以來(lái)人們使用老式的人工方式管理庫(kù)存，這種管理方式存在著許多缺陷，諸如效率低，保密性差等，并且時(shí)間一長(zhǎng),將產(chǎn)生大量的文獻(xiàn)和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難.伴隨科學(xué)技術(shù)的不停提高，計(jì)算機(jī)科學(xué)不停發(fā)展，其強(qiáng)大的功能已經(jīng)被人們深刻認(rèn)識(shí)，它已經(jīng)進(jìn)入了人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)產(chǎn)品庫(kù)存信息進(jìn)行管理，具有著人工管理無(wú)法比擬的長(zhǎng)處，它檢索迅速、查找以便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等，可減少更多的人力物力,這些都可以極大地提高貨品庫(kù)存的管理效率，也是企業(yè)庫(kù)存管理科學(xué)化、正規(guī)化，與世界接軌的重要條件。因此，開(kāi)發(fā)一種庫(kù)存管理系統(tǒng)是很有必要的，具有其特有的技術(shù)意義和管理意義。 1。1管理信息系統(tǒng)的概述管理信息系統(tǒng)（簡(jiǎn)稱(chēng)MIS)是在管理科學(xué)、系統(tǒng)科學(xué)、計(jì)算機(jī)科學(xué)等的基礎(chǔ)上發(fā)展起來(lái)的綜合性邊緣科學(xué).在二十一世紀(jì)信息高速發(fā)展的時(shí)代中，管理信息系統(tǒng)具有很重要的作用，它的預(yù)測(cè)和輔助決策的功能，即運(yùn)用現(xiàn)代管理的決策和支持。管理信息系統(tǒng)是一種由人、機(jī)（計(jì)算機(jī)）構(gòu)成的能進(jìn)行管理信息的搜集、傳遞、存儲(chǔ)、加工、維護(hù)和使用的系統(tǒng)。它能觀測(cè)企業(yè)或組織的多種運(yùn)動(dòng)狀況,運(yùn)用過(guò)去的數(shù)據(jù)預(yù)測(cè)未來(lái);從全局出發(fā)輔助決策；運(yùn)用信息控制企業(yè)或組織行為，協(xié)助其實(shí)現(xiàn)長(zhǎng)遠(yuǎn)的規(guī)劃目的.簡(jiǎn)言之，管理信息系統(tǒng)是一種以計(jì)算機(jī)為工具,具有數(shù)據(jù)處理、預(yù)測(cè)、控制和輔助決策功能的信息系統(tǒng).管理信息系統(tǒng)是一種人機(jī)系統(tǒng)，同步它又是一種一體化集成系統(tǒng)。管理信息系統(tǒng)是信息系統(tǒng)的一種子系統(tǒng)，它以計(jì)算機(jī)技術(shù)、通訊技術(shù)和軟件技術(shù)為技術(shù)基礎(chǔ)，同步將現(xiàn)代管理理論、現(xiàn)代管理措施及各級(jí)管理人員融為一體，最終為某個(gè)組織整體的管理與決策服務(wù)，是由人和計(jì)算機(jī)構(gòu)成的能進(jìn)行管理信息的搜集、傳遞、存儲(chǔ)、加工、維護(hù)和使用的系統(tǒng)。管理信息系統(tǒng)的基本構(gòu)造可以概括為四大部件,即信息源、信息處理器、信息顧客和信息管理者.因此，一種成功的管理信息系統(tǒng)應(yīng)當(dāng)具有可靠的硬件、實(shí)用的軟件、強(qiáng)有力的現(xiàn)代化管理水平.詳細(xì)講,管理信息系統(tǒng)的三大支柱是：計(jì)算機(jī)網(wǎng)絡(luò)、數(shù)據(jù)庫(kù)和現(xiàn)代化的管理，這三打支柱稱(chēng)為管理信息系統(tǒng)的擴(kuò)展部件。1。2數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)簡(jiǎn)介在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)之前,對(duì)開(kāi)發(fā)數(shù)據(jù)庫(kù)的基本概念應(yīng)當(dāng)理解，對(duì)數(shù)據(jù)庫(kù)的構(gòu)造、開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的環(huán)節(jié)、開(kāi)發(fā)體系及措施都應(yīng)當(dāng)有相稱(chēng)清晰的理解和認(rèn)識(shí).數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)的目的是建立一種滿足顧客長(zhǎng)期需求的產(chǎn)品。開(kāi)發(fā)的重要過(guò)程為：理解顧客的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫(kù)設(shè)計(jì)。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫(kù)，并且這些數(shù)據(jù)庫(kù)帶有功能完備、高效能的應(yīng)用。數(shù)據(jù)庫(kù)技術(shù)在計(jì)算機(jī)軟件鄰域研究中一直是非常重要的主題，產(chǎn)生于60年代，30數(shù)年來(lái)數(shù)據(jù)庫(kù)技術(shù)得到了迅速發(fā)展,并已形成較為完整的理論體系和一大批實(shí)用系統(tǒng)。并且，近年來(lái),伴隨WorldWideWeb（WWW）的猛增及Internet技術(shù)的迅速發(fā)展,使得數(shù)據(jù)庫(kù)技術(shù)之時(shí)成為最熱門(mén)技術(shù)之一。1。2。1數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)由DBMS（數(shù)據(jù)庫(kù)管理系統(tǒng))處理,DBMS則由開(kāi)發(fā)人員和顧客通過(guò)應(yīng)用程序直接或間接地使用。它重要包括四個(gè)要素：顧客數(shù)據(jù)、元數(shù)據(jù)、索引和應(yīng)用元數(shù)據(jù).一、顧客數(shù)據(jù)目前，大多數(shù)主流數(shù)據(jù)庫(kù)管理系統(tǒng)把顧客數(shù)據(jù)表達(dá)為關(guān)系。目前把關(guān)系看作數(shù)據(jù)表.表的列包括域或?qū)傩?，表的行包括?duì)應(yīng)業(yè)務(wù)環(huán)境中的實(shí)體的記錄.并非所有的關(guān)系都同樣符合規(guī)定，有些關(guān)系比其他關(guān)系更構(gòu)造化某些。為了對(duì)比構(gòu)造差的關(guān)系和構(gòu)造好的關(guān)系之間的差異,以圖書(shū)管理系統(tǒng)中的圖書(shū)和圖書(shū)借閱者關(guān)系為例來(lái)闡明,假若設(shè)計(jì)關(guān)系R1（借書(shū)證號(hào),姓名,性別，身份編號(hào)，身份證,聯(lián)絡(luò)電話,圖書(shū)編號(hào)，圖書(shū)名稱(chēng),圖書(shū)類(lèi)別,作者，出版社，出版日期，備注，價(jià)格，數(shù)量)；這個(gè)關(guān)系的問(wèn)題出在它有有關(guān)兩個(gè)不一樣主題的數(shù)據(jù),就是圖書(shū)借閱者和圖書(shū)。用這種方式構(gòu)成的關(guān)系在進(jìn)行修改時(shí)，會(huì)出現(xiàn)問(wèn)題。由于一種圖書(shū)借閱者也許借閱多本書(shū)，假如某個(gè)圖書(shū)借閱者的某個(gè)字段（如聯(lián)絡(luò)電話）出現(xiàn)變更，它所借閱的圖書(shū)記錄（也許多種）也就必須變化，這是不好的。因此數(shù)據(jù)用兩個(gè)關(guān)系表達(dá)更好。目前假如某圖書(shū)借閱者變化了它的聯(lián)絡(luò)電話，只有關(guān)系（表）user的對(duì)應(yīng)行需要變化。當(dāng)然，要想產(chǎn)生一種，顯示圖書(shū)名稱(chēng)及其借閱者聯(lián)絡(luò)電話的報(bào)表，就需要將這兩個(gè)表的行結(jié)合起來(lái).成果表明，將關(guān)系分別存儲(chǔ)，在生成報(bào)表的時(shí)候?qū)⑺鼈兘Y(jié)合起來(lái)，比把它們存儲(chǔ)在一種合成的表中更好。user（借書(shū)證號(hào)，姓名，性別，身份編號(hào)，身份證，聯(lián)絡(luò)電話，）book（圖書(shū)編號(hào)，圖書(shū)名稱(chēng)，圖書(shū)類(lèi)別，作者，出版社，出版日期，備注，價(jià)格，數(shù)量)二、元數(shù)據(jù)數(shù)據(jù)庫(kù)是自描述的，這就意味著它自身包括了它的構(gòu)造的描述，這種構(gòu)造的描述稱(chēng)作元數(shù)據(jù)。由于DBMS產(chǎn)品是用來(lái)存儲(chǔ)和操縱表的，因此大多數(shù)產(chǎn)品把元數(shù)據(jù)以表的形式存儲(chǔ)，有時(shí)稱(chēng)作系統(tǒng)表.這些系統(tǒng)表存儲(chǔ)了數(shù)據(jù)庫(kù)中表的狀況，指出每一種表中有多少列，那一列是主關(guān)鍵字，每一列的數(shù)據(jù)類(lèi)型的描述，它也存儲(chǔ)索引、關(guān)鍵字、規(guī)則和數(shù)據(jù)庫(kù)構(gòu)造的其他部分。在表中存儲(chǔ)元數(shù)據(jù)不僅對(duì)DBMS是有效的,對(duì)顧客也是以便的，由于他們可以使用與查詢(xún)顧客數(shù)據(jù)同樣的查詢(xún)工具來(lái)查詢(xún)?cè)獢?shù)據(jù)。三、索引第三種類(lèi)型的數(shù)據(jù)改善了數(shù)據(jù)庫(kù)的性能和可訪問(wèn)性,這種數(shù)據(jù)常常稱(chēng)作開(kāi)銷(xiāo)數(shù)據(jù),盡管有時(shí)也采用其他類(lèi)型的數(shù)據(jù)構(gòu)造,如鏈表,但它重要還是索引。索引可以用來(lái)排序和迅速訪問(wèn)數(shù)據(jù)。下面以庫(kù)存管理系統(tǒng)中的貨品信息表為例來(lái)闡明。假定數(shù)據(jù)在磁盤(pán)上是按’貨品編號(hào)’的遞增次序排列的,顧客想打印一種按’貨品名稱(chēng)’排序的貨品數(shù)據(jù)報(bào)表。為此，所有的數(shù)據(jù)都需要從源表中提取出來(lái)并排序,除非表很小，否則這是一種很費(fèi)時(shí)的過(guò)程?；蛘撸梢栽凇浧访Q(chēng)’字段上創(chuàng)立一種索引，該索引的條目按照‘貨品名稱(chēng)’排序，這樣，該索引的條目可以讀出來(lái)，并用來(lái)按次序訪問(wèn)貨品信息數(shù)據(jù)。索引用于迅速訪問(wèn)數(shù)據(jù)。例如，一種顧客只想訪問(wèn)貨品信息表中‘類(lèi)別’值為‘01'的那些貨品。假如沒(méi)有索引,則必須搜索整個(gè)源表；但有了索引之后，可以找到索引條目，并使用它來(lái)挑選所有合適的行。索引對(duì)排序和查找是有協(xié)助的，但要付出代價(jià)。貨品信息表中的行每次變化時(shí)，索引也必須變化，這意味著索引并非隨意的，應(yīng)當(dāng)在真正需要時(shí)保留。四、應(yīng)用元數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)中的第四種數(shù)據(jù)是應(yīng)用元數(shù)據(jù)，它用來(lái)存儲(chǔ)顧客窗體、報(bào)表、查詢(xún)和其他形式的查詢(xún)組件。并非所有的DBMS都支持應(yīng)用組件,支持組件的DBMS也不一定把所有組件的構(gòu)造作為應(yīng)用元數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)中。然而,大多數(shù)現(xiàn)代的DBMS產(chǎn)品存儲(chǔ)這種數(shù)據(jù)作為數(shù)據(jù)庫(kù)的一部分.一般來(lái)說(shuō)，數(shù)據(jù)庫(kù)開(kāi)發(fā)人員和顧客都不直接訪問(wèn)應(yīng)用元數(shù)據(jù)，相反,他們通過(guò)DBMS中的工具來(lái)處理這些數(shù)據(jù)。Access中就支持窗體、存儲(chǔ)過(guò)程等應(yīng)用元數(shù)據(jù)。1。2.2數(shù)據(jù)庫(kù)管理系統(tǒng)數(shù)據(jù)庫(kù)管理系統(tǒng)(DBMS)是指數(shù)據(jù)庫(kù)系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。DBMS是數(shù)據(jù)庫(kù)系統(tǒng)的關(guān)鍵構(gòu)成部分。對(duì)數(shù)據(jù)庫(kù)的一切操作，包括定義、更新及多種控制，都是通過(guò)DBMS進(jìn)行的。DBMS總是基于某種數(shù)據(jù)模型,可以把DBMS當(dāng)作是某種數(shù)據(jù)模型在計(jì)算機(jī)系統(tǒng)上的詳細(xì)實(shí)現(xiàn).根據(jù)數(shù)據(jù)模型的不一樣，DBMS可以提成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?關(guān)系模型。關(guān)系模型重要是用二維表格構(gòu)造體現(xiàn)實(shí)體集，用外鍵表達(dá)實(shí)體間聯(lián)絡(luò)。關(guān)系模型是由若干個(gè)關(guān)系模式構(gòu)成的集合。關(guān)系模式相稱(chēng)于前面提到的記錄類(lèi)型，它的實(shí)例稱(chēng)為關(guān)系，每個(gè)關(guān)系實(shí)際上是一張二維表格。關(guān)系模型和層次、網(wǎng)狀模型的最大鑒別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡(jiǎn)樸顧客易懂，編程時(shí)并不波及存儲(chǔ)構(gòu)造,訪問(wèn)技術(shù)等細(xì)節(jié)。關(guān)系模型是數(shù)學(xué)化模型。SQL語(yǔ)言是關(guān)系數(shù)據(jù)庫(kù)的原則化語(yǔ)言，已得到了廣泛的應(yīng)用.DBMS的特點(diǎn)和功能可以分為三個(gè)子系統(tǒng)：設(shè)計(jì)工具子系統(tǒng)、運(yùn)行子系統(tǒng)和DBMS引擎.設(shè)計(jì)子系統(tǒng)有一種以便數(shù)據(jù)庫(kù)及其應(yīng)用創(chuàng)立的工具集。它經(jīng)典地包括產(chǎn)生表、窗體、查詢(xún)和報(bào)表的工具。DBMS產(chǎn)品還提供編程語(yǔ)言和對(duì)編程語(yǔ)言的接口。運(yùn)行子系統(tǒng)處理用設(shè)計(jì)子系統(tǒng)開(kāi)發(fā)的應(yīng)用組件。它所包括的運(yùn)行處理器用來(lái)處理窗體和數(shù)據(jù)庫(kù)的數(shù)據(jù)交互,以及回答查詢(xún)和打印報(bào)表等。DBMS引擎從其他兩個(gè)組件接受祈求，并把它們翻譯成對(duì)操作系統(tǒng)的命令，以便讀寫(xiě)物理介質(zhì)上的數(shù)據(jù)。DBMS引擎還波及事務(wù)管理、鎖、備份和恢復(fù)。1。3庫(kù)存管理系統(tǒng)當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代，在各行各業(yè)中離不開(kāi)信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息處理系統(tǒng)的環(huán)境.計(jì)算機(jī)最大的好處在于運(yùn)用它可以進(jìn)行信息管理，使用計(jì)算機(jī)進(jìn)行信息控制，不僅提高了工作效率，并且大大的提高了其安全性。尤其對(duì)復(fù)雜的信息管理，計(jì)算機(jī)可以充足發(fā)揮它的優(yōu)越性.計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開(kāi)發(fā)親密有關(guān),系統(tǒng)的開(kāi)發(fā)是系統(tǒng)管理的前提.倉(cāng)庫(kù)作為一總貨品資源的集散地，貨品的種類(lèi)繁多,包括諸多的信息數(shù)據(jù)的管理。據(jù)調(diào)查得知，此前倉(cāng)庫(kù)進(jìn)行信息管理的方式重要是基于文本、表格等紙介質(zhì)的手工處理,對(duì)于貨品的出入庫(kù)狀況的記錄和核算等往往采用對(duì)賬本的人工檢查，對(duì)管理者的管理權(quán)限等不受約束，任何人都可查看，這樣輕易引起資料外泄.此外，數(shù)據(jù)信息處理工作量大，輕易出錯(cuò),由于數(shù)據(jù)繁多，輕易丟失，且不易查找?？偟膩?lái)說(shuō),缺乏系統(tǒng)、規(guī)范的信息管理手段。并且，一般的存儲(chǔ)狀況是記錄在賬本上的，倉(cāng)庫(kù)的工作人員和管理員也只是當(dāng)時(shí)記得比較清晰,時(shí)間一長(zhǎng),假如再要進(jìn)行查詢(xún)，就得在眾多的資料中翻閱查找了,這樣導(dǎo)致費(fèi)時(shí)、費(fèi)力，如要對(duì)很長(zhǎng)時(shí)間此前的貨品進(jìn)行更改就愈加困難了。因此，很有必要建立一種庫(kù)存管理系統(tǒng)，使貨品管理工作規(guī)范化，系統(tǒng)化，程序化。提高信息處理的速度和精確性。1。3.1國(guó)內(nèi)外同類(lèi)管理軟件的研究現(xiàn)實(shí)狀況與發(fā)展趨勢(shì)目前國(guó)內(nèi)外對(duì)此類(lèi)系統(tǒng)的開(kāi)發(fā)與研究也是很有實(shí)用性的,基本上能滿足各企業(yè)的自身特點(diǎn)，來(lái)進(jìn)行庫(kù)存方面的管理，同步，改類(lèi)系統(tǒng)又都在不停地深入與發(fā)展，來(lái)合用更多的企業(yè)，一般都能運(yùn)用于各個(gè)企業(yè)的庫(kù)存管理，不過(guò)都沒(méi)有針對(duì)大眾的廣泛應(yīng)用，只能運(yùn)用某個(gè)企業(yè)或單位，這一點(diǎn)尚有待于此后的深入開(kāi)發(fā)與實(shí)踐。此后此類(lèi)軟件將會(huì)向條碼庫(kù)存管理系統(tǒng)發(fā)展，現(xiàn)階段，伴隨物流及管理信息化、網(wǎng)絡(luò)化的發(fā)展，應(yīng)用條碼技術(shù)進(jìn)行庫(kù)存管理、實(shí)現(xiàn)倉(cāng)庫(kù)作業(yè)自動(dòng)化，將是一種必然的發(fā)展趨勢(shì)，也是需要迫切處理的一種現(xiàn)實(shí)問(wèn)題。伴隨信息化技術(shù)的不停提高和應(yīng)用的日漸普及，更多的商品擁有自己的條碼，并且，使用條碼化工作替代老式作業(yè)模式，減少了手工輸入，這樣不僅提高了作業(yè)效率，還能保證資料對(duì)的，并減少因人為失誤所導(dǎo)致的損失.1、技術(shù)應(yīng)用于庫(kù)存管理是實(shí)現(xiàn)倉(cāng)庫(kù)管理自動(dòng)化的有效途徑庫(kù)存品種多，數(shù)量大。因此，要實(shí)現(xiàn)收發(fā)作業(yè)的迅速、精確、高效，倉(cāng)儲(chǔ)管理自動(dòng)化勢(shì)在必行。而實(shí)現(xiàn)管理自動(dòng)化的“瓶頸”則是產(chǎn)品信息的采集、輸入。老式手工作業(yè)方式,在信息采集量加大的情形下,半因信息不能及時(shí)的反饋，給收發(fā)作業(yè)導(dǎo)致一定的困難。運(yùn)用條碼技術(shù)，在入庫(kù)及其包裝上加貼條碼,配之以倉(cāng)庫(kù)信息管理系統(tǒng)進(jìn)行作業(yè)，不僅可提高效率，減少作業(yè)強(qiáng)度,也將大大提高產(chǎn)品收發(fā)作業(yè)精確率（如鍵盤(pán)輸入僅為百分之一），進(jìn)而實(shí)現(xiàn)倉(cāng)庫(kù)管理的全面自動(dòng)化。2、技術(shù)應(yīng)用于庫(kù)存管理對(duì)提高倉(cāng)庫(kù)作業(yè)效率有重要作用將條碼技術(shù)和倉(cāng)庫(kù)管理信息系統(tǒng)結(jié)合起來(lái)，用于產(chǎn)品收、發(fā)、保管等全過(guò)程控制管理,不僅可變化信息采集的老式手工作業(yè)方式，減少作業(yè)強(qiáng)度，還可防止由此導(dǎo)致的多種差錯(cuò),提高作業(yè)效率和科學(xué)管庫(kù)水平.比較發(fā)現(xiàn)，信息輸入時(shí)，條碼輸入速度是鍵盤(pán)輸入的5倍。入庫(kù)時(shí)，一般保管員根據(jù)產(chǎn)品上的條碼所反應(yīng)出的冊(cè)序號(hào)、出廠期、生產(chǎn)廠家、單價(jià)、封存（保管）期等信息，進(jìn)行實(shí)物點(diǎn)驗(yàn)，同步將條碼信息錄入到管理信息系統(tǒng)；出庫(kù)時(shí)，保管員根據(jù)航材發(fā)付單內(nèi)容，持條碼掃描裝置進(jìn)行器材揀選，并完畢信息錄入;清庫(kù)盤(pán)點(diǎn)時(shí)，保管員可持掃描裝備進(jìn)行數(shù)質(zhì)量等內(nèi)容查對(duì)，并半采集的信息錄入管理系統(tǒng)中進(jìn)行自動(dòng)盤(pán)點(diǎn)，生成清庫(kù)對(duì)帳單等，完畢清庫(kù)盤(pán)點(diǎn)作業(yè).3、技術(shù)應(yīng)用于庫(kù)存管理是完善產(chǎn)品保障信息網(wǎng)絡(luò)的重要手段儲(chǔ)存產(chǎn)品信息是產(chǎn)品保障信息網(wǎng)絡(luò)的重要構(gòu)成部分，是做好產(chǎn)品供應(yīng)保障工作的基礎(chǔ)。產(chǎn)品保障信息網(wǎng)是實(shí)現(xiàn)物資儲(chǔ)運(yùn)全過(guò)程可視化的前提。目前，有些倉(cāng)庫(kù)內(nèi)部局域網(wǎng)已經(jīng)建成并投入使用，并與業(yè)務(wù)主管部門(mén)實(shí)現(xiàn)了信息溝通,庫(kù)存保障信息網(wǎng)在平常航材保障工作中實(shí)現(xiàn)了信息溝通，庫(kù)存保障信息網(wǎng)在平常產(chǎn)品保障工作中的作用日趨明顯。條碼技術(shù)在儲(chǔ)存管理中的應(yīng)用,可深入完善系統(tǒng)各倉(cāng)庫(kù)之間及各倉(cāng)庫(kù)與作業(yè)主管部門(mén)之間的信息共享和互換功能，最終到達(dá)對(duì)產(chǎn)品的全程跟蹤管理，充足發(fā)揮條碼技術(shù)在整個(gè)流通中的作用。同步,在軟件系統(tǒng)的研發(fā)過(guò)程中，將會(huì)融入一種EPR的企業(yè)管理思想。大量的研究與實(shí)踐已經(jīng)充足表明,ERP作為一種現(xiàn)代企業(yè)管理的思想和措施,將其大力地推廣應(yīng)用就是有效的促使我國(guó)企業(yè)管理朝著愈加科學(xué)化、合理化和規(guī)范化方向發(fā)展的一種詳細(xì)措施和途徑。此外，庫(kù)存管理的信息化和可視化,每個(gè)企業(yè)將會(huì)擁有兩個(gè)倉(cāng)庫(kù)，一種是裝滿貨品的倉(cāng)庫(kù)，尚有一種就是管理系統(tǒng)里的數(shù)據(jù)庫(kù)，對(duì)上萬(wàn)種貨品分別編碼，使其成為計(jì)算機(jī)可識(shí)別的語(yǔ)言，形象地說(shuō)，貨架上的號(hào)碼就是貨品的地址，從而防止了貨品的分揀和提取時(shí)的翻箱倒柜式的查找。1。3.2庫(kù)存管理系統(tǒng)研究背景與意義伴隨我國(guó)經(jīng)濟(jì)的飛速發(fā)展，多種類(lèi)型規(guī)模的企業(yè)企業(yè)迅速崛起,許多從事生產(chǎn)和經(jīng)營(yíng)管理的企業(yè)均有自己生產(chǎn)和銷(xiāo)售的產(chǎn)品，而這些產(chǎn)品都需要儲(chǔ)存在倉(cāng)庫(kù)中，對(duì)于每個(gè)企業(yè)來(lái)說(shuō)，伴隨企業(yè)規(guī)模的不停擴(kuò)大,產(chǎn)品數(shù)量的急劇增長(zhǎng)，所生產(chǎn)產(chǎn)品的種類(lèi)也會(huì)不停地更新與發(fā)展，有關(guān)產(chǎn)品的多種信息量也會(huì)成倍增長(zhǎng).面對(duì)龐大的產(chǎn)品信息量,怎樣有效地管理庫(kù)存產(chǎn)品，對(duì)這些企業(yè)來(lái)說(shuō)是非常重要的，庫(kù)存管理的重點(diǎn)是銷(xiāo)售信息能否及時(shí)反饋，從而保證企業(yè)運(yùn)行效益.而庫(kù)存管理又波及入庫(kù)、出庫(kù)的產(chǎn)品、經(jīng)辦人員及客戶等方方面面的原因，怎樣管理這些信息數(shù)據(jù)，是一項(xiàng)復(fù)雜的系統(tǒng)工程,充足考驗(yàn)著倉(cāng)庫(kù)管理員的工作能力，工作量的繁重是可想而知的，因此這就需要由庫(kù)存管理系統(tǒng)來(lái)提高庫(kù)存管理工作的效率，這對(duì)信息的規(guī)范管理、科學(xué)記錄和迅速查詢(xún)，減少管理方面的工作量，同步對(duì)于調(diào)動(dòng)廣大員工的工作積極性，提高企業(yè)的生產(chǎn)效率，都具有十分重要的現(xiàn)實(shí)意義。

第二章 數(shù)據(jù)庫(kù)理論基礎(chǔ)2。1數(shù)據(jù)庫(kù)系統(tǒng)設(shè)計(jì)一種成功的信息管理系統(tǒng)，是建立在許多條件之上的,而數(shù)據(jù)庫(kù)是其中一種非常重要的條件和關(guān)鍵技術(shù)。信息管理系統(tǒng)所波及的數(shù)據(jù)庫(kù)設(shè)計(jì)分五個(gè)環(huán)節(jié)：數(shù)據(jù)庫(kù)需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)、物理設(shè)計(jì)與加載測(cè)試.(1）

數(shù)據(jù)庫(kù)需求分析的任務(wù)是將業(yè)務(wù)管理單證流化為數(shù)據(jù)流，劃分主題之間的邊界，繪制出DFD圖，并完畢對(duì)應(yīng)的數(shù)據(jù)字典。（2）

概念設(shè)計(jì)的任務(wù)是從DFD出發(fā)，繪制出本主題的實(shí)體－關(guān)系圖,并列出各個(gè)實(shí)體與關(guān)系的綱要表。（3）

邏輯設(shè)計(jì)的任務(wù)是從E—R圖與對(duì)應(yīng)的綱要表出發(fā)，確定各個(gè)實(shí)體及關(guān)系的表名屬性.（4）

物理設(shè)計(jì)的任務(wù)是確定所有屬性的類(lèi)型、寬度與取值范圍，設(shè)計(jì)出基本表的主鍵，將所有的表名與字段名英文化（目前諸多軟件能支持中文字段，如Access）,實(shí)現(xiàn)物理建庫(kù)，完畢數(shù)據(jù)庫(kù)物理設(shè)計(jì)字典。（5）

加載測(cè)試工作貫穿于程序測(cè)試工作的全過(guò)程，整個(gè)錄入、修改、查詢(xún)、處理工作均可視為對(duì)數(shù)據(jù)庫(kù)的加載測(cè)試工作。數(shù)據(jù)庫(kù)設(shè)計(jì)重要是進(jìn)行數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)，即將數(shù)據(jù)按一定的分類(lèi)、分組系統(tǒng)和邏輯層次組織起來(lái)，是面向顧客的。數(shù)據(jù)庫(kù)設(shè)計(jì)時(shí)需要綜合企業(yè)各個(gè)部門(mén)的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個(gè)數(shù)據(jù)之間的關(guān)系,按照DBMS提供的功能和描述工具，設(shè)計(jì)出規(guī)模合適、對(duì)的反應(yīng)數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢(xún)規(guī)定的數(shù)據(jù)模型.數(shù)據(jù)庫(kù)設(shè)計(jì)的環(huán)節(jié)重要是：（1)

數(shù)據(jù)庫(kù)構(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ù)構(gòu)造定義。（2）

數(shù)據(jù)表定義：數(shù)據(jù)表定義指定義數(shù)據(jù)庫(kù)中數(shù)據(jù)表的構(gòu)造,數(shù)據(jù)表的邏輯構(gòu)造包括:屬性名稱(chēng)、類(lèi)型、表達(dá)形式、缺省值、校驗(yàn)規(guī)則、與否關(guān)鍵字、可否為空等。關(guān)系型數(shù)據(jù)庫(kù)要盡量按關(guān)系規(guī)范化規(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ī)定,還要增長(zhǎng)某些如反應(yīng)有關(guān)信息、操作責(zé)任、中間數(shù)據(jù)的字段或臨時(shí)數(shù)據(jù)表。（3）

存儲(chǔ)設(shè)備和存儲(chǔ)空間組織：確定數(shù)據(jù)的寄存地點(diǎn)、存儲(chǔ)途徑、存儲(chǔ)設(shè)備等，備份方案,對(duì)多版本怎樣保證一致性和數(shù)據(jù)的完整性。（4）

數(shù)據(jù)使用權(quán)限設(shè)置：針對(duì)顧客的不一樣使用規(guī)定,確定數(shù)據(jù)的顧客使用權(quán)限，保證數(shù)據(jù)安全。(5）

數(shù)據(jù)字典設(shè)計(jì)：用數(shù)據(jù)字典描述數(shù)據(jù)庫(kù)的設(shè)計(jì),便于維護(hù)和修改。2.2SQL語(yǔ)言簡(jiǎn)介2。2.1SQL基礎(chǔ)SQL(StructuredQueryLanguage，構(gòu)造查詢(xún)語(yǔ)言）是一種功能強(qiáng)大的數(shù)據(jù)庫(kù)語(yǔ)言.SQL一般使用于數(shù)據(jù)庫(kù)的通訊。ANSI(美國(guó)國(guó)標(biāo)學(xué)會(huì)）聲稱(chēng)，SQL是關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)的原則語(yǔ)言。SQL語(yǔ)句一般用于完畢某些數(shù)據(jù)庫(kù)的操作任務(wù)，例如在數(shù)據(jù)庫(kù)中更新數(shù)據(jù)，或者從數(shù)據(jù)庫(kù)中檢索數(shù)據(jù).使用SQL的常見(jiàn)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)有：Oracle、Sybase、MicrosoftSQLServer、Access、Ingres等等。雖然絕大多數(shù)的數(shù)據(jù)庫(kù)系統(tǒng)使用SQL，不過(guò)它們同樣有它們自立此外的專(zhuān)有擴(kuò)展功能用于它們的系統(tǒng)。不過(guò)，原則的SQL命令，例如”Select"、"Insert”、”Update"、"Delete”、”Create"和"Drop”常常被用于完畢絕大多數(shù)數(shù)據(jù)庫(kù)的操作.SQL語(yǔ)言的突出長(zhǎng)處就是它的非過(guò)程化、統(tǒng)一，并且還是所有關(guān)系數(shù)據(jù)庫(kù)的公共語(yǔ)言。SQL語(yǔ)言一次處理一種記錄，對(duì)數(shù)據(jù)提供自動(dòng)導(dǎo)航,它容許顧客在高層的數(shù)據(jù)構(gòu)造上工作，而部隊(duì)單個(gè)記錄進(jìn)行操作，可操作記錄集，所有SQL語(yǔ)句接受集合作為輸入，返回集合作為輸出.SQL的集合特性容許一條SQL語(yǔ)句的成果作為另一條SQL語(yǔ)句的輸入.同步，它不規(guī)定顧客指定對(duì)數(shù)據(jù)的寄存措施，這種特性使顧客更易集中精力于要得到的成果；所有SQL語(yǔ)句使用查詢(xún)優(yōu)化器，它是RDBMS的一部分，由它決定對(duì)指定數(shù)據(jù)存取的最迅速度的手段,查詢(xún)優(yōu)化器懂得存在什么索引，在哪兒使用索引合適,而顧客則從不需要懂得表與否有索引、有什么類(lèi)型的索引.作為統(tǒng)一的語(yǔ)言，SQL可用于所有顧客的DB活動(dòng)模型,包括系統(tǒng)管理員、數(shù)據(jù)庫(kù)管理員、應(yīng)用程序員、決策支持系統(tǒng)人員及許多其他類(lèi)型的終端顧客。2。2。2SQL語(yǔ)句SQL語(yǔ)句概括起來(lái)可以分為數(shù)據(jù)操作語(yǔ)言，數(shù)據(jù)定義語(yǔ)言和數(shù)據(jù)控制語(yǔ)言幾大組，它們用于對(duì)數(shù)據(jù)庫(kù)數(shù)據(jù)的查詢(xún)，修改和更新，是一種完備的數(shù)據(jù)處理語(yǔ)言。重要用到的數(shù)據(jù)操作語(yǔ)言重要是：SELECT:用于數(shù)據(jù)檢索;INSERT：用于增長(zhǎng)數(shù)據(jù)到數(shù)據(jù)庫(kù)；UPDATE：用于從數(shù)據(jù)庫(kù)中修改現(xiàn)存的數(shù)據(jù);DELETE:用于從數(shù)據(jù)庫(kù)中刪除數(shù)據(jù)。

第三章 應(yīng)用系統(tǒng)開(kāi)發(fā)工具3.1VisualBasic簡(jiǎn)介及實(shí)現(xiàn)原理VisualBasic(簡(jiǎn)稱(chēng)VB）是美國(guó)微軟企業(yè)（Microsoft）于1990年推出的一套完整的Windows系統(tǒng)軟件開(kāi)發(fā)工具,可用于開(kāi)發(fā)Windows環(huán)境下的各類(lèi)應(yīng)用程序，是一種可視化、面向?qū)ο蟆⒂檬录?qū)動(dòng)方式的構(gòu)造化高級(jí)程序設(shè)計(jì)語(yǔ)言和工具，是目前使用最廣泛的編程語(yǔ)言之一。至今以升級(jí)到了6.0版。VB的重要特點(diǎn)之一是可視性。系統(tǒng)引進(jìn)了窗體和控件的機(jī)制，用于設(shè)計(jì)應(yīng)用程序界面。顧客通過(guò)在屏幕上生成窗體,在窗體中繪制所需要的控件和按鈕,設(shè)計(jì)菜單和對(duì)話框,VB會(huì)自動(dòng)生成對(duì)應(yīng)的代碼。VB的另一重要特點(diǎn)是事件驅(qū)動(dòng).當(dāng)窗體或控件上發(fā)生一種事件時(shí)，VB立即把控制權(quán)交給程序員。程序員不必緊張?jiān)鯓优袛嗍录c否已發(fā)生,只需要編寫(xiě)一段代碼告訴計(jì)算機(jī)在事件發(fā)生后來(lái)應(yīng)當(dāng)做什么工作就可以了。這樣，設(shè)計(jì)一種Windows應(yīng)用程序簡(jiǎn)化為用鼠標(biāo)在屏幕上點(diǎn)擊、拖拽并添加少許的代碼就可以完畢了，大大減少了對(duì)程序設(shè)計(jì)的規(guī)定,提高了應(yīng)用程序的開(kāi)發(fā)效率。運(yùn)用VB的可視性特點(diǎn)，可以便的設(shè)計(jì)了程序的窗體界面，并在各個(gè)窗體中的合適位置繪制所需的每種控件。如要修改窗體或控件的某項(xiàng)屬性,只需在對(duì)應(yīng)的窗體或控件的屬性窗口修改對(duì)應(yīng)的參數(shù)便可到達(dá)需要的設(shè)計(jì)效果。運(yùn)用VB的事件驅(qū)動(dòng)性特點(diǎn)，只需在窗體或控件上的代碼窗口中添加少許的代碼，便可到達(dá)告訴當(dāng)在對(duì)應(yīng)的窗體或控件上發(fā)生某一事件時(shí)，它們?cè)谑录l(fā)生后應(yīng)當(dāng)做什么工作的目的.例如幾種窗體上的添加、刪除、返回按鈕的作用，就是通過(guò)在各個(gè)對(duì)應(yīng)按鈕的代碼窗口中輸入對(duì)應(yīng)的代碼,來(lái)到達(dá)當(dāng)在幾種按鈕上出現(xiàn)單擊(Click)事件后，對(duì)應(yīng)按鈕實(shí)現(xiàn)添加、刪除、返回的功能的。3.2數(shù)據(jù)庫(kù)組件簡(jiǎn)介在使用VisualBasic開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的時(shí)候，會(huì)常常使用數(shù)據(jù)庫(kù)訪問(wèn)控件。這些控件包括:● Data控件；● ADOData控件;● DataList控件/DataCombo控件；● DataGrid控件；● MSChart控件。下面將分別對(duì)這些控件的重要功能及使用措施進(jìn)行簡(jiǎn)介.3.2。1 Data控件Data控件是VisualBasic中最基本的數(shù)據(jù)庫(kù)操作控件。它使用Recordset對(duì)象提供對(duì)存儲(chǔ)在數(shù)據(jù)庫(kù)中數(shù)據(jù)的訪問(wèn).Data控件容許從一種記錄移動(dòng)到另一種記錄，并顯示和操縱來(lái)自被連接控件的記錄的數(shù)據(jù)。許多其他的數(shù)據(jù)庫(kù)操作控件都需要Data控件或類(lèi)似的數(shù)據(jù)源控件（例如ADOData控件）.Data控件可以執(zhí)行大部分?jǐn)?shù)據(jù)庫(kù)訪問(wèn)操作，不過(guò)它并不能顯示數(shù)據(jù)庫(kù)中數(shù)據(jù)的內(nèi)容。Data控件一般需要與其他控件結(jié)合使用。這些與Data控件結(jié)合使用的控件,可以稱(chēng)之為“數(shù)據(jù)察覺(jué)控件”。由于程序員無(wú)需編寫(xiě)任何代碼,就可以在這些控件中顯示目前記錄的數(shù)據(jù)。當(dāng)Data控件中目前記錄發(fā)生變化時(shí)，數(shù)據(jù)察覺(jué)控件的內(nèi)容也會(huì)隨之發(fā)生變化。當(dāng)與Data控件相連接時(shí)，DataList、DataCombo、DataGrid和MSHFlexGrid控件都能管理記錄集合。所有這些控件都容許一次顯示或操作幾種記錄。內(nèi)部的Picture、Label、TextBox、CheckBox、Image、OLE、ListBox和ComboBox控件也是數(shù)據(jù)察覺(jué)的，能和由Data控件管理的Recordset對(duì)象的某個(gè)字段相連接。3.2.2 ADOData控件ADOData控件與內(nèi)部Data控件以及RemoteData控件（RDC）相似。顧客可以使用ADOData控件迅速地創(chuàng)立一種到數(shù)據(jù)庫(kù)的連接。3.2.3 DataList控件/DataCombo控件DataList控件是一種數(shù)據(jù)綁定列表框，它可以自動(dòng)地由一種附加數(shù)據(jù)源中的一種字段充填，并且可選擇地更新另一種數(shù)據(jù)源中一種有關(guān)表的一種字段。DataCombo控件的功能與DataList控件完全相似，只不過(guò)DataCombo控件是一種組合框。3。2。4 DataGrid控件在許多狀況下，需要使用表格形式來(lái)顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù)。這時(shí)就要借助于DaatGrid控件。顧客可以設(shè)置DataGrid控件的DataSource屬性為一種ADOData控件，從而將ADOData中的數(shù)據(jù)自動(dòng)地填充到DataGrid表格中。這個(gè)DataGrid控件實(shí)際上是一種固定的列集合，每一列的行數(shù)都是不確定的。3.2。5 MSChart控件MSChart控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。這會(huì)使枯燥的數(shù)據(jù)變得愈加生動(dòng)直觀，增長(zhǎng)了程序的實(shí)用價(jià)值。MSChart控件支持一下特性：1、真三維表達(dá)；2、支持所有重要的圖表類(lèi)型；3、數(shù)據(jù)網(wǎng)絡(luò)組員支持隨機(jī)數(shù)據(jù)，數(shù)據(jù)數(shù)組。3。3SQL語(yǔ)言在VB中的應(yīng)用1。SQL提供的實(shí)用函數(shù)為實(shí)現(xiàn)使用VB程序調(diào)用SQL語(yǔ)言訪問(wèn)Access數(shù)據(jù)庫(kù)多種記錄的目的,我們運(yùn)用SQL提供的函數(shù)?！馜avgFunction（求平均值）●DcountFunction（計(jì)算滿足條件的記錄數(shù)）●DfirstFunction（返回記錄集的第一種記錄的某個(gè)域值)●DlastFunction（返回記錄集的最終一種記錄的某個(gè)域值）●DlookupFunction(返回記錄集中滿足待定條件的記錄的域值）●DsumFunction（求和計(jì)算）●DmaxFunction（求最大值）●DminFunction(求最小值）運(yùn)用以上的SQL函數(shù)可以以便地進(jìn)行數(shù)據(jù)庫(kù)文獻(xiàn)記錄地查詢(xún)和記錄工作，以Dsum為例，語(yǔ)法如下：Dsum（expr,clomain［,criteria］）例：計(jì)算目的港為英國(guó)地所有訂單地運(yùn)費(fèi)總和。假定“Orders"是數(shù)據(jù)庫(kù)文獻(xiàn)中地一張表格,則x=Dsum(“[Feight］”,”O(jiān)rder”.”［shipcountry]=’UK'")2。運(yùn)用SQL訪問(wèn)多種記錄地措施在進(jìn)信息查詢(xún)和記錄地過(guò)程中，我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息。這種變化基于數(shù)據(jù)庫(kù)關(guān)系視圖的記錄集，這里我們簡(jiǎn)介提取記錄信息的有效措施。（1）建立一種新的查詢(xún)setmydb=OpenDatabase（“c：\DIR1\manage.mdb”）(打開(kāi)數(shù)據(jù)庫(kù)文獻(xiàn)c:\DIR1\manage。mdb）setmyquery=mydb.creatQueryDef（“monthquery”)（創(chuàng)立查詢(xún)名為monthquery的查詢(xún))Myquery。SQL="select＊fromOPNRPTwheremid$（year,7，2）=’"&yeartext.text&”'…"(運(yùn)用查詢(xún)的SQL屬性，建立查詢(xún)根據(jù),即查詢(xún)的條件。這里用到了SetectStatement）后來(lái)假如需要這樣的查詢(xún)，只需要引用查詢(xún)名”monthquery”即可。需要闡明的兩點(diǎn)是：①使用前先定義DimmydbASDatabase及myqueryASquerydef。②查詢(xún)"monthquery"沒(méi)有使用Data控件，也就不直接顯示信息。(2）怎樣設(shè)置Data控件的Recordsource屬性設(shè)置Datasource屬性的命令為：Data.Recordsource=”SetectVss_code，voyage，Sum(weight）ASWeight20frommonthquerywherectn_size=’20'groupbyVss_code，Voyage”在這個(gè)命令中字段名Vss_code為船名代碼,Voyage為航次,ctn_size為集裝箱號(hào),weight為集裝箱重量。計(jì)算機(jī)通過(guò)增長(zhǎng)了條件的monthquery查詢(xún)構(gòu)成了新的記錄集。AS為關(guān)鍵字表達(dá)，并定義了別名。通過(guò)這一種措施定義的記錄集可以使用move和Find措施逐條記錄的進(jìn)行操作.3.4Access簡(jiǎn)述Access是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具,1992年，MicrosoftAccess作為第一種面向Windows操作平臺(tái)的桌面數(shù)據(jù)庫(kù)管理系統(tǒng)而誕生，它不僅充足體現(xiàn)了面向?qū)ο蟮乃枷?，提供可視化的編程手?并且充足運(yùn)用了Windows操作平臺(tái)的優(yōu)越性，采用與Windows完全一致的界面風(fēng)格，使界面非常友好。在Access中，顧客不需要編寫(xiě)復(fù)雜的程序就可以建立一種完整的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)，是一種經(jīng)典的開(kāi)放式數(shù)據(jù)庫(kù)系統(tǒng)，它可以和Windows下的其他應(yīng)用程序共享數(shù)據(jù)庫(kù)資源.數(shù)據(jù)庫(kù)能匯集多種信息以供查詢(xún)、存儲(chǔ)和檢索。Access的長(zhǎng)處在于它能使用數(shù)據(jù)表達(dá)圖或自定義窗體搜集信息。數(shù)據(jù)表達(dá)圖提供了一種類(lèi)似于Excel的電子表格，可以使數(shù)據(jù)庫(kù)一目了然.此外,Access容許創(chuàng)立自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文獻(xiàn)把數(shù)據(jù)庫(kù)文獻(xiàn)置于網(wǎng)絡(luò)文獻(xiàn)服務(wù)器,與其他網(wǎng)絡(luò)顧客共享數(shù)據(jù)庫(kù)。Access是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一.如上所述，Access作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具有了許多長(zhǎng)處，可以在一種數(shù)據(jù)包中同步擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。

庫(kù)存管理系統(tǒng)設(shè)計(jì)分析4。1需求分析本套應(yīng)用程序名稱(chēng)為“庫(kù)存管理系統(tǒng)”，重要用于倉(cāng)庫(kù)貨品信息的管理，系統(tǒng)包括倉(cāng)庫(kù)管理、入庫(kù)、出庫(kù)、某些記錄查詢(xún)和報(bào)表等幾部分構(gòu)成。庫(kù)存管理系統(tǒng)需滿足倉(cāng)庫(kù)管理員及工作人員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，因此需要對(duì)工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計(jì)不一樣顧客的操作權(quán)限和登陸措施.對(duì)于一種倉(cāng)庫(kù)來(lái)說(shuō),最大的功能就是存儲(chǔ)貨品，因此倉(cāng)庫(kù)管理就是對(duì)貨品信息，倉(cāng)庫(kù)信息，短線貨品及超儲(chǔ)貨品的管理，顧客可以根據(jù)實(shí)際狀況對(duì)多種貨品信息進(jìn)行分類(lèi)管理，包括添加，刪除更新數(shù)據(jù)庫(kù)等。當(dāng)然，倉(cāng)庫(kù)中貨品入庫(kù)也是常有的事,入庫(kù)管理操作就是對(duì)于貨品入庫(kù)狀況的管理，顧客可以以便地輸入某些貨品的信息。有了貨品的入庫(kù),自然也就有貨品的出庫(kù)，這部分提供的功能與入庫(kù)操作流程差不多，有所區(qū)別的只是對(duì)某些出庫(kù)貨品的管理，也很以便數(shù)據(jù)的輸入。倉(cāng)庫(kù)貨品的信息量大,數(shù)據(jù)安全性和保密性規(guī)定高。本系統(tǒng)實(shí)現(xiàn)對(duì)貨品信息的管理和總體的記錄等，倉(cāng)庫(kù)信息,供貨單位和經(jīng)辦人員信息的查看及維護(hù)。倉(cāng)庫(kù)管理人員可以瀏覽、查詢(xún)、添加、刪除等貨品的基本信息以及記錄等，并可以對(duì)某些基本的信息生成報(bào)表形式，并打印輸出的功能.報(bào)表是一種數(shù)據(jù)庫(kù)中最重要的功能之一，有了報(bào)表才能清晰地懂得貨品的出入庫(kù)狀況，在數(shù)據(jù)報(bào)表功能中包括出庫(kù)報(bào)表，庫(kù)存報(bào)表及經(jīng)辦人員報(bào)表等某些基本信息的打印，以便簡(jiǎn)潔。本系統(tǒng)基本涵蓋了庫(kù)存管理的重要需求，具有完善細(xì)致的功能、友好的顧客界面、強(qiáng)大的數(shù)據(jù)處理功能和完備的安全機(jī)制；隨心所欲的查詢(xún)和所見(jiàn)即所得的打印功能，并全面支持分析和決策的功能。●系統(tǒng)特色：1。設(shè)置系統(tǒng)顧客登陸功能，即時(shí)對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行安全設(shè)置與保護(hù)。2.友好的顧客界面,業(yè)務(wù)操作簡(jiǎn)樸，進(jìn)入系統(tǒng)即能使用.3.成熟先進(jìn)的技術(shù)和系統(tǒng)構(gòu)架，采用先進(jìn)的數(shù)據(jù)庫(kù)訪問(wèn)方式，數(shù)據(jù)更安全，性能更穩(wěn)定。4.強(qiáng)大的數(shù)據(jù)處理能力和開(kāi)放的數(shù)據(jù)接口，選用品有大型數(shù)據(jù)庫(kù)安全機(jī)制的數(shù)據(jù)庫(kù)系統(tǒng)，提供多種級(jí)別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，保證數(shù)據(jù)的安全可靠。5.系統(tǒng)每種操作都可以通過(guò)菜單來(lái)進(jìn)行。操作快捷、以便。易懂易會(huì)。系統(tǒng)集輸入、維護(hù)、查詢(xún)、記錄和多種處理為一體，信息導(dǎo)入導(dǎo)出以便共享.庫(kù)存管理系統(tǒng)倉(cāng)庫(kù)管理庫(kù)存管理系統(tǒng)倉(cāng)庫(kù)管理入庫(kù)管理出庫(kù)管理盤(pán)存管理綜合管理附項(xiàng)分類(lèi)歷史數(shù)據(jù)管理打印、查詢(xún)系統(tǒng)貨品信息管理貨品庫(kù)存管理短線貨品管理超儲(chǔ)貨品管理出庫(kù)登記管理貨品出庫(kù)年度記錄收貨單位年度收貨金額記錄盤(pán)存錄入貨品出入庫(kù)期間匯總表倉(cāng)庫(kù)信息管理供貨單位管理收貨單位管理經(jīng)辦人員管理 基本模塊與功能:1.系統(tǒng)包括顧客管理，密碼管理,關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對(duì)整個(gè)數(shù)據(jù)庫(kù)進(jìn)行備份，以保證數(shù)據(jù)的安全性。協(xié)助：本系統(tǒng)的協(xié)助信息，包括應(yīng)用程序的版本信息；2.庫(kù)存管理貨品信息管理：對(duì)倉(cāng)庫(kù)里的貨品進(jìn)行登記；貨品庫(kù)存管理:管理倉(cāng)庫(kù)的庫(kù)存狀況；短線貨品管理:對(duì)倉(cāng)庫(kù)里短線的貨品進(jìn)行登記,以便及時(shí)采購(gòu)補(bǔ)貨;超儲(chǔ)貨品管理：對(duì)倉(cāng)庫(kù)里超儲(chǔ)的貨品進(jìn)行登記,控制庫(kù)存量，減少進(jìn)貨;3.入庫(kù)管理入庫(kù)登記管理：能對(duì)貨品的入庫(kù)登記，刪除，更改等；入庫(kù)期間記錄:貨品入庫(kù)期間年度的記錄；供貨單位期間供貨金額記錄：對(duì)貨品供應(yīng)的金額進(jìn)行記錄;4.出庫(kù)管理對(duì)貨品出庫(kù)期間的年度記錄，出庫(kù)登記，及收獲單位金額記錄等；5.盤(pán)存管理對(duì)盤(pán)存貨品信息的盤(pán)存錄入;6.綜合管理可根據(jù)同一貨品的出入庫(kù)狀況,對(duì)庫(kù)存狀況的匯總；7.附項(xiàng)管理對(duì)供貨單位狀況，經(jīng)辦人員，收貨單位狀況,倉(cāng)庫(kù)信息進(jìn)行登記管理,可進(jìn)行添加，刪除等操作；8。歷史數(shù)據(jù)管理對(duì)歷史庫(kù)存，歷史出庫(kù)，歷史出庫(kù)狀況進(jìn)行管理；9。打印與查詢(xún)可根據(jù)輸入的條件，對(duì)貨品的入庫(kù)信息,庫(kù)存信息等進(jìn)行簡(jiǎn)樸查詢(xún)和組合查詢(xún).據(jù)流程圖：登陸庫(kù)存管理系統(tǒng)登陸庫(kù)存管理系統(tǒng)驗(yàn)證顧客信息系統(tǒng)主窗體倉(cāng)庫(kù)管理入庫(kù)管理出庫(kù)管理盤(pán)存管理綜合管理附項(xiàng)分類(lèi)歷史數(shù)據(jù)管理打印、查詢(xún)系統(tǒng)貨品入庫(kù)單經(jīng)辦人員報(bào)表貨品出庫(kù)單數(shù)據(jù)備份備份輸出庫(kù)存匯總圖4－1庫(kù)存管理系統(tǒng)數(shù)據(jù)流程圖密碼錯(cuò)誤匯總計(jì)算貨品信息管理數(shù)據(jù)流程圖：貨品登記貨品登記基本信息錄入貨品基本信息管理貨品調(diào)配匯總出庫(kù)貨品信息管理入庫(kù)貨品信息管理貨品其他信息管理圖4－2貨品信息管理數(shù)據(jù)流程圖4。3數(shù)據(jù)庫(kù)設(shè)計(jì)本庫(kù)存管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的,因此只需建立起一種數(shù)據(jù)庫(kù)，在此數(shù)據(jù)庫(kù)基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)構(gòu)造表描述如下：貨品信息表字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空貨品編碼文本5貨品名稱(chēng)文本10類(lèi)別文本8型號(hào)文本4單位文本2倉(cāng)庫(kù)編碼文本5寄存?zhèn)}庫(kù)文本12入庫(kù)計(jì)劃單價(jià)貨幣出庫(kù)計(jì)劃單價(jià)貨幣原始庫(kù)存數(shù)字長(zhǎng)整型默認(rèn)貨位文本5警戒底線庫(kù)存數(shù)字長(zhǎng)整型警戒高線庫(kù)存數(shù)字長(zhǎng)整型表1 貨品信息表表1 貨品信息表入庫(kù)登記表字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空入庫(kù)日期日期/時(shí)間入庫(kù)單號(hào)文本10貨品編碼文本5數(shù)量數(shù)字長(zhǎng)整型進(jìn)貨價(jià)貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表2 入庫(kù)登記表表2 入庫(kù)登記表出庫(kù)登記表字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空出庫(kù)日期日期/時(shí)間出庫(kù)單號(hào)文本10貨品編碼文本5貨品名稱(chēng)文本10數(shù)量數(shù)字長(zhǎng)整型單價(jià)貨幣出貨價(jià)貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經(jīng)辦人編碼文本5經(jīng)辦人文本8增值稅率數(shù)字單精度型備注備注表3 貨品出庫(kù)表表3 貨品出庫(kù)表倉(cāng)庫(kù)信息表字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空倉(cāng)庫(kù)編號(hào)文本5倉(cāng)庫(kù)名稱(chēng)文本12存貨種類(lèi)文本2存貨價(jià)值貨幣表4 倉(cāng)庫(kù)信息表表4 倉(cāng)庫(kù)信息表供貨單位信息表(收貨單位表）字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空單位編號(hào)文本5單位名稱(chēng)文本50單位地址文本50電話文本15聯(lián)絡(luò)人文本8表5 供貨單位信息表表5 供貨單位信息表經(jīng)辦人員表字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空編號(hào)文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本15表6 經(jīng)辦人員表表6 經(jīng)辦人員表顧客表字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空UserID文本10userPWD文本6表7 顧客表表7 顧客表此外,我們還建立了幾張查詢(xún)表,用以寄存部分用于計(jì)算的記錄信息，以便查詢(xún)?！袢霂?kù)登記登記表 入庫(kù)登記_合計(jì)●貨品入庫(kù)年度登記表 入庫(kù)登記_n●供貨單位年度供貨金額登記表 入庫(kù)登記_w●庫(kù)存匯總表 庫(kù)存 ●出庫(kù)登記登記表 出庫(kù)登記_合計(jì)●貨品出庫(kù)年度登記表 出庫(kù)登記_h●收貨單位年度收貨金額登記表 出庫(kù)登記_d入庫(kù)登記_合計(jì)表與出庫(kù)登記_合計(jì)分別是以入庫(kù)登記表和出庫(kù)登記表為基礎(chǔ)的，因此此處不再描述；庫(kù)存匯總表重要由出庫(kù)表和入庫(kù)表建立關(guān)系獲得。入庫(kù)登記_n字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空貨品名稱(chēng)文本10入庫(kù)日期日期/時(shí)間年度數(shù)量數(shù)字長(zhǎng)整型表8入庫(kù)登記_n表8入庫(kù)登記_n入庫(kù)登記_w字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空供貨單位文本50入庫(kù)日期日期/時(shí)間年度供貨總額數(shù)字長(zhǎng)整型表9入庫(kù)登記_w表9入庫(kù)登記_w庫(kù)存匯總字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空貨品編碼文本5入庫(kù)日期日期/時(shí)間貨品名稱(chēng)文本10數(shù)量(入庫(kù))數(shù)字長(zhǎng)整型進(jìn)貨價(jià)貨幣數(shù)量（出庫(kù)）數(shù)字長(zhǎng)整型庫(kù)存數(shù)量數(shù)字長(zhǎng)整型表10庫(kù)存匯總表表10庫(kù)存匯總表出庫(kù)登記_h字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空貨品名稱(chēng)文本10出庫(kù)日期日期/時(shí)間年度數(shù)量數(shù)字長(zhǎng)整型表11出庫(kù)登記_h表11出庫(kù)登記_h出庫(kù)登記_d字段名數(shù)據(jù)類(lèi)型字段長(zhǎng)度與否為空收貨單位文本50出庫(kù)日期日期/時(shí)間年度金額總額數(shù)字長(zhǎng)整型表12出庫(kù)登記_d表12出庫(kù)登記_d第五章 應(yīng)用程序設(shè)計(jì)5.1程序構(gòu)造本應(yīng)用程序由33個(gè)窗體構(gòu)成，重要的分別是:主窗體，歡迎界面，登陸窗體,入庫(kù)窗體，出庫(kù)窗體，庫(kù)存匯總，打印及查詢(xún)等窗體構(gòu)成。通過(guò)運(yùn)行程序首先進(jìn)入歡迎界面和登陸窗體，通過(guò)輸入密碼，驗(yàn)證身份后進(jìn)入主窗體,在主窗體上有10個(gè)菜單項(xiàng)，分別對(duì)應(yīng)各自的功能模塊窗體,包括系統(tǒng)，庫(kù)存管理，入庫(kù)管理，出庫(kù)管理，盤(pán)存管理,綜合管理,附項(xiàng)管理，歷史數(shù)據(jù)管理,打印和查詢(xún)。需要哪個(gè)功能的時(shí)候就點(diǎn)哪個(gè)菜單，相對(duì)應(yīng)的窗體會(huì)自動(dòng)彈出。5.2程序源代碼程序?qū)崿F(xiàn)的部分代碼如下：●公共模塊Publicdate1AsStringPublicdate2AsStringPublicgUserNameAsString'保留顧客名'添加執(zhí)行SQL語(yǔ)句的函數(shù)PublicFunctiontransactSQL(ByValsqlAsString）AsADODB.RecordsetDimconAsADODB。ConnectionDimrsAsADODB。RecordsetDimstrConnectionAsStringDimstrArray(）AsStringSetcon=NewADODB。Connection'創(chuàng)立連接Setrs=NewADODB。Recordset'創(chuàng)立記錄集OnErrorGoToTransactSQL_ErrorstrConnection="Provider=Microsoft。jet.oledb。4。0;DataSource=E:\庫(kù)存管理\kucun.mdb"strArray=Split(sql）con.OpenstrConnection’打開(kāi)連接IfStrComp(UCase＄(strArray(0）)，"select",vbTextCompare)=0Thenrs。OpenTrim＄（sql）,con，adOpenKeyset，adLockOptimisticSettransactSQL=rs’返回記錄集iflag=1Elsecon.Executesql'執(zhí)行命令iflag=1EndIfTransactSQL_Exit:Setrs=NothingSetcon=NothingExitFunctionTransactSQL_Error：MsgBox"查詢(xún)錯(cuò)誤："&Err.Descriptioniflag=2ResumeTransactSQL_ExitEndFunction●主窗體的程序代碼圖5－1主窗體界面圖5－1主窗體界面PrivateSuba1_Click（)Form1.ShowEndSubPrivateSuba2_Click（)DimfAddAsNewfrmAddUserfAdd。ShowfAdd.ZOrder0EndSubPrivateSuba3_Click（)DimfChangePWDAsNewfrmChangePWDfChangePWD.ShowEndSubPrivateSuba4_Click(）frmAbout。ShowEndSubPrivateSuba5_Click()'調(diào)入數(shù)據(jù)備份Loadmain_sjbfmain_sjbf。Showmain。Enabled=FalseEndSubPrivateSuba6_Click(）'調(diào)入數(shù)據(jù)恢復(fù)Loadmain_sjhfmain_sjhf.Showmain.HideEndSubPrivateSubb1_Click()frm貨品信息.ShowEndSubPrivateSubb12_Click(）sql="select＊from貨品信息orderby貨品編碼”frmProInfo.createList(sql)frmProInfo。ShowEndSubPrivateSubb2_Click(）frm貨品庫(kù)存。ShowEndSubPrivateSubB3_Click（)frm超儲(chǔ)貨品。ShowEndSubPrivateSubb4_Click()frm短線貨品。ShowEndSubPrivateSubc1_Click（）frm入庫(kù)登記.ShowEndSubPrivateSubc2_Click（)frm貨品入庫(kù)年度記錄.ShowEndSubPrivateSubc3_Click()frm供貨單位供貨分類(lèi)金額記錄。ShowEndSubPrivateSubc4_Click(）frm供貨單位年度供貨金額記錄。ShowEndSubPrivateSubCommand1_Click(）date1=Text1.Text&”/"＆Text3.Text＆"/"＆Text2。Textdate2=Text6。Text&"/"&Text4.Text＆"/”&Text5。TextText7。Text=date1EndSubPrivateSubd1_Click(）frm出庫(kù)登記.ShowEndSubPrivateSubd2_Click（）frm貨品出庫(kù)年度記錄。ShowEndSubPrivateSubd3_Click（）frm收貨單位期間收貨記錄。ShowEndSubPrivateSubd4_Click(）frm收貨單位年度收貨金額記錄。ShowEndSubPrivateSube1_Click()frm盤(pán)存錄入.ShowEndSubPrivateSube2_Click(）frm盤(pán)存表.ShowEndSubPrivateSubf1_Click（）frm貨品出入?yún)R總表.ShowEndSubPrivateSubg1_Click(）frm經(jīng)辦人員.ShowEndSubPrivateSubg2_Click(）frm供貨單位。ShowEndSubPrivateSubg3_Click（)frm倉(cāng)庫(kù)信息。ShowEndSubPrivateSubg5_Click(）Form6。ShowEndSubPrivateSubh1_Click(）frm歷史庫(kù)存.ShowEndSubPrivateSubh2_Click()frm歷史入庫(kù)。ShowEndSubPrivateSubh3_Click()frm歷史出庫(kù).ShowEndSubPrivateSubi1_Click（)DataReport1.ShowEndSubPrivateSubi2_Click()DataReport2.ShowEndSubPrivateSubi3_Click（）DataReport3.ShowEndSubPrivateSubj1_Click（）Form2。ShowEndSubPrivateSubj2_Click()Form3。ShowEndSubPrivateSubj3_Click()Form4.ShowEndSubPrivateSubj4_Click（）Form5.ShowEndSubPrivateSubToolbar1_ButtonClick（ByValButtonAsComctlLib。Button)SelectCaseButton。KeyCaseIs=”rk”’調(diào)入入庫(kù)登記c1_ClickCaseIs="ck"’調(diào)入出庫(kù)登記d1_ClickCaseIs=”kchz”'調(diào)入庫(kù)存匯總f1_ClickCaseIs="zhcx"’調(diào)入組合查詢(xún)j4_ClickCaseIs="sjbf”’調(diào)入數(shù)據(jù)備份a5_ClickEndSelectEndSubPrivateSubx_Click（）EndEndSub●登陸模塊的實(shí)現(xiàn)PrivateSubcmdLogin_Click(）denlu_name=txtUserName.Textdenlu_pass=txtPassword。TextDimmycnAsNewADODB.ConnectionDimmyrsAsNewADODB.RecordsetSetmyrs=NewADODB。Recordsetmycn.Open"Provider=Microsoft.Jet。OLEDB。4.0;DataSource=kucun。mdb;"myrs.Open”SELECT*FROM[顧客］whereuserID='"+denlu_name+"'；”，mycn，adOpenKeyset,adLockOptimisticIfmyrs。BOF=TrueAndmyrs。EOF=TrueThenMsgBox”查無(wú)此人"，,"登陸信息"ElseIfmyrs(”userPWD”）=denlu_passThen’’''’'’''’'’'’’'’''’''’'’''’'’''’'’’’’'’’’MsgBox”身份對(duì)的"，,"登陸信息"main。ShowUnloadMe''’'''’'’’'''’'’'’’’’’’’’''’'''’’'’’’'’’'’’’'’'''’’ElseMsgBox”密碼不對(duì)的"，，"登陸信息"EndIfEndIfEndSub●添加顧客模塊的實(shí)現(xiàn)OptionExplicitPrivateSubCommand1_Click(）DimsqlAsStringDimrsAsADODB.RecordsetIfTrim（UserName。Text)=””Then'判斷顧客名稱(chēng)與否為空MsgBox”請(qǐng)輸入顧客名稱(chēng)!"，vbOKOnly+vbExclamation,"警告"ExitSubUserName.SetFocusElsesql="select＊from顧客whereUserID='”＆UserName＆”’"Setrs=transactSQL(sql）Ifrs.EOF=FalseThen’判斷與否已經(jīng)存在顧客MsgBox"這個(gè)顧客已經(jīng)存在!請(qǐng)重新輸入顧客名稱(chēng)！",vbOKOnly+vbExclamation,"警告”UserName。SetFocusUserName。Text="”P(pán)assWord.Text=""ConfirmPWD。Text=”"ExitSubElseIfTrim(PassWord.Text)<>Trim(ConfirmPWD。Text）Then’判斷兩次密碼與否相似MsgBox"兩次輸入的密碼不一致，請(qǐng)重新輸入密碼!",vbOKOnly+vbExclamation，”警告”P(pán)assWord。Text=""ConfirmPWD。Text="”P(pán)assWord.SetFocusExitSubElseIfTrim（PassWord。Text)=”"Then'判斷密碼與否為空MsgBox"密碼不能為空！”，vbOKOnly+vbExclamation，"警告”P(pán)assWord.Text=""ConfirmPWD=”"PassWord.SetFocusElse'添加顧客sql=”insertinto顧客(UserID,UserPWD)values('"&UserNamesql=sql&"','"&PassWord＆”’）”transactSQL（sql）MsgBox"添加成功!"，vbOKOnly+vbExclamation,”添加成果”'重新設(shè)置初始化為空UserName。Text=""PassWord.Text="”ConfirmPWD.Text=”"UserName.SetFocusEndIfEndIfEndIfEndSubPrivateSubCommand2_Click（）UnloadMeEndSubPrivateSubForm_Load()UserName.Text="”P(pán)assWord。Text=””ConfirmPWD。Text="”EndSub●修改顧客密碼的實(shí)現(xiàn)OptionExplicitPublicgUserNameAsStringPrivateSubCommand1_Click（)DimsqlAsStringDimrsAsADODB。RecordsetIfTrim（OldPWD。Text)=””Then'判斷與否輸入舊密碼MsgBox"請(qǐng)輸入舊密碼!",vbOKOnly+vbExclamation，"警告”O(jiān)ldPWD.SetFocusExitSubElseIfTrim(NewPWD.Text）=""Then’判斷與否輸入新密碼MsgBox”請(qǐng)輸入新密碼！”，vbOKOnly+vbExclamation,"警告”NewPWD.SetFocusExitSubElseIfTrim(NewPWD.Text)〈>Trim(ConfirmPWD。Text)Then’判斷兩次密碼與否相似MsgBox"兩次密碼不一樣!”，vbOKOnly+vbExclamation，"警告"NewPWD.Text=””ConfirmPWD。Text=”"NewPWD。SetFocusElse'修改密碼sql=”update顧客setUserPWD=’"&NewPWD&”'whereUserID=’”sql=sql&gUserName&"’"transactSQL（sql)MsgBox”密碼已經(jīng)修改!”,vbOKOnly+vbExclamation，”修改成果”UnloadMeEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()OldPWD.Text="”NewPWD.Text=”"ConfirmPWD.Text=""EndSub●數(shù)據(jù)備份模塊的實(shí)現(xiàn)PrivateSubForm_Activate(）'賦值給text1Text1.Text="A"EndSubPrivateSubCommand1_Click（)’確認(rèn)數(shù)據(jù)備份Me。MousePointer=11YesNo=MsgBox（"準(zhǔn)備好了嗎?”，vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe。MousePointer=11MkDir(Text1.Text＆”:\數(shù)據(jù)備份"）FileCopyApp.Path&”\kucun.mdb”,Text1。Text&":\數(shù)據(jù)備份\kucun”&Date＆”.mdb"Me。MousePointer=0MsgBox”數(shù)據(jù)已備份完畢。"errprompt：Me.MousePointer=0SelectCaseErr。NumberCase57MsgBox”磁盤(pán)已滿！”，vbCriticalCase70MsgBox"磁盤(pán)寫(xiě)保護(hù)！"，vbCriticalEndSelectEndSubPrivateSubCommand2_Click（)Loadmainmain.Showmain。Enabled=TrueUnloadMeEndSubPrivateSubForm_Unload（CancelAsInteger）main。Enabled=TrueEndSub●數(shù)據(jù)恢復(fù)模塊的實(shí)現(xiàn)PrivateSubForm_Unload(CancelAsInteger)main.Enabled=TrueEndSubPrivateSubDir1_Change(）File1.Path=Dir1.PathEndSubPrivateSubDrive1_Change()Dir1.Path=Drive1。DriveEndSubPrivateSubFile1_Click（）Text1。Text=Dir1.Path＆"\”＆File1.FileNameEndSubPrivateSubCommand1_Click（）'恢復(fù)指定途徑下的數(shù)據(jù)庫(kù)IfText1。Text=""ThenMsgBox”請(qǐng)選擇要恢復(fù)的數(shù)據(jù)!”ElseMe。MousePointer=11FileCopyDir1。Path&”\”&File1.FileName,App。Path&”\kucun.mdb”Me.MousePointer=0MsgBox"數(shù)據(jù)已恢復(fù)完畢!"EndIfEndSubPrivateSubCommand2_Click()main.ShowUnloadMeEndSub對(duì)于貨品信息的瀏覽,重要采用了MSFlexGrid控件,它是一種Active控件，該控件提供了表格式界面，處理數(shù)據(jù)相稱(chēng)靈活，具有只讀數(shù)據(jù)綁定、對(duì)表格數(shù)據(jù)進(jìn)行顯示和操作、數(shù)據(jù)分組排序、Data控件賦值、文本自動(dòng)換行等功能.但它無(wú)法對(duì)數(shù)據(jù)進(jìn)行動(dòng)態(tài)輸入,只能提供瀏覽功能。圖5－2貨品信息界面圖5－2貨品信息界面詳細(xì)代碼如下：OptionExplicitPrivateSubCommand1_Click（)rsGrid.RefreshEndSubPrivateSubForm_Load（)DimsqlAsStringsql="select＊from貨品信息orderby貨品編碼"createList（sql)EndSubPublicSubcreateList（sqlAsString）DimrsAsNewADODB。RecordsetDimiAsIntegerDimrsGirdAsMSFlexGrid'設(shè)置表頭rsGrid.TextMatrix(0,0)="貨品編碼"rsGrid.TextMatrix（0,1)="貨品名稱(chēng)”rsGrid.TextMatrix(0，2）="類(lèi)別"rsGrid。TextMatrix（0，3)="型號(hào)”rsGrid.TextMatrix（0,4）=”單位”rsGrid.TextMatrix（0,5）=”倉(cāng)庫(kù)編碼”rsGrid.TextMatrix（0，6)=”寄存?zhèn)}庫(kù)”rsGrid。TextMatrix（0，7)="入庫(kù)計(jì)劃單價(jià)"rsGrid.TextMatrix（0,8)=”出庫(kù)計(jì)劃單價(jià)"rsGrid.TextMatrix（0，9）="原始庫(kù)存”rsGrid.TextMatrix（0,10)=”默認(rèn)貨位”rsGrid.TextMatrix（0,11）=”警戒底線庫(kù)存”rsGrid.TextMatrix(0，12)=”警戒高線庫(kù)存"Fori=0To12’設(shè)置所有表格對(duì)齊方式rsGrid。ColAlignment（i）=4NextiFori=0To11’設(shè)置每列寬度rsGrid.ColWidth（i)=1400NextirsGrid。ColWidth(12）=Setrs=transactSQL(sql）Ifrs。EOF=FalseThen'顯示信息內(nèi)容rsGrid。Rows=1WhileNotrs.EOFrsGrid。Rows=rsGrid。Rows+1rsGrid.TextMatrix（rsGrid.Rows-1,0）=rs