倉庫管理系統(tǒng)設(shè)計

{倉庫規(guī)范管理}倉庫管理系統(tǒng)設(shè)計目錄摘要2

第一章管理信息系統(tǒng)基礎(chǔ)31.1管理信息系統(tǒng)概述31.2管理信息系統(tǒng)的特點31.3VB介紹51.4ACCESS簡介7

第二章畢業(yè)設(shè)計正文82.1選題背景82.2方案論證82.2.1實現(xiàn)功能92.2.2功能與模塊的設(shè)計102.2.3數(shù)據(jù)庫的設(shè)計102.3過程論述112.3.1登陸流程圖112.3.2主界面流程圖122.3.3所有貨物與增加貨物流程圖132.3.4所有入庫信息與增加入庫信息流程圖132.3.5數(shù)據(jù)保存流程圖142.3.6用戶管理152.3.7查詢流程圖152.4設(shè)計進(jìn)程152.5結(jié)論和總結(jié)16

第三章致謝17

第四章附錄（計算機程序等內(nèi)容184.1數(shù)據(jù)庫連接模塊184.2登陸界面與代碼204.3主界面與代碼224.4用戶管理界面與代碼274.5庫存管理界面與代碼334.6入庫信息管理界面與代碼394.7出庫信息界面與代碼454.8借條信息管理界面與代碼52第五章參考文獻(xiàn)59倉庫管理系統(tǒng)摘要:保證，從而影響企業(yè)的競爭力。本人設(shè)計該系統(tǒng)，就是為了解決以上這些問題。全，提供工作效率和質(zhì)量。Visualbasic（VBbasic管理的日常工作，包括材料的入庫，出庫以及庫存材料信息的管理維護(hù)等。關(guān)鍵字：倉庫管理倉庫管理系統(tǒng)VB面向?qū)ο蟮谝徽鹿芾硇畔⑾到y(tǒng)基礎(chǔ)管理信息系統(tǒng)就是我們常說的MIS（ManagementInformationSystem強調(diào)管理，強調(diào)信息的現(xiàn)代社會中它越來越得到普及。MIS是一門新的學(xué)科，它跨越了若干個領(lǐng)域，比如管理科學(xué)、系統(tǒng)科學(xué)，運籌學(xué)、統(tǒng)計學(xué)以及計算機科學(xué)。統(tǒng)。1.1管理信息系統(tǒng)概述20世紀(jì)，隨著全球經(jīng)濟的蓬勃發(fā)展，眾多經(jīng)濟學(xué)家紛紛提出了新的管理理論。20世紀(jì)50年代，西蒙提出管理依賴于信息和決策的思想。同時期的維納發(fā)表了控制論，他認(rèn)為管理是一個控制過程。1958“管理將以較低的成本得到及時準(zhǔn)確的信息，做到較好的控制。這個時期，計算機開始用于會計工作，出現(xiàn)數(shù)據(jù)處理一詞。1970WalterT.Kennevan“以口頭或書面的形式，在合適的時間向經(jīng)理、職員以及外界人員提供過去的、現(xiàn)在的、預(yù)測未來的有關(guān)企業(yè)內(nèi)部及其環(huán)境的信息，以幫助他們進(jìn)行決策。在應(yīng)用。1985年，管理信息系統(tǒng)的創(chuàng)始人，明尼蘇達(dá)大學(xué)的管理學(xué)教授GordonB.Davis給了管理信息系統(tǒng)一個較完整的定義，即“管理信息系統(tǒng)是一個人-機系統(tǒng)。它能提供信息支持企業(yè)或組織的運行、管理和決策功能?！边@個定當(dāng)時達(dá)到的水平。1.2管理信息系統(tǒng)的特點1.2.1管理信息系統(tǒng)的組成管理信息系統(tǒng)在企業(yè)中的應(yīng)用存在三個要素，這就是人、計算機和數(shù)據(jù)。

MIS建設(shè)的領(lǐng)導(dǎo)機構(gòu)和實施

機構(gòu)，他們在系統(tǒng)中起主導(dǎo)作用。MIS是一項系統(tǒng)工程，不是只靠一些計算機開

發(fā)人員就可以完成的，必須有企業(yè)管理人員，尤其是企業(yè)領(lǐng)導(dǎo)的積極參與。

計算機技術(shù)是MISMIS開

發(fā)的重點。MIS各項管理制度是MIS購、庫房、工藝設(shè)計和財務(wù)等多個部門，必須有一整套管理制度做保證。1.2.2管理信息系統(tǒng)的界面特點在計算機軟件技術(shù)中，人機界面已經(jīng)發(fā)展成為一個重要的分支。MIS人機界面設(shè)計一般遵循以下一些基本原則：1.以通信功能作為界面設(shè)計的核心混在一起，以免互相干擾，影響速度。設(shè)計MIS“I-P-O”處理與輸出“涇渭分明，充分體現(xiàn)人機界面的通信功能。這樣設(shè)計出來的程序不易出錯，而且易于維護(hù)。報表打印是MIS分開設(shè)計，雖然消耗時間，但易于整個MIS系統(tǒng)的維護(hù)。2.界面必須始終一致最忌諱的是每換一個屏幕用戶就要換一套操作命令與操作方法。表示打印等。3.界面必須使用戶隨時掌握任務(wù)的進(jìn)展情況Windows開發(fā)MIS軟件時，這一點很值得借鑒。4.界面必須能夠提供幫助一個優(yōu)秀的MIS信息，是一個極佳的選擇。5.界面友好、使用方便多數(shù)MIS“文化程度”是相對固定的數(shù)據(jù)，其值一般取“小學(xué)、“初中、“高中、“大?！按蟊尽按T研“博研MIS軟件應(yīng)在相應(yīng)位置彈出一個列表框，待用戶以鼠標(biāo)點擊，而不應(yīng)讓用戶每次都輸入這些漢字。1.3VisualBasic介紹VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，Windows的專業(yè)開發(fā)工具SDK必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)Windows面豐富的應(yīng)用軟件系統(tǒng)?？偟膩碚f，VisualBasic具有以下特點：可視化編程：用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，

-編譯-修改的操

作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。VisualBasic提供了可視化設(shè)計

工具，把Windows界面設(shè)計的復(fù)雜性“封裝起來，開發(fā)人員不必為界面設(shè)計而

“部件VisualBasic自

而可以大大提高程序設(shè)計的效率。面向?qū)ο蟮某绦蛟O(shè)計4.0版以后的VisualBasic象的程序設(shè)計語言(C++)不完全相同。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象

VisualBasic則是應(yīng)用面向?qū)ο蟮某?/p>

