【正文】 購單”等功能將不可視。只有“填寫申購單”與“申購單修改”功能中，能對申購單信息進行修改，而當(dāng)生成采購單后，只有采購部門主任可以修改采購人信息，其余信息則不能進行更改，只能根據(jù)操作更改“狀態(tài)”信息。部分核心代碼：Private Sub XPButton2_Click() 39。提交操作On Error GoTo finish: 39。防止異常錯誤導(dǎo)致系統(tǒng)退出If (1, 1).Text = Then 39。明細表中沒有內(nèi)容時退出操作MsgBox 明細表內(nèi)無內(nèi)容，確定后輸入...Exit SubEnd If39。因為有時并不是面對一個人執(zhí)行程序,所以申購單在提交之前還是要檢測是否有重復(fù)的Set cg1 = (select * from 申購單 where 采購單號=39。 amp。 amp。 39。)If = False ThenMsgBox 此訂單己存在！請重新生成！Call Form_Load = 1Exit SubEnd If39。以下是將生成一個SQL所需要使用的語句,把這些內(nèi)容放到SQL字符串中,在后面在執(zhí)行sql = insert into 申購單 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 xtext5(0).Text amp。 39。,39。 amp。 amp。 39。,39。 amp。 _ xtext5(1).Text amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 _ xtext5(2).Text amp。 39。,39。 amp。 amp。 39。,39。未審核39。)Set cg1 = (sql) 39。這里執(zhí)行了這個SQL語句For i = 1 To 1 39。這里循環(huán)從第一行到最后一行 If (i, 1).Text = Then MsgBox 提交成功，等待審核... Call Form_Load = 1 Exit Sub End If 39。生成一個SQL的插入語句,將表格中的明細內(nèi)容存入到數(shù)據(jù)庫中 sql = insert into 申購單明細 values(39。 amp。 (i, 1).Text amp。 39。,39。 amp。 (i, 2).Text amp。 39。,39。 amp。 (i, 3).Text amp。 39。, If (i, 4).Text Then sql = sql amp。 (i, 4).Text amp。 ,39。 amp。 (i, 5).Text amp。 39。, Else sql = sql amp。 0,39。 amp。 (i, 5).Text amp。 39。, 39。這里的選擇語句,因為數(shù)據(jù)型是不允許為空載入數(shù)據(jù)庫的,在這里要做下處理 End If For j = 6 To 2 If (i, j).Text Then sql = sql amp。 (i, j).Text amp。 , Else sql = sql amp。 0, End If Next sql = sql amp。 39。 amp。 (i, 8).Text amp。 39。,39。 amp。 amp。 39。) Set cg3 = (sql) 39。執(zhí)行SQL語句 NextMsgBox 提交成功，等待審核...Call Form_Load = 1Exit Subfinish:MsgBox End SubPrivate Sub XPButton6_Click()If system(1) = False ThenMsgBox 無審核權(quán)限!Exit SubEnd IfIf = adStateOpen Then End If select * from 申購單 where 采購單號=39。 amp。 amp。 39。, n, adOpenKeyset, adLockOptimistic, adCmdTextIf = 審核 ThenIf = False Then(11) = 已審核Call Form_LoadMsgBox 審核完成！ = LoadPicture( amp。 \images\)ElseMsgBox 無此訂單，審核無效！Call Form_LoadEnd IfElseIf = False Then(11) = 未審核Call Form_LoadMsgBox 反審核完成！ = LoadPicture( amp。 \images\)ElseMsgBox 無此訂單，審核無效！Call Form_LoadEnd IfEnd IfEnd Sub首先，為庫存信息、盤點表建立一個動態(tài)記錄數(shù)組Storage，Checking和窗體及界面。如圖56所示56 庫存信息窗口“庫存維護”模塊是根據(jù)“物資狀態(tài)”查找數(shù)據(jù)并在窗口中顯示庫存信息。只有簡單的增加、修改、刪除功能?！氨P點表填寫”模塊與“庫存盤點”模塊結(jié)合起來用于對庫存的盤點，根據(jù)所選擇的功能，窗口的顯示有所改變，只有“盤點表填寫”有寫入功能，并且一旦寫入，無法修改，只能通過權(quán)限用戶刪除該記錄。當(dāng)盤點表通過審批后會進行入庫操作，并同步更新庫存信息。部分核心代碼：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。 ( 1, i).Text End If End If Next LoopExit Subfinish: MsgBox End Sub“采購單分析”模塊首先先判定用戶的選擇，然后按照用戶選擇要求對采購單資料進行搜索，被搜索的采購單為已關(guān)閉的采購單。當(dāng)搜索結(jié)束后，按照界面所示要求顯示數(shù)據(jù)【28】?！皫齑娣治觥蹦K中庫存的消耗速度計算方式：本月1號時該物資庫存量加上上一個月對該物資的采購量減去上一個月1號時該物資的庫存量等于上一個月的庫存消耗量，為此每個月1號系統(tǒng)自動生成一個庫存表記錄當(dāng)前物資的庫存量。庫存消耗量Consume是一個重要數(shù)據(jù)。“庫存分析”模塊同樣按用戶需求計算并顯示最終結(jié)果。“庫存上下限設(shè)置”模塊中，會根據(jù)上一個月的庫存消耗量進行設(shè)置，當(dāng)下限設(shè)置值小于LastConsume(上一個月的庫存消耗)或者上限設(shè)置值大于LastConsume*3時，則會提示輸入錯誤，并讓用戶重新輸入。管理員對用戶的管理基于本模塊來實現(xiàn)，界面如圖57所示。用戶記錄為Consumer。其中“用戶權(quán)限”為系統(tǒng)重要依據(jù)。設(shè)定每項權(quán)限用一個素數(shù)表示：申購單的填寫、修改設(shè)為“3”，申購單的審核與生成設(shè)為“5”，采購單的入庫設(shè)為“7”，采購單的審核與關(guān)閉設(shè)為“11”，盤點表的生成設(shè)為“13”，盤點表的審批設(shè)為“17”，用戶信息的密碼修改設(shè)為“19”，用戶信息的添加、權(quán)限修改與刪除設(shè)為“23”。每個用戶的“用戶權(quán)限”數(shù)值等于他所擁有的權(quán)限所代表的值的乘積。例如部門主任擁有申購單的填寫、修改、審核與生成，還有用戶信息的密碼修改權(quán)限，那么他的“用戶權(quán)限”：3*5*19=285。當(dāng)用戶使用軟件時，判斷是否擁有該權(quán)限的標(biāo)準(zhǔn)為：“用戶權(quán)限”能否整除權(quán)限所代表的數(shù)值。如上一例子，部門主任的“用戶權(quán)限”為285，能整除5，所以擁有申購單的審核與生成權(quán)限【29】。57 用戶管理窗口部分核心代碼：Private Sub Form_Load() With Grid1 .AllowUserResizing = True .DisplayFocusRect = False 39。.ExtencgastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(128, 217, 193) 39。RGB(90, 158, 214) .BackColorFixedSel = RGB(128, 217, 193) 39。RGB(110, 180, 230) .BackColorBkg = RGB(128, 217, 193) 39。RGB(90, 158, 214) .BackColorScrollBar = RGB(128, 217, 193) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(239, 243, 255) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 .Column(1).Width = 100 .Column(2).Width = 100End WithFor i = 3 To 139。(i).CellType = cellCheckBoxNext = RGB(128, 217, 193)cgtable = 用戶管理 39。當(dāng)前指向表名為權(quán)限Call callmainEnd SubIf Poperdom Mod 3 = 0 Then 39。申購單的填寫、修改quanxian3 = tureEnd IfIf Poperdom Mod 5 = 0 Then 39。申購單的審核與生成quanxian5 = tureEnd IfIf Poperdom Mod 7 = 0 Then 39。采購單的入庫quanxian7 = tureEnd IfIf Poperdom Mod 11 = 0 Then 39。采購單的審核與關(guān)閉quanxian11 = tureEnd IfIf Poperdom Mod 13 = 0 Then 39。盤點表的生成quanxian13 = tureEnd IfIf Poperdom Mod 17 = 0 Then 39。盤點表的審批quanxian17 = tureEnd IfIf Poperdom Mod 19 = 0 Then 39。用戶信息的密碼修改quanxian19 = tureEnd IfIf Poperdom Mod 23 = 0 Then 39。用戶信息的添加、權(quán)限修改與刪除quanxian23 = tureEnd If由于Access數(shù)據(jù)庫的ODBC驅(qū)動程序擁有的SQL指令比較全，執(zhí)行效率高，所以Access后臺數(shù)據(jù)庫+VB程序界面，是一個精練實用而又高效的組合模式。在這種使用模式中，VB程序無疑是最重要的，是溝通客戶端與后臺數(shù)據(jù)庫之間的橋梁。在VB程序中，由VB Script建立對Access數(shù)據(jù)庫連接，為客戶能夠訪問后臺數(shù)據(jù)庫的提供了前提【30】。步驟如下：　　第一：利用Server對象的MapPath函數(shù)，獲得要打開數(shù)據(jù)庫的完整的文件路徑，并將其存儲在變量DbPath中。其中，數(shù)據(jù)庫名是我們需要指定的參數(shù)，用我們要打開的數(shù)據(jù)庫的實際名稱替代。若數(shù)據(jù)庫名是直接作為常量出現(xiàn)，需要用引號將其括起來，并且不能省略擴展名?！　〉诙航⒁粋€ADO對象集中的Connection對象，也即連接對象。這是建立數(shù)據(jù)庫連接的初始步驟。執(zhí)行這行程序后，Conn成為一個連接對象?！　〉谌豪眠B接對象Conn的Open方法打開一個指定的數(shù)據(jù)庫。因為我們要打開的是Access數(shù)據(jù)庫，所以要指定ODBC驅(qū)動程序參數(shù)，表示要透過Access的ODBC驅(qū)動程序來訪問數(shù)據(jù)庫：driver={Microsoft Access Driver (*.mdb)}。　　第四：建立一個ADO對象集中的Recordset對象，以便利用Recordset對象操作數(shù)據(jù)庫(當(dāng)然，這只是對數(shù)據(jù)庫操作的多種方式之一)。執(zhí)行這行后，rs就成為一個Recordset對象?！　〉谖澹豪胷s對象的Open方法打開數(shù)據(jù)庫中的數(shù)據(jù)表?！?1】代碼如下：Public n As New Public cg1 As New Public cg2 As New Public cg3 As New Public cg4 As New Public Declare Function GetPrivateProfileString Lib kernel32 Alias GetPrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As