物流管理信息系統(tǒng)課程設(shè)計(jì)68055

1、 物流管理信息系統(tǒng)課程設(shè)計(jì) CHANGSHA UNIVERSITY OF SCIENCE & TECHNOLOGY物流管理信息系統(tǒng) 課程設(shè)計(jì)題目： 工廠庫存管理信息系統(tǒng)設(shè)計(jì) 學(xué)生姓名： 鄒東林 學(xué) 號： 2011134010222班 級: 物流1102專 業(yè)： 物流工程指導(dǎo)教師： 向慧 盛玉奎 2014 年 06 月 工廠庫存管理信息系統(tǒng)設(shè)計(jì)學(xué)生姓名： 鄒東林 學(xué) 號： 201134010222 班 級： 物流1102 所在院(系): 交通運(yùn)輸工程學(xué)院 指導(dǎo)教師： 向慧 盛玉奎 完成日期: 2014年06月長沙理工大學(xué)課程設(shè)計(jì)任務(wù)書 交通運(yùn)輸工程 系 物流工程 專業(yè) 2011級 班課程

2、名稱 物流管理信息系統(tǒng)課程設(shè)計(jì) 題 目 工廠庫存管理信息系統(tǒng)設(shè)計(jì) 學(xué)生姓名 鄒東林 學(xué)號 201134010222 同組設(shè)計(jì)者： 鄒東林，陳敏，王璟昀，熊晶晶一、已知技術(shù)參數(shù)和設(shè)計(jì)要求1、已知技術(shù)參數(shù)物流管理信息系統(tǒng)及其實(shí)例.西安交通大學(xué)出版社，2004.10.物流信息系統(tǒng)，物資出版社，2006.1.；物流管理信息系統(tǒng),清華大學(xué)出版社、北京交通大學(xué)出版社,2006.10.數(shù)據(jù)庫項(xiàng)目案例導(dǎo)航.，中國鐵道出版社，北京：清華大學(xué)出版社,2004.8.2、設(shè)計(jì)要求本課程設(shè)計(jì)是物流工程專業(yè)物流管理信息系統(tǒng)專業(yè)課程學(xué)習(xí)的必修內(nèi)容之一。課程設(shè)計(jì)要求學(xué)生掌握信息系統(tǒng)開發(fā)設(shè)計(jì)的一般步驟與應(yīng)用程序開發(fā)能力。本課程

3、設(shè)計(jì)的目的在于增強(qiáng)學(xué)生的感性認(rèn)識，溝通學(xué)生從課堂的理論知識與具體實(shí)際工作的銜接，提高學(xué)生的動(dòng)手能力，實(shí)現(xiàn)理論和實(shí)踐的統(tǒng)一。通過課程設(shè)計(jì)，使學(xué)生深刻地認(rèn)識到信息技術(shù)的應(yīng)用對物流行業(yè)發(fā)展的重要性；掌握信息系統(tǒng)開發(fā)的主要流程；能結(jié)合所學(xué)相關(guān)物流專業(yè)知識并運(yùn)用數(shù)據(jù)庫開發(fā)軟件完成對物流管理信息系統(tǒng)設(shè)計(jì)。二、課程設(shè)計(jì)選題設(shè)計(jì)選題說明：下面所列出的是本次課程設(shè)計(jì)的選題方向，另外指導(dǎo)老師根據(jù)各選題提供了部分相關(guān)案例或給出了相關(guān)系統(tǒng)開發(fā)提示。同學(xué)通過分析可以對各選題示例進(jìn)行分析，但是每一個(gè)選題只能由一個(gè)小組選擇。（注：選擇同一題目的人數(shù)為4人，并且每個(gè)小組成員完成單獨(dú)一個(gè)子系統(tǒng)的開發(fā)及文檔的撰寫）。1、 服裝物

