課程設(shè)計(jì)—工廠庫(kù)存管理信息系統(tǒng)設(shè)計(jì)

1、<p>　　CHANGSHA UNIVERSITY OF SCIENCE & TECHNOLOGY</p><p><b>　　物流管理信息系統(tǒng)</b></p><p><b>　　課程設(shè)計(jì)</b></p><p>　　題目： 工廠庫(kù)存管理信息系統(tǒng)設(shè)計(jì)</p><p>　　學(xué)生

2、姓名： 鄒東林 </p><p>　　學(xué) 號(hào)： 2011134010222</p><p>　　班 級(jí): 物流1102</p><p>　　專 業(yè)： 物流工程</p><p>　　指導(dǎo)教師： 向慧 盛玉奎 </p><p>　　2014 年 06 月</p

3、><p>　　工廠庫(kù)存管理信息系統(tǒng)設(shè)計(jì) </p><p>　　學(xué)生姓名： 鄒東林 </p><p>　　學(xué) 號(hào)： 201134010222</p><p>　　班 級(jí)： 物流1102</p><p>　　所在院(系): 交通運(yùn)輸工程學(xué)院</p><p>　　指導(dǎo)教

4、師： 向慧 盛玉奎</p><p>　　完成日期: 2014年06月</p><p>　　長(zhǎng)沙理工大學(xué)課程設(shè)計(jì)任務(wù)書</p><p>　　交通運(yùn)輸工程 系 物流工程 專業(yè) 2011級(jí) 班</p><p>　　課程名稱 物流管理信息系統(tǒng)課程設(shè)計(jì)

5、 </p><p>　　題 目 工廠庫(kù)存管理信息系統(tǒng)設(shè)計(jì) </p><p>　　學(xué)生姓名 鄒東林 學(xué)號(hào) 201134010222 </p><p><b>　　目錄<

6、/b></p><p>　　第一章 系統(tǒng)開(kāi)發(fā)論述1</p><p>　　1.1 系統(tǒng)開(kāi)發(fā)的背景1</p><p>　　1.2 系統(tǒng)開(kāi)發(fā)的目的和意義1</p><p>　　第二章 系統(tǒng)規(guī)劃2</p><p>　　2.1 系統(tǒng)目標(biāo)2</p><p>　　2.2系統(tǒng)開(kāi)發(fā)的可行性分析2

7、</p><p>　　第三章 系統(tǒng)分析3</p><p><b>　　3.1需求分析3</b></p><p>　　3.2組織結(jié)構(gòu)分析3</p><p>　　3.3業(yè)務(wù)流程圖4</p><p>　　3.4數(shù)據(jù)流程圖4</p><p>　　第四章 系統(tǒng)設(shè)計(jì)6<

8、;/p><p>　　4.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)6</p><p><b>　　4.2代碼設(shè)計(jì)6</b></p><p><b>　　4.3E-R圖7</b></p><p>　　4.4輸入輸出界面設(shè)計(jì)9</p><p><b>　　第五章 總結(jié)12</b&g

9、t;</p><p><b>　　參考文獻(xiàn)12</b></p><p><b>　　附錄13</b></p><p><b>　　系統(tǒng)開(kāi)發(fā)論述</b></p><p>　　1.1 系統(tǒng)開(kāi)發(fā)的背景</p><p>　　在現(xiàn)代物流系統(tǒng)中，倉(cāng)儲(chǔ)是構(gòu)成物流系

10、統(tǒng)的重要環(huán)節(jié)，倉(cāng)儲(chǔ)是構(gòu)成物流系統(tǒng)的重要環(huán)節(jié)，倉(cāng)儲(chǔ)功能包括對(duì)進(jìn)入物流系統(tǒng)的的貨物進(jìn)行堆存、管理、保管、維護(hù)等一系列的活動(dòng)。隨著經(jīng)濟(jì)的發(fā)展，物流由少量品種進(jìn)入到多品種、小批量或多批次的、小批量物流時(shí)代，倉(cāng)儲(chǔ)功能從重視保管效率逐漸變?yōu)橹匾暟l(fā)貨和配送</p><p><b>　　作業(yè)。</b></p><p>　　倉(cāng)儲(chǔ)管理，是指對(duì)倉(cāng)庫(kù)及其庫(kù)存物的管理?，F(xiàn)代的倉(cāng)庫(kù)已成為物流的中