序設(shè)計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)

象的程序代碼，而是用工具畫在界面上，VisualBasic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。結(jié)構(gòu)化程序設(shè)計語言VisualBasic是在BASIC的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。VisualBasic語句簡單易用靈活的調(diào)試器和編譯器。VisualBasic翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。在設(shè)計VisualBasic程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件(.EXE)VisualBasicWindows環(huán)境下運行。事件驅(qū)動編程機制VisualBasic通過事件來執(zhí)行對象的操作。一個對象可能會產(chǎn)生多個事件，該按鈕時，將產(chǎn)生一個“單擊“(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。在用VisualBasic用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫VisualBasic可以直接建立或處理MicrosoftAccess和檢索功能。同時，VisualBasic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如

DBASEFoxProParadoxVisualBasic編輯和處理。

VisualBasic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立

連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQLServerOracle程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，

并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機制和網(wǎng)絡(luò)

數(shù)據(jù)庫的SQLSQL分布式環(huán)境中快速而有效地實現(xiàn)客戶/服務(wù)器(client/server)方案。

動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(DynamicDataExchange)技術(shù)，可以把一種應(yīng)用程序中的態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。VisualBasic提供Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應(yīng)用程序都看作是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應(yīng)用程序中，從而可以得到具有OLE技術(shù)是MicrosoftOLE地建立復(fù)合式文檔(pounddocument)，這種文檔由來自多個不同應(yīng)用程序的對象完全相同的操作。動態(tài)鏈接庫(DLL)VisualBasic器硬件的操作不太容易實現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到VisualBasicWindows應(yīng)用程序接口(API)函數(shù)，實現(xiàn)SDK所具有的功能。1.4Access簡介MicrosoftAccess數(shù)據(jù)庫管理系統(tǒng)是MicrosoftOffice套件的重要組成部分，

先后出現(xiàn)了Access97、Access2000和AccessXP。其中AccessXP是最新版本。

Access適用于小型商務(wù)活動，用以存貯和管理商務(wù)活動所需要的數(shù)據(jù)。Access

MicrosoftAccess是一種關(guān)系式數(shù)據(jù)庫，關(guān)系式數(shù)據(jù)庫由一系列表組成，表

個字段名，字段名在一個表中不能重復(fù)。圖4-1是一個“學(xué)生表的例子。“學(xué)

生表由9個記錄組成，一個記錄占一行，每一個記錄由學(xué)號、姓名、性別、出

生日期、電話號碼、宿舍號、班長、系號和中共黨員9個字段組成。“學(xué)號是

字段名，其下面的1，2等是字段的值。Access數(shù)據(jù)庫以文件形式保存，文件的擴展名是MDB。Access2000表(Table)——表是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他6種對象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。查詢(Query)——查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。窗體(Form)——建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。報表(Report)——便分析。頁(Page)——也叫數(shù)據(jù)訪問頁。是連接到數(shù)據(jù)庫的Web來源的數(shù)據(jù)，例如MicrosoftExcel。宏(Macro)——宏相當(dāng)于DOS中的批處理，用來自動執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來十分方便。模塊(Module)——戶可以根據(jù)自己的需要編寫程序。模塊使用VisualBasic編程。第二章畢業(yè)設(shè)計正文2.1選題背景：現(xiàn)在的社會日新月異，發(fā)展的非?？臁Ｓ嬎銠C的發(fā)展也是非常的快了，而且每年都有不同的要求。倉庫的數(shù)據(jù)量也非常的大，資料可能經(jīng)常性的發(fā)生更換，原來手工的管理模式就顯的不怎么的合適了。而且手工的數(shù)據(jù)是存放在多處的，沒有使用統(tǒng)一管理的模式，數(shù)據(jù)整理非常的麻煩，統(tǒng)計也困難,很多的情況下，只要你正確的錄入，統(tǒng)計，報表輸出一點問題都沒有的。,如:效率低,容易出錯，格式不規(guī)范。另外時間一長，不容易進(jìn)行統(tǒng)計和分析。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟，其強大的功能已為人們深應(yīng)用的一部分，使用計算機對貨物進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點。例如:檢索迅速、查找方便、可靠性高、存儲量大、壽命長、成本低等。這些優(yōu)的事情。而且只要軟件的設(shè)計合理，可以為工廠提供合理的管理模式。修改、匯總。2.2方案論證:倉庫管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。系統(tǒng)還可以完成對各類信息的瀏覽、查詢、添加、刪除、修改、報表等功能。

系統(tǒng)的核心是數(shù)據(jù)庫中各個表聯(lián)系，每一個表的修改都將聯(lián)動的影響其它的表，

使用。系統(tǒng)有完整的用戶添加、刪除和密碼修改功能，并具備報表打印功能。

經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC開發(fā)工具,利用其提供的各

種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化

對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,

不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。LinuxWINDOWS所以也不用為了節(jié)省整體的造價而改用硬件要求很低的DOS定該倉庫管理系統(tǒng)將運行在普遍使用的WINDOWS操作系統(tǒng)上來協(xié)助管理人員輕

松地進(jìn)行與數(shù)據(jù)庫的連接和管理。在這么多的訪問接口里面微軟對于ADO技術(shù)也將是采取這樣的思路，而且本身來說ADO現(xiàn)人員無須關(guān)心一些底層的操作，而把更多的經(jīng)歷放在業(yè)務(wù)邏輯的設(shè)計上面。綜上所述，我們選擇了VisualBasic+ADO+ACCESS來開發(fā)整個系統(tǒng)。2.2.1、實現(xiàn)功能：（1）能夠瀏覽倉庫中貨物的所有信息（2）能夠?qū)ω浳锏男畔⒆缘怯浌芾恚?）貨物資料的數(shù)據(jù)庫建立和管理（4）能夠通過貨物的一個信息找到此貨物的相關(guān)信息（5）（6）多用戶數(shù)據(jù)安全管理，保證各部門的數(shù)據(jù)安全、完整，對每個使用本系統(tǒng)用戶進(jìn)行權(quán)限的設(shè)置（7）簡易操作，不需要計算機專業(yè)人員。（8）貨物查詢，查詢條件為貨物名稱信息的綜合查詢（9）用戶管理：設(shè)置兩個級別用戶：管理員和普通用戶，管理員有權(quán)限使用所有的功能，普通用戶只能使用查詢功能，用戶使用本系統(tǒng)之前必須先通過身份認(rèn)證（用戶級別、用戶名和密碼，密碼輸入有次數(shù)限制，連續(xù)三次輸入錯誤密碼則鎖定該用戶）2.2.2功能與模塊設(shè)計統(tǒng)、系統(tǒng)備份等，這幾個方面都是必須要滿足:（1）基本情況錄入：輸入本系統(tǒng)所需的基本數(shù)據(jù)。（2）貨物出入處理：處理貨物入庫、出庫的情況。