4、流管理信息系統(tǒng)設(shè)計(jì)2、 倉庫管理信息系統(tǒng)設(shè)計(jì)3、 銷售管理信息系統(tǒng)設(shè)計(jì)4、 連鎖餐飲行業(yè)的物流管理信息系統(tǒng)設(shè)計(jì)5、 企業(yè)物料管理信息系統(tǒng)的設(shè)計(jì)6、 企業(yè)進(jìn)銷存管理信息系統(tǒng)設(shè)計(jì)7、 物流配送管理信息系統(tǒng)設(shè)計(jì)8、 生產(chǎn)企業(yè)物資采購管理信息系統(tǒng)設(shè)計(jì)三、本次課程設(shè)計(jì)應(yīng)完成的主要任務(wù)1、系統(tǒng)設(shè)計(jì)及開發(fā)的可行性分析 經(jīng)濟(jì)可行性系統(tǒng)的初步調(diào)查。（企業(yè)概況、組織機(jī)構(gòu)、現(xiàn)行系統(tǒng)運(yùn)行情況及其業(yè)務(wù)流程中存在的問題、新系統(tǒng)開發(fā)條件）系統(tǒng)開發(fā)的必要性（物流行業(yè)競爭、在生產(chǎn)、采購及銷售流程中信息系統(tǒng)的必要性）技術(shù)可行性分析（系統(tǒng)的體系結(jié)構(gòu)、選擇的開發(fā)方式，分析技術(shù)中的潛在的風(fēng)險(xiǎn)）經(jīng)濟(jì)可行性分析（成本/效益分析）2、系統(tǒng)分

5、析 需求分析 物流信息系統(tǒng)使用者進(jìn)行相關(guān)調(diào)查（包括現(xiàn)有系統(tǒng)亟待解決的問題）組織結(jié)構(gòu)分析設(shè)計(jì)的物流信息系統(tǒng)中所涉及的相關(guān)部門及人員，要求分析出這些部門及人員在實(shí)際工作中與物流活動(dòng)相互關(guān)系的重要程度。業(yè)務(wù)流程分析要求對每個(gè)系統(tǒng)開發(fā)小組成員須對本人負(fù)責(zé)設(shè)計(jì)及開發(fā)的系統(tǒng)子功能模塊的業(yè)務(wù)流程分析，同時(shí)結(jié)合文字用業(yè)務(wù)流程圖表述出來。數(shù)據(jù)流程分析要求對每個(gè)系統(tǒng)開發(fā)小組成員須對本人負(fù)責(zé)設(shè)計(jì)及開發(fā)的系統(tǒng)子功能模塊的數(shù)據(jù)流程進(jìn)行分析，同時(shí)結(jié)合文字用數(shù)據(jù)流程圖詳細(xì)表述出來。3、系統(tǒng)設(shè)計(jì) 系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)（子系統(tǒng)/模塊劃分）要求畫出所在小組設(shè)計(jì)的物流信息系統(tǒng)總體結(jié)構(gòu)圖，小組成員著重闡述各自負(fù)責(zé)完成功能模塊的功能。 代

6、碼設(shè)計(jì)要求說明系統(tǒng)功能模塊的編碼形式和結(jié)構(gòu)比如倉儲管理中，對貨物存儲位置的確定（倉號-庫位-貨架號-貨位號）是用哪些字符表示，分別代表的含義。如：表2.代碼設(shè)計(jì)人事代碼設(shè)計(jì)表代碼對象人事代碼代碼類型部門碼+順序碼位數(shù)7校驗(yàn)位1代碼數(shù)量200使用期限無限使用范圍本公司 數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)（E-R圖，建立關(guān)系數(shù)據(jù)庫表）要求用E-R圖來反映系統(tǒng)中功能模塊所涉及的數(shù)據(jù)對象之間的關(guān)系，同時(shí)依E-R圖進(jìn)行數(shù)據(jù)庫設(shè)計(jì)，建立關(guān)系數(shù)據(jù)庫表。 輸入輸出界面設(shè)計(jì)要求結(jié)合文字和圖片提交應(yīng)用程序運(yùn)行的結(jié)果。4、課程設(shè)計(jì)的總結(jié)和體會四、工作計(jì)劃本次課程設(shè)計(jì)總體時(shí)間為兩周，2014年6月9日至2014年6月22日，具體計(jì)劃安排如

7、下：2014.6.9-2014.6.10：需求分析2014.6.11 -2014.6.12：系統(tǒng)規(guī)劃2014.6.13-2014.6.16：系統(tǒng)分析及設(shè)計(jì)2014.6.17 -2014.6.21：應(yīng)用程序開發(fā)2014.6.22：綜合評價(jià)，結(jié)論；以及文檔整理提交五、課程設(shè)計(jì)完成提交文檔要求按以下順序裝訂成冊： （1）封面； （2）扉頁； （3）任務(wù)書； （4）指導(dǎo)書； （5）目錄； （6）正文； （7）附錄； （8）成績評定表。指導(dǎo)老師：向慧 魏雋君 何其超2014年3月1日教研室意見：同意按任務(wù)書要求開展設(shè)計(jì)教研室主任：周愛蓮 2014年3月1日目錄第一章 系統(tǒng)開發(fā)論述1 1.1 系統(tǒng)開發(fā)的背

