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

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

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

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

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

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

6、/b></p><p>　　第一章 系統(tǒng)開發(fā)論述1</p><p>　　1.1 系統(tǒng)開發(fā)的背景1</p><p>　　1.2 系統(tǒng)開發(fā)的目的和意義1</p><p>　　第二章 系統(tǒng)規(guī)劃2</p><p>　　2.1 系統(tǒng)目標(biāo)2</p><p>　　2.2系統(tǒng)開發(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è)計6<

8、;/p><p>　　4.1系統(tǒng)總體結(jié)構(gòu)設(shè)計6</p><p><b>　　4.2代碼設(shè)計6</b></p><p><b>　　4.3E-R圖7</b></p><p>　　4.4輸入輸出界面設(shè)計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)開發(fā)論述</b></p><p>　　1.1 系統(tǒng)開發(fā)的背景</p><p>　　在現(xiàn)代物流系統(tǒng)中，倉儲是構(gòu)成物流系

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

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

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

13、的服務(wù)系統(tǒng)。我們可以針對物料的出入庫管理設(shè)計一個倉庫管理系統(tǒng)。讓計算機對倉庫進(jìn)行自動管理，并能在一定</p><p><b>　　程度上實現(xiàn)自動化。</b></p><p>　　倉庫管理是企業(yè)生產(chǎn)過程中的重要組成部分。其主要功能是在供、需之間建立緩沖區(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è)的庫存管理工作主要由倉庫部門完成，其主要業(yè)務(wù)就是企業(yè)物料的收發(fā)以及管理工作，根據(jù)物料的不同物理和化學(xué)屬性做好物料存儲與防護(hù)工作，降低各種庫存管理費用，分析并提

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

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

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

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

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

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

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

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

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

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

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

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

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

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

29、　　表4-1 訂單代碼設(shè)計</p><p>　　表4-2 入庫物品代碼設(shè)計</p><p>　　表4-3 供應(yīng)商名稱代碼設(shè)計</p><p>　　表4-4 入庫單號代碼設(shè)計</p><p>　　表4-5 客戶信息代碼設(shè)計</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 庫存管理查詢E-R圖</p><p>　　M

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

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

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

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

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

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

37、;/p><p>　　最后，非常感謝所有指導(dǎo)我們完成本課程設(shè)計的老師和所有幫助我們的同學(xué)，老師在課程設(shè)計整個過程中給予我們很大的支持和指導(dǎo)，提出了許多有益的建議和意見，對我們的難題提出了切實的解決方法以使我們能繼續(xù)完成整個系統(tǒng)的設(shè)計，同學(xué)們也給我們提供了很多的幫助，使這次的課程設(shè)計順利完成。本次課程設(shè)計使我們受益匪淺，讓我們將書本上所學(xué)的知識運用到實踐當(dāng)中去，更能體會到系統(tǒng)設(shè)計的重要性。</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ù)庫應(yīng)用開發(fā) .電子工業(yè)出版社，2003</p><p>　　[3] 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0開發(fā)者手冊 . 電

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

40、代碼如下</p><p>　　Dim itmX As ListItem '定義一個ListItem對象</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) '運用API函數(shù)SetWindowPos，來實現(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 '判斷是否使用的是超級口令登錄</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 "密碼不正確,請您確認(rèn)后重新輸入", , "庫存管理系統(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 "對不起 沒有此用戶的信息"

52、;, , "庫存管理系統(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) '運用API函數(shù)SetWindowPos，來實現(xiàn)使窗體置前的功能</p><p>　　'使用代碼連接數(shù)據(jù)庫與數(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之后，再運行此程序!", 64, "提示信息"</p><p><b>　　End Sub</b></p><p><b>　　主界面代碼設(shè)計如下</b></p><p>　　Dim itmX As ListItem

70、 '定義一個ListItem對象</p><p>　　Dim Intext As String '定義一個添加系統(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、 日期時間 操作類型"</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)要退出庫存管理系統(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) '運用API函數(shù)SetWindowPos，來實現(xiàn)取消窗體置前的功能</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　'在窗體的狀態(tài)欄中顯示當(dāng)前系統(tǒng)的日

85、期時間</p><p>　　Private Sub Timer1_Timer()</p><p>　　StatusBar1.Panels(4).Text = Format(Now, " hh點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)要退出庫存管理系統(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 "對不起,您沒有操作此項功能的權(quán)限,請您與系統(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 '錯誤處理語句</p&

100、gt;<p>　　del = MsgBox("確認(rèn)要清除庫存管理系統(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 = " 操作員姓名 日期時間 操作類型"</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 "對不起,您沒有操作此項功能的權(quán)限,請您與系統(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 "對不起,您沒有操作此項功能的權(quán)限,請您與系統(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 "對不起,您沒有操作此項功能的權(quán)限,請您與系統(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 "對不起,您沒有操作此項功能的權(quán)限,請您與系統(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 "對不起,您沒有操作此項功能的權(quán)限,請您與系統(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é)點之后，使得窗體不可用</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&