11、心。物資的儲(chǔ)存和運(yùn)輸是整個(gè)物流過(guò)程中兩個(gè)關(guān)鍵環(huán)節(jié)，被人們稱之為“物流的支柱”。倉(cāng)儲(chǔ)在物流系統(tǒng)中的重要作用作用主要表現(xiàn)在：降低運(yùn)輸成本，提高運(yùn)輸效率，產(chǎn)品整合，支持企業(yè)的銷售服務(wù)，調(diào)節(jié)供應(yīng)和需求。</p><p>　　倉(cāng)儲(chǔ)管理信息系統(tǒng)是用于管理倉(cāng)庫(kù)中貨物、空間資源、人力資源、設(shè)備資源等在倉(cāng)庫(kù)中的活動(dòng)，對(duì)貨物的進(jìn)貨、檢驗(yàn)、上架、出貨、轉(zhuǎn)倉(cāng)、盤點(diǎn)及其他庫(kù)內(nèi)</p><p>　　作業(yè)的進(jìn)行管理的系

12、統(tǒng)。</p><p>　　1.2 系統(tǒng)開(kāi)發(fā)的目的和意義</p><p>　　隨著科學(xué)技術(shù)的發(fā)展，社會(huì)進(jìn)步，計(jì)算機(jī)技術(shù)的快速發(fā)展，倉(cāng)庫(kù)管理的方法也日新月異，以前全是由人管理的方法現(xiàn)存在很多缺點(diǎn)：管理效率低下，勞動(dòng)強(qiáng)度大，信息處理速度低而且準(zhǔn)確性也不夠令人滿意。為了提高倉(cāng)庫(kù)管理效率，減輕勞動(dòng)強(qiáng)度，提高信息處理速度和準(zhǔn)確性，為倉(cāng)庫(kù)管理員提供更方便、科學(xué)的服務(wù)項(xiàng)目。為倉(cāng)庫(kù)管理員提供一種更先進(jìn)、科學(xué)

13、的服務(wù)系統(tǒng)。我們可以針對(duì)物料的出入庫(kù)管理設(shè)計(jì)一個(gè)倉(cāng)庫(kù)管理系統(tǒng)。讓計(jì)算機(jī)對(duì)倉(cāng)庫(kù)進(jìn)行自動(dòng)管理，并能在一定</p><p><b>　　程度上實(shí)現(xiàn)自動(dòng)化。</b></p><p>　　倉(cāng)庫(kù)管理是企業(yè)生產(chǎn)過(guò)程中的重要組成部分。其主要功能是在供、需之間建立緩沖區(qū)，達(dá)到緩和用戶需求與企業(yè)生產(chǎn)能力之間、最終裝配需求與零件加工工</p><p>　　序之間、生

14、產(chǎn)廠家需求與原材料供應(yīng)商的矛盾。</p><p><b>　　第二章 系統(tǒng)規(guī)劃</b></p><p><b>　　2.1 系統(tǒng)目標(biāo)</b></p><p>　　企業(yè)的庫(kù)存管理工作主要由倉(cāng)庫(kù)部門完成，其主要業(yè)務(wù)就是企業(yè)物料的收發(fā)以及管理工作，根據(jù)物料的不同物理和化學(xué)屬性做好物料存儲(chǔ)與防護(hù)工作，降低各種庫(kù)存管理費(fèi)用，分析并提

15、供庫(kù)存管理所需的各種數(shù)據(jù)報(bào)表等。</p><p>　　2.2系統(tǒng)開(kāi)發(fā)的可行性分析</p><p>　?。?）管理上的可行性</p><p>　　由于企業(yè)庫(kù)存品種多，數(shù)量大，因此，要實(shí)現(xiàn)收發(fā)作業(yè)的快速、準(zhǔn)確、高效，倉(cāng)儲(chǔ)管理自動(dòng)化勢(shì)在必行。而實(shí)現(xiàn)管理自動(dòng)化的“瓶頸”則是產(chǎn)品信息的采集、輸入。傳統(tǒng)手工作業(yè)方式，在信息采集量加大的情形下，因信息不能及時(shí)的反饋，給收發(fā)作業(yè)造成

16、一定的困難。使用倉(cāng)庫(kù)管理信息系統(tǒng)，便于產(chǎn)品收、發(fā)、保管等全過(guò)程控制管理，不僅可改變信息采集的傳統(tǒng)手工作業(yè)方式，降低作業(yè)強(qiáng)度，還可避免由此造成的各種差錯(cuò)，提高作業(yè)效率和科學(xué)管庫(kù)水平。</p><p>　?。?）技術(shù)上的可行性</p><p>　　我們?cè)诖髮W(xué)時(shí)期學(xué)過(guò)VF操作語(yǔ)言，所以我們可以用它來(lái)為我們所開(kāi)發(fā)的系統(tǒng)服務(wù)。因此我們?cè)诩夹g(shù)上也就有了支持。通過(guò)老師的指導(dǎo)以及小組成員的一起討論，并在查

