畢業(yè)設(shè)計(jì)（論文）VB6.0+Access辦公用品管理系統(tǒng)設(shè)計(jì)（含源程序）

1、1 江蘇廣播電視大學(xué)五年制（高職） 辦公用品管理系統(tǒng)辦公用品管理系統(tǒng) 學(xué) 校： 江蘇電大張家港學(xué)院 年 級(jí)： 02 級(jí) 專 業(yè)： 計(jì)算機(jī)信息管理 姓 名： 學(xué) 號(hào)： 指導(dǎo)教師： 職稱：_講師_ 二 00 七 年 四 月 2 【摘摘 要要】: 辦公用品管理系統(tǒng)是辦公自動(dòng)化管理系統(tǒng)的重要組成部分，它可以對(duì)辦公用品的入庫和領(lǐng) 用進(jìn)行規(guī)范化管理，進(jìn)而提高工作效率，避免資源的浪費(fèi)。此系統(tǒng)根據(jù)單位的辦公用品的購買， 入庫，領(lǐng)用流程而設(shè)計(jì)的，特別適用于分批次購買，各部門領(lǐng)用的模式，具有完善的輸入，統(tǒng)計(jì)， 查詢功能。這樣就更可以合理規(guī)范對(duì)企業(yè)辦公用品的管理. 本論文將介紹辦公用品管理系統(tǒng)的設(shè)計(jì)和開發(fā)過程，采用

2、 visual basic 6.0 作為開發(fā)工具， access 作為后臺(tái)數(shù)據(jù)庫進(jìn)行開發(fā)，我有理由相信，基于計(jì)算機(jī)管理辦公用品的方案，有助于緩 解辦公用品人工管理上壓力與缺陷，為辦公用品管理的辦公自動(dòng)化創(chuàng)造條件。 【關(guān)鍵詞關(guān)鍵詞】: 辦公用品管理系統(tǒng)、數(shù)據(jù)庫、vb 6.0、access 目目 錄錄 3 【摘摘 要要】:】:.2 2 【關(guān)鍵詞關(guān)鍵詞】:】:.2 2 第一章第一章 選題說明及需求介紹選題說明及需求介紹.4 4 1.11.1 開發(fā)該系統(tǒng)的背景，目標(biāo)，意義開發(fā)該系統(tǒng)的背景，目標(biāo)，意義 .4 4 1.1.11.1.1 開發(fā)背景開發(fā)背景.4 4 1.1.21.1.2 系統(tǒng)開發(fā)目標(biāo)系統(tǒng)開發(fā)目

3、標(biāo).5 5 1.1.31.1.3 系統(tǒng)開發(fā)意義系統(tǒng)開發(fā)意義 .5 5 1.21.2 需求分析需求分析 .5 5 1.2.11.2.1 數(shù)據(jù)需求數(shù)據(jù)需求.5 5 1.2.21.2.2 功能需求功能需求 .6 6 1.2.31.2.3 系統(tǒng)流程圖系統(tǒng)流程圖.6 6 1 13 3 可行性分析可行性分析 .7 7 1.41.4 開發(fā)環(huán)境，開發(fā)工具介紹開發(fā)環(huán)境，開發(fā)工具介紹 .7 7 1.4.11.4.1 硬件環(huán)境和軟件環(huán)境硬件環(huán)境和軟件環(huán)境 .8 8 1.4.21.4.2 開發(fā)工具的選擇開發(fā)工具的選擇 .8 8 第二章第二章 數(shù)據(jù)庫設(shè)計(jì)說明數(shù)據(jù)庫設(shè)計(jì)說明.9 9 2.12.1 概念設(shè)計(jì)概念設(shè)計(jì) .9

4、9 2.22.2 建立數(shù)據(jù)庫，基本表建立數(shù)據(jù)庫，基本表 .1313 第三章第三章 辦公用品管理系統(tǒng)功能模塊設(shè)計(jì)辦公用品管理系統(tǒng)功能模塊設(shè)計(jì).1818 4 3.13.1 功能模塊功能模塊 .1818 3.1.13.1.1 系統(tǒng)用戶管理模塊系統(tǒng)用戶管理模塊 .1818 3.1.23.1.2 基本信息管理模塊基本信息管理模塊.1818 3.1.33.1.3 出庫信息管理模塊出庫信息管理模塊 .1818 3.1.43.1.4 進(jìn)貨信息管理模塊進(jìn)貨信息管理模塊.1919 3.1.53.1.5 庫存信息瀏覽模塊庫存信息瀏覽模塊.1919 3.1.63.1.6 綜合查詢模塊綜合查詢模塊.1919 3.23.

5、2 系統(tǒng)功能模塊圖系統(tǒng)功能模塊圖 .2020 第四章第四章 系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì).2121 4.14.1 系統(tǒng)用戶登錄模塊的設(shè)計(jì)系統(tǒng)用戶登錄模塊的設(shè)計(jì) .2121 4.24.2 系統(tǒng)主模塊的設(shè)計(jì)系統(tǒng)主模塊的設(shè)計(jì) .2222 4.34.3 系統(tǒng)用戶管理模塊的設(shè)計(jì)系統(tǒng)用戶管理模塊的設(shè)計(jì) .2424 4.44.4 基本信息管理模塊的設(shè)計(jì)基本信息管理模塊的設(shè)計(jì) .2626 4.54.5 出庫信息管理模塊的設(shè)計(jì)出庫信息管理模塊的設(shè)計(jì) .2828 4.64.6 進(jìn)貨信息管理模塊的設(shè)計(jì)進(jìn)貨信息管理模塊的設(shè)計(jì) .3030 4.74.7 庫存信息瀏覽模塊的設(shè)計(jì)庫存信息瀏覽模塊的設(shè)計(jì) .3232 4.84.8

6、 綜合查詢模塊的設(shè)計(jì)綜合查詢模塊的設(shè)計(jì) .3434 第五章第五章 系統(tǒng)運(yùn)行、調(diào)試情況、評(píng)價(jià)系統(tǒng)運(yùn)行、調(diào)試情況、評(píng)價(jià).3636 5.15.1 系統(tǒng)運(yùn)行系統(tǒng)運(yùn)行 .3636 5.25.2 系統(tǒng)的調(diào)試情況系統(tǒng)的調(diào)試情況 .3636 5 5.35.3 系統(tǒng)評(píng)價(jià)系統(tǒng)評(píng)價(jià) .3737 第六章第六章 總結(jié)總結(jié).3838 第七章第七章 致謝致謝.3939 參考文獻(xiàn)參考文獻(xiàn).3939 附錄：源代碼清單附錄：源代碼清單.4040 用戶登錄界面代碼用戶登錄界面代碼.4040 綜合查詢模塊代碼綜合查詢模塊代碼.4242 系統(tǒng)安全設(shè)置模塊代碼系統(tǒng)安全設(shè)置模塊代碼.4444 保管員管理模塊代碼保管員管理模塊代碼.4747

