【正文】 視。只有“填寫申購(gòu)單”與“申購(gòu)單修改”功能中，能對(duì)申購(gòu)單信息進(jìn)行修改，而當(dāng)生成采購(gòu)單后，只有采購(gòu)部門主任可以修改采購(gòu)人信息，其余信息則不能進(jìn)行更改，只能根據(jù)操作更改“狀態(tài)”信息。部分核心代碼：Private Sub XPButton2_Click() 39。提交操作On Error GoTo finish: 39。防止異常錯(cuò)誤導(dǎo)致系統(tǒng)退出If (1, 1).Text = Then 39。明細(xì)表中沒有內(nèi)容時(shí)退出操作MsgBox 明細(xì)表內(nèi)無內(nèi)容，確定后輸入...Exit SubEnd If39。因?yàn)橛袝r(shí)并不是面對(duì)一個(gè)人執(zhí)行程序,所以申購(gòu)單在提交之前還是要檢測(cè)是否有重復(fù)的Set cg1 = (select * from 申購(gòu)單 where 采購(gòu)單號(hào)=39。 amp。 amp。 39。)If = False ThenMsgBox 此訂單己存在！請(qǐng)重新生成！Call Form_Load = 1Exit SubEnd If39。以下是將生成一個(gè)SQL所需要使用的語句,把這些內(nèi)容放到SQL字符串中,在后面在執(zhí)行sql = insert into 申購(gòu)單 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í)行了這個(gè)SQL語句For i = 1 To 1 39。這里循環(huán)從第一行到最后一行 If (i, 1).Text = Then MsgBox 提交成功，等待審核... Call Form_Load = 1 Exit Sub End If 39。生成一個(gè)SQL的插入語句,將表格中的明細(xì)內(nèi)容存入到數(shù)據(jù)庫(kù)中 sql = insert into 申購(gòu)單明細(xì) 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。這里的選擇語句,因?yàn)閿?shù)據(jù)型是不允許為空載入數(shù)據(jù)庫(kù)的,在這里要做下處理 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 申購(gòu)單 where 采購(gòu)單號(hào)=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首先，為庫(kù)存信息、盤點(diǎn)表建立一個(gè)動(dòng)態(tài)記錄數(shù)組Storage，Checking和窗體及界面。如圖56所示56 庫(kù)存信息窗口“庫(kù)存維護(hù)”模塊是根據(jù)“物資狀態(tài)”查找數(shù)據(jù)并在窗口中顯示庫(kù)存信息。只有簡(jiǎn)單的增加、修改、刪除功能。“盤點(diǎn)表填寫”模塊與“庫(kù)存盤點(diǎn)”模塊結(jié)合起來用于對(duì)庫(kù)存的盤點(diǎn)，根據(jù)所選擇的功能，窗口的顯示有所改變，只有“盤點(diǎn)表填寫”有寫入功能，并且一旦寫入，無法修改，只能通過權(quán)限用戶刪除該記錄。當(dāng)盤點(diǎn)表通過審批后會(huì)進(jìn)行入庫(kù)操作，并同步更新庫(kù)存信息。部分核心代碼：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“采購(gòu)單分析”模塊首先先判定用戶的選擇，然后按照用戶選擇要求對(duì)采購(gòu)單資料進(jìn)行搜索，被搜索的采購(gòu)單為已關(guān)閉的采購(gòu)單。當(dāng)搜索結(jié)束后，按照界面所示要求顯示數(shù)據(jù)【28】。“庫(kù)存分析”模塊中庫(kù)存的消耗速度計(jì)算方式：本月1號(hào)時(shí)該物資庫(kù)存量加上上一個(gè)月對(duì)該物資的采購(gòu)量減去上一個(gè)月1號(hào)時(shí)該物資的庫(kù)存量等于上一個(gè)月的庫(kù)存消耗量，為此每個(gè)月1號(hào)系統(tǒng)自動(dòng)生成一個(gè)庫(kù)存表記錄當(dāng)前物資的庫(kù)存量。庫(kù)存消耗量Consume是一個(gè)重要數(shù)據(jù)?！皫?kù)存分析”模塊同樣按用戶需求計(jì)算并顯示最終結(jié)果。“庫(kù)存上下限設(shè)置”模塊中，會(huì)根據(jù)上一個(gè)月的庫(kù)存消耗量進(jìn)行設(shè)置，當(dāng)下限設(shè)置值小于LastConsume(上一個(gè)月的庫(kù)存消耗)或者上限設(shè)置值大于LastConsume*3時(shí)，則會(huì)提示輸入錯(cuò)誤，并讓用戶重新輸入。管理員對(duì)用戶的管理基于本模塊來實(shí)現(xiàn)，界面如圖57所示。用戶記錄為Consumer。其中“用戶權(quán)限”為系統(tǒng)重要依據(jù)。設(shè)定每項(xiàng)權(quán)限用一個(gè)素?cái)?shù)表示：申購(gòu)單的填寫、修改設(shè)為“3”，申購(gòu)單的審核與生成設(shè)為“5”，采購(gòu)單的入庫(kù)設(shè)為“7”，采購(gòu)單的審核與關(guān)閉設(shè)為“11”，盤點(diǎn)表的生成設(shè)為“13”，盤點(diǎn)表的審批設(shè)為“17”，用戶信息的密碼修改設(shè)為“19”，用戶信息的添加、權(quán)限修改與刪除設(shè)為“23”。每個(gè)用戶的“用戶權(quán)限”數(shù)值等于他所擁有的權(quán)限所代表的值的乘積。例如部門主任擁有申購(gòu)單的填寫、修改、審核與生成，還有用戶信息的密碼修改權(quán)限，那么他的“用戶權(quán)限”：3*5*19=285。當(dāng)用戶使用軟件時(shí)，判斷是否擁有該權(quán)限的標(biāo)準(zhǔn)為：“用戶權(quán)限”能否整除權(quán)限所代表的數(shù)值。如上一例子，部門主任的“用戶權(quán)限”為285，能整除5，所以擁有申購(gòu)單的審核與生成權(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。申購(gòu)單的填寫、修改quanxian3 = tureEnd IfIf Poperdom Mod 5 = 0 Then 39。申購(gòu)單的審核與生成quanxian5 = tureEnd IfIf Poperdom Mod 7 = 0 Then 39。采購(gòu)單的入庫(kù)quanxian7 = tureEnd IfIf Poperdom Mod 11 = 0 Then 39。采購(gòu)單的審核與關(guān)閉quanxian11 = tureEnd IfIf Poperdom Mod 13 = 0 Then 39。盤點(diǎn)表的生成quanxian13 = tureEnd IfIf Poperdom Mod 17 = 0 Then 39。盤點(diǎn)表的審批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ù)庫(kù)的ODBC驅(qū)動(dòng)程序擁有的SQL指令比較全，執(zhí)行效率高，所以Access后臺(tái)數(shù)據(jù)庫(kù)+VB程序界面，是一個(gè)精練實(shí)用而又高效的組合模式。在這種使用模式中，VB程序無疑是最重要的，是溝通客戶端與后臺(tái)數(shù)據(jù)庫(kù)之間的橋梁。在VB程序中，由VB Script建立對(duì)Access數(shù)據(jù)庫(kù)連接，為客戶能夠訪問后臺(tái)數(shù)據(jù)庫(kù)的提供了前提【30】。步驟如下：　　第一：利用Server對(duì)象的MapPath函數(shù)，獲得要打開數(shù)據(jù)庫(kù)的完整的文件路徑，并將其存儲(chǔ)在變量DbPath中。其中，數(shù)據(jù)庫(kù)名是我們需要指定的參數(shù)，用我們要打開的數(shù)據(jù)庫(kù)的實(shí)際名稱替代。若數(shù)據(jù)庫(kù)名是直接作為常量出現(xiàn)，需要用引號(hào)將其括起來，并且不能省略擴(kuò)展名。　　第二：建立一個(gè)ADO對(duì)象集中的Connection對(duì)象，也即連接對(duì)象。這是建立數(shù)據(jù)庫(kù)連接的初始步驟。執(zhí)行這行程序后，Conn成為一個(gè)連接對(duì)象?！　〉谌豪眠B接對(duì)象Conn的Open方法打開一個(gè)指定的數(shù)據(jù)庫(kù)。因?yàn)槲覀円蜷_的是Access數(shù)據(jù)庫(kù)，所以要指定ODBC驅(qū)動(dòng)程序參數(shù)，表示要透過Access的ODBC驅(qū)動(dòng)程序來訪問數(shù)據(jù)庫(kù)：driver={Microsoft Access Driver (*.mdb)}。　　第四：建立一個(gè)ADO對(duì)象集中的Recordset對(duì)象，以便利用Recordset對(duì)象操作數(shù)據(jù)庫(kù)(當(dāng)然，這只是對(duì)數(shù)據(jù)庫(kù)操作的多種方式之一)。執(zhí)行這行后，rs就成為一個(gè)Recordset對(duì)象?！　〉谖澹豪胷s對(duì)象的Open方法打開數(shù)據(jù)庫(kù)中的數(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 LongPub