17、閱了大量的資料以后，我們的系統(tǒng)才慢慢的形成和開(kāi)發(fā)出來(lái)，但是其中還有許多不完善的地方，我們會(huì)在以后的開(kāi)發(fā)中努力學(xué)習(xí)，使這個(gè)系統(tǒng)更完善，合理，規(guī)范。</p><p>　?。?）經(jīng)濟(jì)上的可行性</p><p>　　在經(jīng)濟(jì)上，因?yàn)槲覀冮_(kāi)發(fā)的這個(gè)系統(tǒng)相對(duì)較小也較簡(jiǎn)單，不需要投入太大的人力，物力和財(cái)力，但又不缺乏實(shí)用性和可靠性，維護(hù)費(fèi)用相對(duì)較低，所以用戶在使用了新系統(tǒng)后只需要花一定資金購(gòu)買一部分硬件設(shè)

18、備與軟件就能實(shí)現(xiàn)自動(dòng)化，提高了工作效率并且也減少了工作人員的工作量，帶來(lái)了很大的經(jīng)濟(jì)效益。</p><p><b>　　第三章 系統(tǒng)分析</b></p><p><b>　　3.1需求分析</b></p><p>　　采購(gòu)管理系統(tǒng)是根據(jù)工業(yè)企業(yè)采購(gòu)業(yè)務(wù)管理和采購(gòu)成本核算的實(shí)際需要，對(duì)采購(gòu)計(jì)劃制定、采購(gòu)訂單制定、原材料入庫(kù)狀

19、況、原材料的檢驗(yàn)、采購(gòu)結(jié)算以及采購(gòu)付款計(jì)劃的編制進(jìn)行全程管理，為采購(gòu)部門和財(cái)務(wù)部門提供準(zhǔn)確及時(shí)的信息。本系統(tǒng)實(shí)施后，能夠輸入、修改商品和供應(yīng)商基本資料，能對(duì)采購(gòu)業(yè)務(wù)和交貨信息進(jìn)行維護(hù)，能對(duì)商品采購(gòu)信息進(jìn)行查詢、交貨追蹤和統(tǒng)計(jì)。</p><p><b>　　3.2組織結(jié)構(gòu)分析</b></p><p>　　圖3.1 庫(kù)存管理組織結(jié)構(gòu)圖</p><p&

20、gt;　　該廠機(jī)構(gòu)精簡(jiǎn)，辦事效率高。廠辦公室共4人，一名廠長(zhǎng)管訂貨和銷售，一名主任在廠里組織生產(chǎn)，一名廠長(zhǎng)助理協(xié)助廠長(zhǎng)主任工作，辦公室一人負(fù)責(zé)日常事務(wù)。廠辦下設(shè)兩個(gè)車間，一個(gè)是童裝車間，另一個(gè)是繡品車間。財(cái)務(wù)核算以車間為單位，實(shí)行產(chǎn)供銷一條龍。</p><p>　　廠長(zhǎng)：管理訂貨和銷售</p><p>　　廠長(zhǎng)助理：協(xié)助廠長(zhǎng)主任工作</p><p>　　辦公室主任：

21、管理日常事務(wù)</p><p>　　3.3業(yè)務(wù)流程圖 </p><p><b>　　采購(gòu)訂單 </b></p><p><b>　　發(fā)貨</b></p><p><b>　　領(lǐng)料單</b></p><p><b>　　入庫(kù)</b>

22、;</p><p>　　出庫(kù) 出庫(kù)</p><p>　　提貨單 訂單</p><p><b>　　入庫(kù) 入庫(kù)</b></p><p><b>　　庫(kù)存分析</b></p><p>　　圖3.2 庫(kù)存管理

23、業(yè)務(wù)流程圖</p><p><b>　　3.4數(shù)據(jù)流程圖</b></p><p>　　發(fā)貨單 缺貨單</p><p>　　領(lǐng)料通知單 </p><p>　　查詢 </p><p>　　入庫(kù)

24、 庫(kù)存</p><p>　　領(lǐng)料單 </p><p>　　入庫(kù)單 缺貨通知</p><p>　　圖3.3 庫(kù)存管理頂級(jí)數(shù)據(jù)流程圖</p><p><b>　　庫(kù)存記錄</b></p><

25、;p><b>　　領(lǐng)料</b></p><p><b>　　銷售計(jì)劃</b></p><p><b>　　缺貨登記</b></p><p><b>　　領(lǐng)料通知單</b></p><p><b>　　用料計(jì)劃</b></p

26、><p>　　圖3.4 庫(kù)存管理一級(jí)數(shù)據(jù)流程圖</p><p>　　銷售計(jì)劃 銷售單</p><p><b>　　發(fā)貨單</b></p><p><b>　　銷售計(jì)劃</b></p><p>　　圖3.5 庫(kù)存管理二級(jí)數(shù)據(jù)流程圖&