8、景1 1.2 系統(tǒng)開發(fā)的目的和意義1第二章 系統(tǒng)規(guī)劃2 2.1 系統(tǒng)目標(biāo)2 2.2系統(tǒng)開發(fā)的可行性分析2第三章 系統(tǒng)分析3 3.1需求分析3 3.2組織結(jié)構(gòu)分析3 3.3業(yè)務(wù)流程圖4 3.4數(shù)據(jù)流程圖4 第四章 系統(tǒng)設(shè)計(jì)6 4.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)6 4.2代碼設(shè)計(jì)6 4.3E-R圖7 4.4輸入輸出界面設(shè)計(jì)9第五章 總結(jié)12參考文獻(xiàn)12附錄13第1章 系統(tǒng)開發(fā)論述1.1 系統(tǒng)開發(fā)的背景在現(xiàn)代物流系統(tǒng)中，倉儲是構(gòu)成物流系統(tǒng)的重要環(huán)節(jié)，倉儲是構(gòu)成物流系統(tǒng)的重要環(huán)節(jié)，倉儲功能包括對進(jìn)入物流系統(tǒng)的的貨物進(jìn)行堆存、管理、保管、維護(hù)等一系列的活動(dòng)。隨著經(jīng)濟(jì)的發(fā)展，物流由少量品種進(jìn)入到多品種、小批量或多批次

9、的、小批量物流時(shí)代，倉儲功能從重視保管效率逐漸變?yōu)橹匾暟l(fā)貨和配送作業(yè)。倉儲管理，是指對倉庫及其庫存物的管理?，F(xiàn)代的倉庫已成為物流的中心。物資的儲存和運(yùn)輸是整個(gè)物流過程中兩個(gè)關(guān)鍵環(huán)節(jié)，被人們稱之為“物流的支柱”。倉儲在物流系統(tǒng)中的重要作用作用主要表現(xiàn)在：降低運(yùn)輸成本，提高運(yùn)輸效率，產(chǎn)品整合，支持企業(yè)的銷售服務(wù)，調(diào)節(jié)供應(yīng)和需求。倉儲管理信息系統(tǒng)是用于管理倉庫中貨物、空間資源、人力資源、設(shè)備資源等在倉庫中的活動(dòng)，對貨物的進(jìn)貨、檢驗(yàn)、上架、出貨、轉(zhuǎn)倉、盤點(diǎn)及其他庫內(nèi)作業(yè)的進(jìn)行管理的系統(tǒng)。1.2 系統(tǒng)開發(fā)的目的和意義隨著科學(xué)技術(shù)的發(fā)展，社會進(jìn)步，計(jì)算機(jī)技術(shù)的快速發(fā)展，倉庫管理的方法也日新月異，以前全是由

10、人管理的方法現(xiàn)存在很多缺點(diǎn)：管理效率低下，勞動(dòng)強(qiáng)度大，信息處理速度低而且準(zhǔn)確性也不夠令人滿意。為了提高倉庫管理效率，減輕勞動(dòng)強(qiáng)度，提高信息處理速度和準(zhǔn)確性，為倉庫管理員提供更方便、科學(xué)的服務(wù)項(xiàng)目。為倉庫管理員提供一種更先進(jìn)、科學(xué)的服務(wù)系統(tǒng)。我們可以針對物料的出入庫管理設(shè)計(jì)一個(gè)倉庫管理系統(tǒng)。讓計(jì)算機(jī)對倉庫進(jìn)行自動(dòng)管理，并能在一定程度上實(shí)現(xiàn)自動(dòng)化。倉庫管理是企業(yè)生產(chǎn)過程中的重要組成部分。其主要功能是在供、需之間建立緩沖區(qū)，達(dá)到緩和用戶需求與企業(yè)生產(chǎn)能力之間、最終裝配需求與零件加工工序之間、生產(chǎn)廠家需求與原材料供應(yīng)商的矛盾。第二章 系統(tǒng)規(guī)劃2.1 系統(tǒng)目標(biāo)企業(yè)的庫存管理工作主要由倉庫部門完成，其主要