7、 商品設(shè)置管理模塊代碼商品設(shè)置管理模塊代碼.4949 進(jìn)貨信息查詢模塊代碼進(jìn)貨信息查詢模塊代碼.5151 員工管理模塊的代碼員工管理模塊的代碼.5454 供應(yīng)商信息管理模塊的代碼供應(yīng)商信息管理模塊的代碼.5656 第一章第一章 選題說明及需求介紹選題說明及需求介紹 1.11.1 開發(fā)該系統(tǒng)的背景，目標(biāo)，意義開發(fā)該系統(tǒng)的背景，目標(biāo)，意義 1.1.11.1.1 開發(fā)背景開發(fā)背景 6 當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代。各行各業(yè)都離不開信息處理。辦公室作為一種信息資源的 集散地，辦公用品和領(lǐng)用資料繁多，包含很多的信息數(shù)據(jù)的管理，現(xiàn)今，有很多的企業(yè)都是初步 開始使用，甚至尚未使用計(jì)算機(jī)進(jìn)行信息管理。他們以前

8、對(duì)信息管理的主要方式是基于文本、表 格等紙介質(zhì)的手工處理，對(duì)于庫存辦公用品的統(tǒng)計(jì)和核實(shí)等往往采用人工檢查進(jìn)行，數(shù)據(jù)信息處 理工作量大，容易出錯(cuò)；由于數(shù)據(jù)繁多，容易丟失，且不易查找。 因此有一個(gè)智能化、系統(tǒng)化、信息化的辦公用品管理系統(tǒng)十分重要的。充分利用計(jì)算機(jī)的功 能實(shí)現(xiàn)對(duì)入庫管理、領(lǐng)用管理，庫存信息查詢等自動(dòng)化控制，將會(huì)使辦公用品管理工作大大減弱。 方便友好的圖形界面、簡便的操作、完善的數(shù)據(jù)庫管理。將會(huì)使得辦公用品管理系統(tǒng)極大限度的 應(yīng)用于現(xiàn)代化企業(yè)辦公之中。 1.1.21.1.2 系統(tǒng)開發(fā)目標(biāo)系統(tǒng)開發(fā)目標(biāo) 建立辦公用品管理系統(tǒng)，采用計(jì)算機(jī)對(duì)公司用品進(jìn)行管理，進(jìn)一步提高辦學(xué)效益和現(xiàn)代化水平.幫

9、 助廣大職員提高工作效率，實(shí)現(xiàn)辦公用品信息管理工作流程的系統(tǒng)化、規(guī)范化和自動(dòng)化。 1.1.31.1.3 系統(tǒng)開發(fā)意義系統(tǒng)開發(fā)意義 辦公用品管理系統(tǒng)是為各個(gè)企、事業(yè)單位做鋪設(shè)計(jì)服務(wù)的，是企、事業(yè)不可或缺的一個(gè)軟件。 這是一款針對(duì)中小企業(yè)設(shè)計(jì)的程序。有了它，您可以輕松管理您的數(shù)據(jù)庫，方便的進(jìn)行用品管理， 靈活的搜索和查詢功能使您完全擺脫傳統(tǒng)管理模式下經(jīng)營者面對(duì)龐大的辦公用品，不知道有哪些 用品，缺哪些物品，數(shù)量有多少。 總的來說，本系統(tǒng)提高了對(duì)辦公用品管理的效率，降低管理成本，能幫助維護(hù)企業(yè)的正常辦 公用品借還秩序， 滿足企業(yè)對(duì)辦公用品的管理正?；?、合理化、科學(xué)化。因此，本系統(tǒng)的出現(xiàn)， 將對(duì)辦公用

10、品管理的進(jìn)一步發(fā)展提供決策支持。 1.21.2 需求分析需求分析 1.2.11.2.1 數(shù)據(jù)需求數(shù)據(jù)需求 針對(duì)辦公用品管理系統(tǒng)的需求，通過對(duì)入庫，出庫以及辦公用品信息的添加等操作的數(shù)據(jù)需 求分析，為本系統(tǒng)的辦公用品數(shù)據(jù)庫設(shè)計(jì)如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 員工信息：用戶編號(hào)，姓名，電話，手機(jī)，聯(lián)系地址。 保管員信息：員工編號(hào)，姓名，性別，電話，地址，備注。 7 出庫信息：出庫編號(hào)，出庫方式，商品編號(hào)，售價(jià)，數(shù)量，結(jié)帳方式，數(shù)額，員工編號(hào)，用 戶編號(hào)，日期，備注。 供應(yīng)商信息：供應(yīng)商編號(hào)，供應(yīng)商名稱，聯(lián)系人，聯(lián)系電話，聯(lián)系地址，備注。 進(jìn)貨信息：進(jìn)貨編號(hào)，供應(yīng)商編號(hào)，商品編號(hào)，結(jié)帳方式，單價(jià)，數(shù)量，總

11、額，日期，備注。 庫存信息：庫存編號(hào)，商品編號(hào)，商品名稱，數(shù)量。 商品信息：商品編號(hào)，商品名稱，零售價(jià)，批發(fā)價(jià)，供應(yīng)商名稱，備注。 系統(tǒng)信息：用戶名，密碼，權(quán)限。 1.2.21.2.2 功能需求功能需求 辦公用品管理系統(tǒng)的用戶是各單位管理辦公用品的員工和領(lǐng)導(dǎo)。該系統(tǒng)主要包括六大功能模 塊，分別為：系統(tǒng)用戶管理模塊、基本信息管理模塊、出庫信息管理模塊、進(jìn)貨信息管理模塊、 庫存信息管理模塊和綜合查詢模塊。 （1）系統(tǒng)用戶管理模塊 進(jìn)入系統(tǒng)后就可以使用系統(tǒng)管理模塊，該模塊包括對(duì)系統(tǒng)數(shù)據(jù)的清空、用戶名和密碼的修改、數(shù) 據(jù)備份、恢復(fù)、系統(tǒng)初始化和退出等功能。 （2）基本信息管理模塊 基本信息管理模塊包括

