【正文】 　　第五：利用rs對(duì)象的Open方法打開數(shù)據(jù)庫中的數(shù)據(jù)表。　　第四：建立一個(gè)ADO對(duì)象集中的Recordset對(duì)象，以便利用Recordset對(duì)象操作數(shù)據(jù)庫(當(dāng)然，這只是對(duì)數(shù)據(jù)庫操作的多種方式之一)。　　第三：利用連接對(duì)象Conn的Open方法打開一個(gè)指定的數(shù)據(jù)庫。這是建立數(shù)據(jù)庫連接的初始步驟。若數(shù)據(jù)庫名是直接作為常量出現(xiàn)，需要用引號(hào)將其括起來，并且不能省略擴(kuò)展名。步驟如下：　　第一：利用Server對(duì)象的MapPath函數(shù)，獲得要打開數(shù)據(jù)庫的完整的文件路徑，并將其存儲(chǔ)在變量DbPath中。在這種使用模式中，VB程序無疑是最重要的，是溝通客戶端與后臺(tái)數(shù)據(jù)庫之間的橋梁。用戶信息的密碼修改quanxian19 = tureEnd IfIf Poperdom Mod 23 = 0 Then 39。盤點(diǎn)表的生成quanxian13 = tureEnd IfIf Poperdom Mod 17 = 0 Then 39。采購單的入庫quanxian7 = tureEnd IfIf Poperdom Mod 11 = 0 Then 39。申購單的填寫、修改quanxian3 = tureEnd IfIf Poperdom Mod 5 = 0 Then 39。(i).CellType = cellCheckBoxNext = RGB(128, 217, 193)cgtable = 用戶管理 39。RGB(110, 180, 230) .BackColorBkg = RGB(128, 217, 193) 39。.ExtencgastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(128, 217, 193) 39。如上一例子，部門主任的“用戶權(quán)限”為285，能整除5，所以擁有申購單的審核與生成權(quán)限【29】。例如部門主任擁有申購單的填寫、修改、審核與生成，還有用戶信息的密碼修改權(quán)限，那么他的“用戶權(quán)限”：3*5*19=285。設(shè)定每項(xiàng)權(quán)限用一個(gè)素?cái)?shù)表示：申購單的填寫、修改設(shè)為“3”，申購單的審核與生成設(shè)為“5”，采購單的入庫設(shè)為“7”，采購單的審核與關(guān)閉設(shè)為“11”，盤點(diǎn)表的生成設(shè)為“13”，盤點(diǎn)表的審批設(shè)為“17”，用戶信息的密碼修改設(shè)為“19”，用戶信息的添加、權(quán)限修改與刪除設(shè)為“23”。用戶記錄為Consumer?！皫齑嫔舷孪拊O(shè)置”模塊中，會(huì)根據(jù)上一個(gè)月的庫存消耗量進(jìn)行設(shè)置，當(dāng)下限設(shè)置值小于LastConsume(上一個(gè)月的庫存消耗)或者上限設(shè)置值大于LastConsume*3時(shí)，則會(huì)提示輸入錯(cuò)誤，并讓用戶重新輸入。庫存消耗量Consume是一個(gè)重要數(shù)據(jù)。當(dāng)搜索結(jié)束后，按照界面所示要求顯示數(shù)據(jù)【28】。部分核心代碼：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?！氨P點(diǎn)表填寫”模塊與“庫存盤點(diǎn)”模塊結(jié)合起來用于對(duì)庫存的盤點(diǎn)，根據(jù)所選擇的功能，窗口的顯示有所改變，只有“盤點(diǎn)表填寫”有寫入功能，并且一旦寫入，無法修改，只能通過權(quán)限用戶刪除該記錄。如圖56所示56 庫存信息窗口“庫存維護(hù)”模塊是根據(jù)“物資狀態(tài)”查找數(shù)據(jù)并在窗口中顯示庫存信息。 \images\)ElseMsgBox 無此訂單，審核無效！Call Form_LoadEnd IfElseIf = False Then(11) = 未審核Call Form_LoadMsgBox 反審核完成！ = LoadPicture( amp。 39。 amp。) Set cg3 = (sql) 39。 amp。,39。 (i, 8).Text amp。 39。 , Else sql = sql amp。這里的選擇語句,因?yàn)閿?shù)據(jù)型是不允許為空載入數(shù)據(jù)庫的,在這里要做下處理 End If For j = 6 To 2 If (i, j).Text Then sql = sql amp。 39。 amp。, Else sql = sql amp。 (i, 5).Text amp。 ,39。, If (i, 4).Text Then sql = sql amp。 (i, 3).Text amp。,39。 (i, 2).Text amp。,39。 (i, 1).Text amp。生成一個(gè)SQL的插入語句,將表格中的明細(xì)內(nèi)容存入到數(shù)據(jù)庫中 sql = insert into 申購單明細(xì) values(39。這里執(zhí)行了這個(gè)SQL語句For i = 1 To 1 39。未審核39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。)If = False ThenMsgBox 此訂單己存在！請(qǐng)重新生成！Call Form_Load = 1Exit SubEnd If39。 amp。因?yàn)橛袝r(shí)并不是面對(duì)一個(gè)人執(zhí)行程序,所以申購單在提交之前還是要檢測(cè)是否有重復(fù)的Set cg1 = (select * from 申購單 where 采購單號(hào)=39。防止異常錯(cuò)誤導(dǎo)致系統(tǒng)退出If (1, 1).Text = Then 39。部分核心代碼：Private Sub XPButton2_Click() 39。而當(dāng)選擇“申購單查詢”時(shí)，“審核”、“生成采購單”等功能將不可視。兩個(gè)窗口都是根據(jù)用戶所選擇的功能，有選擇性的顯示。54 申購單窗口申購單中有如下幾個(gè)重要變量：1）申購單號(hào)，用于對(duì)數(shù)據(jù)查找的主要依據(jù)；2）狀態(tài)，根據(jù)此來開放對(duì)申購單的操作權(quán)限，并且影響界面的顯示信息，只有審核狀態(tài)下的申購單才可以生成采購單【27】；3）申購部門，為部門鎖定審核權(quán)限，即使用戶有審核權(quán)限，所非對(duì)應(yīng)所屬部門，則不能審核該訂單。讀取下一記錄Loop(1).Locked = True(2).Locked = True(3).Locked = TrueEnd Sub 本模塊為程序核心模塊，同樣的首先先對(duì)訂購單和采購單按照第四章的內(nèi)容分別建立動(dòng)態(tài)數(shù)組Subscribe，Stock和相應(yīng)窗口?？罩档奶幚?(i, j).Text = Else (i, j).Text = (j 1) If Mid((i, j).Text, 1, 1) = . Then (i, j).Text = 0 amp。通過do while語句將數(shù)據(jù)從數(shù)據(jù)庫讀出并寫入到grid控件中 = + 1 For j = 1 To n 39。顯示數(shù)據(jù)的字段名(0, i + 1).Text = (i).Name 39。清除所有記錄i = 8 = i + 1 39。部分核心代碼：Private Sub callmain()cgsave = Falsecgedit = Truecgdel = TrueSet cg1 = (select * from amp。只有當(dāng)用戶使用保存操作時(shí)，才會(huì)把修改數(shù)據(jù)寫入到數(shù)據(jù)庫中。為了使在操作過程中訪問數(shù)據(jù)庫次數(shù)減少，每次啟動(dòng)時(shí)，會(huì)把供應(yīng)商和物資的資料從數(shù)據(jù)庫讀出，然后寫入相應(yīng)的記錄數(shù)組。如圖553所示。然后為供應(yīng)商和物資創(chuàng)建窗體。 pnum = = Exit Sub Else MsgBox 用戶名或密碼錯(cuò)誤超過三次,系統(tǒng)會(huì)自動(dòng)退出, vbInformation, 提示 End End IfElse loginname = (0) Unload Me MsgBox 成功登陸, , 歡迎使用End IfExit Subfinish: MsgBox End Sub為實(shí)現(xiàn)對(duì)供應(yīng)商與物資的查詢，我們首先為他們分別定義一個(gè)記錄來儲(chǔ)存信息。如果沒有記錄則說明用戶或密碼為錯(cuò)誤的 If pnum 2 Then 39。)39。 amp。 and 密碼=39。 amp。防錯(cuò)代碼，防止意外而導(dǎo)致的退出Set cg1 = (select * from 用戶管理 where 用戶名=39。當(dāng)按確定后，根據(jù)用戶輸入信息判定是否能夠登入系統(tǒng)。創(chuàng)建兩個(gè)供輸入的文本框用以獲取用戶所輸入用戶名及密碼。為此我們需要?jiǎng)?chuàng)建一個(gè)窗口，窗口名為“登錄”，設(shè)置一幅監(jiān)獄圖片為窗口背景圖。主鍵Password數(shù)字整形不可以用戶密碼Name文本10不可以用戶名稱Poperdom數(shù)字整形不可以用戶權(quán)限D(zhuǎn)epartment文本10不可以用戶所屬部門第5章 監(jiān)獄采購系統(tǒng)實(shí)現(xiàn) 首先，我們?yōu)橄到y(tǒng)登陸設(shè)置一個(gè)界面，在界面中顯示系統(tǒng)名字，并且提示輸入用戶名及密碼，按“確定”登陸，按“取消”退出程序。具體如表47。最多不超過10個(gè)字符。主鍵，自動(dòng)增加GoodID數(shù)字整形不可以物資編號(hào)Good文本20不可以物資名稱Adjust數(shù)字整形不可以調(diào)整數(shù)量。具體如表46。從實(shí)際庫存盤點(diǎn)數(shù)據(jù)與計(jì)算機(jī)中物資數(shù)據(jù)的對(duì)比中得出調(diào)整數(shù)量。大于“正常儲(chǔ)備”Location文本10不可以存放位置PerformDate日期/時(shí)間不可以最近操作日期Performer文本10不可以操作人員Remark文本20可以備注盤點(diǎn)信息表中，編號(hào)是其主鍵，每次增加，自動(dòng)加一。外鍵Amount數(shù)字整形不可以庫存數(shù)量LowStore數(shù)字整形可以最低儲(chǔ)備。表45庫存信息表字段名數(shù)據(jù)類型字段大小可否為空說明GoodID數(shù)字整形不可以物資編號(hào)。最低儲(chǔ)備與最高儲(chǔ)備從統(tǒng)計(jì)分析模塊設(shè)定。為8位數(shù)，初始數(shù)為00000000。主鍵，自動(dòng)增加GoodID 數(shù)字整形不可以物資編號(hào)。具體如表44。物資編號(hào)與物資名稱為其外鍵。外鍵Good文本20不可以物資名稱Amount數(shù)字整形不可以采購數(shù)量Price貨幣不可以采購單價(jià)Total貨幣不可以采購總額采購信息表中，單號(hào)是其主鍵，每次增加，自動(dòng)加一。主鍵，自動(dòng)增加ReferDate日期/時(shí)間不可以提交日期。具體如表43。物資編號(hào)與物資名稱為其外鍵。外鍵Price文本10不可以采購單價(jià)Illuminate文本50可以物資說明申購信息表中，單號(hào)是其主鍵，每次增加，自動(dòng)加一，申購單刪除后不釋放該單號(hào)值。默認(rèn)值為“個(gè)”Type文本10不可以物資類型ProviderID數(shù)字整形不可以供應(yīng)商編號(hào)。表42物資資料表字段名數(shù)據(jù)類型字段大小可否為空說明GoodID數(shù)字整形不可以物資編號(hào)。物資說明是指該物品的用途或者屬于哪個(gè)部門的用品。為8位數(shù)，初始數(shù)為00000000。表41供應(yīng)商資料表字段名數(shù)據(jù)類型字段大小可否為空說明ProviderID數(shù)字整形不可以供應(yīng)商編號(hào)。簡介是大概介紹該供應(yīng)商的公司概況。為6位數(shù)，初始數(shù)為000000。如圖414。如圖413。如圖412。如圖411。如圖410。如圖49。如圖48。具體關(guān)系如47。每張申購單對(duì)應(yīng)一張采購單，全部采購單都由采購部門主任處理。1） 實(shí)體ER圖由一般部門人員填寫并提交申購單，多個(gè)人對(duì)應(yīng)多張申購單。它為表示實(shí)體類型、屬性和聯(lián)系提供了方法，用以描述現(xiàn)實(shí)世界的概念模型【25】。ER圖即是實(shí)體聯(lián)系圖(Entity Relationship Diagram)。根據(jù)系統(tǒng)需求分析，系統(tǒng)需要建立7個(gè)表()，用戶可以有選擇地初始化數(shù)據(jù)表。數(shù)據(jù)文件用于存儲(chǔ)數(shù)據(jù)庫中的所有對(duì)象，如表、視圖、存儲(chǔ)過程等【24】。SQL server的數(shù)據(jù)庫是用來存放數(shù)據(jù)、視圖、索引、存儲(chǔ)過程等對(duì)象的“容器”。數(shù)據(jù)庫設(shè)計(jì)(Database Design)是指根據(jù)用戶的需求，在某一具體的數(shù)據(jù)庫管理系統(tǒng)上，設(shè)計(jì)數(shù)據(jù)庫的結(jié)構(gòu)和建立數(shù)據(jù)庫的過程。 “創(chuàng)建賬號(hào)”模塊主要給用戶提供初期建賬功能，用戶可以有選擇地初始化數(shù)據(jù)表。 “用戶信息修改”模塊負(fù)責(zé)維護(hù)、更新用戶密碼信息。系統(tǒng)管理員將擁有所有權(quán)限，一般用戶可根據(jù)實(shí)際需求設(shè)置權(quán)限。權(quán)限分為一般用戶和系統(tǒng)管理員。主要負(fù)責(zé)管理用戶，包括用戶管理、密碼維護(hù)、重新登錄以及初期建賬4個(gè)功能模塊，如圖46所示：系統(tǒng)管理用戶管理密碼修改重新登錄創(chuàng)建帳號(hào)圖46 “系統(tǒng)管理”功能模塊 “用戶管理”模塊負(fù)責(zé)管理用戶信息，設(shè)置權(quán)限。當(dāng)“庫存數(shù)量”低于“最低儲(chǔ)備”時(shí)，會(huì)提醒用戶進(jìn)行采購工作。 “庫存上下限設(shè)置”模塊負(fù)責(zé)對(duì)庫存物資的“最低儲(chǔ)