27、lt;/p><p><b>　　第四章 系統(tǒng)設(shè)計(jì)</b></p><p>　　4.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)</p><p>　　圖4.1 系統(tǒng)總計(jì)結(jié)構(gòu)設(shè)計(jì)圖</p><p>　　4.1.1 貨品入庫(kù)：點(diǎn)擊貨品入庫(kù)時(shí)，可以選擇添加貨品入庫(kù)</p><p>　　4.1.2 貨品出庫(kù)：點(diǎn)擊貨品出庫(kù)時(shí)，可以添加貨品

28、出庫(kù)</p><p>　　4.1.3 庫(kù)存查詢：點(diǎn)擊庫(kù)存查詢時(shí)，可以查看庫(kù)存情況</p><p>　　4.1.4 信息統(tǒng)計(jì)：點(diǎn)擊信息統(tǒng)計(jì)時(shí)，可以查看庫(kù)存信息</p><p>　　4.1.5 退出系統(tǒng)：點(diǎn)擊退出系統(tǒng)時(shí)，可以退出系統(tǒng)</p><p><b>　　4.2代碼設(shè)計(jì)</b></p><p>

29、　　表4-1 訂單代碼設(shè)計(jì)</p><p>　　表4-2 入庫(kù)物品代碼設(shè)計(jì)</p><p>　　表4-3 供應(yīng)商名稱代碼設(shè)計(jì)</p><p>　　表4-4 入庫(kù)單號(hào)代碼設(shè)計(jì)</p><p>　　表4-5 客戶信息代碼設(shè)計(jì)</p><p><b>　　4.3 ER圖</b></p>

30、<p>　　n 1 1 n</p><p><b>　　1</b></p><p><b>　　n</b></p><p>　　圖4.2 庫(kù)存管理查詢E-R圖</p><p>　　M

31、 N M N</p><p>　　圖4.3 物資庫(kù)存管理E-R圖</p><p><b>　　關(guān)系模式轉(zhuǎn)換</b></p><p>　　貨品信息（貨品規(guī)格，貨品名稱，計(jì)量單位，數(shù)量，單價(jià)，供應(yīng)商，客戶）外碼：貨品編號(hào)，供應(yīng)商，提貨人</p><p

32、>　　廠長(zhǎng)信息（姓名，用戶名，密碼，職位，權(quán)限）</p><p>　　客戶信息（客戶編號(hào)，客戶名稱，聯(lián)系人，聯(lián)系方式，客戶所在城市）</p><p>　　供應(yīng)商信息（供應(yīng)商號(hào)，供應(yīng)商名稱，業(yè)務(wù)聯(lián)系人，聯(lián)系電話，）</p><p>　　貨品庫(kù)存信息（出入庫(kù)編號(hào)，出入庫(kù)日期，貨品規(guī)格，貨品名稱，計(jì)量單位，數(shù)量，單價(jià)） 外碼：供應(yīng)商編號(hào)，供應(yīng)商名稱，入庫(kù)編號(hào)，出庫(kù)

33、編號(hào)</p><p>　　4.4輸入輸出界面設(shè)計(jì)</p><p>　　1.登錄界面設(shè)計(jì)，如圖</p><p>　　圖4.4 登錄界面</p><p>　　2.用戶名和密碼正確時(shí)登錄成功，出現(xiàn)以下界面：</p><p><b>　　圖4.5 主界面</b></p><p>

34、;　　3.貨品入庫(kù)界面如圖所示</p><p>　　圖4.6 物品入庫(kù)界面</p><p>　　4.貨品出庫(kù)界面如圖所示</p><p>　　圖4.7 物品出庫(kù)界面</p><p>　　5.庫(kù)存查詢界面如圖所示</p><p>　　圖4.8 庫(kù)存查詢界面</p><p>　　6.出入庫(kù)信息

35、統(tǒng)計(jì)系統(tǒng)如圖所示</p><p>　　圖4.9出入庫(kù)信息統(tǒng)計(jì)界面</p><p><b>　　總結(jié)</b></p><p>　　經(jīng)過(guò)幾個(gè)星期的不斷實(shí)踐與探索，我所設(shè)計(jì)的庫(kù)存管理系統(tǒng)已經(jīng)初步完成，本報(bào)告提供了系統(tǒng)規(guī)劃、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施和編寫程序等的具體操作過(guò)程，較為熟練地掌握了這些課本上所學(xué)的內(nèi)容。</p><p&