12、對(duì)基本信息的添加、修改、刪除和查詢等功能?；拘畔ǚ诸悺⒉块T 和供應(yīng)商等內(nèi)容，為以下模塊提供依據(jù)。 （3）出庫信息管理模塊 出庫信息管理模塊包括對(duì)辦公用品信息的添加、修改、刪除、查詢和打印等功能。 （4）進(jìn)貨信息管理模塊 進(jìn)貨信息管理模塊包括對(duì)辦公用品信息的添加、修改、刪除、查詢和打印等功能。 （5）庫存信息瀏覽模塊 庫存信息管理模塊包括對(duì)庫存信息的統(tǒng)計(jì)和打印等功能。 （6）綜合查詢模塊 綜合查詢模塊包括對(duì)供應(yīng)商信息、商品信息、保管員信息和員工信息的查詢和打印等功能。 1.2.31.2.3 系統(tǒng)流程圖系統(tǒng)流程圖 8 圖 1.1 系統(tǒng)流程圖 1 13 3 可行性分析可行性分析 1.技術(shù)可行性

13、： 本系統(tǒng)的開發(fā)，使用 visual basic6.0 作為系統(tǒng)開發(fā)的開發(fā)環(huán)境，它作為一種現(xiàn)代的編程語 言，給開發(fā)高性能系統(tǒng)提供的保障為開發(fā)滿足客戶要求的系統(tǒng)。并且利用 access2000 數(shù)據(jù)庫,由 于 access2000 數(shù)據(jù)庫所占用的系統(tǒng)資源較小，功能完善、靈活，因此比較適合客戶資源管理系 統(tǒng)的開發(fā)，在技術(shù)上的準(zhǔn)備應(yīng)該不成問題。 2.經(jīng)濟(jì)可行性： 現(xiàn)在，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步，該系統(tǒng)可以代替人工進(jìn)行繁雜 的工作，節(jié)省許多資源，還可以大大提高工作效率，所以從人力、物力、財(cái)力方面來說都是可行 的。 1.41.4 開發(fā)環(huán)境，開發(fā)工具介紹開發(fā)環(huán)境，開發(fā)工具介紹 9 1

14、.4.11.4.1 硬件環(huán)境和軟件環(huán)境硬件環(huán)境和軟件環(huán)境 1.硬件環(huán)境： 平臺(tái)： microsoft windows xp/2000 內(nèi)存：256mb 應(yīng)用： 40mb 硬盤存儲(chǔ)空間：40gb，建議 80gb 2.軟件環(huán)境： 操作系統(tǒng)：windows xp 1.4.21.4.2 開發(fā)工具的選擇開發(fā)工具的選擇 本系統(tǒng)以 visual basic 6.0 為前臺(tái)開發(fā)工具，access 2000 為后臺(tái)數(shù)據(jù)庫。 visual basic 6.0 是 90 年代 microsoft 公司推出的以結(jié)構(gòu)化 basic 語言為基礎(chǔ)，以“事件驅(qū) 動(dòng)”為運(yùn)行機(jī)制的新一代可視化設(shè)計(jì)語言。采取“事件驅(qū)動(dòng)”方式在設(shè)計(jì)

15、好用戶界面后才開始編 寫程序。vb 中的編程與傳統(tǒng)的編程方法不同。visual basic 改變了程序的機(jī)制，沒有傳統(tǒng)意義 上的主程序，使程序執(zhí)行的基本方法是由“事件”來驅(qū)動(dòng)子程序的運(yùn)行。例如登錄用戶界面上的 “確定”按鈕，用戶用鼠標(biāo)單擊此鈕，就產(chǎn)生一個(gè)“單擊鼠標(biāo)事件” 。由此執(zhí)行一個(gè)相應(yīng)的“單 擊鼠標(biāo)過程” ，該過程應(yīng)執(zhí)行將登錄到系統(tǒng)主界面上的操作，單擊“取消”按鈕，該過程應(yīng)執(zhí)行 退出登錄界面。 access 中文版是 microsoft office 2000 套裝軟件的數(shù)據(jù)庫管理系統(tǒng)軟件，是目前比較流行的 小型桌面數(shù)據(jù)庫管理系統(tǒng)，它適用于小型企業(yè)、學(xué)校、個(gè)人等用戶，可以通過多種方式實(shí)現(xiàn)對(duì)

16、數(shù) 據(jù)收集、分類、篩選處理，提供用戶查詢或打印報(bào)表。 第 10 頁 第二章第二章 數(shù)據(jù)庫設(shè)計(jì)說明數(shù)據(jù)庫設(shè)計(jì)說明 2.12.1 概念設(shè)計(jì)概念設(shè)計(jì) 概要設(shè)計(jì)基礎(chǔ)是完成需求分析后提供的需求說明書，用概念數(shù)據(jù)模型表示數(shù)據(jù)及其相互間的 關(guān)系，概念設(shè)計(jì)中自頂向下的實(shí)體分析方法，即常用的實(shí)體聯(lián)系模型(簡稱 e-r 模型)，對(duì)具體數(shù) 據(jù)進(jìn)行抽象加工，將實(shí)體集合抽象成實(shí)體類型。用實(shí)體間聯(lián)系反映現(xiàn)實(shí)世界事物間的內(nèi)在聯(lián)系。 e-r 模型是建立概念性數(shù)據(jù)模型的有力工具。 根據(jù)需求分析規(guī)劃出的實(shí)體，相關(guān) e-r 圖有：保管員信息 e-r 圖、出庫信息 e-r 圖、供應(yīng) 商信息 e-r 圖、進(jìn)貨信息 e-r 圖、庫存信息

17、 e-r 圖、商品信息 e-r 圖、員工信息 e-r 圖、用戶信 息 e-r 圖。 各個(gè)實(shí)體具體的描述-圖如下： 保管員信息 員工編號(hào) 姓名 性別 電話 地址 備注 圖 2.1 保管員信息 e-r 圖 第 11 頁 出庫信息 息 商品編號(hào) 售價(jià) 結(jié)帳方式 數(shù)量 數(shù)額 員工編號(hào) 備注 日期 用戶編號(hào) 記錄編號(hào) 出庫編號(hào) 出庫方式 圖 2.2 出庫信息 e-r 圖 供應(yīng)商信息 供應(yīng)商編號(hào) 供應(yīng)商名稱 聯(lián)系人 聯(lián)系電話 話 聯(lián)系地址 備注 圖 2.3 供應(yīng)商信息 e-r 圖 第 12 頁 進(jìn)貨信息 進(jìn)貨編號(hào) 編號(hào) 商品編號(hào) 結(jié)帳方式 單價(jià) 數(shù)量 總額 日期 備注 圖 2.4 進(jìn)貨信息 e-r 圖 庫