（3）貨物查詢：提供查詢貨物的基本情況功能。系統(tǒng)啟動畫面↓權(quán)限認(rèn)證畫面↓倉庫管理系統(tǒng)主畫面庫存管理入庫管理出庫管理借出信息管理系統(tǒng)備份2.2.3數(shù)據(jù)庫設(shè)計創(chuàng)建“倉庫管理系統(tǒng)”數(shù)據(jù)庫系統(tǒng)中需要使用的數(shù)據(jù)表。倉庫管理系統(tǒng)登陸表庫存表入庫表出庫表借條信息表1、登陸2、庫存3、入庫表4、出庫表5、借條信息2.3過程(設(shè)計或?qū)嶒?論述：執(zhí)行流程圖與解說2.3.1登陸流程圖設(shè)計說明:進(jìn)入主界面后,提示輸入用戶名和密碼,在輸入之后按確定進(jìn)入,驗證用戶名和密碼,實現(xiàn)流程:(1)檢測數(shù)據(jù)庫中有無管理員帳號,如果有,則等待用戶輸入用戶名和密碼,否則按程序本身自動執(zhí)行插入命令,新建一個管理員用戶,并等待用戶輸入.(2).驗證用戶名和密碼是否正確,錯誤次數(shù)不能超過三次,超過三次則退出系統(tǒng)登陸界面(3)當(dāng)驗證通過后,檢測該登陸用戶的管理權(quán)限,并設(shè)置變量傳值給主窗體.2.3.2主界面操作圖設(shè)計說明:此窗體為主窗體操作界面,為配合數(shù)據(jù)執(zhí)行模式,自制了菜單,使眾多功能都能整齊而有序的排列.實現(xiàn)功能:(1).獲得登陸界面?zhèn)鬟f的權(quán)限信息,設(shè)置用戶是否可以使用(庫存管理,入庫管理,出庫管理,系統(tǒng)操作,保存,修改,刪除)這些操作.(2).默認(rèn)進(jìn)入倉庫管理菜單,設(shè)置等待操作狀態(tài)2.3.3所有貨物與增加貨物數(shù)據(jù)圖所有貨物E-R圖增加貨物E-R圖據(jù)源為進(jìn)行到下一步操作做準(zhǔn)備實現(xiàn)功能:(1).執(zhí)行庫存信息表的全查詢,獲得所有字段名稱,通過字段名稱來分配數(shù)據(jù)列表的列數(shù).(2).執(zhí)行數(shù)據(jù)初始化,因使用的圖表控件附帶下拉列表框,分類選擇框等功能,可以很方便的進(jìn)行即時操作,所以數(shù)據(jù)的初始化是針對數(shù)據(jù)來確定哪一列的寬度與文本框的屬性.(3).給圖表控件的第一列賦值,賦值對象是庫存信息表的各字段名稱.

(4).統(tǒng)計所有表內(nèi)信息,得出行數(shù),顯示數(shù)據(jù)0(5).開始根據(jù)內(nèi)容給圖表控件賦值,同時設(shè)置狀態(tài),即不可保存,可修改,可刪

除.(因為在查詢數(shù)據(jù)的同時無需執(zhí)行保存數(shù)據(jù),而可以進(jìn)行數(shù)據(jù)的修改和刪除)2.3.4入庫與入庫數(shù)據(jù)處理圖所有入庫信息E-R圖增加入庫數(shù)據(jù)E-R圖2.3.5數(shù)據(jù)保存流程圖(1)在點擊上列按鈕后,系統(tǒng)屬于可保存狀態(tài),不可修改狀態(tài),不可刪除狀態(tài).

(2)點擊保存功能實現(xiàn):驗證輸入對象:即是保存庫存信息的內(nèi)容還是入庫表的內(nèi)容,判斷表格中

是否是否為空,為空提示并退出操作驗證用戶輸入的數(shù)據(jù)中是否有必填的字段未填的,如果有,提示并退出操

作,等待用戶補齊以上順利完成,對每行進(jìn)行組織語句(插入語句),然后執(zhí)行該語句,語句

成功提示并退出操作,否則通過防錯提示并退出操作2.3.6庫存管理注：增加：刷新表格數(shù)據(jù)，調(diào)整到等待輸入狀態(tài)

保存：執(zhí)行增加操作后，并輸入了必要的數(shù)據(jù)后執(zhí)行，保存用戶輸入的數(shù)據(jù)

修改：對原有數(shù)據(jù)進(jìn)行修改，課程編號為唯一值不可修改

刪除：刪除表格中所選目標(biāo)行退出：退出課程管理界面，返回到主界面視圖2.3.7查詢實現(xiàn)功能:支持庫存信息,,任何該表的參數(shù)都可以查詢到.2.4設(shè)計進(jìn)程：3月13日：獲得畢業(yè)設(shè)計課題與論文規(guī)范3月14日：構(gòu)思后臺數(shù)據(jù)庫的內(nèi)容，前臺操作界面與實現(xiàn)大體的功能3月15flexcell控件，試用效果對此畢業(yè)設(shè)計有很大幫助3月16日：創(chuàng)建數(shù)據(jù)庫后臺，建立連接數(shù)據(jù)庫的模塊，創(chuàng)建主界面窗體，編寫了菜單的程序，并初步使用數(shù)據(jù)處理3月17日：構(gòu)思資源優(yōu)化，并根據(jù)ADO中的詳細(xì)介紹實現(xiàn)數(shù)據(jù)分頁顯示，并編寫了數(shù)據(jù)與圖表之間的讀取，保存3月18日：完成了修改與刪除操作的處理，并實現(xiàn)對課程的管理，用戶管理與班級管理等窗體的內(nèi)容3月19日：加入圖表菜單顯示功能，加入查詢功能3月20日：完成統(tǒng)計查詢的功能，新建登陸窗體，處理非管理員與管理員的權(quán)限等問題3月21日：加入防錯代碼，并進(jìn)行大范圍測試，減少程序出錯機率3月22日：后期進(jìn)行美化處理，加入窗體透明化API3月23日：引用論文規(guī)范的模板，著手論文的完成3月24日：完成論文3月25日：準(zhǔn)備幻燈片演講稿3月26日：完成演講稿的內(nèi)容2.5結(jié)論和總結(jié)：確定了本系統(tǒng)的實用價值后，選用了目前最常用也最簡便的access數(shù)據(jù)庫ADOADO來連接數(shù)據(jù)庫將是最為