11、業(yè)務(wù)就是企業(yè)物料的收發(fā)以及管理工作，根據(jù)物料的不同物理和化學(xué)屬性做好物料存儲與防護(hù)工作，降低各種庫存管理費(fèi)用，分析并提供庫存管理所需的各種數(shù)據(jù)報(bào)表等。2.2系統(tǒng)開發(fā)的可行性分析（1）管理上的可行性由于企業(yè)庫存品種多，數(shù)量大，因此，要實(shí)現(xiàn)收發(fā)作業(yè)的快速、準(zhǔn)確、高效，倉儲管理自動(dòng)化勢在必行。而實(shí)現(xiàn)管理自動(dòng)化的“瓶頸”則是產(chǎn)品信息的采集、輸入。傳統(tǒng)手工作業(yè)方式，在信息采集量加大的情形下，因信息不能及時(shí)的反饋，給收發(fā)作業(yè)造成一定的困難。使用倉庫管理信息系統(tǒng)，便于產(chǎn)品收、發(fā)、保管等全過程控制管理，不僅可改變信息采集的傳統(tǒng)手工作業(yè)方式，降低作業(yè)強(qiáng)度，還可避免由此造成的各種差錯(cuò)，提高作業(yè)效率和科學(xué)管庫水平。

12、（2）技術(shù)上的可行性我們在大學(xué)時(shí)期學(xué)過VF操作語言，所以我們可以用它來為我們所開發(fā)的系統(tǒng)服務(wù)。因此我們在技術(shù)上也就有了支持。通過老師的指導(dǎo)以及小組成員的一起討論，并在查閱了大量的資料以后，我們的系統(tǒng)才慢慢的形成和開發(fā)出來，但是其中還有許多不完善的地方，我們會在以后的開發(fā)中努力學(xué)習(xí)，使這個(gè)系統(tǒng)更完善，合理，規(guī)范。（3）經(jīng)濟(jì)上的可行性在經(jīng)濟(jì)上，因?yàn)槲覀冮_發(fā)的這個(gè)系統(tǒng)相對較小也較簡單，不需要投入太大的人力，物力和財(cái)力，但又不缺乏實(shí)用性和可靠性，維護(hù)費(fèi)用相對較低，所以用戶在使用了新系統(tǒng)后只需要花一定資金購買一部分硬件設(shè)備與軟件就能實(shí)現(xiàn)自動(dòng)化，提高了工作效率并且也減少了工作人員的工作量，帶來了很大的經(jīng)濟(jì)

13、效益。第三章 系統(tǒng)分析3.1需求分析采購管理系統(tǒng)是根據(jù)工業(yè)企業(yè)采購業(yè)務(wù)管理和采購成本核算的實(shí)際需要，對采購計(jì)劃制定、采購訂單制定、原材料入庫狀況、原材料的檢驗(yàn)、采購結(jié)算以及采購付款計(jì)劃的編制進(jìn)行全程管理，為采購部門和財(cái)務(wù)部門提供準(zhǔn)確及時(shí)的信息。本系統(tǒng)實(shí)施后，能夠輸入、修改商品和供應(yīng)商基本資料，能對采購業(yè)務(wù)和交貨信息進(jìn)行維護(hù)，能對商品采購信息進(jìn)行查詢、交貨追蹤和統(tǒng)計(jì)。 廠長3.2組織結(jié)構(gòu)分析辦公室主任主任廠長助理日常事務(wù)銷售訂貨組織生產(chǎn)圖3.1 庫存管理組織結(jié)構(gòu)圖該廠機(jī)構(gòu)精簡，辦事效率高。廠辦公室共4人，一名廠長管訂貨和銷售，一名主任在廠里組織生產(chǎn)，一名廠長助理協(xié)助廠長主任工作，辦公室一人負(fù)責(zé)日

14、常事務(wù)。廠辦下設(shè)兩個(gè)車間，一個(gè)是童裝車間，另一個(gè)是繡品車間。財(cái)務(wù)核算以車間為單位，實(shí)行產(chǎn)供銷一條龍。廠長：管理訂貨和銷售廠長助理：協(xié)助廠長主任工作辦公室主任：管理日常事務(wù)3.3業(yè)務(wù)流程圖 采購訂單 庫存查詢供貨商廠長 發(fā)貨信息統(tǒng)計(jì)驗(yàn)收求購信息 領(lǐng)料單 入庫客戶倉庫原料2個(gè)生產(chǎn)車間 出庫 出庫 提貨單 訂單廠長廠長助理產(chǎn)品入庫 入庫 入庫 庫存分析圖3.2 庫存管理業(yè)務(wù)流程圖廠長助理 銷售3.4數(shù)據(jù)流程圖 發(fā)貨單 缺貨單 生產(chǎn)車間 1庫存管理 領(lǐng)料通知單 查詢 入庫 庫存 領(lǐng)料單 入庫單 缺貨通知廠長 采購圖3.3 庫存管理頂級數(shù)據(jù)流程圖 庫存記錄 3采購 1庫存系統(tǒng) 2生產(chǎn) 領(lǐng)料生產(chǎn)車間銷售計(jì)