18、存信息 商品編號(hào) 庫存編號(hào)數(shù)量 商品名稱 圖 2.5 庫存信息 e-r 圖 記錄編號(hào) 供應(yīng)商編號(hào) 第 13 頁 商品信息 商品編號(hào) 商品名稱 零售價(jià) 批發(fā)價(jià) 話 供應(yīng)商名稱 備注 圖 2.6 商品信息 e-r 圖 員工信息 用戶編號(hào) 姓名 電話 手機(jī) 聯(lián)系地址 備注 圖 2.7 員工信息 e-r 圖 用戶信息 用戶名 密碼 權(quán)限 圖 2.8 用戶信息 e-r 圖 第 14 頁 2.22.2 建立數(shù)據(jù)庫，基本表建立數(shù)據(jù)庫，基本表 根據(jù)上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為 access server 2000 數(shù)據(jù)庫系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型， 也就是數(shù)據(jù)庫的表結(jié)構(gòu)設(shè)計(jì)。 本系統(tǒng)所涉及到 8 個(gè)數(shù)據(jù)表，分別表

19、示為：表 2.1 為保管員信息表，用來保存保管員的信 息；表 2.2 為出庫信息表，用來保存商品出庫的信息；表 2.3 為供應(yīng)商信息表，用來保存供應(yīng)商 的信息；表 2.4 為進(jìn)貨信息表，用來保存進(jìn)貨的信息；表 2.5 為庫存信息表，用來保存庫存商品 的信息；表 2.6 為商品信息表，商品表用來保存系統(tǒng)中的商品信息；表 2.7 為員工信息表，用 來保存員工的信息；表 2.8 為用戶信息表，用來保存用戶的信息。 表 2.1 保管員信息表 編號(hào)字段名稱數(shù)據(jù)類型說明 1 員工編號(hào)文本，長度 50保管員編號(hào)，主鍵 2 姓名文本，長度 50保管員姓名 3 性別文本，長度 50保管員性別 4 電話文本，長度

20、 50聯(lián)系電話 5 地址文本，長度 50聯(lián)系地址 6 備注備注備注信息 第 15 頁 表 2.2 出庫信息表 編號(hào)字段名稱數(shù)據(jù)類型說明 1id 自動(dòng)編號(hào) 商品排列編號(hào)，主鍵 2 出庫編號(hào)文本，長度 50 出庫編號(hào) 3 出庫方式文本，長度 50 出庫方式 4 商品編號(hào)文本，長度 50 商品編號(hào) 5 售價(jià)貨幣 商品單價(jià) 6 數(shù)量數(shù)字/長整型 商品數(shù)量 7 結(jié)帳方式文本，長度 50 結(jié)帳方式 8 數(shù)額貨幣 商品總額 9 員工編號(hào)文本，長度 50 員工編號(hào) 10 用戶編號(hào)文本，長度 50 用戶編號(hào) 11 日期日期/時(shí)間 出庫日期 12 備注備注 備注信息 第 16 頁 編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1 供

21、應(yīng)商編號(hào)文本，長度 50 供應(yīng)商編號(hào)，主鍵 2 供應(yīng)商名稱文本，長度 50 供應(yīng)商名稱 3 聯(lián)系人文本，長度 50 聯(lián)系人 4 聯(lián)系電話文本，長度 50 聯(lián)系電話 5 聯(lián)系地址文本，長度 100 聯(lián)系地址 6 備注備注 備注信息 表 2.3 供應(yīng)商信息表 編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1id 自動(dòng)編號(hào) 商品排列編號(hào)，主鍵 2 進(jìn)貨編號(hào)文本，長度 50 進(jìn)貨編號(hào) 3 供應(yīng)商編號(hào)文本，長度 50 供應(yīng)商編號(hào) 4 商品編號(hào)文本，長度 50 商品編號(hào) 5 結(jié)帳方式文本，長度 50 結(jié)帳方式 6 單價(jià)貨幣 商品單價(jià) 7 數(shù)量數(shù)字/長整型 商品數(shù)量 8 總額數(shù)字/長整型 商品總額 9 日期日期/時(shí)間 進(jìn)貨日期

22、 10 備注備注 備注信息 表 2.4 進(jìn)貨信息表 第 17 頁 編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明 1 庫存編號(hào)自動(dòng)編號(hào) 庫存編號(hào)，主鍵 2 商品編號(hào)文本，長度 50 商品編號(hào) 3 商品名稱文本，長度 50 商品名稱 4 數(shù)量數(shù)字/長整型商品數(shù)量 表 2.5 庫存信息表 編號(hào)字段名稱數(shù)據(jù)類型說明 1 商品編號(hào)文本商品編號(hào)，主鍵 2 商品名稱文本商品名稱 3 零售價(jià)貨幣商品零售價(jià) 4 批發(fā)價(jià)貨幣商品批發(fā)價(jià) 5 供應(yīng)商名稱文本供應(yīng)商名稱 6 備注備注信息備注 表 2.6 商品信息表 編號(hào)字段名稱數(shù)據(jù)類型說明 1 用戶編號(hào)文本用戶編號(hào)，主鍵 2 姓名文本員工姓名 3 電話文本員工電話 4 手機(jī)文本員工手機(jī)

23、5 聯(lián)系地址文本聯(lián)系地址 6 備注備注備注信息 表 2.7 員工信息表 第 18 頁 編號(hào)字段名稱數(shù)據(jù)類型說明 1 用戶名文本用戶名，主鍵 2 密碼文本登陸密碼 3 權(quán)限數(shù)字管理權(quán)限 表 2.8 用戶信息表 第 19 頁 第三章第三章 辦公用品管理系統(tǒng)功能模塊設(shè)計(jì)辦公用品管理系統(tǒng)功能模塊設(shè)計(jì) 3.13.1 功能模塊功能模塊 辦公用品管理系統(tǒng)的用戶是各單位管理辦公用品的員工和領(lǐng)導(dǎo)，該系統(tǒng)包括六大模塊，分 別為：系統(tǒng)用戶管理模塊、基本信息管理模塊、出庫信息管理模塊、進(jìn)貨信息管理模塊、庫存信 息瀏覽模塊和綜合查詢模塊。 3.1.13.1.1 系統(tǒng)用戶管理模塊系統(tǒng)用戶管理模塊 系統(tǒng)用戶管理模塊包括數(shù)據(jù)

