上海應用技術學院課程設計20142015學年第一學期設計題目倉庫信息管理系院（系）計算機科學與信息工程專業(yè)計算機科學與技術班級11104113學號學生姓名設計時間201412152015117指導教師周蘭風提交日期20151171、概述11課程設計選題背景ERP市場當前狀況我們可以從多個方面對當前的市場需求和變化進行考察。其一，實踐證明，有的國內企業(yè)采用自主開發(fā)的模式，采用了不成熟的系統，在投入較少的情況下，這種模式的應用效果并不好。雖然，從理論上來講，自主開發(fā)模式最能符合企業(yè)對信息系統的要求。因為存在升級和昂貴的集成費用等潛在困難，中型用戶越來越遠離這種定制的ERP系統。經過多年的發(fā)展，全球范圍內的ERP軟件的模式已經有了事實上的行業(yè)標準，已經完全成熟，這種商品化和模塊化的ERP產品越來越獲得用戶的青睞。其二，所有的ERP廠商都在和軟件系統的復雜性作斗爭，使得缺乏IT資源和人力的中型企業(yè)能應用ERP系統。SAP、PEOPLESOFT、ORACLE和BAAN都在縮短實施周期上做出了切實的進展，國內的很多ERP廠商等也認識到了這一點，這是中型企業(yè)實施成功的關鍵之一。其三，中國企業(yè)的信息化水平還是比較低的，有著廣闊的市場和利潤空間?，F在，越來越多的企業(yè)正在從“系統集成”階段向“應用集成”和“信息集成”等更高級的階段邁進。也就是說，很多企業(yè)經歷了購置電腦、構建網絡的階段，跨越了辦公自動化的階段，產生了對ERP等應用軟件的巨大需求。其四，在信息化人員配備方面，企業(yè)中既懂管理又對企業(yè)信息化有深刻理解的員工越來越多。經過多年的發(fā)展，很多企業(yè)負責信息化的員工建立起了對大型的、跨越業(yè)務領域、跨越地域的企業(yè)管理軟件系統的概念。而提供ERP咨詢和服務的軟件商、咨詢機構也越來越多。其五，競爭的加劇使得ERP廠商不得不降低價格，提供針對性的實施方法，縮短ERP軟件實施過程，從而使得ERP系統整體擁有成本的下降，使得越來越多的企業(yè)有能力擁有ERP這種過去只有大企業(yè)才能用得起的系統。對產品的預期和定位要想取得產品的成功，必須對自己開發(fā)的產品有清晰明確的定位，對于市場上琳瑯滿目的ERP產品，我必須做出自己的特色才能有立足之地。所以，我計劃做個性價比較高的ERP庫存管理系統，系統具有界面友好，用戶易操作、易學習，維護簡單的特點。面向的客戶為小微型企業(yè)，小微型客戶會因為規(guī)模小而忽略對數字化的信息管理系統的使用，而開發(fā)ERP系統的軟件公司也“懶得”對這一部分潛在客戶下力氣。其實這是一個市場的盲區(qū)，我認為小微型企業(yè)是一個潛力股，往往在這些小微型成長起來后，會持續(xù)給公司帶來大量客觀的業(yè)務，我們前期用心給他們做管理系統，相當于是對他們的幫助，這為未來的友好合作關系打下牢固的基礎12課程設計目標通過五周的課程設計，要求學生加深對ERP模塊設計和數據庫技術相關理論的理解，增強動手能力，掌握使用現行較為流行的數據庫理論和數據庫開發(fā)工具進行管理信息系統設計（如前臺界面和后臺對數據庫中數據進行查詢，更改等操作）的方法，以及全面采用面向對象的程序設計技術，使用事件驅動機制進行程序設計。本系統主要針對物流供應鏈中的庫存管理環(huán)節(jié)，實現基本信息管理，指對供應商信息，客戶信息，貨品信息的管理。基本信息查詢管理，指對供應商信息，客戶信息，貨品信息的查詢管理。（1）系統管理指對供應商信息，客戶信息，貨品信息的管理。（2）設備管理指對設備的基本信息管理及查詢（3）設備入庫管理指對入庫的設備進行管理（4）設備出庫管理指對出庫的設備進行管理（5）設備還庫管理指對還回來的設備進行管理（6）庫存信息管理指對庫存信息及采購的管理（7）設備需求管理指對設備供求的管理2、系統分析21倉庫管理分析211整體分析企業(yè)的庫存物資管理往往是很復雜、很繁瑣的。由于所掌握的物資種類眾多，訂貨、管理、發(fā)放的渠道各有差異，各個企業(yè)之間的管理體制不盡相同，各類統計報表繁多，因此倉庫的庫存管理必須編制一套庫存管理信息系統，實現計算機化操作，而且必須根據企業(yè)的具體情況制定相應的方案。由于家電產品行業(yè)產品種類繁多，業(yè)務量巨大，若仍然采用人工記賬的方式，必然不能滿足企業(yè)的需求，企業(yè)需要利用計算機來進行庫存管理，因此需要構造一個庫存管理系統。一個完整的企業(yè)物資供應管理系統應包括采購計劃管理，合同收托管理、倉庫庫存管理、定額管理、統計管理、財務管理等模塊。其中倉庫的庫存管理是整個物資供應管理系統的核心。因此有必要開發(fā)一套獨立的庫存管理系統來提高企業(yè)工作效率,而所使用的這套庫存管理系統是企業(yè)生產經營管理活動中的核心，此系統必須可以用來控制合理的庫存費用、適時適量的庫存數量，使企業(yè)生產活動效率最大化。通過對這些情況的仔細調查，我開發(fā)了下面的倉庫庫存管理系統。212細化分析1）庫存種類的細分（物料編碼）物料編碼編碼結構和企業(yè)管理方式有關系，生產型企業(yè)建議結構是物料性質分類材質倉庫流水號補碼。物料性質，一般指成品、半成品、原材料；分類，就是常規(guī)物料分類；材質，倉庫，這個倉儲有關總之，物料編碼應該盡可能細化。庫存物品的分類，庫存管理是企業(yè)物資流通管理的核心，是為生產、銷售等活動而發(fā)生的物料接收、發(fā)放以及存儲管理等一系列管理活動。A庫存物料按完成情況分類可分為原材料采購部門從供應商那里采購來的，準備投入生產加工的物料。在制品正在加工或等待加工的物料。產成品已經完工的最終產品，就是企業(yè)生產出來準備銷售的產品。B庫存物料按價值劃分ABC分類ABC分類法是庫存控制的基本方法之一，并廣泛應用于庫存控制、生產控制、質量控制及其他許多管理問題。ABC分類法的基本概念如下。A類物品高值總價值占庫存總值7080的相對少數物品。通常為物品的1520。B類物品中值總價值占庫存總值的1520。物品數居中，通常占物品的3040。C類物品低值庫存總價值小，只占510。這是物品的大多數，通常占6070。2庫存與其他模塊的聯系物料需求計劃MRP的計算，需要考慮現有庫存、在單量在途PO和生產在制，舉個例子生產1個A，需要2個A,3個B，這是BOM?，F在接到客戶訂單需要100個A，現有的狀況是庫存有50個A，產線正在生產的A有20個無對應客戶訂單，已經發(fā)出PO尚未收料的B有100個，則，MRP運算結果是生產計劃80個A，采購計劃28050110個A,380100140個B本例沒有考慮時間的連動關系。從這個簡單的例子中就可以ERP的資源共享的優(yōu)點，這些連接BOM、在單量、庫存繁瑣的運算，在ERP中你只要點擊一下“運算”就可以得出結果。22可行性分析可行性研究的目的，就是用最小的代價在盡可能短的時間內確定問題是否能夠解決。要達到這個目的，必須分析幾種主要的可能解法的利弊，從而判斷原定的系統規(guī)模和目標是否現實，系統完成后所能帶來的效益是否大到值得投資開發(fā)這個系統的程度。因此，可行性研究實質上是要進行一次大大壓縮簡化了的系統分析和設計的過程，也就是在較高層次上以較抽象的方式進行的系統分析和設計的過程。一般來說，可行性分析應從經濟可行性、技術可行性、操作可行性等方面進行研究。本系統的可行性分析如下1經濟可行性分析由于本庫存管理系統所要求的硬件（計算機及相關硬件）和軟件環(huán)境VISUALCNETSQLSERVER2005，市場上都容易購買到或從相關網站下載，系統成本主要集中在本管理系統的開發(fā)與維護上，對用戶不造成過重的經濟負擔。而一旦此系統投入使用,不僅可以減少庫存的工作強度，提高工作效率，而且方便了庫存對信息的管理，延續(xù)了傳統的管理模式，極大限度地方便了庫存管理人員，而且，目標系統不是很復雜，開發(fā)的周期較短，人員經濟支出不大，所節(jié)省的大量人力、財力產生的效益將遠遠大于本系統的開發(fā)成本，所以從經濟方面講開發(fā)此系統是可行的。2技術可行性分析技術上的可行性分析要考慮現有技術條件能否順利完成開發(fā)工作及將來要采用的硬件和軟件技術能否滿足用戶提出的要求（如計算機的容量、速度等）。本系統采用VISUALCNET作為系統前臺應用程序開發(fā)工具，采用SQLSERVER2005工具建立數據庫，并通過VISUALCNET中的ADO控件使兩者進行連接從而進行系統軟件開發(fā)。VISUALCNET不僅能幫助軟件開發(fā)者提高軟件開發(fā)的質量和效率，縮短開發(fā)周期，而且還具備強大的數據庫管理功能，完全能夠滿足本系統的開發(fā)需求。此外，從開發(fā)人員的水平考慮，作為計算機科學與技術專業(yè)畢業(yè)的學生，大學四年所積累的專業(yè)知識使我們從一定程度上具備了開發(fā)一個小型系統的能力，而且學?，F有的計算機設備也完全能夠滿足開發(fā)的需要。3操作可行性分析傳統的庫存管理系統，一般有兩種方式一是手工管理，這種方式應用最傳統的“筆紙操作系統”，將庫存的貨物信息、銷售信息、廠商信息管理及單據管理等均以純手工的形式進行，將信息以表格文件的表現形式記錄在紙上，再進行統一保存。這種方式雖然在簡單信息查詢時會有一定的方便，但是存在著更多的不便信息保存時間和條件很受限制、容易被損壞、信息查詢不便、信息傳達容易造成失誤等。另一種常見的信息管理方法是應用單機版的管理系統，本系統就是一款做的相對到位的單機版的庫存管理系統，在庫存信息處理方面做得很精準規(guī)范。因為庫存管理人員已經有豐富的信息管理經驗，加之有相當的計算機應用經驗，所以對于此系統一定很容易就可操作熟練。綜上所述，本庫存管理系統投資少、收益大，且其運行操作簡單易學，具備了開發(fā)的可行性。23系統需求分析231功能需求及用戶需求1）功能需求該系統主要分為三大功能管理員功能、信息安全功能、一般用戶功能。A管理員功能產品入庫登記、確認入庫信息、刪除庫內信息、借出信息登記、產分類管理、添加人員、刪除人員、查詢庫內信息。B信息安全功能人員權限區(qū)分、事件記錄。C一般用戶功能查詢庫內信息、查詢出庫信息、查詢入庫信息；D報表生成庫存信息報表生成。2用戶需求根據用戶需求，該系統應該實現以下功能A進、出庫管理。對進、出庫信息進行記錄。B查詢功能。倉庫管理對查詢要求高，通過主菜單記錄當前操作用戶的用戶編號，保證了對進、出庫信息錄入負責人的確認。C部門資料管理與庫存報表生成。資料管理包括了人員信息管理，財政支出信息管理，以及各項業(yè)務單據的資料管理。報表主要分類為日報表，月報表，銷售報表，入庫報表等等。D由于計算機能存貯大量的數據，而且數據只要一次存入，便可多次重復使用，所以管理數據達到完整，統一，原始記錄能保證及時，準確。E許多重復性的工作，都可由計算機去執(zhí)行，從而使管理人員從事務性工作解脫出來，真正變?yōu)閺氖乱恍┬畔⒌姆治?，判斷，決策等創(chuàng)造性的工作3系統需求分析就是在用戶需求調研的基礎上，確定系統的總體結構方案，完成相應的需求分析報告。在確定系統的總體結構方案過程中，包括確定應用程序的結構、系統開發(fā)環(huán)境和開發(fā)工具的選擇。A應用程序結構確定從用戶應用角度來看，可把應用程序系統的組成部分分成數據存儲層、業(yè)務處理層和界面表示層等3個層次，而應用程序結構可歸納為集中式應用程序結構、單機板應用程序結構、多層服務器應用程序結構、瀏覽器服務器應用程序結構、客戶機服務器應用程序結構等5種類型。B確定系統開發(fā)環(huán)境由于大多數公司內部使用的計算機平臺都是基于WINDOWS環(huán)境的。為了降低系統成本，應最大程度地利用現有的資源、兼容現有的環(huán)境，可確定使用下面的開發(fā)環(huán)境數據庫MICROSOFTSQLSERVER2005；前端開發(fā)工具VISUALCNET；數據訪問對象ADO。C開發(fā)工具的選擇可視化（VISUAL）程序設計是一種全新的程序設計方法，全面采用面向對象的程序設計技術，使用事件驅動機制進行程序設計。利用可視化開發(fā)工具可以快速、高效地開發(fā)應用程序。可視化的開發(fā)工具很多，如MICROSOFT公司推出的VISUALSTUDIO軟件系列，BORLAND公司的DELPHI、CBUILDER系列等。VISUALSTUDIO是微軟公司推出的集成開發(fā)環(huán)境，是目前最流行的WINDOWS平臺應用程序開發(fā)環(huán)境。它是把代碼的編寫、程序的調試、編譯、運行以及其他的相關操作都集成在一起的“編程工具”。作用是程序員通過它這個平臺，利用編程語言來寫程序，調試，運行。SQLSERVER2000是MICROSOFT公司推出的SQLSERVER數據庫管理系統。該版本繼承了SQLSERVER70版本的優(yōu)點同時又比它增加了許多更先進的功能，具有使用方便,可伸縮性好與相關軟件集成程度高等優(yōu)點，可跨越從運行MICROSOFTWINDOWS98的膝上型電腦到運行MICROSOFTWINDOWS2000的大型多處理器的服務器等多種平臺使用。經分析，本庫存管理系統選用VISUALCNET來設計界面，選用SQLSERVER2005來建立后臺數據庫。232功能結構圖233安全性要求和完整性要求1安全性要求系統安全性要求至少達到TCSEC（TDI）的C1級。即只提供了非常初級的自主安全保護。能夠實現對用戶和數據的分離，進行自主存取控制（DAC），保護或限制用戶權限的傳播。實行用戶標識與鑒別，具有數據備份和日志審計功能。本系統中共分為三類不同的用戶，分別具有不同的權限2完整性要求每個關系中都至少要有一個主鍵，并且都有一個聚集索引（CLUSTEREDINDEX）。關系與關系之間通過主外鍵關聯。定義屬性上的約束條件，定義觸發(fā)倉庫信息管理系統系統管理設備管理設備入庫管理設備出庫管理設備還庫管理庫存信息管理設備需求管理添加用戶修改密碼退出系統設備信息查詢設備入庫入庫信息查詢設備出庫出庫信息查詢設備還庫還庫信息查詢庫存量查詢采購計劃設備信息采購計劃查詢器。24系統的開發(fā)及功能描述1開發(fā)方法的選擇信息系統的開發(fā)是一項比較復雜的工作，因此我們必須選用科學有效的開發(fā)方法。本系統的開發(fā)采用了生命周期法。在系統設計時遵循系統調查研究、系統分析、系統設計和系統實施四個主要階段進行設計，而在具體的設計上，則通過在系統的使用及對系統了解的不斷加深中，對某一部分或幾部分進行重新分析、設計、實施，使系統逐步完善。2系統功能描述及系統安全性本庫存管理系統是一套對貨品入庫、出庫、庫存進行全面管理的系統。在管理內容上，它的主要功能包括進貨管理進行填寫貨品信息，貨品采購入庫,入庫單據的填寫和修改最低庫存量。出貨管理進行貨品出庫,出貨單據的填寫和獲取采購員信息。信息查詢貨品信息查詢，庫存信息查詢，入庫、出庫單據查詢，日報表、月報表查詢。統計報表完整的日報表、月報表統計查詢功能，每張單據每次業(yè)務金額都可以清楚地反映。系統管理身份驗證，修改本人密碼，注冊用戶，修改刪除用戶。3、總體設計31成本效益分析由于本庫存管理系統所要求的硬件（計算機及相關硬件）和軟件環(huán)境VISUALCNETSQLSERVER2005，市場上都容易購買到或從相關網站下載，系統成本主要集中在本管理系統的開發(fā)與維護上，對用戶不造成過重的經濟負擔。而一旦此系統投入使用,不僅可以減少庫存的工作強度，提高工作效率，而且方便了庫存對信息的管理，延續(xù)了傳統的管理模式，極大限度地方便了庫存管理人員，而且，目標系統不是很復雜，開發(fā)的周期較短，人員經濟支出不大，所節(jié)省的大量人力、財力產生的效益將遠遠大于本系統的開發(fā)成本，所以從經濟方面講開發(fā)此系統是可行的。32進度計劃高層設計階段詳細設計階段需求開發(fā)體系結構設計用戶界面設計數據庫設計模塊設計數據結構與算法設計實現與測試33系統流圖34數據描述341數據字典1）基本數據項及數據結構設備信息。包括的數據項有設備號、設備名稱、規(guī)格、單價、描述。倉庫信息。包括的數據項有倉庫號、已用庫存、庫存總量、負責人、電話號碼。供應商信息。包括的數據項有編號、供應商、電話號碼、地址。部門信息。包括的數據項有部門號、名稱、電話。數據項名稱別名簡述類型長度取值范圍設備號設備的編號字符型7第1位進口/國產I/D第24位類別第57位物資編號設備名稱設備的名稱字符型20規(guī)格設備規(guī)格字符型10單價設備的單位價格貨幣型6默認計量單位元描述設備描述/說明文本型倉庫號倉庫的編號字符型3已用庫存?zhèn)}庫已用存儲容量數值型60倉庫非空0空倉庫0物資存量0空倉庫該物資庫存量臨界值；ENDIF；否零件不存在，GOTOLOOP；零件入庫；統計倉庫庫存已用量；342數據流圖1本系統的頂層數據流圖2細化后的數據流圖3貨物入庫信息管理細化4貨物出庫信息管理細化4系統詳細設計41概念結構設計1）庫存實體ER圖2）入庫實體ER圖3出庫實體ER圖4）部門需求實體ER圖5）還庫實體ER圖6）計劃采購實體ER圖7）實體和實體之間的關系圖如圖所示8倉庫管理ER圖如圖所示42系統數據庫設計421關系模型設計1倉庫表STOREHOUSENO字段名代碼類型約束1倉庫號STOIDCHAR3主鍵2已用庫存USED_VOLUMESMALLINT非空，默認0，UNSIGNED，MIN_VOLUME，/清理所有正在使用的資源。/PROTECTEDOVERRIDEVOIDDISPOSEBOOLDISPOSINGIFDISPOSINGIFCOMPONENTSNULLCOMPONENTSDISPOSEBASEDISPOSEDISPOSINGPRIVATEVOIDENTER_BUTTON_CLICKOBJECTSENDER,SYSTEMEVENTARGSEIFTEXTIDTEXTTRIMSTRINGEMPTY/判斷用戶ID是否輸入MESSAGEBOXSHOW“請輸入用戶ID或密碼“RETURNNEWIDTHISTEXTIDTEXTTRIMIFTEXTPWDTEXTTRIMSTRINGEMPTY/判斷用戶密碼是否輸入MESSAGEBOXSHOW“請輸入用戶ID或密碼“RETURNNEWPWDTHISTEXTPWDTEXTTRIMIFTHISCOMBOGRPSELECTEDITEMEQUALS“1經理人員“/選擇權限NEWGRP“1“ELSEIFTHISCOMBOGRPSELECTEDITEMEQUALS“2倉庫管理員“NEWGRP“2“ELSENEWGRP“3“SQLCONNECTIONMYCONNNULLSQLTRANSACTIONUSERINSERTTRANULLDATASETUSERINFOSETNEWDATASETTRYMYCONNNEWSQLCONNECTION“SERVERTRUSTED_CONNECTIONYESUSERSAPWD1DATABASESTORAGE“/建立連接ADDADAPTERSELECTCOMMANDCONNECTIONMYCONNADDADAPTERSELECTCOMMANDCOMMANDTEXT“SELECTFROMLONINFRMWHEREUSERID“NEWID“MYCONNOPENADDADAPTERFILLUSERINFOSET,“USERINFO“/填充數據集IFUSERINFOSETTABLES“USERINFO“ROWSCOUNT0/判斷輸入的ID號是否唯一MESSAGEBOXSHOW“員工ID必須唯一“RETURNUSERINSERTTRAMYCONNBEGINTRANSACTIONUSERINFOSETCLEARDATAROWNEWUSERINFOROWUSERINFOSETTABLES“USERINFO“NEWROW/建立新記錄NEWUSERINFOROW“USERID“NEWIDNEWUSERINFOROW“PASSWORD“NEWPWDNEWUSERINFOROW“GROUPID“NEWGRPUSERINFOSETTABLES0ROWSADDNEWUSERINFOROWADDADAPTERSELECTCOMMANDCONNECTIONMYCONNADDADAPTERINSERTCOMMANDCONNECTIONMYCONNADDADAPTERUPDATECOMMANDCONNECTIONMYCONNADDADAPTERINSERTCOMMANDTRANSACTIONUSERINSERTTRATHISADDADAPTERUPDATEUSERINFOSETTABLES“USERINFO“/更新數據集USERINSERTTRACOMMITMESSAGEBOXSHOW“OK“CATCHEXCEPTIONEXIFUSERINSERTTRANULLUSERINSERTTRAROLLBACKMESSAGEBOXSHOWEXMESSAGEPRIVATEVOIDESC_BUTTON_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/退出操作THISCLOSE2）修改密碼PRIVATESYSTEMCOMPONENTMODELCONTAINERCOMPONENTSNULLPUBLICPWDUPDATE/WINDOWS窗體設計器支持所必需的/INITIALIZECOMPONENT/TODO在INITIALIZECOMPONENT調用后添加任何構造函數代碼/清理所有正在使用的資源。/PROTECTEDOVERRIDEVOIDDISPOSEBOOLDISPOSINGIFDISPOSINGIFCOMPONENTSNULLCOMPONENTSDISPOSEBASEDISPOSEDISPOSINGPRIVATEVOIDSURE_BUTTON_CLICKOBJECTSENDER,SYSTEMEVENTARGSEIFTEXTIDTEXTTRIMSTRINGEMPTY/判斷是否輸入了IDUSERIDTEXTIDTEXTTRIMELSEMESSAGEBOXSHOW“此字段不能為空“RETURNIFTEXTPWDOLDTEXTTRIMSTRINGEMPTY/判斷是否輸入了原有密碼PASSWORDTEXTPWDOLDTEXTTRIMELSEMESSAGEBOXSHOW“此字段不能為空“RETURNIFTEXTPWDNEW1TEXTTRIMSTRINGEMPTY/判斷是否輸入了新密碼NEWPASSWORD1TEXTPWDNEW1TEXTTRIMELSEMESSAGEBOXSHOW“此字段不能為空“RETURNIFTEXTPWDNEW2TEXTTRIMSTRINGEMPTY/判斷是否再次輸入了新密碼NEWPASSWORD2TEXTPWDNEW2TEXTTRIMELSEMESSAGEBOXSHOW“此字段不能為空“RETURNSQLCONNECTIONMYCONNNULLSQLTRANSACTIONUSERINSERTTRANULLDATASETUSERINFOSETNEWDATASETIFNEWPASSWORD1NEWPASSWORD2/強制兩次輸入新密碼必須相同TRYMYCONNNEWSQLCONNECTION“SERVERTRUSTED_CONNECTIONYESUSERSAPWD1DATABASESTORAGE“/連接字符串MYCONNOPENPWDADAPTERSELECTCOMMANDCOMMANDTEXT“SELECTFROMLONINFRMWHEREUSERID“USERID“PWDADAPTERSELECTCOMMANDCONNECTIONMYCONNPWDADAPTERFILLUSERINFOSET,“USERINFOTAB“IFUSERINFOSETTABLES“USERINFOTAB“NULL|USERINFOSETTABLES“USERINFOTAB“ROWSCOUNT0/判斷用戶是否存在MESSAGEBOXSHOW“USERISNOTEXIST“THISTEXTIDFOCUSTHISTEXTIDSELECT0,THISTEXTIDTEXTLENGTHRETURNIFUSERINFOSETTABLES“USERINFOTAB“ROWS0“PASSWORD“TOSTRINGTRIMPASSWORD/用戶原有密碼輸入錯誤MESSAGEBOXSHOW“PASSWORDERROR“THISTEXTPWDOLDFOCUSTHISTEXTPWDOLDSELECT0,THISTEXTPWDOLDTEXTLENGTHRETURNUSERINFOSETTABLES“USERINFOTAB“ROWS0“PASSWORD“NEWPASSWORD1/更新密碼USERINSERTTRAMYCONNBEGINTRANSACTIONPWDADAPTERUPDATECOMMANDCONNECTIONMYCONNPWDADAPTERUPDATECOMMANDTRANSACTIONUSERINSERTTRAPWDADAPTERUPDATEUSERINFOSETTABLES0USERINSERTTRACOMMITMESSAGEBOXSHOW“OK“CATCHEXCEPTIONEXUSERINSERTTRAROLLBACKMESSAGEBOXSHOWEXMESSAGEFINALLYIFMYCONNSTATECONNECTIONSTATECLOSED/關閉數據庫MYCONNCLOSEPRIVATEVOIDESC_BUTTON_CLICKOBJECTSENDER,SYSTEMEVENTARGSETHISCLOSE3主程序PUBLICCLASSMAINFRMSYSTEMWINDOWSFORMSFORMPRIVATESYSTEMWINDOWSFORMSMAINMENUMAINMENU1PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM1PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM2PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM3PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM4PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM5PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM6PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM7PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM8PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM9PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM10PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM11PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM12PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM13PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM19PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM21PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM14PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM15PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM20PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM16PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM17PRIVATESYSTEMWINDOWSFORMSMENUITEMMENUITEM18PRIVATESYSTEMWINDOWSFORMSSTATUSBARSTATUSBAR1/必需的設計器變量。/PRIVATESYSTEMCOMPONENTMODELCONTAINERCOMPONENTSNULLPUBLICMAINFRM/WINDOWS窗體設計器支持所必需的/INITIALIZECOMPONENT/TODO在INITIALIZECOMPONENT調用后添加任何構造函數代碼/清理所有正在使用的資源。/PROTECTEDOVERRIDEVOIDDISPOSEBOOLDISPOSINGIFDISPOSINGIFCOMPONENTSNULLCOMPONENTSDISPOSEBASEDISPOSEDISPOSINGSTATICVOIDMAIN/主程序LONGINFORMLONINFORMNEWLONGINFORMLONINFORMSHOWDIALOGIFLONGINFORMLFSTATETRUEAPPLICATIONRUNNEWMAINFRMPRIVATEVOIDMENUITEM2_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/添加用戶IFTHISCHECKEXIST“ADDUSER“TRUERETURNADDUSERNEWFRMNEWADDUSERNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM3_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/系統用戶修改密碼IFTHISCHECKEXIST“PWDUPDATE“TRUERETURNPWDUPDATENEWFRMNEWPWDUPDATENEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM4_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/退出系統IFMESSAGEBOXSHOW“確實要退出系統嗎“,“詢問“,MESSAGEBOXBUTTONSYESNODIALOGRESULTYESTHISCLOSEPRIVATEVOIDMENUITEM6_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/入庫管理IFTHISCHECKEXIST“INSTORAGE“TRUERETURNINSTORAGENEWFRMNEWINSTORAGENEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM7_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/入庫信息查詢IFTHISCHECKEXIST“SELINSTG“TRUERETURNSELINSTGNEWFRMNEWSELINSTGNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM9_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/出庫管理IFTHISCHECKEXIST“OUTSTORAGE“TRUERETURNOUTSTORAGENEWFRMNEWOUTSTORAGENEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM10_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/出庫信息查詢IFTHISCHECKEXIST“SELOUTSTG“TRUERETURNSELOUTSTGNEWFRMNEWSELOUTSTGNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM12_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/還庫管理IFTHISCHECKEXIST“RETURNSTG“TRUERETURNRETURNSTGNEWFRMNEWRETURNSTGNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM13_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/還庫信息查詢IFTHISCHECKEXIST“SELRETURN“TRUERETURNSELRETURNNEWFRMNEWSELRETURNNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM15_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/設備代碼管理IFTHISCHECKEXIST“FACLITYNUM“TRUERETURNFACLITYNUMNEWFRMNEWFACLITYNUMNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM20_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/設備代碼查詢IFTHISCHECKEXIST“SELFACNUM“TRUERETURNSELFACNUMNEWFRMNEWSELFACNUMNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM17_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/生成采購計劃IFTHISCHECKEXIST“BUYFRM“TRUERETURNBUYFRMNEWFRMNEWBUYFRMNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM18_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/采購計劃查詢IFTHISCHECKEXIST“SELBUY“TRUERETURNSELBUYNEWFRMNEWSELBUYNEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEVOIDMENUITEM21_CLICKOBJECTSENDER,SYSTEMEVENTARGSE/采購計劃查詢IFTHISCHECKEXIST“SELDRIVEINFO“TRUERETURNSELDRIVEINFONEWFRMNEWSELDRIVEINFONEWFRMMDIPARENTTHISNEWFRMSHOWPRIVATEBOOLCHECKEXISTSTRINGCHILDFRMNAME/驗證子窗體是否存在FOREACHFORMCHILDFRMINTHISMDICHILDRENIFCHILDFRMNAMECHILDFRMNAMEIFCHILDFRMWINDOWSTATEFORMWINDOWSTATEMINIMIZEDCHILDFRMWINDOWSTATEFORMWINDOWSTATENORMALCHILDFRMACTIVATERETURNTRUERETURNFALSEPRIVATEVOIDMAINFRM_LOADOBJECTSENDER,SYSTEMEVENTARGSETHISSTATUSBAR1TEXT“歡迎使用本系統,今天是“DATETIMETODAYIFLONINGROUP“1“/經理級THISMENUITEM2ENABLEDTRUETHISMENUITEM3ENABLEDTRUETHISMENUITEM4ENABLEDTRUETHISMENUITEM15ENABLEDFALSETHISMENUITEM20ENABLEDTRUETHISMENUITEM6ENABLEDFALSETHISMENUITEM7ENABLEDTRUETHISMENUITEM9ENABLEDFALSETHISMENUITEM10ENABLEDTRUETHISMENUITEM12ENABLEDFALSETHISMENUITEM13ENABLEDTRUETHISMENUITEM21ENABLEDTRUETHISMENUITEM17ENABLEDTRUETHISMENUITEM18ENABLEDTRUEELSEIFLONINGROUP“2“/倉庫管理員級別THISMENUITEM2ENABLEDTRUETHISMENUITEM3ENABLEDTRUETHISMENUITEM4ENABLEDTRUETHISMENU