倉庫管理系統(tǒng)

年4月19日倉庫管理系統(tǒng)文檔僅供參考遼寧工業(yè)大學數(shù)據(jù)庫應用技術課程設計說明書題目:倉庫管理系統(tǒng)學院(系):專業(yè)班級:學號:學生姓名:指導教師:教師職稱:起止時間:目錄TOC\o"1-3"\h\z第一章概述 4第二章問題定義 5第三章需求分析 6第四章數(shù)據(jù)庫設計 11第五章界面設計 19第六章代碼與注釋 24設計總結 26參考文獻 27第一章概述本倉庫貨物管理系統(tǒng)針對企業(yè)倉庫進貨管理方面的問題。它能實現(xiàn)倉庫進貨的綜合管理,減少不必要的手工上報,也為基層單位上報數(shù)據(jù)提供便利,減少人工勞動。對倉庫進貨信息資源,出貨信息資源管理的貨號、貨物名稱、進出貨時間、數(shù)量、生產單位;貨物報表登記貨物的基本檔案,貨號、貨名、入庫日期、存放地點、存放情況;日常管理中貨物性質、存放要求、保質期等信息進行全面、系統(tǒng)的管理。在整個系統(tǒng)開發(fā)的過程中,運用了軟件工程的基本概念、相關技術和方法。而且采用了系統(tǒng)生命周期的結構化程序設計方法,從而將整個系統(tǒng)開發(fā)各階段(系統(tǒng)分析、系統(tǒng)設計、系統(tǒng)實施)的基本活動貫穿起來。第二章問題定義隨著科學技術的發(fā)展,社會進步,計算機迅速的發(fā)展,倉庫貨物管理的方法也日新月異,以前全是由人工管理的方法現(xiàn)存在很多的缺點:管理效率低,勞動強度大,信息處理速度低而且準確率也不夠令人滿意。為了提高倉庫貨物管理效率,減輕勞動強度提高,信息處理速度和準確性;為管理員提供更方便、科學的服務項目。為管理員提供的一種更先進、科學的服務系統(tǒng)。于是我們便選擇了由計算機來設計一個倉庫貨物管理系統(tǒng)的方案。讓計算機對倉庫貨物進行自動管理,管理員能夠直接在計算機上實現(xiàn)倉庫貨物的信息管理,并能在一定程度上實現(xiàn)自動化。我們在現(xiàn)行系統(tǒng)初步調查的基礎上提出了新系統(tǒng)目標,即新系統(tǒng)建立后所要求達到的運行指標,這是系統(tǒng)開發(fā)和評價的依據(jù)。第三章需求分析一、數(shù)據(jù)庫需求分析該系統(tǒng)主要包括系統(tǒng)功能輸入模塊、基本資料維護模塊、報表模塊、綜合查詢功能模塊和統(tǒng)計模塊等。系統(tǒng)要實現(xiàn)基本信息錄入、修改、查詢等功能:信息的輸入,包括溢貨信息、缺貨信息、貨物入庫信息、庫存信息、貨源信息、貨價信息等。信息的修改、刪除。根據(jù)要求,查詢統(tǒng)計符合條件的各類信息。依據(jù)實際需要,對重要新信息進行統(tǒng)計。二、數(shù)據(jù)流圖需求單位需求需求單位需求倉庫現(xiàn)有庫存向供應單位進貨管理事物處理設備進貨設備入庫設備出庫設備出貨庫存清單出貨清單進貨清單三、數(shù)據(jù)字典(DD):數(shù)據(jù)字典是關于數(shù)據(jù)的信息的集合,也就是對數(shù)據(jù)流圖中包含的所有元素的定義的集合。由于本次設計是小型軟件系統(tǒng)的開發(fā),因此采用卡片形式書寫數(shù)據(jù)字典。每張卡片上保存描述一個數(shù)據(jù)的信息這樣做更新和修改起來比較方便,而且能單獨處理描述每個數(shù)據(jù)的信息。下面將列出若干數(shù)據(jù)元素的數(shù)據(jù)卡片信息。數(shù)據(jù)字典卡片:名稱:庫存清單別名:庫存報表名稱:庫存清單別名:庫存報表描述:倉庫貨物存儲的描述定義:貨物編號+名稱+生產日期+有效期+數(shù)量+單價+上、下限位置:輸出到打印機保存到磁盤名字:貨物編號別名:描述:惟一地標識庫存清單中一個特定貨物的關鍵域定義:貨物編號=8{字符}8位置:進貨報表庫存清單事務名稱:貨物現(xiàn)存量清單別名:名稱:貨物現(xiàn)存量清單別名:描述:倉庫貨物存量描述定義:貨物編號+名稱+生產日期+有效期+數(shù)量+上下限++狀態(tài)標志(正常、緊急、警告、嚴重)位置:輸出到打印機保存到磁盤名稱:進貨清單別名:進貨報表描述:每次進貨的貨物描述定義:貨物編號+名稱+生產日期+有效期+數(shù)量位置:輸出到打印機保存到磁盤名字:貨物生產單位名字:貨物生產單位別名:生產商描述:惟一的標識倉庫貨物生產的一個特定的單位定義:單位名+負責人+聯(lián)系電話位置:進貨報表出貨報表庫存清單名字:貨物供應單位別名:供應商名字:貨物供應單位別名:供應商描述:惟一的標識倉庫貨物來源的一個特定的單位定義:單位名+負責人+聯(lián)系電話位置:進貨報表出貨報表庫存清單名字:需求數(shù)量別名:本次數(shù)量名字:需求數(shù)量別名:本次數(shù)量描述:某種貨物一次被某單位領取的數(shù)量定義:本次數(shù)量=1{數(shù)字}5位置:貨物出庫信息名字:上期數(shù)量別名:描述:某種貨物的庫存數(shù)量定義:上期數(shù)量=1{數(shù)字}5位置:貨物入庫信息貨物出庫信息名字:進貨數(shù)量別名:本次數(shù)量名字:進貨數(shù)量別名:本次數(shù)量描述:某種貨物的一次入庫數(shù)量定義:本次數(shù)量=1{數(shù)字}5位置:貨物入庫信息名字:出貨清單別名:出貨報表描述:每次出貨的貨物描述定義:貨物編號+名稱+生產日期+有效期+數(shù)量位置:輸出到打印機保存到磁盤名字:需求單位名別名:名字:需求單位名別名:描述:惟一的標識需要貨物的一個特定的單位定義:單位名=20{字符}20位置:部門表貨物入庫信息貨物出庫信息名字:需求單位表別名:需求單位信息描述:是對需要貨物的各單位的信息進行統(tǒng)計定義:單位名+負責人+負責人聯(lián)系電話+操作員+所屬工作位置:貨物入庫信息貨物出庫信息名字:操作用戶表別名:操作用戶信息名字:操作用戶表別名:操作用戶信息描述:是對使用本系統(tǒng)的用戶進行身份和權限驗證用的定義:用戶名+密碼+所屬單位+權限一+權限二+權限三+操作員位置:班級表貨物需求單位信息表貨物信息表貨物出庫表貨物入庫表名字:用戶名別名:描述:惟一標識本系統(tǒng)的用戶身份定義:用戶名=8{字符}8位置:操作用戶表名字:密碼名字:密碼別名:描述:驗證本系統(tǒng)的用戶身份定義:密碼=8{字符}8位置:操作用戶表名字:權限三別名:描述:標識本系統(tǒng)的用戶對本系統(tǒng)查詢權的使用權限名字:權限三別名:描述:標識本系統(tǒng)的用戶對本系統(tǒng)查詢權的使用權限定義:權限四=8{字符}8位置:操作用戶表名字:權限二別名:描述:標識本系統(tǒng)的用戶對本系統(tǒng)出入庫權的使用權限定義:權限三=8{字符}8位置:操作用戶表名字:權限一別名:描述:標識本系統(tǒng)的用戶對本系統(tǒng)管理權使用權限定義:權限一=8{字符}8位置:操作用戶表四、數(shù)據(jù)庫概念的結構設計數(shù)據(jù)庫一般分為三級模式:外模式、概念模式和內模式。外模式也就是不同用戶所正確數(shù)據(jù)視圖,它將數(shù)據(jù)庫內部抽象的數(shù)據(jù)及其互相之間的關系表示為簡單、直觀的應用界面。概念模式是數(shù)據(jù)庫中全部數(shù)據(jù)的邏輯結構和特征描述,一般以某種數(shù)據(jù)模型為基礎。內模式是對數(shù)據(jù)的物理結構和存儲方式的描述。在這里我們將要設計的是數(shù)據(jù)庫的概念模式,經過對倉庫貨物管理系統(tǒng)的內容和數(shù)據(jù)流程分析及E-R圖,設計如下數(shù)據(jù)項和數(shù)據(jù)結構。倉庫信息。包括庫房名稱、庫位名稱、庫存貨物、來往客戶信息、庫房編號、庫位編號,倉庫管理員等。貨物信息。包括名稱、供應單位、生產單位、生產日期、貨物數(shù)量、貨物單價、入庫時間、貨物編號等。單位信息。包括單位名稱、負責人、地址、聯(lián)系電話等信息。貨物入庫信息。包括貨物編號、貨物名、生產單位、供應單位、本次數(shù)量、生產時間、貨物單價、入庫時間、經辦人等信息。貨物出庫信息。包括貨物編號、貨物名、生產單位、供應單位、貨物需求單位名、本次數(shù)量、生產時間、貨物單價、出庫時間、經辦人等信息。用戶信息。包括用戶名稱、密碼、所在單位、用戶權限信息、操作員、最后修改時間。數(shù)據(jù)庫概念結構設計,是在需求分析的基礎上,設計出能夠滿足用戶需求的各種實體,以及她們之間的關系,為后面的邏輯結構設計打下基礎。五、數(shù)據(jù)庫的邏輯結構設計:在數(shù)據(jù)庫設計中相當重要的一步就是將概念模型轉化為計算機上DBMS所支持的數(shù)據(jù)模型,例如,將E-R圖模型轉化為關系模型,道理很簡單,我們設計概念模型基本上都是一些抽象的關系,在再數(shù)據(jù)庫設計的實現(xiàn)過程中,在計算機上有效地表示出這些關系就成了數(shù)據(jù)庫設計的關鍵。根據(jù)倉庫貨物管理系統(tǒng)的功能要求,選取SQLServer作為后臺數(shù)據(jù)庫。在上面的實體和實體之間的E-R圖設計基礎上,形成數(shù)據(jù)庫中的表格及表格之間的關系。該數(shù)據(jù)庫由6個表組成,需求單位表、貨物表、供應單位表、入庫信息表、出庫信息表、操作用戶表。一、主表的結構設計1.需求單位信息需求單位表是對需求單位信息進行統(tǒng)計,包括單位名、單位編號、取貨時間、地址、負責人、聯(lián)系電話、操作員、所需貨物、貨物單價、貨物數(shù)量等信息。2.供應單位信息供應單位信息表是提供貨物的單位信息的統(tǒng)計,包括單位編號、單位名稱、負責人、聯(lián)系電話、地址、所供應貨物、貨物單價、貨物商量等信息。3.貨物信息貨物表是對貨物信息的統(tǒng)計,包括名稱、供應單位、生產單位、生產時間、貨物數(shù)量、貨物單價、入庫時間、編號等。4.貨物入庫信息貨物入庫信息是對入庫信息的統(tǒng)計,包括貨物編號、貨物名稱、生產單位、供應單位、本次數(shù)量、生產時間、貨物單價、入庫時間、經辦人等信息。5.操作用戶信息操作用戶表是對使用本系統(tǒng)的用戶進行身份和權限驗證用的,包括用戶名稱、密碼、所在單位、用戶權限信息、操作員、最后修改時間。6、貨物出庫信息貨物出庫表是對出庫信息的統(tǒng)計。包括貨物編號、貨物名稱、生產單位、需求單位、本次數(shù)量、生產時間、貨物單價、出庫時間、經辦人等信息。六、倉庫貨物管理系統(tǒng)系統(tǒng)模塊能夠根據(jù)模塊獨立原理對軟件結構進行精化。為了合理的分解,得到盡可能高的內聚、盡可能松散的耦合,最終要的是,為了得到一個易于實現(xiàn)、易于測試和易于維護的軟件結構,應該對模塊進行再分解或合并。系統(tǒng)功能模塊圖如圖7.1所示:倉庫貨物管理系統(tǒng)倉庫貨物管理系統(tǒng)系統(tǒng)模塊輸入模塊維護模塊查詢模塊報表模塊幫助模塊打印設置日志管理入庫模塊出庫模塊還原模塊需求模塊進貨模塊圖4.1系統(tǒng)功能模塊圖第四章數(shù)據(jù)庫設計一、概念設計:系統(tǒng)ER圖根據(jù)對數(shù)據(jù)流圖和數(shù)據(jù)字典的分析,我們能夠確定該應用中的實體,屬性和實體之間的關系,并畫出如下所示的E-R圖。編號取貨時間負責人編號取貨時間負責人聯(lián)系電話需求單位名需求單位聯(lián)系電話需求單位名需求單位操作員地址貨物單價操作員地址貨物單價圖1.3需求單位實體E-R生產單位供應單位生產單位供應單位生產日期名稱生產日期名稱上下限貨物上下限貨物貨物編號需求單位貨物編號需求單位貨物單價貨物數(shù)量入庫時間貨物單價貨物數(shù)量入庫時間圖1.4貨物實體E-R圖庫房庫房庫房編號庫房名稱庫存量供應單位貨物電話地址管理員需求單位圖1.5倉庫E-R圖供貨時間貨物編號供貨時間貨物編號單位地址單位編號單位名稱供應單位聯(lián)系電話單位地址單位編號單位名稱供應單位聯(lián)系電話負責人圖1.6供應單位實體E-R圖貨物編號貨物名稱生產單位貨物編號貨物名稱生產單位供應單位生產時間貨物單價入庫時間經辦人本次數(shù)量入庫信息生產單位貨物名稱供應單位本次數(shù)量出庫信息貨物單價出庫時間生產單位貨物名稱供應單位本次數(shù)量出庫信息貨物單價出庫時間貨物編號貨物編號生產時間生產時間經辦人需求單位名經辦人需求單位名圖1.8出庫信息實體E-R圖所在單位所在單位用戶權限用戶名稱密碼操作員修改時間用戶圖1.9用戶實體E-R圖