24、備份、數(shù)據(jù)恢復(fù)、注銷、安全設(shè)置、系統(tǒng)初始化。 安全設(shè)置主要實(shí)現(xiàn)對(duì)用戶名和密碼的修改功能。 3.1.23.1.2 基本信息管理模塊基本信息管理模塊 基本信息的添加、修改、刪除和查詢?；拘畔⒐芾砟K包括供應(yīng)商設(shè)置、商品設(shè)置、保 管員設(shè)置、員工管理。此功能為辦公用品管理模塊和數(shù)據(jù)統(tǒng)計(jì)模塊提供依據(jù)。 供應(yīng)商設(shè)置主要實(shí)現(xiàn)添加、修改和刪除供應(yīng)商信息等功能。 商品設(shè)置主要實(shí)現(xiàn)添加、修改和刪除商品信息等功能。 保管員設(shè)置主要實(shí)現(xiàn)添加、修改和刪除保管員信息等功能。 員工管理主要實(shí)現(xiàn)添加、修改和刪除員工信息等功能。 3.1.33.1.3 出庫信息管理模塊出庫信息管理模塊 出庫信息管理模塊包括出庫信息錄入、出庫信

25、息查詢、保管員出庫查詢。 出庫信息錄入主要實(shí)現(xiàn)對(duì)出庫信息的保存、修改與刪除等功能。 出庫信息查詢主要實(shí)現(xiàn)按日期、日期間隔、編號(hào)分別查詢的功能。 第 20 頁 保管員出庫查詢主要實(shí)現(xiàn)對(duì)保管員的出庫的信息查詢的功能。 3.1.43.1.4 進(jìn)貨信息管理模塊進(jìn)貨信息管理模塊 進(jìn)貨信息管理模塊包括進(jìn)貨信息錄入、按日期間隔查詢、按日期查詢匯總。 進(jìn)貨信息錄入主要實(shí)現(xiàn)對(duì)出庫信息的保存、修改與刪除等功能。 按日期間隔查詢主要實(shí)現(xiàn)對(duì)商品的進(jìn)貨的信息按日期間隔查詢的功能。 按日期查詢匯總主要實(shí)現(xiàn)對(duì)商品的進(jìn)貨的信息按日期查詢并分類匯總的功能。 3.1.53.1.5 庫存信息瀏覽模塊庫存信息瀏覽模塊 庫存信息管理模

26、塊主要實(shí)現(xiàn)對(duì)庫存信息的統(tǒng)計(jì)和打印等功能。 3.1.63.1.6 綜合查詢模塊綜合查詢模塊 綜合查詢模塊主要實(shí)現(xiàn)對(duì)供應(yīng)商信息、商品信息、保管員信息和員工信息的查詢和打印等功 能。 第 21 頁 3.23.2 系統(tǒng)功能模塊圖系統(tǒng)功能模塊圖 根據(jù)以上系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)以及上一章節(jié)的系統(tǒng)功能分析，得出圖 3.1 所示的系統(tǒng)各個(gè)功能模 塊圖。見下圖： 辦公用品管理系統(tǒng) 基本信息管理 出庫信息管理 進(jìn)貨信息管理 庫存信息瀏覽 安全設(shè)置 系統(tǒng)初始化 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 圖 3.1 系統(tǒng)功能模塊圖 數(shù)據(jù)備份 數(shù)據(jù)恢復(fù) 注銷 系統(tǒng)用戶管理 綜合查

27、詢 數(shù)據(jù)備份 第 22 頁 第四章第四章 系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì) 4.14.1 系統(tǒng)用戶登錄系統(tǒng)用戶登錄模塊的設(shè)計(jì)模塊的設(shè)計(jì) 用戶登錄界面，主要實(shí)現(xiàn)兩個(gè)功能： 連接數(shù)據(jù)庫 檢驗(yàn)用戶登錄 圖 4.1 為所示的系統(tǒng)用戶登錄界面，表 4.1 所示系統(tǒng)登錄界面包含的控件及其屬性。 圖 4.1 系統(tǒng)的登陸 對(duì)象名屬性屬性值 labuser(0)label 用戶名： labuser(1)label 密碼： tbusernametextbox 空 tbpwdtextbox 空 cmdtcommandbutton 確定 cmdfcommandbutton 取消 表 4.1 系統(tǒng)登錄界面包含的控件及其屬性 窗

28、體功能實(shí)現(xiàn)： 在用戶登錄界面，我們主要實(shí)現(xiàn)【確定】和【取消】兩個(gè)按鈕的功能，當(dāng)用戶單擊【確 定】按鈕后，程序應(yīng)該檢驗(yàn)用戶輸入的用戶名是否存在，密碼是否正確，正確則將用戶資料 第 23 頁 存入內(nèi)存并進(jìn)入系統(tǒng)。如果單擊【取消】按鈕則退出程序。 4.2 系統(tǒng)主系統(tǒng)主模塊的設(shè)計(jì)模塊的設(shè)計(jì) 公司辦公用品管理系統(tǒng)的主界面，此界面主要有以下幾個(gè)功能： 系統(tǒng)用戶管理 基本信息管理 出庫信息管理 進(jìn)貨信息管理 庫存信息瀏覽 綜合查詢 如圖 4.2 系統(tǒng)的主界面，表 4.2 菜單項(xiàng)的屬性。 第 24 頁 圖 4.2 系統(tǒng)主界面 標(biāo)題對(duì)象名 系統(tǒng)（&s） system 注銷(&o) logout 安全設(shè)置(&a)

29、 aqset -spitbak 數(shù)據(jù)備份 mdbbak 數(shù)據(jù)恢復(fù) restores -spitsys 系統(tǒng)初始化 initsystem 退出(&q) quit 基本信息設(shè)置 jbset 供應(yīng)商設(shè)置(&g) gys 商品設(shè)置(&p) sp 保管員管理 yginfo 員工管理 kumanage 出庫信息管理 sale 出庫信息錄入 salewrite 出庫信息查詢 salesearch 按日期間隔查詢 searchdate 按日期查詢 searchday 按編號(hào)查詢 searchid 保管員出庫查詢 ygsale 進(jìn)貨信息管理 ininfo 進(jìn)貨信息錄入 jh 第 25 頁 按日期間隔查詢 jhs

30、earch 按日期查詢匯總 jhinfofind 庫存信息瀏覽 store 綜合查詢 zhcx 基本信息查詢 jbxxcx 幫助(&h) help 關(guān)于 about 表 4.2 菜單項(xiàng)的屬性 4.34.3 系統(tǒng)用戶管理模塊的設(shè)計(jì)系統(tǒng)用戶管理模塊的設(shè)計(jì) 用戶管理模塊包括用戶信息管理和修改自身密碼。 (1) 用戶信息管理界面 如下圖：圖 4.3 用戶信息管理界面，表 4.3 用戶信息管理界面包含的屬性及其控件。 圖 4.3 用戶信息管理界面 第 26 頁 對(duì)象名屬性屬性名 sstab1sstab frame2frame 用戶名設(shè)置 label1(3)label 原用戶名 textoldnamete