36、gt;　　經(jīng)過(guò)這次的課程設(shè)計(jì)，我對(duì)管理信息系統(tǒng)有了更深的了解，同時(shí)進(jìn)一步溫習(xí)鞏固了VB計(jì)算機(jī)編程知識(shí)；通過(guò)實(shí)踐，提高了系統(tǒng)分析的能力，對(duì)數(shù)據(jù)流程圖、數(shù)據(jù)字典、系統(tǒng)流程圖等的含義和制作方法有了更深刻的認(rèn)識(shí)，為以后的學(xué)習(xí)、工作的進(jìn)一步提高打下了堅(jiān)實(shí)的基礎(chǔ)，基本實(shí)現(xiàn)了課程設(shè)計(jì)的預(yù)期目標(biāo)。另外很值得一提的是小組所有成員在這次課程設(shè)計(jì)過(guò)程中養(yǎng)成了嚴(yán)謹(jǐn)?shù)目茖W(xué)研究態(tài)度，互學(xué)互助，在良好的配合中實(shí)現(xiàn)了目標(biāo)，在良好的互動(dòng)中進(jìn)一步體味團(tuán)隊(duì)精神的可貴。<

37、;/p><p>　　最后，非常感謝所有指導(dǎo)我們完成本課程設(shè)計(jì)的老師和所有幫助我們的同學(xué)，老師在課程設(shè)計(jì)整個(gè)過(guò)程中給予我們很大的支持和指導(dǎo)，提出了許多有益的建議和意見(jiàn)，對(duì)我們的難題提出了切實(shí)的解決方法以使我們能繼續(xù)完成整個(gè)系統(tǒng)的設(shè)計(jì)，同學(xué)們也給我們提供了很多的幫助，使這次的課程設(shè)計(jì)順利完成。本次課程設(shè)計(jì)使我們受益匪淺，讓我們將書本上所學(xué)的知識(shí)運(yùn)用到實(shí)踐當(dāng)中去，更能體會(huì)到系統(tǒng)設(shè)計(jì)的重要性。</p><

38、p><b>　　參考文獻(xiàn)</b></p><p>　　[1] 金敏力.管理信息系統(tǒng).科學(xué)出版社，2009</p><p>　　[2] 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā) .電子工業(yè)出版社，2003</p><p>　　[3] 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0開(kāi)發(fā)者手冊(cè) . 電

39、子工業(yè)出版社, 2002 </p><p>　　[4] 申旻 . visual basic 6.0高手突破 . 清華大學(xué)出版社，2002，302</p><p>　　[5] 薩師煊，王 珊.數(shù)據(jù)庫(kù)系統(tǒng)概論[M].北京：高等教育出版社.1997</p><p><b>　　附錄</b></p><p>　　登錄界面程序設(shè)計(jì)

40、代碼如下</p><p>　　Dim itmX As ListItem '定義一個(gè)ListItem對(duì)象</p><p><b>　　Dim a</b></p><p>　　Dim key As String '定義字符串變量</p><p>　　'*** 用戶登錄按鈕的事件代

41、碼 ***</p><p>　　Private Sub Command1_Click()</p><p>　　rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '運(yùn)用API函數(shù)SetWindowPos，來(lái)實(shí)現(xiàn)取消窗體置前的功能</p><p>　　On Error Resume Next</p>

42、<p>　　Dim MPassword As String</p><p>　　If Text2.Text = "mr" And Text1.Text = "mingrisoft" Then '判斷是否使用的是超級(jí)口令登錄</p><p>　　frm_main.StatusBar1.Panels.Item(2).Text

43、= "當(dāng)前操作員： mr"</p><p>　　Name1 = Text2.Text</p><p><b>　　Unload Me</b></p><p>　　frm_main.Show</p><p><b>　　Else</b></p><p>　　

44、Adodc1.RecordSource = "select * from tb_enter where M_Name ='" & Text2.Text & "'"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.RecordCount > 0 Then

45、</p><p>　　MPassword = Adodc1.Recordset.Fields("M_Password")</p><p>　　If Text1.Text = MPassword Then '判斷數(shù)據(jù)的密碼是否正確</p><p>　　frm_main.StatusBar1.Panel

46、s.Item(2).Text = "當(dāng)前操作員： " + Adodc1.Recordset.Fields("M_Name")</p><p>　　Name1 = Text2.Text</p><p>　　frm_main.Show</p><p><b>　　'添加登錄日志</b></p&g

47、t;<p>　　Open (App.Path & "\系統(tǒng)日志.ini") For Input As #1</p><p>　　Do While Not EOF(1)</p><p>　　Line Input #1, Intext</p><p>　　TStr = TStr + Intext + Chr(13) + Chr(

48、10)</p><p><b>　　Loop</b></p><p><b>　　Close #1</b></p><p>　　TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd

49、 hh:mm:ss") + " " + "系統(tǒng)登錄" + Chr(13) + Chr(10)</p><p>　　Open (App.Path & "\系統(tǒng)日志.ini") For Output As #1</p><p>　　Print #1, TStr</p><p&

50、gt;<b>　　Close #1</b></p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>　　MsgBox "密碼不正確,請(qǐng)您確認(rèn)后重新輸入", , "庫(kù)存管理系統(tǒng)"</p>

51、<p>　　Text1.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "對(duì)不起 沒(méi)有此用戶的信息"