15、劃 缺貨登記 領(lǐng)料通知單 用料計(jì)劃圖3.4 庫存管理一級數(shù)據(jù)流程圖 1庫存管理廠長助理銷售銷售計(jì)劃 銷售單 發(fā)貨單生產(chǎn)車間 銷售計(jì)劃圖3.5 庫存管理二級數(shù)據(jù)流程圖第四章 系統(tǒng)設(shè)計(jì)登錄主界面4.1系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)貨品入庫退出系統(tǒng)信息統(tǒng)計(jì)庫存查詢貨品出庫圖4.1 系統(tǒng)總計(jì)結(jié)構(gòu)設(shè)計(jì)圖4.1.1 貨品入庫：點(diǎn)擊貨品入庫時(shí)，可以選擇添加貨品入庫4.1.2 貨品出庫：點(diǎn)擊貨品出庫時(shí)，可以添加貨品出庫4.1.3 庫存查詢：點(diǎn)擊庫存查詢時(shí)，可以查看庫存情況4.1.4 信息統(tǒng)計(jì)：點(diǎn)擊信息統(tǒng)計(jì)時(shí)，可以查看庫存信息4.1.5 退出系統(tǒng)：點(diǎn)擊退出系統(tǒng)時(shí)，可以退出系統(tǒng)4.2代碼設(shè)計(jì)表4-1 訂單代碼設(shè)計(jì)代碼對象訂單號

16、代碼類型XXX位數(shù)3校驗(yàn)位無代碼數(shù)量無限使用期限無限使用范圍本公司表4-2 入庫物品代碼設(shè)計(jì)代碼對象物品名代碼類型XXX位數(shù)3校驗(yàn)位無代碼數(shù)量無限使用期限無限使用范圍本公司表4-3 供應(yīng)商名稱代碼設(shè)計(jì)代碼對象供應(yīng)商名稱代碼類型G+N位數(shù)2校驗(yàn)位無代碼數(shù)量無限使用期限無限使用范圍本公司表4-4 入庫單號代碼設(shè)計(jì)代碼對象入庫單號代碼類型J+0000+XX位數(shù)7校驗(yàn)位無代碼數(shù)量無限使用期限無限使用范圍本公司表4-5 客戶信息代碼設(shè)計(jì)代碼對象產(chǎn)地代碼類型XY位數(shù)2校驗(yàn)位無代碼數(shù)量無限使用期限無限使用范圍本公司供應(yīng)商編號供應(yīng)商名稱4.3 ER圖密碼用戶名客戶名稱客戶編號客戶添加刪除廠長添加刪除供應(yīng)商 n

17、 1 1 n聯(lián)系電話業(yè)務(wù)聯(lián)系人聯(lián)系電話業(yè)務(wù)聯(lián)系人貨品規(guī)格貨品名稱 1單價(jià)庫存物品查詢 n計(jì)量單位數(shù)量圖4.2 庫存管理查詢E-R圖貨品規(guī)格貨品名稱提貨單位供應(yīng)商名稱供應(yīng)商編號提貨人出庫入庫 提貨單位物品供應(yīng)商 M N M N單價(jià)計(jì)量單位貨品名稱入庫編號出庫編號貨品名稱數(shù)量圖4.3 物資庫存管理E-R圖關(guān)系模式轉(zhuǎn)換貨品信息（貨品規(guī)格，貨品名稱，計(jì)量單位，數(shù)量，單價(jià)，供應(yīng)商，客戶）外碼：貨品編號，供應(yīng)商，提貨人廠長信息（姓名，用戶名，密碼，職位，權(quán)限）客戶信息（客戶編號，客戶名稱，聯(lián)系人，聯(lián)系方式，客戶所在城市）供應(yīng)商信息（供應(yīng)商號，供應(yīng)商名稱，業(yè)務(wù)聯(lián)系人，聯(lián)系電話，）貨品庫存信息（出入庫編號，出

18、入庫日期，貨品規(guī)格，貨品名稱，計(jì)量單位，數(shù)量，單價(jià)） 外碼：供應(yīng)商編號，供應(yīng)商名稱，入庫編號，出庫編號4.4輸入輸出界面設(shè)計(jì)1.登錄界面設(shè)計(jì)，如圖圖4.4 登錄界面2.用戶名和密碼正確時(shí)登錄成功，出現(xiàn)以下界面：圖4.5 主界面3.貨品入庫界面如圖所示圖4.6 物品入庫界面4.貨品出庫界面如圖所示圖4.7 物品出庫界面5.庫存查詢界面如圖所示圖4.8 庫存查詢界面6.出入庫信息統(tǒng)計(jì)系統(tǒng)如圖所示圖4.9出入庫信息統(tǒng)計(jì)界面第5章 總結(jié) 經(jīng)過幾個(gè)星期的不斷實(shí)踐與探索，我所設(shè)計(jì)的庫存管理系統(tǒng)已經(jīng)初步完成，本報(bào)告提供了系統(tǒng)規(guī)劃、系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施和編寫程序等的具體操作過程，較為熟練地掌握了這些課