31、xtbox label1(4)label 新用戶名 textnewnametextbox label1(5)label 輸入密碼 textpwdtextbox cmdtruecommandbutton 確認(rèn) cmdresetcommandbutton 重填 cmdbackcommandbutton 返回 sstab1sstab 密碼修改 frame1frame 安全設(shè)置 label1(0)label 原密碼 txtoldpwdtextbox label1(1)label 新密碼 txtnewpwdtextbox label1(2)label 確認(rèn)密碼 txtnewpwd2textbox com

32、mand1commandbutton 確認(rèn) 第 27 頁 command3commandbutton 重填 command2commandbutton 返回 表 4.3 用戶信息管理界面包含的屬性及其控件 4.44.4 基本信息管理模塊的設(shè)計(jì)基本信息管理模塊的設(shè)計(jì) 基本信息管理模塊包括供應(yīng)商設(shè)置、商品設(shè)置、保管員設(shè)置、員工管理。主要實(shí)現(xiàn)基本信息 的添加、修改、刪除和查詢。如下圖所示：圖 4.4.1 保管員信息管理界面，表 4.4.2 保管員信息 管理界面包含的屬性及控件。圖 4.4.2 商品設(shè)置界面，表 4.4.2 商品設(shè)置界面包含的屬性及其控 件。其他類似。 圖 4.4.1 保管員信息管理界

33、面 第 28 頁 表 4.4.1 保管員信息管理界面包含的屬性及其控件 圖 4.4.2 商品設(shè)置界面 對(duì)象名屬性屬性值 label1label 保管員信息管理 frame2frame 保管員信息瀏覽 sglistmsflexgeid frame1frame command1commandbutton 添加 command2commandbutton 修改 command3commandbutton 刪除 command4commandbutton 返回 第 29 頁 對(duì)象名屬性屬性值 label1label 商品信息瀏覽 frame2frame 商品信息瀏覽 sglistmsflexgeid

34、frame1frame command1commandbutton 添加 command2commandbutton 修改 command3commandbutton 刪除 command4commandbutton 返回 表 4.4.2 商品設(shè)置界面包含的屬性及其控件 4.54.5 出庫信息管理模塊的設(shè)計(jì)出庫信息管理模塊的設(shè)計(jì) 做為辦公用品管理系統(tǒng)，入庫以及出庫是它核心實(shí)現(xiàn)的兩大功能，出庫時(shí)應(yīng)該注意在庫存數(shù) 量上減去出庫數(shù)量以及在修改時(shí)注意還原庫存可用量。如圖 4.5 出庫信息界面，表 4.5 出庫信息 界面包含的屬性及其控件。 第 30 頁 圖 4.5 出庫信息界面 對(duì)象名屬性屬性值 fr

35、ame1frame1 出庫登記 label(0)label 出庫編號(hào) textxs(0)textbox label(1)label 出庫方式 combo3combobox 零售 label(3)label 商品名稱 combo4combobox label(4)label 售價(jià) textxs(1)textbox label(5)label 數(shù)量 textxs(2)textbox 第 31 頁 label(6)label 結(jié)帳方式 combo5combobox 現(xiàn)金 label(7)label 數(shù)額 textxs(3)textbox label(8)label 保管員姓名 combo6combo

36、box label(9)label 員工姓名 combo7combobox label(10)label 日期 dtpickersaledtpicker label(11)label 備注 textxs(4)textbox labpslabel 配送地址 frame8frame 操作 command6commandbutton 保存 cmdchangecommandbutton 修改與刪除 command7commandbutton 取消 表 4.5 出庫信息界面包含的屬性及其控件 4.64.6 進(jìn)貨信息管理模塊的設(shè)計(jì)進(jìn)貨信息管理模塊的設(shè)計(jì) 在進(jìn)貨信息管理界面可以對(duì)辦公用品信息的添加、修改、刪

37、除、查詢和打印等。如圖 4.6 進(jìn)貨信息界面，表 4.6 進(jìn)貨信息界面包含的屬性及其控件。 第 32 頁 圖 4.6 進(jìn)貨信息界面 combo2combobox labjh(3)label 單價(jià)： textjh(1)textbox labjh(4)label 數(shù)量： textjh(2)textbox labjh(5)label 數(shù)額： textjh(3)textbox labjh(6)label 日期： dtpickerjhdtpicker labjh(7)label 備注： textjh(4)textbox 第 33 頁 frame3frame 操作 command1commandbutto

38、n 保存 command2commandbutton 修改與刪除 command3commandbutton 取消 表 4.6 進(jìn)貨信息界面包含的屬性及其控件 4.74.7 庫存信息瀏覽模塊的設(shè)計(jì)庫存信息瀏覽模塊的設(shè)計(jì) 庫存信息管理模塊主要實(shí)現(xiàn)對(duì)庫存信息的統(tǒng)計(jì)和打印等功能。如圖 4.7.1 庫存信息瀏覽界面， 表 4.7 庫存信息瀏覽界面包含的屬性及控件。 圖 4.7.1 庫存信息瀏覽界面 第 34 頁 對(duì)象屬性屬性值 frame1frame1 庫存信息瀏覽 label(0)label 庫存編號(hào) textxs(0)textbox label(1)label 商品編號(hào) textxs(1)text

39、box label(2)label 商品名稱 textxs(2)textbox label(3)label 數(shù)量 textxs(3)textbox cmdprientcommandbutton 打印 表 4.7 庫存信息瀏覽界面包含的屬性及控件 庫存信息瀏覽界面上有個(gè)報(bào)表打印功能，如下圖 4.7.2 為在查詢庫存信息后的打印預(yù)覽： 第 35 頁 4.84.8 綜合查詢模塊的設(shè)計(jì)綜合查詢模塊的設(shè)計(jì) 在整個(gè)辦公用品管理系統(tǒng)中，每天都交換著大量的錄入與商品領(lǐng)用信息，如果不能建立一個(gè) 有效的檢索機(jī)制，那將是使辦公用品管理系統(tǒng)的效率大大降低，因此，本次開發(fā)提供了一個(gè)功能 全面的綜合查詢系統(tǒng)。如下所示，圖

40、 4.8.1 綜合查詢界面，表 4.8.1 綜合查詢界面包含的屬性及其 控件。 圖 4.8.1 綜合查詢 對(duì)象名屬性屬性值 frame1frame label1label 選擇查詢對(duì)象: combo1combobox command1commandbutton 查詢 command2commandbutton 退出 第 36 頁 cmdprientcommandbutton 打印 picturekfpicturebox optkf(0)optionbutton 員工編號(hào) textkf(0)textbox optkf(1)optionbutton 員工姓名 textkf(1)textbox op

