【正文】 我要感謝我的幾位同學(xué)和老師的得力相助，我希望我能向他們學(xué)習(xí)，發(fā)揚(yáng)那種百折不撓、孜孜不倦的對知識求索精神，那種至高無上的敬業(yè)精神。 Operater1 If Rights = 1 Then = True Else = False End If Else MsgBox 輸入的密碼有誤,請重新輸入!!!! End If txtPassword = End Sub 本系統(tǒng)界面標(biāo)準(zhǔn)Windows形式，鍵盤輸入，人機(jī)交互，容易使用。2創(chuàng)建入庫信息窗體入庫信息是采購人員購買貨物時所填寫的，是為了完成貨物的正確入庫才用到的。Image：用來設(shè)置按鈕中顯示的圖形，以0，1，2等來標(biāo)識，ImageList控件中的圖形將按順序賦給不同的按鈕。訪問鍵，要在菜單編輯器中給菜單控件賦值訪問鍵，先選取要賦值訪問鍵的菜單項，在該菜單項“Caption”框中，要在作為訪問鍵字符的前面鍵入一個（amp。訪問字符通常是菜單標(biāo)題的第一個字母；每個菜單標(biāo)題不能用同一個字符。要打開菜單編輯器，在“Tools”菜單中選擇“Menu Editor”選項。本設(shè)計采用多文檔界面，這樣可以使程序更加美觀、整齊有序。數(shù)據(jù)字典設(shè)計：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計，便于維護(hù)和修改。（5）（2） 查詢模塊a) 按入庫的日期進(jìn)行查詢，既可以查到這一時段的入庫信息，也能查到相應(yīng)時段的出庫信息。在管理的過程中經(jīng)常會出現(xiàn)信息的重復(fù)傳遞；報表種類繁多，各個部門管理規(guī)格不統(tǒng)一等問題。第二章 系統(tǒng)分析 可行性分析的任務(wù),并不是所有問題都有簡單明顯的解決辦法，事實上，許多問題不可能在預(yù)定的系統(tǒng)規(guī)模之內(nèi)解決。本系統(tǒng)就用了Cool工具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個欄中，在樣式這一欄中選擇了文本，在第二個欄中，選擇了系統(tǒng)日期，第三個欄中選擇了系統(tǒng)時間，這樣，任何時候操作本系統(tǒng)，都可以看到當(dāng)前的時間和日期。(5) 方法 (Method)方法主要是指對一個對象使用某種作用的過程。下面簡要介紹一下中文Visual Basic 2000。關(guān)鍵字：倉庫，管理系統(tǒng)，Access數(shù)據(jù)庫The administrative system of the warehouse [Abstract] The administrative system of the warehouse is designed for realizing the systematization , standardization and automization of enterprise39。s products management and improving efficiency of enterprises management. It pletely replaces the working way of artificial management originally , prevents from various kinds of mistakes because of administrative staff neglect and the quality problem of management and offeres powerful tool and management way to plet storehouse management for prompt , accurate , highefficient . The administrative system of the warehouse is a medium and smallscale database management system,it has not only beautiful interface, but also the high security and the simply operation , and meet the demand for storehouse management basically. Whole system is made up by basic information, inquire statistics , report form type ,set up to maintain and module of helping etc.The Warehouse administrative system is designed with regarding ACCESS 2000 as the backstage database and regarding Visual Basic as programming language . The administrative system is effectual, the high data accuracy during the course of operating , improves working efficiency and realizes puterization for storehouse management at the same time .Keywords: The Warehouse , Administrative System, The Database of Access目錄前 言 VIII第一章 緒 論 1 1 VB語言的基本特點及VB應(yīng)用程序的基本持點 1 2 3 3 3 實現(xiàn)關(guān)系型數(shù)據(jù)庫 4第二章 系統(tǒng)分析 6 6第三章 系統(tǒng)設(shè)計 8 8 8 8 8 9 10 11 12 14 16 16 16 18第四章 系統(tǒng)實現(xiàn) 20 20 20 21 21 21 23 23結(jié) 論 24致 謝 語 25參考文獻(xiàn): 26前 言隨著企業(yè)管理信息化的發(fā)展，網(wǎng)絡(luò)及計算機(jī)的引入使管理躍上了一個新的發(fā)展平臺。 VB語言的基本特點及VB應(yīng)用程序的基本持點VB程序語言具有許多優(yōu)秀的特性，用其設(shè)計應(yīng)用程序時有兩個基本特點：可視化設(shè)計和事件驅(qū)動編程。它是在程序執(zhí)行的過程中要計算機(jī)執(zhí)行的某種操作。 實現(xiàn)關(guān)系型數(shù)據(jù)庫l 數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。如果問題沒有可行的解，那么花費(fèi)這項開發(fā)工程上的任何時間、資源、人力和經(jīng)費(fèi)都是無謂的浪費(fèi)。成本方面：由于本畢業(yè)設(shè)計屬于計算機(jī)科學(xué)(本科)教學(xué)的最后一個環(huán)節(jié)，所以人力消耗免費(fèi)，資源學(xué)校提供，指導(dǎo)老師義務(wù)指導(dǎo)。 在本系統(tǒng)的設(shè)計過程中，為了克服這些困難，滿足計算機(jī)管理工作的需要，我們采取了下面的一些原則。b) 按人員進(jìn)行查詢，可以根據(jù)倉管員的信息查詢物品的入庫或出庫信息。加載測試工作貫穿于程序測試工作的全過程，整個錄入、修改、查詢、處理工作均可視為對數(shù)據(jù)庫的加載測試工作。用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。單擊工具欄中的ADD MDI Form 按鈕，生成一個窗體。或擊鼠標(biāo)右鍵，選擇彈出式菜單中的“Menu Editor”。(c) 如果命令在完成之前還需要附加信息，則在其名稱后面應(yīng)當(dāng)有一個省略號（…）。）字符。2 工具欄控件常用事件工具欄控件常用事件主要有ButtonClick和Click兩個。在新增入庫單窗體中貨物編號、導(dǎo)電情況、硬度均可通過單擊相關(guān)的數(shù)據(jù)框來選擇，數(shù)據(jù)選擇框會進(jìn)行動態(tài)智能化統(tǒng)計信息，使選擇更方便。輸入輸出的設(shè)計考慮美觀實用和通俗易懂，圖文并茂。走向了工作單位才感覺到自己的不足之處，“書到用時方恨少”。從選擇畢業(yè)設(shè)計題目，到畢業(yè)設(shè)計規(guī)劃，查找相關(guān)資料，設(shè)計模型，具體實施，結(jié)束論文，整個大致的流程中，我遇到了很多問題，但通過老師和同學(xué)們的幫助，我克服了這些困難。登錄 If txtPassword = Password And Trim(Password) Or datacount = 0 Then If Login1 = 1 Then Load Mainform Else End If If Rights = 2 Then = False Else = True End If If Login1 = 1 Then (1).Text = 管理