ADOaccess版的SQL數(shù)據(jù)庫時，就很容易做到即使用SQL的語句將數(shù)據(jù)庫交給ACCESS后臺，由后臺來處理，這樣系統(tǒng)的執(zhí)行會加快，也使用程序本身變得簡單1.本程序使用了新型控件flexcell能不但能帶給用戶最好的視覺感受，同時在操作時大大減少了手動輸入操作，因此也為非計算機人員的可操作性帶來很大的方便。2.自行編寫了菜單程序：增強了非計算機人員的可操作性，使整個窗體布局更加直觀化。3.flexcell方便更直觀的處理數(shù)據(jù)。4.支持全方位查詢，可以通過計算機人員的自寫語句實現(xiàn)定位查詢，只要語句正確，都能找到所要找的記錄。5.使用了透明API函數(shù)，在調(diào)用用戶管理與課程管理等窗體的時候，對該窗體進(jìn)行透明化處理。三、致謝由于以前對VisualBasic6.0的接觸并不是很多，對它的開發(fā)環(huán)境不是非常和功能上的缺陷，這些都有待于進(jìn)一步改善。的輔導(dǎo)。四、附錄4.1連接數(shù)據(jù)庫的模塊代碼PubliccnnAsNew'新建一個數(shù)據(jù)源Publicqy1AsNew'數(shù)據(jù)一個記錄集Publicqy2AsNew'數(shù)據(jù)一個記錄集SubMain()tkOpenAccessDB&"\"'連接數(shù)據(jù)庫Ifqy1.State=adStateOpenThen'表狀態(tài)qy1.CloseEndIfqy1.Open"select*from登陸",cnn,adOpenStatic,adLockReadOnly,adCmdText'查詢表內(nèi)是否有數(shù)據(jù)Ifqy1.RecordCount=0ThenSetqy1=("insertinto登陸values('admin','admin','超級管理員')")'表內(nèi)無數(shù)據(jù)執(zhí)行此語句新建用戶EndIfForm3.ShowEndSubPrivateSubtkOpenAccessDB(_

tkAsString,_OptionaltkUserIDAsString,_

OptionaltkPasswordAsString_

)'連接數(shù)據(jù)庫參數(shù)OnErrorGoTotkFinish"Provider=.OLEDB.4.0;"&_

"DataSource="&tk&";"&_"Mode=ShareDenyNone;"&_"ExtendedProperties=;"&_"JetOLEDB:Systemdatabase=;"&_

"JetOLEDB:RegistryPath=;"&_

"JetOLEDB:DatabasePassword=;"&_"JetOLEDB:EngineType=5;"&_"JetOLEDB:DatabaseLockingMode=1;"&_"JetOLEDB:GlobalPartialBulkOps=2;"&_"JetOLEDB:GlobalBulkTransactions=1;"&_"JetOLEDB:NewDatabasePassword=;"&_"JetOLEDB:CreateSystemDatabase=False;"&_"JetOLEDB:EncryptDatabase=False;"&_"JetOLEDB:Don'tCopyLocaleonCompact=False;"&_"JetOLEDB:CompactWithoutReplicaRepair=False;"&_"JetOLEDB:SFP=False;"&_tkUserID,_tkPasswordExitSubtkFinish:MsgBoxEndEndSub4.2登陸界面與代碼PrivateSubXPButton1_Click()OnErrorGoTofinishuser=Text1.TextSetmdbrs=("select*from登陸where用戶名='"&Text1.Text&"'and密碼='"&Text2.Text&"'")If=TrueThenText1.Text=""Text2.Text=""Text1.SetFocusMsgBox"用戶名和密碼不正確！！"Elseuser111=(0)sup=(2)If(2)="超級管理員"Thenadmin=True'MsgBox"您是超級管理員??！"'MsgBoxuserElseadmin=False'MsgBox"您不是超級管理員！！"EndIfUnloadMeMDIForm1.ShowEndIfExitSubfinish:MsgBoxEndSubPrivateSubXPButton2_Click()EndEndSubPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallXPButton1_ClickEndIfEndSubPrivateSubText2_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallXPButton1_ClickEndIfEndSub4.3主窗體界面與代碼PrivateSubabou_Click()EndSubPrivateSubcmai_Click()Ifadmin=FalseThenMsgBox"你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!"ExitSubEndIfIfmdi=TrueThenForm10.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubbak_Click()Ifmdi=TrueThenForm20.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubexit_Click()Ifmdi=FalseThenMsgBox"請保存數(shù)據(jù)！",vbInformation,"不允許當(dāng)前操作！"ElseEndEndIfEndSubPrivateSubhuifu_Click()

Ifmdi=TrueThenForm21.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubjiecha_Click()Ifmdi=TrueThenForm10.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubjietiao_Click()Ifadmin=FalseThenMsgBox"你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!"ExitSubEndIfIfmdi=TrueThenForm9.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubkecheng_Click()Ifmdi=TrueThenForm7.ShowElseMsgBox"",vbInformation,"不