41、tkf(2)optionbutton 聯(lián)系電話 textkf(2)textbox optkf(3)optionbutton 手機(jī)號(hào)碼 textkf(3)textbox datagridshowdatagrid 表 4.8.1 綜合查詢界面包含的屬性及其控件 綜合查詢窗體上有個(gè)報(bào)表打印功能，如下圖 4.8.2 為在查詢商品信息后的打印預(yù)覽： 圖圖 4.8.2 綜合查詢報(bào)表界面 第 37 頁 第五章第五章 系統(tǒng)運(yùn)行、調(diào)試情況、評(píng)價(jià)系統(tǒng)運(yùn)行、調(diào)試情況、評(píng)價(jià) 5.15.1 系統(tǒng)運(yùn)行系統(tǒng)運(yùn)行 1、怎樣進(jìn)入系統(tǒng) 將本系統(tǒng)所在的文件夾拷貝到硬盤，然后執(zhí)行其中的喬奇諾公司客戶資源管理系統(tǒng)的程序 文件即可，應(yīng)注

42、意要將全部文件的屬性變以存檔，消除只讀屬性。 （前提：本系統(tǒng)的運(yùn)行環(huán)境中要安裝有 visual basic 6.0 中文版） 2、怎樣使用本系統(tǒng)： 本系統(tǒng)的使用相應(yīng)簡單，基本上只要會(huì)使用 windows 軟件就會(huì)使用本系統(tǒng)，在具體的操作 時(shí)，只需點(diǎn)擊鼠標(biāo)左鍵即可進(jìn)行相應(yīng)功能的選擇。 3、系統(tǒng)的維護(hù)： 本系統(tǒng)是個(gè)較復(fù)雜的人-機(jī)系統(tǒng)，由于系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運(yùn) 行，同時(shí)需要系統(tǒng)不斷地適應(yīng)這些變化，不斷地完善系統(tǒng)，以提高系統(tǒng)運(yùn)行的效率與服務(wù)水平， 這就需要自始至終進(jìn)行系統(tǒng)的維護(hù)工作。 5.25.2 系統(tǒng)的調(diào)試情況系統(tǒng)的調(diào)試情況 在進(jìn)行系統(tǒng)運(yùn)行時(shí)，我碰到了許許多多的問題，比如說

43、：在進(jìn)入登錄界面時(shí)，三次輸入密 碼不正確系統(tǒng)是要自動(dòng)關(guān)閉的，而一開始我忘了對(duì)其設(shè)置，在進(jìn)行登錄時(shí)，我故意輸錯(cuò)了三次密 碼，可是系統(tǒng)并沒自動(dòng)關(guān)閉，在程序代碼中我又重新對(duì)其進(jìn)行了設(shè)置，這樣這個(gè)功能才得以實(shí)現(xiàn)。 第 38 頁 5.35.3 系統(tǒng)評(píng)價(jià)系統(tǒng)評(píng)價(jià) 我所開發(fā)的系統(tǒng)只是一個(gè)小型系統(tǒng)，基本上達(dá)到了需求分析階段所提出的目標(biāo)，經(jīng)過上機(jī)調(diào) 試，功能基本實(shí)現(xiàn)。在歷時(shí)將近兩個(gè)月的時(shí)間里，我遇到了若干個(gè)問題和解決了不少的問題。 界面友好、操作簡單、易于維護(hù)、方便、效率高好等是本管理系統(tǒng)的優(yōu)點(diǎn)。 但因?yàn)闂l件的限制，該管理系統(tǒng)的功能還不是很全面，到現(xiàn)在還有未知安全性和可靠性的 未能發(fā)現(xiàn)和解決。 第 39 頁 第

44、六章第六章 總結(jié)總結(jié) 短短的 2 個(gè)多月過去了，畢業(yè)設(shè)計(jì)的任務(wù)終于完成了。通過一個(gè)完整的辦公用品管理信息 系統(tǒng)的創(chuàng)建，了解到一個(gè)數(shù)據(jù)庫系統(tǒng)的開發(fā)，即是前臺(tái)和后臺(tái)的開發(fā)。我在整個(gè)設(shè)計(jì)過程中，主 要使用了 vb 程序設(shè)計(jì)語言，我覺得 vb 在實(shí)際操作中很實(shí)用，而且 vb 程序設(shè)計(jì)語言具有強(qiáng)大的 可視化程序設(shè)計(jì)和面向?qū)ο蟪绦蛟O(shè)計(jì)的功能。對(duì)我們初學(xué)者來說，vb 簡單易學(xué)，簡化了復(fù)雜的 界面設(shè)計(jì)工作。本次設(shè)計(jì)完成了對(duì)辦公用品信息管理的實(shí)現(xiàn)，設(shè)計(jì)中還采用了 access 數(shù)據(jù)庫技 術(shù)等等。 通過開發(fā)這個(gè)系統(tǒng)，使我對(duì) visual basic 有了一定的認(rèn)識(shí)和了解，也使我對(duì) access 數(shù)據(jù)庫 的開發(fā)有所

45、了解，同時(shí)，也使我自己認(rèn)識(shí)到所學(xué)的知識(shí)還很膚淺，這也正是我今后需要努 力提高的。 但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè) 計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。 第 40 頁 第七章第七章 致謝致謝 此次畢業(yè)設(shè)計(jì)是在我指導(dǎo)老師的精心指導(dǎo)下完成的，特別是指導(dǎo)老師從課題的選擇、方案論 證、論文的修改方面，都盡其所能給予了我很多的指導(dǎo)與幫助。同時(shí)，還有同學(xué)們的支持和鼓勵(lì)， 在此衷心的感謝他們！ 通過這次畢業(yè)設(shè)計(jì)，我不但鞏固了以前所學(xué)的知識(shí)，增強(qiáng)了知識(shí)間的聯(lián)系，而且學(xué)到了好多 新的理論知識(shí)。同時(shí)，也增強(qiáng)了我的思維和動(dòng)手能力。另外在這次畢業(yè)設(shè)計(jì)過程中，我學(xué)習(xí)

46、了有 關(guān) vb 和 access 的一些新知識(shí)，收益匪淺。 最后，向始終關(guān)心、支持和幫助我的老師和同學(xué)致以誠摯的謝意。 參考文獻(xiàn)參考文獻(xiàn) 1 李光明.visual basic 6.0 編程實(shí)例.大制作冶金工業(yè)出版社.2004.06 2 劉炳文.精通 visual basic 6.0 入門與提高.人民郵電出版社.2003.02 3 bob reselman.visual basic 6.0 使用指南.電子工業(yè)出版社.2002.06 4 溫小敏.visual basic 數(shù)據(jù)庫系統(tǒng)項(xiàng)目開發(fā)實(shí)踐.科學(xué)出版社.2004.07 5 三味工作室編著. access 2000.人民郵電出版社.2000 6