52、;, , "庫(kù)存管理系統(tǒng)"</p><p>　　Text2.Text = ""</p><p>　　Text1.Text = ""</p><p><b>　　End If</b></p><p><b>　　End If</b></

53、p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private

54、Sub Form_Load()</p><p>　　Call WHScreen</p><p>　　rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '運(yùn)用API函數(shù)SetWindowPos，來(lái)實(shí)現(xiàn)使窗體置前的功能</p><p>　　'使用代碼連接數(shù)據(jù)庫(kù)與數(shù)據(jù)表</p><p&

55、gt;　　Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"</p><p>　　Adodc1.RecordSource = "select

56、* from tb_enter"</p><p>　　Adodc1.Refresh</p><p>　　Adodc1.RecordSource = "select * from tb_enter"</p><p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.Rec

57、ordCount > 0 Then</p><p>　　ListView1.Enabled = True</p><p>　　ListView1.ListItems.Clear</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　　Do While Adodc1.Recordset.EOF = F

58、alse '將操作員信息添加到ListView控件當(dāng)中</p><p>　　key = Adodc1.Recordset.Fields("M_Name")</p><p>　　Set itmX = ListView1.ListItems.Add(, , key, 1)</p><p>　　Adodc1.

59、Recordset.MoveNext</p><p><b>　　Loop</b></p><p><b>　　Else</b></p><p>　　ListView1.Enabled = False</p><p><b>　　End If</b></p>&l

60、t;p>　　ScreenCenter</p><p>　　If TWidth <= 800 Or THeigth <= 600 Then</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　ChangeScreen

61、 '調(diào)整屏幕分辨率</p><p>　　ScreenCenter</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub ListView1_Click()</p><p

62、>　　Text2.Text = ListView1.SelectedItem</p><p>　　Adodc1.RecordSource = "select * from tb_enter where M_Name='" + Text2.Text + "'"</p><p>　　Adodc1.Refresh</p>

63、<p>　　If Adodc1.Recordset.RecordCount > 0 Then</p><p>　　Label3.Caption = "所選操作員的職務(wù)： " & Adodc1.Recordset.Fields(2)</p><p>　　Text1.SetFocus</p><p><b>　　E

64、nd If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　　If KeyCode = 13 Then</p><p>　　Call

65、 Command1_Click</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　

66、　If KeyCode = 13 Then</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Unload(Cancel As Integer)

67、</p><p>　　frm_main.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub ScreenCenter()</p><p>　　Me.Left = (Screen.Width - Me.Width) / 2</p>&l

68、t;p>　　Me.Top = (Screen.Height - Me.Height) / 2</p><p><b>　　End Sub</b></p><p>　　Private Sub ChangeScreen() '改變屏幕分辨率函數(shù)</p><p>　　MsgBox "您桌面的分辨率并不是800*600,

69、建議您將桌面的分辨率調(diào)整成800*600之后，再運(yùn)行此程序!", 64, "提示信息"</p><p><b>　　End Sub</b></p><p><b>　　主界面代碼設(shè)計(jì)如下</b></p><p>　　Dim itmX As ListItem

70、 '定義一個(gè)ListItem對(duì)象</p><p>　　Dim Intext As String '定義一個(gè)添加系統(tǒng)登錄日志功能的變量</p><p>　　Dim TStr As String</p><p>　　'聲明API函數(shù)及常量</p><p>　　Private Dec

71、lare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long</p><p>　　Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPositio

72、n As Long, ByVal wFlags As Long) As Long</p><p>　　Private Const MF_REMOVE = &H1000&</p><p>　　Private Const SC_MAXIMIZE = &HF030</p><p>　　temp1 = " 操作員姓名

73、 日期時(shí)間 操作類型"</p><p>　　Print #1, temp1</p><p><b>　　Print #1,</b></p><p><b>　　Close #1</b></p><p>　　MsgBox "日志清理成功完

74、成!!", , "提示信息"</p><p><b>　　Else</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub SJBF_Click()&

75、lt;/p><p>　　frm_backup.Caption = "數(shù)據(jù)備份"</p><p>　　frm_backup.Frame1.Visible = True</p><p>　　frm_backup.Frame2.Visible = False</p><p>　　frm_backup.Show

76、 '顯示數(shù)據(jù)備份窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub SJHF_Click()</p><p>　　frm_backup.Caption = "數(shù)據(jù)恢復(fù)"</p><p>　　frm_backup.F

77、rame1.Visible = False</p><p>　　frm_backup.Frame2.Visible = True</p><p>　　frm_backup.Show '顯示數(shù)據(jù)備份窗體</p><p><b>　　End Sub</b></p><

78、p>　　Private Sub SJQL_Click() '進(jìn)行數(shù)據(jù)清理操作</p><p>　　frm_sfyz.Show</p><p>　　Me.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Priva