允許當(dāng)前操作！"EndIfEndSubPrivateSubMDIForm_Load()StatusBar1.SimpleText="今天是"&Year(Date)&"年"&Month(Date)&"月"&Day(Date)&"日,歡迎您使用倉庫管理系統(tǒng)!"&"當(dāng)前操作者:"&user111&"權(quán)限:"&supEndSubPrivateSubreach_Click()Ifmdi=FalseThenMsgBox"請關(guān)閉打開的窗口！",vbInformation,"不允許當(dāng)前操作！"Else'UnloadMeForm5.ShowEndIfEndSubPrivateSubrelog_Click()Ifmdi=FalseThenMsgBox"請關(guān)閉打開的窗口！",vbInformation,"不允許當(dāng)前操作！"ElseUnloadMeForm1.ShowEndIfEndSubPrivateSubsturea_Click()Ifmdi=TrueThenForm4.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubstureg_Click()Ifadmin=FalseThenMsgBox"你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!"ExitSubEndIfIfmdi=TrueThenForm3.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubtuifang_Click()Ifadmin=FalseThenMsgBox"你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!"ExitSubEndIfIfmdi=TrueThenForm8.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubuser_Click()Ifadmin=FalseThenMsgBox"你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!"ExitSubEndIfIfmdi=TrueThenForm2.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubxuankecha_Click()Ifmdi=TrueThenForm9.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSubPrivateSubzhuxiu_Click()Ifadmin=FalseThenMsgBox"你沒有管理本功能的權(quán)限,請與管理員聯(lián)系!"ExitSubEndIfIfmdi=TrueThenForm6.ShowElseMsgBox"",vbInformation,"不允許當(dāng)前操作！"EndIfEndSub4.4用戶管理界面與代碼DimgridsaveAsBooleanDimgrideditAsBooleanDimgriddeleteAsBooleanPrivateSubForm_Load()OnErrorGoTofinishGrid1.SetRegisterInformation"CNwinndy","W]vyY-nonvk-u\nty-Zbl_e-`hms^"'進(jìn)行注冊WithGrid1.AllowUserResizing=True.DisplayFocusRect=False.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat.ScrollBarStyle=Flat.="Tahoma".=8.BackColorFixed=RGB(90,158,214)

.BackColorFixedSel=RGB(110,180,230)

.BackColorBkg=RGB(90,158,214)

.BackColorScrollBar=RGB(231,235,247)

.BackColor1=RGB(231,235,247)

.BackColor2=RGB(239,243,255)

.GridColor=RGB(148,190,231)

.AllowUserResizing=True.DisplayFocusRect=False.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat

.ScrollBarStyle=Flat.GridColor=RGB(148,190,231)

.="Tahoma".=8.Column(0).Width=0.Column(1).Width=100.Column(2).Width=100.Column(3).Width=100.Column(3).CellType=cellComboBox

.ComboBox(3).Clear.ComboBox(3).AddItem"超級管理員"

.ComboBox(3).AddItem"一般用戶"EndWith'="Provider=.OLEDB.4.0;JetOLEDB:DatabasePassword=;DataSource="&&"\"'=30'CallcallmainGrid1.Column(1).Locked=Truegridsave=Falsegridedit=Truegriddelete=Truemdi=FalseExitSubfinish:MsgBoxEndSubPrivateSubcallmain()OnErrorGoTofinishgridsave=Falsegridedit=Truegriddelete=TrueSetmdbrs=("select*from登陸")Grid1.Rows=1i=3Grid1.Cols=i+1Fori=0To2Grid1.Cell(0,i+1).Text=(i).Name

Nexti=1DoWhileNotGrid1.Rows=Grid1.Rows+1Forj=1To3'設(shè)定讀取列If(j-1)=NullThen'空值的處理Grid1.Cell(i,j).Text=""ElseGrid1.Cell(i,j).Text=(j-1)EndIfNexti=i+1'讀取下一記錄LoopGrid1.Column(1).Locked=TrueExitSubfinish:MsgBoxEndSubPrivateSubForm_LostFocus()Form2.ShowEndSubPrivateSubForm_Unload(CancelAsInteger)mdi=TrueEndSubPrivateSubXPButton1_Click()

OnErrorGoTofinishgridsave=Truegridedit=Falsegriddelete=FalseSetmdbrs=("select*from登陸")Grid1.Rows=1Grid1.Rows=2Grid1.Column(1).Locked=False

Grid1.Cell(1,1).SetFocus

ExitSubfinish:MsgBoxEndSubPrivateSubXPButton2_Click()OnErrorGoTofinishIfgridsave=FalseThenMsgBox"不支持保存操作！",vbInformation,"當(dāng)前不支持"ExitSubEndIfIfGrid1.Cell(1,1).Text<>""AndGrid1.Cell(1,2).Text<>""ThenSetmdbrs=("select*from登陸where用戶名='"&Grid1.Cell(1,1).Text&"'")If=TrueThenSetmdbrs=("insertinto登陸values('"&Grid1.Cell(1,1).Text&"','"&Grid1.Cell(1,2).Text&"','"&Grid1.Cell(1,3).Text&"')")MsgBox"提交成功！",vbInformation,""CallcallmainElseMsgBox"該管理員己存在！",vbInformation,"不可重名"ExitSubEndIfElseMsgBox"用戶名和密碼都不可以是空格！",vbInformation,"錯誤提示"EndIfExitSubfinish:MsgBoxEndSubPrivateSubXPButton3_Click()OnErrorGoTofinishIfgridedit=FalseThenMsgBox"當(dāng)前修改操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfFori=1ToGrid1.Rows-1Setmdbrs=("update登陸set密碼='"&Grid1.Cell(i,2).Text&"',權(quán)限='"&Grid1.Cell(i,3).Text&"'where用戶名='"&Grid1.Cell(i,1).Text&"'")NextMsgBox"修改的數(shù)據(jù)己經(jīng)完成",vbInformation,"完成操作"CallcallmainExitSubfinish:MsgBoxEndSubPrivateSubXPButton4_Click()OnErrorGoTofinishIfgriddelete=FalseThenMsgBox"當(dāng)前刪除操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfIfhang=0ThenMsgBox"沒有選擇用戶或者沒有用戶可以刪除!",vbInformation,"非使用對象"ExitSubEndIfSetmdbrs=("deletefrom登陸where用戶名='"&Grid1.Cell(hang,1).Text&"'")MsgBox"目標(biāo)己刪除,請刷新數(shù)據(jù)!",vbInformation,"刪除成功"CallcallmainExitSubfinish:MsgBoxEndSubPrivateSubXPButton5_Click()UnloadMeEndSubPrivateSubGrid1_RowColChange(ByValRowAsLong,ByValColAsLong)hang=Row

EndSub4.5庫存管理界面與代碼Dimgridedit1AsBooleanDimgridsave1AsBooleanDimgriddelete1AsBooleanPrivateSubForm_Load()OnErrorGoTofinishmdi=FalseGrid1.SetRegisterInformation"CNwinndy","W]vyY-nonvk-u\nty-Zbl_e-`hms^"'進(jìn)行注冊Setmdbrs1=("select*from庫存")'選擇表

Grid1.Cols=6'定義grid控件列數(shù)

Grid1.Column(1).Width=60'定義列的寬度

Grid1.Column(2).Width=70Grid1.Column(3).Width=120Grid1.Column(4).Width=70Grid1.Column(5).Width=70WithGrid1'定義grid控件的屬性.AllowUserResizing=True.DisplayFocusRect=False.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat.ScrollBarStyle=Flat.="Tahoma".=8.BackColorFixed=RGB(84,201,134)

.BackColorFixedSel=RGB(167,111,177)

.BackColorBkg=RGB(198,229,211)

.BackColorScrollBar=RGB(167,111,177)

.BackColor1=RGB(231,235,247)

.BackColor2=RGB(198,229,211)