19、本上所學(xué)的內(nèi)容。經(jīng)過這次的課程設(shè)計(jì)，我對管理信息系統(tǒng)有了更深的了解，同時(shí)進(jìn)一步溫習(xí)鞏固了VB計(jì)算機(jī)編程知識；通過實(shí)踐，提高了系統(tǒng)分析的能力，對數(shù)據(jù)流程圖、數(shù)據(jù)字典、系統(tǒng)流程圖等的含義和制作方法有了更深刻的認(rèn)識，為以后的學(xué)習(xí)、工作的進(jìn)一步提高打下了堅(jiān)實(shí)的基礎(chǔ)，基本實(shí)現(xiàn)了課程設(shè)計(jì)的預(yù)期目標(biāo)。另外很值得一提的是小組所有成員在這次課程設(shè)計(jì)過程中養(yǎng)成了嚴(yán)謹(jǐn)?shù)目茖W(xué)研究態(tài)度，互學(xué)互助，在良好的配合中實(shí)現(xiàn)了目標(biāo)，在良好的互動(dòng)中進(jìn)一步體味團(tuán)隊(duì)精神的可貴。最后，非常感謝所有指導(dǎo)我們完成本課程設(shè)計(jì)的老師和所有幫助我們的同學(xué)，老師在課程設(shè)計(jì)整個(gè)過程中給予我們很大的支持和指導(dǎo)，提出了許多有益的建議和意見，對我們的難題提

20、出了切實(shí)的解決方法以使我們能繼續(xù)完成整個(gè)系統(tǒng)的設(shè)計(jì)，同學(xué)們也給我們提供了很多的幫助，使這次的課程設(shè)計(jì)順利完成。本次課程設(shè)計(jì)使我們受益匪淺，讓我們將書本上所學(xué)的知識運(yùn)用到實(shí)踐當(dāng)中去，更能體會到系統(tǒng)設(shè)計(jì)的重要性。參考文獻(xiàn)1 金敏力.管理信息系統(tǒng).科學(xué)出版社，20092 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0數(shù)據(jù)庫應(yīng)用開發(fā) .電子工業(yè)出版社，20033 飛思科技產(chǎn)品研發(fā)中心 . visual basic 6.0開發(fā)者手冊 . 電子工業(yè)出版社, 2002 4 申旻 . visual basic 6.0高手突破 . 清華大學(xué)出版社，2002，3025 薩師煊，王 珊.數(shù)據(jù)庫系統(tǒng)概論M

21、.北京：高等教育出版社.1997附錄登錄界面程序設(shè)計(jì)代碼如下Dim itmX As ListItem '定義一個(gè)ListItem對象Dim aDim key As String '定義字符串變量'* 用戶登錄按鈕的事件代碼 *Private Sub Command1_Click() rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)取消窗體置前的功能On Error Resume NextDim MPassword As StringIf Text2.Text = &qu

22、ot;mr" And Text1.Text = "mingrisoft" Then '判斷是否使用的是超級口令登錄 frm_main.StatusBar1.Panels.Item(2).Text = "當(dāng)前操作員： mr" Name1 = Text2.Text Unload Me frm_main.ShowElse Adodc1.RecordSource = "select * from tb_enter where M_Name ='" & Text2.Text & "'&

23、quot; Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then MPassword = Adodc1.Recordset.Fields("M_Password") If Text1.Text = MPassword Then '判斷數(shù)據(jù)的密碼是否正確 frm_main.StatusBar1.Panels.Item(2).Text = "當(dāng)前操作員： " + Adodc1.Recordset.Fields("M_Name") Name1 = Text2.Text

24、frm_main.Show '添加登錄日志 Open (App.Path & "系統(tǒng)日志.ini") For Input As #1 Do While Not EOF(1) Line Input #1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Close #1 TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + &

25、quot;系統(tǒng)登錄" + Chr(13) + Chr(10) Open (App.Path & "系統(tǒng)日志.ini") For Output As #1 Print #1, TStr Close #1 Unload Me Else MsgBox "密碼不正確,請您確認(rèn)后重新輸入", , "庫存管理系統(tǒng)" Text1.Text = "" Text1.SetFocus End If Else MsgBox "對不起 沒有此用戶的信息", , "庫存管理系統(tǒng)" T

26、ext2.Text = "" Text1.Text = "" End If End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_Load()Call WHScreen rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)使窗體置前的功能'使用代碼連接數(shù)據(jù)庫與數(shù)據(jù)表Adodc1.ConnectionString = "Provider=Microsoft.J

27、et.OLEDB.4.0;Data Source=" & App.Path & "db_kcgl.mdb;Persist Security Info=False"Adodc1.RecordSource = "select * from tb_enter"Adodc1.RefreshAdodc1.RecordSource = "select * from tb_enter"Adodc1.RefreshIf Adodc1.Recordset.RecordCount > 0 Then ListView1.En

28、abled = True ListView1.ListItems.Clear Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False '將操作員信息添加到ListView控件當(dāng)中 key = Adodc1.Recordset.Fields("M_Name") Set itmX = ListView1.ListItems.Add(, , key, 1) Adodc1.Recordset.MoveNext LoopElseListView1.Enabled = FalseEnd IfScreenC

29、enter If TWidth <= 800 Or THeigth <= 600 Then Exit Sub Else ChangeScreen '調(diào)整屏幕分辨率 ScreenCenter End If End SubPrivate Sub ListView1_Click() Text2.Text = ListView1.SelectedItem Adodc1.RecordSource = "select * from tb_enter where M_Name='" + Text2.Text + "'" Adodc1

30、.Refresh If Adodc1.Recordset.RecordCount > 0 Then Label3.Caption = "所選操作員的職務(wù)： " & Adodc1.Recordset.Fields(2) Text1.SetFocus End IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Call Command1_ClickEnd IfEnd SubPrivate Sub Text2_KeyDown(KeyC

31、ode As Integer, Shift As Integer)If KeyCode = 13 Then Text1.SetFocusEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) frm_main.Enabled = TrueEnd SubPrivate Sub ScreenCenter() Me.Left = (Screen.Width - Me.Width) / 2 Me.Top = (Screen.Height - Me.Height) / 2End SubPrivate Sub ChangeScreen() '

32、改變屏幕分辨率函數(shù) MsgBox "您桌面的分辨率并不是800*600,建議您將桌面的分辨率調(diào)整成800*600之后，再運(yùn)行此程序!", 64, "提示信息" End Sub主界面代碼設(shè)計(jì)如下Dim itmX As ListItem '定義一個(gè)ListItem對象Dim Intext As String '定義一個(gè)添加系統(tǒng)登錄日志功能的變量Dim TStr As String'聲明API函數(shù)及常量Private Declare Function GetSystemMenu Lib "user32" (ByVal

33、 hwnd As Long, ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As LongPrivate Const MF_REMOVE = &H1000&Private Const SC_MAXIMIZE = &HF030 temp1 = " 操作員姓名 日期時(shí)間 操作類型" Pri

34、nt #1, temp1 Print #1, Close #1 MsgBox "日志清理成功完成!", , "提示信息" Else End IfEnd SubPrivate Sub SJBF_Click() frm_backup.Caption = "數(shù)據(jù)備份" frm_backup.Frame1.Visible = True frm_backup.Frame2.Visible = False frm_backup.Show '顯示數(shù)據(jù)備份窗體End SubPrivate Sub SJHF_Click() frm_backup

35、.Caption = "數(shù)據(jù)恢復(fù)" frm_backup.Frame1.Visible = False frm_backup.Frame2.Visible = True frm_backup.Show '顯示數(shù)據(jù)備份窗體End SubPrivate Sub SJQL_Click() '進(jìn)行數(shù)據(jù)清理操作 frm_sfyz.Show Me.Enabled = FalseEnd SubPrivate Sub TCXT_Click() '退出系統(tǒng)操作 '添加退出系統(tǒng)日志 Dim c c = MsgBox("您確認(rèn)要退出庫存管理系統(tǒng)嗎?&qu

36、ot;, 33, "提示信息") If c = vbOK Then Open (App.Path & "系統(tǒng)日志.ini") For Input As #1 Do While Not EOF(1) Line Input #1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Close #1 TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") +

37、 " " + "退出系統(tǒng)" + Chr(13) + Chr(10) Open (App.Path & "系統(tǒng)日志.ini") For Output As #1 Print #1, TStr Close #1 End Else rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '運(yùn)用API函數(shù)SetWindowPos，來實(shí)現(xiàn)取消窗體置前的功能 End IfEnd Sub'在窗體的狀態(tài)欄中顯示當(dāng)前系統(tǒng)的日期時(shí)間Private Sub Timer1_Timer() Stat

