【正文】 mpare with a usual purchasing system, the Prison Material Purchasing Management System has its own as it is developed center on customer, it is easy for customer to control and understand. And the custsomer could serch goods, create a stock order, manage storage, Statistical data through the system. The article mainly represent on several perspectives, . system structure of requirement analysis, partitioning of function module, analysis of databased module, and so on. It fulfills needs to solve actual exploitation of application procedure. The advantage of applying this system is, easily keeping data contingency accordingly and safely.Keyword: Prison material purchasing, Mangement System, Disign, Implement目錄第1章 緒論 1 前言 1 國(guó)內(nèi)外研究現(xiàn)狀 1 研究的意義 2 本文結(jié)構(gòu) 4第2章 理論基礎(chǔ) 5 SQL語(yǔ)言介紹 5 VB編程語(yǔ)言介紹 6 數(shù)據(jù)庫(kù)理論介紹 9 Access 2000簡(jiǎn)述 10第3章 監(jiān)獄采購(gòu)系統(tǒng)需求分析 12 12 12 13 16 16 16第4章 監(jiān)獄物資采購(gòu)系統(tǒng)設(shè)計(jì) 17 17 19 19 20 21 22 23 24 25 30第5章 監(jiān)獄采購(gòu)系統(tǒng)實(shí)現(xiàn) 34 34 36 39 44 46 46 49第6章 監(jiān)獄采購(gòu)系統(tǒng)測(cè)試 53 53 54 54第7章 總結(jié)與展望 59 59 59參考文獻(xiàn) 61致謝 63IV監(jiān)獄物資采購(gòu)管理系統(tǒng)的設(shè)計(jì)與實(shí)施第1章 緒論 前言在信息時(shí)代的今天，計(jì)算機(jī)以其快速、準(zhǔn)確的信息處理功能滲透于我們周圍的方方面面，同時(shí)隨著網(wǎng)絡(luò)技術(shù)和軟件技術(shù)的飛速發(fā)展，當(dāng)今社會(huì)也正快速向信息化社會(huì)前進(jìn)，信息系統(tǒng)的作用也越來(lái)越大，監(jiān)獄內(nèi)部信息管理也日漸體現(xiàn)出運(yùn)用計(jì)算機(jī)的優(yōu)越性【1】。本文介紹了一個(gè)解決當(dāng)今監(jiān)獄采購(gòu)活動(dòng)的低效益的軟件，即監(jiān)獄物資采購(gòu)管理系統(tǒng)。與一般采購(gòu)系統(tǒng)相比，擁有以用戶為開發(fā)中心，易于操作和理解等特點(diǎn)。在當(dāng)代，監(jiān)獄的采購(gòu)在很多時(shí)候并沒有采用計(jì)算機(jī)軟件來(lái)管理了，大量繁瑣的日常用品消耗，只是使用簡(jiǎn)單的EXCEL文檔記錄維護(hù)，十分的耗費(fèi)人力物力，而且效率也十分差，所以監(jiān)獄采購(gòu)系統(tǒng)應(yīng)運(yùn)而生。但是很少有針對(duì)具體企業(yè)的MIS研究，較少具體考慮企業(yè)的特殊狀況，因而造成了實(shí)施成功率低、浪費(fèi)嚴(yán)重的現(xiàn)象。與之相似的事，目前，在國(guó)內(nèi)的大多監(jiān)獄并沒有采用監(jiān)獄物資采購(gòu)管理系統(tǒng)，監(jiān)獄的物資采購(gòu)只是通過(guò)監(jiān)獄管理人員用EXCEL文檔記錄維護(hù)并統(tǒng)計(jì)，計(jì)算機(jī)軟件的普及并不高，每次采購(gòu)前以及采購(gòu)?fù)戤叾夹枰O(jiān)獄管理人員進(jìn)行繁瑣的物品消耗統(tǒng)計(jì)，然而當(dāng)大量的物資采購(gòu)信息需要整理的時(shí)候，由于沒有很好的分類，往往造成數(shù)據(jù)錯(cuò)亂，翻查數(shù)據(jù)的難度很大，需要耗費(fèi)大量的人力。改善監(jiān)獄采購(gòu)部門內(nèi)部以及整個(gè)供應(yīng)鏈各環(huán)節(jié)的管理、調(diào)度及資源配置，迅速適應(yīng)當(dāng)代的新需求和市場(chǎng)的新機(jī)遇，有利于監(jiān)獄管理質(zhì)量的提升。本系統(tǒng)是一個(gè)現(xiàn)代化軟件系統(tǒng)，通過(guò)集中式的信息數(shù)據(jù)庫(kù)，利用市場(chǎng)信息，了解提供監(jiān)獄主要日用品的其他供應(yīng)商及同類或替代產(chǎn)品的情況，并與現(xiàn)有供應(yīng)商及其產(chǎn)品進(jìn)行對(duì)比，從中發(fā)掘新的供應(yīng)商，為拓展采購(gòu)渠道提供信息?？隙ǘ际浅u的。SQL Server 2000是大型電子商務(wù)、數(shù)據(jù)倉(cāng)庫(kù)和數(shù)據(jù)庫(kù)解決方案。SQL語(yǔ)言包含4個(gè)部分： 數(shù)據(jù)定義語(yǔ)言(DDL），如：CREATE（創(chuàng)建）、DROP（刪除）、ALTER（更改）等語(yǔ)句。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大。2．事件驅(qū)動(dòng)在Windows環(huán)境下是以事件驅(qū)動(dòng)方式運(yùn)行每個(gè)對(duì)象的都能響應(yīng)多個(gè)區(qū)別事件，每個(gè)事件都能驅(qū)動(dòng)段代碼事件過(guò)程，該代碼決定了對(duì)象功能。7．網(wǎng)絡(luò)功能VB ，利用這種技術(shù)，我們可以動(dòng)態(tài)創(chuàng)建和編輯Web頁(yè)面使編程人員在VB中開發(fā)多功能網(wǎng)絡(luò)應(yīng)用軟件。 數(shù)據(jù)庫(kù)理論介紹數(shù)據(jù)庫(kù)是建立一個(gè)滿足用戶長(zhǎng)期需求的產(chǎn)品是數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)的目標(biāo)。現(xiàn)在把關(guān)系看為數(shù)據(jù)表。索引大多用于排序和快速訪問(wèn)數(shù)據(jù)。但是大部分現(xiàn)代的DBMS產(chǎn)品都存儲(chǔ)這種數(shù)據(jù)作為數(shù)據(jù)庫(kù)的一部分。Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一。一般部門員工一般部門主任采購(gòu)部門員工采購(gòu)部門主任供應(yīng)商開始資料查詢生成申購(gòu)單采購(gòu)單生成指定采購(gòu)員采購(gòu)發(fā)貨入庫(kù)關(guān)閉申購(gòu)單結(jié)束圖31業(yè)務(wù)泳道圖l 資料管理模塊在采購(gòu)過(guò)程中，我們首先需要清楚供求關(guān)系，即我們首先要了解物資以及提供的供應(yīng)商的資料（名稱、地址等），當(dāng)然，我們也必須了解現(xiàn)有物資的情況（名稱、數(shù)量、狀態(tài)等）。l 庫(kù)存管理模塊：大量的物資使庫(kù)存管理成為整個(gè)采購(gòu)過(guò)程中重要的一環(huán)，畢竟連監(jiān)獄中所擁有的物資數(shù)量及狀態(tài)都不清楚的話，我們就不能更好地去訂制采購(gòu)的計(jì)劃。根據(jù)這些情況可以設(shè)置某些物品庫(kù)存數(shù)量低于某個(gè)數(shù)量時(shí)，提醒采購(gòu)，例如廁紙、膠布這些日常管理的必需品。其他部門僅可以生成與修改申購(gòu)單，部門主任擁有對(duì)申購(gòu)單的生成、修改、審核等權(quán)限。并且要對(duì)軟件開發(fā)流程有一定的認(rèn)識(shí)和理解。●統(tǒng)計(jì)分析，主要負(fù)責(zé)統(tǒng)計(jì)監(jiān)獄物資的出入庫(kù)情況以及庫(kù)存消耗速度。 “物資資料”模塊負(fù)責(zé)維護(hù)商品的基本資料信息，基本信息一般變動(dòng)較小。為此，界面的操作按鈕必須清晰易懂，并且功能和數(shù)據(jù)處理方面要符合監(jiān)獄實(shí)際管理活動(dòng)?！吧曩?gòu)單審核”模塊負(fù)責(zé)申購(gòu)單審核和采購(gòu)單的生成操作。只有采購(gòu)部門主任可以使用該功能。當(dāng)采購(gòu)單狀態(tài)為“采購(gòu)中”時(shí)，可以進(jìn)行該操作。由于監(jiān)獄物資按需存放，物資存放的位置會(huì)十分繁雜，通過(guò)“存放位置”定位物資，可以更好的管理物資位置，提高采購(gòu)活動(dòng)中的工作效率【22】。庫(kù)存盤點(diǎn)生成后，“狀態(tài)”為“待審批” ，盤點(diǎn)結(jié)果并不是立刻寫入庫(kù)存信息中，需要更高級(jí)的用戶進(jìn)行確認(rèn)后才進(jìn)行入庫(kù)操作。 “庫(kù)存上下限設(shè)置”模塊負(fù)責(zé)對(duì)庫(kù)存物資的“最低儲(chǔ)備”與“最高儲(chǔ)備”進(jìn)行設(shè)置修改。系統(tǒng)管理員將擁有所有權(quán)限，一般用戶可根據(jù)實(shí)際需求設(shè)置權(quán)限。SQL server的數(shù)據(jù)庫(kù)是用來(lái)存放數(shù)據(jù)、視圖、索引、存儲(chǔ)過(guò)程等對(duì)象的“容器”。它為表示實(shí)體類型、屬性和聯(lián)系提供了方法，用以描述現(xiàn)實(shí)世界的概念模型【25】。如圖48。如圖412。簡(jiǎn)介是大概介紹該供應(yīng)商的公司概況。表42物資資料表字段名數(shù)據(jù)類型字段大小可否為空說(shuō)明GoodID數(shù)字整形不可以物資編號(hào)。具體如表43。具體如表44。表45庫(kù)存信息表字段名數(shù)據(jù)類型字段大小可否為空說(shuō)明GoodID數(shù)字整形不可以物資編號(hào)。具體如表46。主鍵Password數(shù)字整形不可以用戶密碼Name文本10不可以用戶名稱Poperdom數(shù)字整形不可以用戶權(quán)限D(zhuǎn)epartment文本10不可以用戶所屬部門第5章 監(jiān)獄采購(gòu)系統(tǒng)實(shí)現(xiàn) 首先，我們?yōu)橄到y(tǒng)登陸設(shè)置一個(gè)界面，在界面中顯示系統(tǒng)名字，并且提示輸入用戶名及密碼，按“確定”登陸，按“取消”退出程序。防錯(cuò)代碼，防止意外而導(dǎo)致的退出Set cg1 = (select * from 用戶管理 where 用戶名=39。)39。如圖553所示。清除所有記錄i = 8 = i + 1 39。讀取下一記錄Loop(1).Locked = True(2).Locked = True(3).Locked = TrueEnd Sub 本模塊為程序核心模塊，同樣的首先先對(duì)訂購(gòu)單和采購(gòu)單按照第四章的內(nèi)容分別建立動(dòng)態(tài)數(shù)組Subscribe，Stock和相應(yīng)窗口。部分核心代碼：Private Sub XPButton2_Click() 39。)If = False ThenMsgBox 此訂單己存在！請(qǐng)重新生成！Call Form_Load = 1Exit SubEnd If39。 39。 39。 39。 39。 39。這里執(zhí)行了這個(gè)SQL語(yǔ)句For i = 1 To 1 39。 (i, 2).Text amp。 ,39。 39。 (i, 8).Text amp。 amp。“盤點(diǎn)表填寫”模塊與“庫(kù)存盤點(diǎn)”模塊結(jié)合起來(lái)用于對(duì)庫(kù)存的盤點(diǎn)，根據(jù)所選擇的功能，窗口的顯示有所改變，只有“盤點(diǎn)表填寫”有寫入功能，并且一旦寫入，無(wú)法修改，只能通過(guò)權(quán)限用戶刪除該記錄?！皫?kù)存上下限設(shè)置”模塊中，會(huì)根據(jù)上一個(gè)月的庫(kù)存消耗量進(jìn)行設(shè)置，當(dāng)下限設(shè)置值小于LastConsume(上一個(gè)月的庫(kù)存消耗)或者上限設(shè)置值大于LastConsume*3時(shí)，則會(huì)提示輸入錯(cuò)誤，并讓用戶重新輸入。如上一例子，部門主任的“用戶權(quán)限”為285，能整除5，所以擁有申購(gòu)單的審核與生成權(quán)限【29】。申購(gòu)單的填寫、修改quanxian3 = tureEnd IfIf Poperdom Mod 5 = 0 Then 39。在這種使用模式中，VB程序無(wú)疑是最重要的，是溝通客戶端與后臺(tái)數(shù)據(jù)庫(kù)之間的橋梁。　　第三：利用連接對(duì)象Conn的Open方法打開一個(gè)指定的數(shù)據(jù)庫(kù)?！　〉谒模航⒁粋€(gè)ADO對(duì)象集中的Recordset對(duì)象，以便利用Recordset對(duì)象操作數(shù)據(jù)庫(kù)(當(dāng)然，這只是對(duì)數(shù)據(jù)庫(kù)操作的多種方式之一)。步驟如下：　　第一：利用Server對(duì)象的MapPath函數(shù)，獲得要打開數(shù)據(jù)庫(kù)的完整的文件路徑，并將其存儲(chǔ)在變量DbPath中。采購(gòu)單的入庫(kù)quanxian7 = tureEnd IfIf Poperdom Mod 11 = 0 Then 39。.ExtencgastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(128, 217, 193) 39。用戶記錄為Consumer。部分核心代碼：Private Sub seeku()On Error GoTo finish:Set cg2 = (sql) = 8 = 1For i = 1 To 1(0, i).Text = (i 1).NameNextDo While Not = + 1 ( 1, 0).Text = 1 For i = 1 To 1 If (i 1) = Null Then ( 1, i).Text = Else ( 1, i).Text = (i 1) If Mid(( 1, i).Text, 1, 1) = . Then ( 1, i).Text = 0 amp。 39。,39。這里的選擇語(yǔ)句,因?yàn)閿?shù)據(jù)型是不允許為空載入數(shù)據(jù)庫(kù)的,在這里要做下處理 End If For j = 6 To 2 If (i, j).Text Then sql = sql amp。 (i, 5).Text amp。,39。生成一個(gè)SQL的插入語(yǔ)句,將表格中的明細(xì)內(nèi)容存入到數(shù)據(jù)庫(kù)中 sql = insert into 申購(gòu)單明細(xì) values(39。 amp。 amp。 amp。 amp。 amp。 amp。防止異常錯(cuò)誤導(dǎo)致系統(tǒng)退出If (1, 1).Text = Then 39。54 申購(gòu)單窗口申購(gòu)單中有如下幾個(gè)重要變量：1）申購(gòu)單號(hào)，用于對(duì)數(shù)據(jù)查找的主要依據(jù)；2）狀態(tài)，根據(jù)此來(lái)開放對(duì)申購(gòu)單的操作權(quán)限，并且影響界面的顯示信息，只有審核狀態(tài)下的申購(gòu)單才可以生成采購(gòu)單【27】；3）申購(gòu)部門，為部門鎖定審核權(quán)限，即使用戶有審核權(quán)限，所非對(duì)應(yīng)所屬部門，則不能審核該訂單。顯示數(shù)據(jù)的字段名(0, i + 1).Text = (i).Name 39。為了使在操作過(guò)程中訪問(wèn)數(shù)據(jù)庫(kù)次數(shù)減少，每次啟動(dòng)時(shí)，會(huì)把供應(yīng)商和物資的資料從數(shù)據(jù)庫(kù)讀出，然后寫入相應(yīng)的記錄數(shù)組。如果沒有記錄則說(shuō)明用戶或密碼為錯(cuò)誤的 If pnum 2 Then 39。 amp。為此我們需要?jiǎng)?chuàng)建一個(gè)窗口，窗口名為“登錄”，設(shè)置一幅監(jiān)獄圖片為窗口背景圖。主鍵，自動(dòng)增加GoodID數(shù)字整形不可以物資編號(hào)Good文本20不可以物資名稱Adjust數(shù)字整形不可以調(diào)整數(shù)量。外鍵Amount數(shù)字整形不可以庫(kù)存數(shù)量LowStore數(shù)字整形可以最低儲(chǔ)備。主鍵，自動(dòng)增加GoodID 數(shù)字整形不可以物資編號(hào)。主鍵，自動(dòng)增加ReferDate日期/時(shí)間不可以提交日期。默認(rèn)值為“個(gè)”Type文本10不可以物資類型ProviderID數(shù)字整形不可以供應(yīng)商編號(hào)。表41供應(yīng)商資料表字段名數(shù)據(jù)類型字段大小可否為空說(shuō)明ProviderID數(shù)字整形不可以供應(yīng)商編號(hào)。如圖413。如圖49。1） 實(shí)