.GridColor=RGB(148,190,231).Column(0).Width=0.Column(3).CellType=cellComboBox'定義第三列為選擇框.ComboBox(3).Clear.ComboBox(3).AddItem"布料".ComboBox(3).AddItem"膠水".ComboBox(3).AddItem"紙板".ComboBox(3).AddItem"包裝材料".ComboBox(3).AddItem"其它材料".Column(4).CellType=cellComboBox'定義第四列為選擇框.ComboBox(4).Clear.ComboBox(4).AddItem"個"'選擇框中添加數(shù)據(jù).ComboBox(4).AddItem"只".ComboBox(4).AddItem"盒".ComboBox(4).AddItem"支".ComboBox(4).AddItem"本".ComboBox(4).AddItem"條".ComboBox(4).AddItem"張".ComboBox(4).AddItem"斤"EndWithCallcallmainGrid1.Column(1).Locked=Truegridsave1=Falsegridedit1=Truegriddelete1=Truemdi=FalseExitSubfinish:MsgBoxEndSubPrivateSubForm_Unload(CancelAsInteger)mdi=True

EndSubPrivateSubXPButton1_Click()OnErrorGoTofinishgridsave1=Truegridedit1=Falsegriddelete1=FalseSetmdbrs=("select*from庫存")Grid1.Rows=1Grid1.Rows=2Grid1.Column(1).Locked=TrueGrid1.Cell(1,2).SetFocusGrid1.Column(5).Locked=FalseExitSubfinish:MsgBoxEndSubPrivateSubXPButton2_Click()'gridsave=TrueOnErrorGoTofinishIfgridsave1=FalseThenMsgBox"不支持保存操作！",vbInformation,"當(dāng)前不支持"ExitSubEndIfIfGrid1.Cell(1,2).Text=""ThenMsgBox"名稱不可以是空格！",vbInformation,"錯誤提示"ExitSubEndIfIfGrid1.Cell(1,3).Text=""Then

MsgBox"請選擇分類！",vbInformation,"錯誤提示"

ExitSubEndIfIfGrid1.Cell(1,4).Text=""ThenMsgBox"請選擇單位！",vbInformation,"錯誤提示"ExitSubEndIfIfGrid1.Cell(1,5).Text=""ThenMsgBox"請輸入數(shù)量！",vbInformation,"錯誤提示"ExitSubEndIf'插入數(shù)據(jù)Setmdbrs=("insertinto庫存(名稱,分類,單位,數(shù)量)values('"&Grid1.Cell(1,2).Text&"','"&Grid1.Cell(1,3).Text&"','"&Grid1.Cell(1,4).Text&"',val('"&Grid1.Cell(1,5).Text&"'))")MsgBox"提交成功！",vbInformation,""CallcallmainExitSubfinish:MsgBoxEndSubPrivateSubXPButton3_Click()'修改數(shù)據(jù)OnErrorGoTofinishIfgridedit1=FalseThenMsgBox"當(dāng)前修改操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfFori=1ToGrid1.Rows-1'修改每一行中的數(shù)據(jù)Setmdbrs=("update庫存set名稱='"&Grid1.Cell(i,2).Text&"',分類='"&Grid1.Cell(i,3).Text&"',單位='"&Grid1.Cell(i,4).Text&"',數(shù)量=val('"&Grid1.Cell(i,5).Text&"')whereid=val('"&Grid1.Cell(i,1).Text&"')")NextMsgBox"修改的數(shù)據(jù)己經(jīng)完成",vbInformation,"完成操作"Callcallmain

ExitSubfinish:MsgBoxEndSubPrivateSubXPButton4_Click()'刪除數(shù)據(jù)OnErrorGoTofinishDimiAsIntegerIfgriddelete1=FalseThenMsgBox"當(dāng)前修改操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfIfhang=0ThenMsgBox"沒有選擇庫存或者沒有庫存可以刪除!",vbInformation,"非使用對象"ExitSubEndIfSetmdbrs=("select*from庫存whereid=val('"&Grid1.Cell(hang,1).Text&"')")i=MsgBox("確認(rèn)刪除庫存編號為:"&(0).Value&"名稱為:"&(1)&"的記錄嗎?",4,"刪除記錄")Ifi=6ThenSetmdbrs=("deletefrom庫存whereid=val('"&Grid1.Cell(hang,1).Text&"')")MsgBox"目標(biāo)己刪除,請刷新數(shù)據(jù)!",vbInformation,"刪除成功"CallcallmainElseMsgBox"目標(biāo)沒有刪除!",vbInformation,"刪除失敗"EndIfExitSubfinish:MsgBoxEndSubPrivateSubXPButton5_Click()

UnloadMeEndSubPrivateSubcallmain()

OnErrorGoTofinishgridsave1=Falsegridedit1=Truegriddelete1=TrueSetmdbrs=("select*from庫存")Grid1.Rows=1i=5Grid1.Cols=i+1Fori=0To4'顯示列名Grid1.Cell(0,i+1).Text=(i).NameNexti=1DoWhileNot'顯示表中數(shù)據(jù)Grid1.Rows=Grid1.Rows+1Forj=1To5'設(shè)定讀取列If(j-1)=NullThen'空值的處理Grid1.Cell(i,j).Text=""ElseGrid1.Cell(i,j).Text=(j-1)EndIfNexti=i+1'讀取下一記錄LoopGrid1.Column(1).Locked=TrueExitSubfinish:MsgBoxEndSubPrivateSubGrid1_RowColChange(ByValRowAsLong,ByValColAsLong)hang=RowEndSub4.6入庫管理界面與代碼Dimgridedit1AsBooleanDimgridsave1AsBooleanDimgriddelete1AsBooleanPrivateSubForm_Load()OnErrorGoTofinishmdi=FalseGrid1.SetRegisterInformation"CNwinndy","W]vyY-nonvk-u\nty-Zbl_e-`hms^"'進(jìn)行注冊Setmdbrs1=("select*from入庫表")Grid1.Cols=7Grid1.Column(1).Width=30

Grid1.Column(2).Width=120

Grid1.Column(3).Width=120

Grid1.Column(4).Width=70

Grid1.Column(5).Width=70

Grid1.Column(6).Width=70

WithGrid1.AllowUserResizing=True

.DisplayFocusRect=False

.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat

.ScrollBarStyle=Flat.="Tahoma".=8.BackColorFixed=RGB(84,201,134)

.BackColorFixedSel=RGB(167,111,177)

.BackColorBkg=RGB(198,229,211)

.BackColorScrollBar=RGB(167,111,177)

.BackColor1=RGB(231,235,247)

.BackColor2=RGB(198,229,211)