地址貨物編號負責人負責人地址貨物編號地址貨物編號負責人負責人地址貨物編號名稱名稱名稱電話電話供應單位需求單位名稱電話電話供應單位需求單位單位編號單位編號單位編號單位編號需求生產日期供應需求生產日期供應數(shù)量編號數(shù)量編號貨物貨物單價名稱單價名稱入庫時間生產單位入庫時間生產單位存儲存儲倉庫倉庫名稱編號貨物庫存量需求單位供應單位地址電話查詢用戶修改時間擁護權限操作員所在單位密碼名稱圖3.10實體和實體之間的E-R圖二、邏輯設計:下面列出幾個主要的數(shù)據(jù)庫表設計:表2-1.需求單位結構表列名數(shù)據(jù)類型長度是否允許為空說明xqdwnumbermoney8否編號(主鍵)xqdwnamevarchar50否單位名xqdwadressvarchar20否地址xqdwmanagervarchar8否負責人xqdwtelvarchar20是聯(lián)系電話operatorvarchar8是操作員xqpricemoney8是單價xqhwvarchar20是所需貨物xqamountint4否貨物數(shù)量qhtimedatatime8否取貨時間表2-2供應單位信息結構表列名數(shù)據(jù)類型長度是否為空說明gydwnumbermoney8否編號(主鍵)gydwnamevarchar20否單位名稱gydwmanagervarchar8是負責人gydwtelvarchar50是聯(lián)系電話gydwadressvarchar20否地址operatorvarchar8是操作員gypricemoney8是單價gyhwvarchar20是供應貨物gyamountint4否貨物數(shù)量表2-3貨物結構表列名數(shù)據(jù)類型長度是否為空說明gydwvarchar50是供應單位hwnamevarchar8是貨物名稱scdwvarchar20是生產單位sctimedatatime8是生產時間amountint4是貨物數(shù)量pricemoney8是貨物單價rktimedatatime8是入庫時間operatorvarchar8是操作員hwnumbermoney8否編號(主鍵)表2-4貨物入庫信息結構表列名數(shù)據(jù)類型長度是否為空說明hwnumberint4否貨物編號hwnamevarchar50否貨物名稱scdwvarchar8否生產單位gydwvarchar50是供應單位bcslint4是本次數(shù)量sctimevarchar8是生產日期pricemoney8是貨物單價rktimedatetime8是入庫時間jbrvarchar8是經辦人表2-5操作用戶結構表列名數(shù)據(jù)類型長度是否為空說明usernamevarchar8否用戶名passwordvarchar20否密碼szdwvarchar20是所在單位Qx1bit1是權限一Qx2bit1是權限二Qx3bit1是權限三operatorvarchar8是操作員表2-6貨物出庫信息結構表列名數(shù)據(jù)類型長度是否為空說明hwnumberint4否貨物號hwnamevarchar50否貨物名scdwvarchar20否生產單位xqdwvarchar20否需求單位bcslint4是本次數(shù)量sctimevarchar8是生產日期pricemoney8是貨物單價outtimedatetime8是出庫時間jbrvarchar8是經辦人三、物理設計在數(shù)據(jù)庫中創(chuàng)立索引時,查詢所使用的索引信息存儲在索引頁中。連續(xù)索引頁由從一個頁到下一個頁的指針鏈接在一起。當對數(shù)據(jù)的更改影響到索引時,索引中的信息可能會在數(shù)據(jù)庫中分散開來。重建索引能夠重新組織索引數(shù)據(jù)(對于聚集索引還包括表數(shù)據(jù))的存儲,清除碎片。這可經過減少獲得請求數(shù)據(jù)所需的頁讀取數(shù)來提高磁盤性能。在SQLServer中,如果要用一個步驟重新創(chuàng)立索引,而不想刪除舊索引并重新創(chuàng)立同一索引,則使用CREATEINDEX語句的DROP_EXISTING子句能夠提高效率。這一優(yōu)點既適用于聚集索引也適用于非聚集索引。以刪除舊索引然后重新創(chuàng)立同一索引的方式重建聚集索引,是一種昂貴的方法,因為所有二級索引都使用聚集鍵指向數(shù)據(jù)行。如果只是刪除聚集索引然后重新創(chuàng)立,則會使所有非聚集索引都被刪除和重新創(chuàng)立兩次。一旦刪除聚集索引并再次重建該索引,就會發(fā)生這種情形。經過在一個步驟中重新創(chuàng)立索引,能夠避免這一昂貴的做法。在一個步驟中重新創(chuàng)立索引時,會告訴SQLServer要重新組織現(xiàn)有索引,避免了刪除和重新創(chuàng)立非聚集索引這些不必要的工作。該方法的另一個重要優(yōu)點是能夠使用現(xiàn)有索引中的數(shù)據(jù)排序次序,從而避免了對數(shù)據(jù)重新排序。這對于聚集索引和非聚集索引都十分有用,能夠顯著減少重建索引的成本。另外,經過使用DBCCDBREINDEX語句,SQLServer還允許對一個表重建一個或多個索引,而不必單獨重建每個索引。DBCCDBREINDEX也可用于重建執(zhí)行PRIMARYKEY或UNIQUE約束的索引,而不必刪除并創(chuàng)立這些約束(因為對于為執(zhí)行PRIMARYKEY或UNIQUE約束而創(chuàng)立的索引,必須先刪除該約束,然后才能刪除該索引)第五章界面設計一、程序流程圖:該系統(tǒng)數(shù)據(jù)流程圖如圖3.2所示:更新庫存清單更新庫存清單處理進貨產生進貨報表處理出庫處理出貨產生出貨報表倉庫管理員經辦人產生出庫報表D1庫存清單D1庫存清單D2進貨信息D4出庫信息更新事物庫存信息庫存清單進貨信息進貨信息進貨報表接收事務出貨信息出貨報表D3出貨信息出貨信息出庫信息出庫信息庫存清單出庫報表圖3.2系統(tǒng)數(shù)據(jù)流程圖二、登錄界面及密碼修改1、登錄界面如圖5.3所示圖5.3登錄界面圖在用戶登錄時,在輸入用戶名和密碼及用戶類型的前提下將其與數(shù)據(jù)庫中的數(shù)據(jù)進行對比,若一致,則打開主窗體,若不一致提示錯誤,并要求再次輸入,若輸入次數(shù)超過三次,則關閉系統(tǒng)。在這個部分中,需要對用戶的類型存入一個全局變量,予以判斷其所具有的系統(tǒng)使用權限,例如,用戶類型為DBA,則該用戶擁有系統(tǒng)的一切權力,能夠對每一部分進行添加、刪除、查找、統(tǒng)計等操作;而其它用戶類型都依據(jù)其類型的屬性,能夠使用的部分也會相應減少,而只能使用一部分與其類型相匹配的功能。2、增加新用戶如圖5.4所示圖5.4增加新用戶三、貨物添加操作及修改1、貨物添加如圖5.5所示:圖5.5貨物添加如圖管理員查詢某貨物時貨物名及貨物號與數(shù)據(jù)庫中的數(shù)據(jù)不相一致,系統(tǒng)提示所查貨物在倉庫里為空,即倉庫從沒存儲該貨物。然后管理員可根據(jù)倉庫管理的需求是否保存該貨物。2、貨物修改此功能是對貨物單價、庫位、編號修改。首先系統(tǒng)將從數(shù)據(jù)庫中讀取所有可用的貨物信息,其中包括編號、名稱、入庫時間、單價等信息,管理員可視情況分別修改。修改完畢并確認后,系統(tǒng)將所做修改保存,并將新的記錄保存于數(shù)據(jù)庫中。在倉庫貨物管理操作中,為了保護數(shù)據(jù)庫以及考慮實際因素,對單價、編號的修改時都不能留空,同時編號的修改也不能有重復,若出現(xiàn)此類情況則提示出錯。四、查詢操作查詢操作如圖5.7所示圖5.7查詢操作圖在執(zhí)行查詢操作之前一般要先在單行文本框中輸入被查詢的條件,在單行文本框失去聚焦時將查詢條件傳遞給查詢按鈕的單擊事件中,然后過濾語句依據(jù)此過濾條件過濾得出相應的數(shù)據(jù),并顯示在其它數(shù)據(jù)窗體控件中。在一般情況下,用戶能夠在得到要查詢的信息后,對它們的各個字段進行修改,經過修改后,在退出時系統(tǒng)會提示進行存儲。在完成了用戶界面設計和程序過程設計后,基本上完成了詳細設計的內容。第六章代碼與注釋一、登錄代碼OptionExplicitDimcntAsInteger'記錄確定次數(shù)PrivateSubCommand1_Click()DimsqlAsStringDimrs_loginAsNewADODB.RecordsetIfTrim(txtuser.Text)=""Then'判斷輸入的用戶名是否為空MsgBox"沒有這個用戶",vbOKOnly+vbExclamation,""txtuser.SetFocusElsesql="select*from系統(tǒng)管理where用戶名='"&txtuser.Text&"'"rs_login.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_login.EOF=TrueThenMsgBox"沒有這個用戶",vbOKOnly+vbExclamation,""txtuser.SetFocusElse'檢驗密碼是否正確IfTrim(rs_login.Fields(1))=Trim(txtpwd.Text)ThenuserID=txtuser.Textuserpow=rs_login.Fields(2)rs_login.CloseUnloadMeMDIForm1.ShowElseMsgBox"密碼不正確",vbOKOnly+vbExclamation,""txtpwd.SetFocusEndIfEndIfEndIfcnt=cnt+1Ifcnt=3ThenUnloadMeEndIfExitSubEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimconnectionstringAsStringconnectionstring="provider=Microsoft.Jet.oledb.4.0;"&_"datasource=cangku.mdb"conn.Openconnectionstringcnt=0EndSubPrivateSubTimer1_Timer()Label3.Caption=TimeLabel4.Caption=DateEndSubOptionExplicitDimrs_findAsNewADODB.RecordsetPrivateSubCommand1_Click()OnErrorGoTocmderrorDimfind_date1AsStringDimfind_date2AsStringIfOption1.Value=TrueThensqlfind="select*from入出庫where貨單號between'"&_Combo1(0).Text&"'"&"and"&"'"&Combo1(1).Text&"'"EndIfIfOption2.Value=TrueThenfind_date1=Format(CDate(comboy(0).Text&"-"&_combom(0).Text&"-"&combod(0).Text),"yyyy-mm-dd")find_date2=Format(CDate(comboy(1).Text&"-"&_combom(1).Text&"-"&combod(1).Text),"yyyy-mm-dd")sqlfind="select*from入出庫where日期between#"&_find_date1&"#"&"and"&"#"&find_date2&"#"EndIfrs_data1.Opensqlfind,conn,adOpenKeyset,adLockPessimistickumanage.displaygrid1UnloadMekumanage.Showcmderror:IfErr.Number<>0ThenMsgBox"請輸入正確的查詢條件!",vbOKOnly+vbExclamation,"警告"EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubForm_Load()DimiAsIntegerDimjAsIntegerDimsqlAsString'Iffindok=TrueThen'rs_data1.Close'EndIfsql="select*from入出庫orderby貨單號desc"rs_find.CursorLocation=adUseClientrs_find.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_find.EOF=FalseThen'添加貨單號Withrs_findDoWhileNot.EOFCombo1(0).AddItem.Fields(0)Combo1(1).AddItem.Fields(0).MoveNextLoopEndWithEndIfFori=To