79、te Sub TCXT_Click() '退出系統(tǒng)操作</p><p><b>　　'添加退出系統(tǒng)日志</b></p><p><b>　　Dim c</b></p><p>　　c = MsgBox("您確認(rèn)要退出庫(kù)存管理系統(tǒng)嗎?", 33,

80、"提示信息")</p><p>　　If c = vbOK Then</p><p>　　Open (App.Path & "\系統(tǒng)日志.ini") For Input As #1</p><p>　　Do While Not EOF(1)</p><p>　　Line Input #1, In

81、text</p><p>　　TStr = TStr + Intext + Chr(13) + Chr(10)</p><p><b>　　Loop</b></p><p><b>　　Close #1</b></p><p>　　TStr = TStr + " " + Na

82、me1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "退出系統(tǒng)" + Chr(13) + Chr(10)</p><p>　　Open (App.Path & "\系統(tǒng)日志.ini") For Out

83、put As #1</p><p>　　Print #1, TStr</p><p><b>　　Close #1</b></p><p><b>　　End</b></p><p><b>　　Else</b></p><p>　　rtn = SetW

84、indowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '運(yùn)用API函數(shù)SetWindowPos，來(lái)實(shí)現(xiàn)取消窗體置前的功能</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　'在窗體的狀態(tài)欄中顯示當(dāng)前系統(tǒng)的日

85、期時(shí)間</p><p>　　Private Sub Timer1_Timer()</p><p>　　StatusBar1.Panels(4).Text = Format(Now, " hh點(diǎn)mm分ss秒")</p><p><b>　　End Sub</b></p><p>　　Private Su

86、b Timer2_Timer()</p><p>　　Me.WindowState = 2</p><p>　　Me.WindowState = 0</p><p>　　Timer2.Enabled = False</p><p><b>　　End Sub</b></p><p>　　'

87、*** 單擊工具欄中的按鈕，調(diào)用相應(yīng)的窗體，完成相應(yīng)的操作 ***</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Index</p><p><b>　　Case 1</b>&

88、lt;/p><p>　　frm_in.Show</p><p><b>　　Case 3</b></p><p>　　frm_out.Show</p><p><b>　　Case 6</b></p><p>　　frm_KCQuery.Show</p><p

89、><b>　　Case 8</b></p><p>　　frm_Stat.Show</p><p><b>　　Case 10</b></p><p>　　frm_backup.Caption = "數(shù)據(jù)備份"</p><p>　　frm_backup.Frame1.Vis

90、ible = True</p><p>　　frm_backup.Frame2.Visible = False</p><p>　　frm_backup.Show '顯示數(shù)據(jù)備份窗體</p><p><b>　　Case 12</b></p><p>　　fr

91、m_backup.Caption = "數(shù)據(jù)恢復(fù)"</p><p>　　frm_backup.Frame1.Visible = False</p><p>　　frm_backup.Frame2.Visible = True</p><p>　　frm_backup.Show '顯示數(shù)

92、據(jù)備份窗體</p><p><b>　　Case 15</b></p><p><b>　　Dim c</b></p><p>　　c = MsgBox("您確認(rèn)要退出庫(kù)存管理系統(tǒng)嗎?", 33, "提示信息")</p><p>　　If c = vbOK T

93、hen</p><p>　　Open (App.Path & "\系統(tǒng)日志.ini") For Input As #1</p><p>　　Do While Not EOF(1)</p><p>　　Line Input #1, Intext</p><p>　　TStr = TStr + Intext + Chr

94、(13) + Chr(10)</p><p><b>　　Loop</b></p><p><b>　　Close #1</b></p><p>　　TStr = TStr + " " + Name1 + " " + Format(Now, "

95、;yyyy-mm-dd hh:mm:ss") + " " + "退出系統(tǒng)" + Chr(13) + Chr(10)</p><p>　　Open (App.Path & "\系統(tǒng)日志.ini") For Output As #1</p><p>　　Print #1, TStr</p&

96、gt;<p><b>　　Close #1</b></p><p><b>　　End</b></p><p><b>　　Else</b></p><p><b>　　End If</b></p><p>　　If TreeView1.Se

97、lectedItem.key = "設(shè)置權(quán)限" And CZYQXSZ.Enabled = True Then</p><p>　　frm_setoperator.Show</p><p>　　ElseIf TreeView1.SelectedItem.key = "設(shè)置權(quán)限" And CZYQXSZ.Enabled = False Then<

98、/p><p>　　MsgBox "對(duì)不起,您沒(méi)有操作此項(xiàng)功能的權(quán)限,請(qǐng)您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If TreeView

99、1.SelectedItem.key = "日志清理" And RZQL.Enabled = True Then</p><p><b>　　Dim del</b></p><p>　　Dim temp1 As String</p><p>　　On Error Resume Next '錯(cuò)誤處理語(yǔ)句</p&