.GridColor=RGB(148,190,231).Column(0).Width=0.Column(2).CellType=cellComboBox.ComboBox(2).ClearSetmdbrs2=("select名稱from庫存")DoWhilemdbrs2.EOF=False.ComboBox(2).AddItemmdbrs2.Fields(0)mdbrs2.MoveNextLoopEndWithCallcallmainGrid1.Column(1).Locked=Truegridsave1=Falsegridedit1=Truegriddelete1=Truemdi=FalseExitSubfinish:MsgBoxEndSubPrivateSubForm_Unload(CancelAsInteger)mdi=TrueEndSubPrivateSubXPButton1_Click()

OnErrorGoTofinishgridsave1=Truegridedit1=Falsegriddelete1=FalseSetmdbrs=("select*from入庫表")Grid1.Rows=1Grid1.Rows=2Grid1.Column(1).Locked=True

Grid1.Cell(1,2).SetFocusGrid1.Column(6).Locked=TrueExitSubfinish:MsgBoxEndSubPrivateSubXPButton2_Click()'OnErrorGoTofinishIfgridsave1=FalseThenMsgBox"不支持保存操作！",vbInformation,"當(dāng)前不支持"ExitSubEndIfIfGrid1.Cell(1,2).Text=""ThenMsgBox"名稱不可以是空格！",vbInformation,"錯誤提示"ExitSubEndIfIfGrid1.Cell(1,3).Text=""ThenMsgBox"供應(yīng)商不可以是空格！",vbInformation,"錯誤提示"ExitSubEndIfIfGrid1.Cell(1,4).Text=""ThenMsgBox"請輸入數(shù)量！",vbInformation,"錯誤提示"ExitSubEndIfIfGrid1.Cell(1,5).Text=""ThenMsgBox"請輸入單價！",vbInformation,"錯誤提示"ExitSubEndIfDimaAsDoublea=Val(Grid1.Cell(1,4).Text)Setmdbrs=("insertinto入庫表(名稱,供應(yīng)商,數(shù)量,單