38、usBar1.Panels(4).Text = Format(Now, " hh點(diǎn)mm分ss秒")End SubPrivate Sub Timer2_Timer() Me.WindowState = 2 Me.WindowState = 0 Timer2.Enabled = FalseEnd Sub'* 單擊工具欄中的按鈕，調(diào)用相應(yīng)的窗體，完成相應(yīng)的操作 *Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 frm_i

39、n.Show Case 3 frm_out.Show Case 6 frm_KCQuery.Show Case 8 frm_Stat.Show Case 10 frm_backup.Caption = "數(shù)據(jù)備份" frm_backup.Frame1.Visible = True frm_backup.Frame2.Visible = False frm_backup.Show '顯示數(shù)據(jù)備份窗體 Case 12 frm_backup.Caption = "數(shù)據(jù)恢復(fù)" frm_backup.Frame1.Visible = False frm_b

40、ackup.Frame2.Visible = True frm_backup.Show '顯示數(shù)據(jù)備份窗體 Case 15 Dim c c = MsgBox("您確認(rèn)要退出庫存管理系統(tǒng)嗎?", 33, "提示信息") If c = vbOK Then Open (App.Path & "系統(tǒng)日志.ini") For Input As #1 Do While Not EOF(1) Line Input #1, Intext TStr = TStr + Intext + Chr(13) + Chr(10) Loop Clo

41、se #1 TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "退出系統(tǒng)" + Chr(13) + Chr(10) Open (App.Path & "系統(tǒng)日志.ini") For Output As #1 Print #1, TStr Close #1 End Else End If If TreeView1.SelectedItem.key = "設(shè)置

42、權(quán)限" And CZYQXSZ.Enabled = True Then frm_setoperator.Show ElseIf TreeView1.SelectedItem.key = "設(shè)置權(quán)限" And CZYQXSZ.Enabled = False Then MsgBox "對不起,您沒有操作此項(xiàng)功能的權(quán)限,請您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息" Exit Sub End If If TreeView1.SelectedItem.key = "日志清理" And RZQL.Enabled

43、= True Then Dim del Dim temp1 As String On Error Resume Next '錯(cuò)誤處理語句 del = MsgBox("確認(rèn)要清除庫存管理系統(tǒng)的日志信息嗎?", 17, "提示信息") If del = vbOK Then Kill (App.Path & "系統(tǒng)日志.ini") Open (App.Path & "系統(tǒng)日志.ini") For Output As #1 temp1 = " 操作員姓名 日期時(shí)間 操作類型" P

44、rint #1, temp1 Print #1, Close #1 MsgBox "日志清理成功完成!", , "提示信息" Else End If ElseIf TreeView1.SelectedItem.key = "日志清理" And RZQL.Enabled = False Then MsgBox "對不起,您沒有操作此項(xiàng)功能的權(quán)限,請您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息" Exit Sub End If If TreeView1.SelectedItem.key = &quo

45、t;查看日志" Then frm_look.Show End If If TreeView1.SelectedItem.key = "密碼修改" And MMXG.Enabled = True Then frm_Edit_Password.Show ElseIf TreeView1.SelectedItem.key = "密碼修改" And MMXG.Enabled = False Then MsgBox "對不起,您沒有操作此項(xiàng)功能的權(quán)限,請您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息" Exit Su

46、b End If If TreeView1.SelectedItem.key = "數(shù)據(jù)清理" And SJQL.Enabled = True Then frm_sfyz.Show ElseIf TreeView1.SelectedItem.key = "數(shù)據(jù)清理" And SJQL.Enabled = False Then MsgBox "對不起,您沒有操作此項(xiàng)功能的權(quán)限,請您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息" Exit Sub End If If TreeView1.SelectedItem.key

47、= "操作員管理" And CZYXXWH.Enabled = True Then frm_systemer.Show ElseIf TreeView1.SelectedItem.key = "操作員管理" And CZYXXWH.Enabled = False Then MsgBox "對不起,您沒有操作此項(xiàng)功能的權(quán)限,請您與系統(tǒng)管理員聯(lián)系!", 48, "提示信息" Exit Sub End If If TreeView1.SelectedItem.key = "供應(yīng)商信息" And GYSXXWH.Enabled = True Then frm_gys.Show ElseIf TreeView1.SelectedItem.key = "供應(yīng)商信息" And GYSXXWH.Enabled = False