47、microsoft .visual basic 6.0 中文版控制大全.電子工業(yè)出版社.2004.05 第 41 頁 附錄：源代碼清單附錄：源代碼清單 用戶登錄界面代碼 實(shí)現(xiàn)【確定】功能的代碼： private sub cmd_ok_click() dim j as single 數(shù)據(jù)有效性檢查 if txtuser = then msgbox 請(qǐng)輸入用戶名 txtuser.setfocus exit sub end if if txtpwd = then msgbox 請(qǐng)輸入密碼 txtpwd.setfocus exit sub end if namekey = trim(txtuser)

48、passwordkey = trim(txtpwd) 第 42 頁 判斷用戶是否存在 if myuser.in_db(namekey) = false then msgbox 用戶名不存在 try_times = try_times + 1 if try_times = 3 then msgbox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 dbapi_disconnect end else exit sub end if end if 判斷密碼是否正確 myuser.getinfo (namekey) if myuser.userpwd passwordkey then msgbox 密

49、碼錯(cuò)誤 try_times = try_times + 1 if try_times = 3 then msgbox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 dbapi_disconnect end 第 43 頁 else exit sub end if end if 登錄成功，將當(dāng)前用戶的信息保存在 curuser 中 curuser.getinfo (myuser.username) 關(guān)閉自己 unload me end sub 實(shí)現(xiàn)【取消】功能的代碼 private sub cmd_cancel_click() end end sub 綜合查詢模塊代碼 實(shí)現(xiàn)【查詢】功能的代碼：

50、private sub combo1_click() select case combo1.text case 供應(yīng)商信息 picturegys.visible = true picturesp.visible = false pictureyg.visible = false 第 44 頁 picturekf.visible = false for i = 0 to 3 textgys(i).text = next case 商品信息 picturesp.visible = true picturegys.visible = false pictureyg.visible = false p

51、icturekf.visible = false for i = 0 to 2 textsp(i).text = next case 保管員信息 picturesp.visible = false picturegys.visible = false pictureyg.visible = true picturekf.visible = false for i = 0 to 3 textyg(i).text = next case 員工信息 第 45 頁 picturesp.visible = false picturegys.visible = false pictureyg.visibl

52、e = false picturekf.visible = true for i = 0 to 3 textkf(i).text = next end select end sub 實(shí)現(xiàn)【退出】功能的代碼： private sub command2_click() unload me end sub 系統(tǒng)安全設(shè)置模塊代碼 實(shí)現(xiàn)【確定】功能的代碼： private sub cmdtrue_click() dim rsname as adodb.recordset dim sqlname as string if trim(textoldname) = then msgbox 原用戶名不能為空,

53、vbinformation + vbokonly, 系統(tǒng)提示 textoldname.setfocus 第 46 頁 exit sub elseif trim(textnewname) = then msgbox 新用戶名不能為空, vbinformation + vbokonly, 系統(tǒng)提示 textnewname.setfocus exit sub elseif trim(textpwd) = then msgbox 密碼不能為空, vbinformation + vbokonly, 系統(tǒng)提示 textpwd.setfocus exit sub end if sqlname = selec

54、t * from 系統(tǒng)表 set rsname = exesql(sqlname) if trim(textoldname) = rsname(用戶名) and checkpwd.md5(trim(textpwd) = rsname(密碼) then rsname!用戶名 = trim(textnewname.text) rsname.update else msgbox 用戶名或者密碼出錯(cuò),請(qǐng)重新輸入, vbinformation + vbokonly, 系統(tǒng)提示 textoldname.setfocus end if rsname.close 第 47 頁 set rsname = not

55、hing msgbox 用戶名更新成功!, vbinformation + vbokonly, 系統(tǒng)提示 call cmdreset_click end sub 實(shí)現(xiàn)【重填】功能的代碼： private sub command1_click() dim rspwd as adodb.recordset dim sqlpwd as string if txtoldpwd.text = then msgbox 原密碼不能為空, vbexclamation, 系統(tǒng)提示 txtoldpwd.setfocus exit sub elseif txtnewpwd.text = then msgbox 新密

56、碼不能為空, vbexclamation, 系統(tǒng)提示 txtnewpwd.setfocus exit sub elseif trim(txtnewpwd.text) trim(txtnewpwd2.text) then msgbox 新密碼與確認(rèn)密碼不相等,請(qǐng)重新確認(rèn)輸入密碼, vbexclamation, 系統(tǒng)提示 txtnewpwd2.setfocus exit sub 第 48 頁 end if sqlpwd = select * from 系統(tǒng)表 set rspwd = exesql(sqlpwd) if rspwd!密碼 checkpwd.md5(trim(txtoldpwd.tex

57、t) then 密碼采用 md5 加密 msgbox 原密碼輸入錯(cuò)誤, vbexclamation, 系統(tǒng)提示 txtoldpwd.setfocus exit sub else rspwd!密碼 = checkpwd.md5(trim(txtnewpwd.text) rspwd.update msgbox 密碼修改成功, vbinformation, 系統(tǒng)提示 call command3_click end if rspwd.close set rspwd = nothing end sub 保管員管理模塊代碼 實(shí)現(xiàn)【修改】功能的代碼： private sub command2_click()

58、 dim intcount as integer dim txtsql as string 第 49 頁 if msglist.rows 1 then intcount = msglist.row if intcount 0 then txtsql = select * from 保管員表 where 員工編號(hào) = & trim(msglist.textmatrix(intcount, 1) & ygedit = 1 load frmyg frmyg.showdata (txtsql) frmyg.show 1, frmyginfo else msgbox 警告, vbokonly + vbe

59、xclamation, 請(qǐng)首先選擇需要修改的紀(jì)錄！ end if end if end sub 實(shí)現(xiàn)【刪除】功能的代碼： private sub command3_click() dim txtsql as string dim intcount as integer dim msgtext as string if msglist.rows 1 then if msgbox(確認(rèn)要?jiǎng)h除編號(hào)為 & trim(msglist.textmatrix(msglist.row, 1) & 第 50 頁 的供應(yīng)商記錄嗎？, vbokcancel + vbexclamation, 警告) = vbok t

60、hen intcount = msglist.row txtsql = delete from 保管員表 where 員工編號(hào) = & trim(msglist.textmatrix(intcount, 1) & exesql (txtsql) msgbox 記錄刪除成功!, vbinformation, 系統(tǒng)提示 call showdata end if end if end sub 商品設(shè)置管理模塊代碼 實(shí)現(xiàn)【修改】功能的代碼： private sub command2_click() dim intcount as integer dim txtsql as string if msgl