價)values('"&Grid1.Cell(1,2).Text&"','"&Grid1.Cell(1,3).Text&"',val('

"&Grid1.Cell(1,4).Text&"'),val('"&Grid1.Cell(1,5).Text&"'))")Setmdbrs1=("select數(shù)量from庫存where名稱='"&Grid1.Cell(1,2).Text&"'")a=mdbrs1.Fields(0)+aSetmdbrs1=("update庫存set數(shù)量='"&a&"'where名稱='"&Grid1.Cell(1,2).Text&"'")MsgBox"提交成功！",vbInformation,""CallcallmainExitSubfinish:MsgBoxEndSubPrivateSubXPButton3_Click()OnErrorGoTofinishIfgridedit1=FalseThenMsgBox"當(dāng)前修改操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfFori=1ToGrid1.Rows-1Setmdbrs=("update入庫表set名稱='"&Grid1.Cell(i,2).Text&"',供應(yīng)商='"&Grid1.Cell(i,3).Text&"',數(shù)量=val('"&Grid1.Cell(i,4).Text&"'),單價=val('"&Grid1.Cell(i,5).Text&"')whereid=val('"&Grid1.Cell(i,1).Text&"')")NextMsgBox"修改的數(shù)據(jù)己經(jīng)完成",vbInformation,"完成操作"Callcallmain

ExitSubfinish:MsgBoxEndSubPrivateSubXPButton4_Click()

OnErrorGoTofinishDimiAsIntegerIfgriddelete1=FalseThenMsgBox"當(dāng)前修改操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfIfhang=0ThenMsgBox"沒有選擇入庫信息或者沒有入庫信息可以刪除!",vbInformation,"非使用對象"ExitSubEndIfSetmdbrs=("select*from入庫表whereid=val('"&Grid1.Cell(hang,1).Text&"')")i=MsgBox("確認(rèn)刪除入庫編號為:"&(0).Value&"名稱為:"&(1)&"的記錄嗎?",4,"刪除記錄")Ifi=6ThenSetmdbrs=("deletefrom入庫表whereid=val('"&Grid1.Cell(hang,1).Text&"')")MsgBox"目標(biāo)己刪除,請刷新數(shù)據(jù)!",vbInformation,"刪除成功"CallcallmainElseMsgBox"目標(biāo)沒有刪除!",vbInformation,"刪除失敗"EndIfExitSubfinish:MsgBoxEndSubPrivateSubXPButton5_Click()

UnloadMeEndSubPrivateSubcallmain()

OnErrorGoTofinish

gridsave1=Falsegridedit1=Truegriddelete1=TrueSetmdbrs=("select*from入庫表")Grid1.Rows=1i=6Grid1.Cols=i+1Fori=0To5Grid1.Cell(0,i+1).Text=(i).NameNexti=1DoWhileNotGrid1.Rows=Grid1.Rows+1Forj=1To6'設(shè)定讀取列If(j-1)=NullThen'空值的處理Grid1.Cell(i,j).Text=""ElseGrid1.Cell(i,j).Text=(j-1)EndIfNexti=i+1'讀取下一記錄LoopGrid1.Column(1).Locked=TrueExitSubfinish:MsgBoxEndSubPrivateSubGrid1_RowColChange(ByValRowAsLong,ByValColAsLong)hang=RowEndSub4.7出庫管理界面與代碼

Dimgridedit1AsBoolean

Dimgridsave1AsBoolean

Dimgriddelete1AsBooleanPrivateSubForm_Load()OnErrorGoTofinishmdi=FalseGrid1.SetRegisterInformation"CNwinndy","W]vyY-nonvk-u\nty-Zbl_e-`hms^"'進(jìn)行注冊Setmdbrs1=("select*from出庫表")Grid1.Cols=5Grid1.Column(1).Width=30Grid1.Column(2).Width=120Grid1.Column(3).Width=80Grid1.Column(4).Width=70WithGrid1.AllowUserResizing=True.DisplayFocusRect=False.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat.ScrollBarStyle=Flat.="Tahoma".=8.BackColorFixed=RGB(84,201,134)

.BackColorFixedSel=RGB(167,111,177)

.BackColorBkg=RGB(198,229,211)

.BackColorScrollBar=RGB(167,111,177)

.BackColor1=RGB(231,235,247)

.BackColor2=RGB(198,229,211)

.GridColor=RGB(148,190,231)

.Column(0).Width=0.Column(2).CellType=cellComboBox

.ComboBox(2).ClearSetmdbrs2=("select名稱from庫存")DoWhilemdbrs2.EOF=False.ComboBox(2).AddItemmdbrs2.Fields(0)mdbrs2.MoveNextLoopEndWithCallcallmainGrid1.Column(1).Locked=TrueGrid1.Column(4).Locked=Truegridsave1=Falsegridedit1=Truegriddelete1=Truemdi=FalseExitSubfinish:MsgBoxEndSubPrivateSubForm_Unload(CancelAsInteger)mdi=TrueEndSubPrivateSubXPButton1_Click()

OnErrorGoTofinishgridsave1=Truegridedit1=Falsegriddelete1=FalseSetmdbrs=("select*from出庫表")Grid1.Rows=1Grid1.Rows=2Grid1.Column(1).Locked=True

Grid1.Cell(1,2).SetFocus

Grid1.Column(4).Locked=True

ExitSubfinish:MsgBoxEndSubPrivateSubXPButton2_Click()'OnErrorGoTofinishIfgridsave1=FalseThenMsgBox"不支持保存操作！",vbInformation,"當(dāng)前不支持"ExitSubEndIfIfGrid1.Cell(1,2).Text=""ThenMsgBox"名稱不可以是空格！",vbInformation,"錯誤提示"ExitSubEndIfIfGrid1.Cell(1,3).Text=""ThenMsgBox"請輸入數(shù)量！",vbInformation,"錯誤提示"ExitSubEndIfDimaAsDoublea=Val(Grid1.Cell(1,3).Text)Setmdbrs1=("select數(shù)量from庫存where名稱='"&Grid1.Cell(1,2).Text&"'")a=mdbrs1.Fields(0)-aIfa<0ThenMsgBox"庫存數(shù)量是:"&mdbrs1.Fields(0)&"庫存數(shù)量不足!!"ExitSubEndIfSetmdbrs1=("update庫存set數(shù)量='"&a&"'where名稱='"&Grid1.Cell(1,2).Text&"'")Setmdbrs=("insertinto出庫表(名稱,數(shù)量)values('"&Grid1.Cell(1,2).Text&"',val('"&Grid1.Cell(1,3).Text&"'))")MsgBox"提交成功！",vbInformation,""Callcallmain

ExitSubfinish:MsgBoxEndSubPrivateSubXPButton3_Click()OnErrorGoTofinishIfgridedit1=FalseThenMsgBox"當(dāng)前修改操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfFori=1ToGrid1.Rows-1Setmdbrs=("update出庫表set名稱='"&Grid1.Cell(i,2).Text&"',數(shù)量=val('"&Grid1.Cell(i,3).Text&"')whereid=val('"&Grid1.Cell(i,1).Text&"')")NextMsgBox"修改的數(shù)據(jù)己經(jīng)完成",vbInformation,"完成操作"CallcallmainExitSubfinish:MsgBoxEndSubPrivateSubXPButton4_Click()OnErrorGoTofinishDimiAsIntegerIfgriddelete1=FalseThenMsgBox"當(dāng)前修改操作不被允許!",vbInformation,"非使用對象"ExitSubEndIfIfhang=0ThenMsgBox"沒有選擇出庫信息!",vbInformation,"非使用對象"ExitSubEndIfSetmdbrs=("select*from出庫表whereid=val('"&Grid1.Cell(hang,1).Text&"')")i=MsgBox("確認(rèn)刪除入庫編號為:"&(0).Value&"名稱為:"&(1)&"的記錄嗎?",4,"刪除記錄")Ifi=6ThenSetmdbrs=("deletefrom出庫表whereid=val('"&Grid1.Cell(hang,1).Text&"')")MsgBox"目標(biāo)己刪除,請刷新數(shù)據(jù)!",vbInformation,"刪除成功"CallcallmainElseMsgBox"目標(biāo)沒有刪除!",vbInformation,"刪除失敗"EndIfExitSubfinish:MsgBoxEndSubPrivateSubXPButton5_Click()UnloadMeEndSubPrivateSubcallmain()

OnErrorGoTofinish

gridsave1=Falsegridedit1=Truegriddelete1=TrueSetmdbrs=("select*from出庫表")Grid1.Rows=1i=4Grid1.Cols=i+1

Fori=0To3Grid1.Cell(0,i+1).Text=(i).Name

Nexti=1DoWhileNotGrid1.Rows=Grid1.Rows+1Forj=1To4'設(shè)定讀取列If(j-1)=NullThen'空值的處理Grid1.Cell(i,j).Text=""ElseGrid1.Cell(i,j).Text=(j-1)EndIfNexti=i+1'讀取下一記錄LoopGrid1.Column(1).Locked=TrueExitSubfinish:MsgBoxEndSubPrivateSubGrid1_RowColChange(ByValRowAsLong,ByValColAsLong)hang=RowEndSub4.8借條信息管理界面與代碼Dimgridedit1AsBooleanDimgridsave1AsBooleanDimgriddelete1AsBooleanPrivateSubForm_Load()OnErrorGoTofinishmdi=FalseGrid1.SetRegisterInformation"CNwinndy","W]vyY-nonvk-u\nty-Zbl_e-`hms^"'進(jìn)行注冊Setmdbrs1=("select*from借條信息")Grid1.Cols=7Grid1.Column(1).Width=30

Grid1.Column(2).Width=120

Grid1.Column(3).Width=120

Grid1.Column(4).Width=70

Grid1.Column(5).Width=120

Grid1.Column(6).Width=40

WithGrid1.AllowUserResizing=True

.DisplayFocusRect=False

.ExtendLastCol=True.Appearance=Flat.FixedRowColStyle=Flat

.ScrollBarStyle=Flat.="Tahoma".=8.BackColorFixed=RGB(84,201,134)

.BackColorFixedSel=RGB(167,111,177)

.BackColorBkg=RGB(198,229,211)

.BackColorScrollBar=RGB(167,111,177)

.BackColor1=RGB(231,235,247).BackColor2=RGB(198,229,211).GridColor=RGB(148,190,231).Column(0).Width=0.Column(3).CellType=cellComboBox.ComboBox(3).ClearSetmdbrs2=("select名稱from庫存")DoWhilemdbrs2.EOF=False.ComboBox(3).AddItemmdbrs2.Fields(0)mdbrs2.MoveNextLoopEndWithCallcallmainGrid1.Column(1).Locked=Truegridsave1=Falsegridedit1=Truegriddelete1=Truemdi=FalseExitSubfinish:MsgBoxEndSubPrivateSubForm_Unload(CancelAsInteger)mdi=TrueEndSubPrivateSubXPButton1_Click()

OnErrorGoTofinishgridsave1=Truegridedit1=Falsegriddelete1=FalseSetmdbrs=("select*from借條信息")Grid1.Rows=1Grid1.Rows=2Grid1.Colu