100、gt;<p>　　del = MsgBox("確認(rèn)要清除庫(kù)存管理系統(tǒng)的日志信息嗎?", 17, "提示信息")</p><p>　　If del = vbOK Then</p><p>　　Kill (App.Path & "\系統(tǒng)日志.ini")</p><p>　　Open (Ap

101、p.Path & "\系統(tǒng)日志.ini") For Output As #1</p><p>　　temp1 = " 操作員姓名 日期時(shí)間 操作類型"</p><p>　　Print #1, temp1</p><p><b>　　Print

102、 #1,</b></p><p><b>　　Close #1</b></p><p>　　MsgBox "日志清理成功完成!!", , "提示信息"</p><p><b>　　Else</b></p><p><b>　　End If

103、</b></p><p>　　ElseIf TreeView1.SelectedItem.key = "日志清理" And RZQL.Enabled = False Then</p><p>　　MsgBox "對(duì)不起,您沒(méi)有操作此項(xiàng)功能的權(quán)限,請(qǐng)您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息"</p>&

104、lt;p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If TreeView1.SelectedItem.key = "查看日志" Then</p><p>　　frm_look.Show</p><p>&l

105、t;b>　　End If</b></p><p>　　If TreeView1.SelectedItem.key = "密碼修改" And MMXG.Enabled = True Then</p><p>　　frm_Edit_Password.Show</p><p>　　ElseIf TreeView1.SelectedIt

106、em.key = "密碼修改" And MMXG.Enabled = False Then</p><p>　　MsgBox "對(duì)不起,您沒(méi)有操作此項(xiàng)功能的權(quán)限,請(qǐng)您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息"</p><p><b>　　Exit Sub</b></p><p>&l

107、t;b>　　End If</b></p><p>　　If TreeView1.SelectedItem.key = "數(shù)據(jù)清理" And SJQL.Enabled = True Then</p><p>　　frm_sfyz.Show</p><p>　　ElseIf TreeView1.SelectedItem.key =

108、"數(shù)據(jù)清理" And SJQL.Enabled = False Then</p><p>　　MsgBox "對(duì)不起,您沒(méi)有操作此項(xiàng)功能的權(quán)限,請(qǐng)您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息"</p><p><b>　　Exit Sub</b></p><p><b>　　

109、End If</b></p><p>　　If TreeView1.SelectedItem.key = "操作員管理" And CZYXXWH.Enabled = True Then</p><p>　　frm_systemer.Show</p><p>　　ElseIf TreeView1.SelectedItem.key = &

110、quot;操作員管理" And CZYXXWH.Enabled = False Then</p><p>　　MsgBox "對(duì)不起,您沒(méi)有操作此項(xiàng)功能的權(quán)限,請(qǐng)您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息"</p><p><b>　　Exit Sub</b></p><p><b>

111、;　　End If</b></p><p>　　If TreeView1.SelectedItem.key = "供應(yīng)商信息" And GYSXXWH.Enabled = True Then</p><p>　　frm_gys.Show</p><p>　　ElseIf TreeView1.SelectedItem.key = &qu

112、ot;供應(yīng)商信息" And GYSXXWH.Enabled = False Then</p><p>　　MsgBox "對(duì)不起,您沒(méi)有操作此項(xiàng)功能的權(quán)限,請(qǐng)您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息"</p><p><b>　　Exit Sub</b></p><p><b>　

113、　End If</b></p><p>　　Me.Enabled = False '在單擊TreeView控件的節(jié)點(diǎn)之后，使得窗體不可用</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Resi

114、ze()</p><p>　　LeftSide_Resize</p><p>　　RightSide_Resize</p><p><b>　　End Sub</b></p><p>　　Private Sub LeftSide_Resize() '向左拖拽函數(shù)</p><p>&

115、lt;b>　　Dim y32&</b></p><p>　　On Error Resume Next</p><p>　　y32 = 60 + Toolbar1.Height</p><p>　　With TreeView1</p><p>　　.Left = 100</p><p><

116、b>　　End With</b></p><p>　　With Picture1</p><p>　　.Width = 30</p><p><b>　　End With</b></p><p>　　With ListView1</p><p>　　.Width = TreeVi

117、ew1.Width + 10</p><p>　　.Left = 25</p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p>　　Private Sub RightSide_Resize() '向右拖拽函數(shù)</p

118、><p>　　On Error Resume Next</p><p>　　With ListView1</p><p>　　.Left = TreeView1.Width + 100</p><p>　　.Width = Me.ScaleWidth - .Left - 10</p><p><b>　　End

119、With</b></p><p>　　With Picture1</p><p>　　.Height = Me.ScaleHeight - StatusBar1.Height - .Top - 430</p><p>　　.Left = TreeView1.Left + TreeView1.Width</p><p><b&