【文章內容簡介】 2 End If UserID = Trim() Unload Me Exit Sub 汽車維修企業(yè)零部件管理主界面是如圖42 主界面。采用SDI窗體。WINDOWS風格設計。主要采用菜單式的管理方式。主界面功能包括系統設置，基本數據，出入庫管理，庫存管理，查詢管理和幫助。 圖42 主界面截圖 其中部分代碼如下:Private Sub MDIForm_Load()(1).Text = 操作員: amp。 UserId(2).Text = ★歡迎使用汽車4S店零配件倉庫管理系統★Call PrivsSetingEnd Sub系統設置包括，用戶，密碼，數據庫管理。用戶包括權限管理。用戶管理模塊實現2個主要功能：增加新的操作人員、刪除指定的操作人員。密碼是對當前用戶進行密碼修改，其中代碼可以參考frmUsers。如圖43 如圖43用戶管理界面 汽車4S店零配件倉庫管理系統基本信息包括對配件分析信息,配件信息的管理，包括添加，刪除，修改等操作。如圖44是配件信息，添加，操作成功。 圖44 配件信息截圖 其中主要代碼如下:Private Sub cmdRegAdd_Click() 39。39。39。添加nModeSys = 2 39。39。添加操作Dim IDmax As StringDim i As IntegerFor i = 1 To Val(Txt(0).Text) If Lbl(i).Caption = 庫存量 Then Txt(i).Text = 0 Else Txt(i).Text = End IfNext iTxt(1).Text = GetmaxId(Lbl(1).Caption) = True出入庫管理包括采購入庫和銷售出庫信息。入庫管理界面如圖46所示。本界面主要是對入庫單信息進行添加刪除修改保存等操作。其中代碼詳情請參考frmlk文件。 圖46 入庫界面截圖點擊添加按鈕如圖47可實現汽車零配件的添加。配件編號是支持選擇配件信息的,可以名稱進行選擇。圖47 添加界面截圖其中代碼如下： select * from 采購入庫信息 where 入庫單號=39。 amp。 Trim(Text1(0).Text) amp。 39。, CN, adOpenStatic, adLockOptimisticIf Trim(strDZId) = Then 39。添加 For i = 0 To 9 If Trim(Text1(i).Text) Then (i).Value = Trim(Text1(i).Text) Next i With If .Rows = 2 And Trim(.TextMatrix(1, 1)) = Then Else .Rows = .Rows + 1 For i = .Rows 2 To 1 Step 1 For j = 0 To 9 .TextMatrix(i + 1, j) = .TextMatrix(i, j) Next j Next i End If 出庫管理設計和入庫管理設計思想一樣，并不做詳細說明，其中出庫管理界面圖48，圖49所示。 48銷售出庫界面截圖 圖49出庫添加截圖零配件庫存管理包括汽車零配件詳細庫存信息和庫存量查詢?？梢越y計零配件出入庫數量及時間。如圖410。其中的代碼：If Then select 配件編號,配件名稱,型號,計量單位 from 配件信息, CN, adOpenStatic, adLockOptimisticDim i As IntegerDim j As IntegerDim gridI As Integeri = 0If Then select * from 盤點信息表 where 年月=39。 amp。 amp。 amp。 amp。 39。, CN, adOpenStatic, adLockOptimisticIf Not Then If MsgBox(本月份配件已統計,是否重新統計?, vbInformation + vbYesNo, 提示) = vbYes Then delete from 盤點信息表 where 年月=39。 amp。 amp。 amp。 amp。 39。 Else Exit Sub EndIf 410零配件庫存管理截圖 411零配件信息檢索截圖查詢功能的設計包括零配件出入庫查詢和數據統計。從而實現管理人員對零配件的數量，銷售數量，庫存數量進行統計以及查詢。如圖412。其中所涉及到的代碼：If Trim() And Trim() And Trim() Then strsql = select * from amp。 Trim(strTableName) amp。 where amp。 Trim() amp。 amp。 Trim() amp。 39。 If = like Then strsql = strsql amp。 % amp。 Trim() amp。 %39。 Else strsql = strsql amp。 Trim() amp。 39。 End If If Then strsql, CN, adOpenStatic, adLockOptimistic Set = rs2Else MsgBox 請選擇或輸入數據!, , 系統提示 412信息檢索截圖 關于和幫助界面是對系統軟件版本,作者的一個介紹。幫助界面是對功能介紹包括：初始用戶:用戶和密碼都為admin。添加用戶：在用戶名稱中輸入要添加用戶的名，原始密碼為12345，可以修改，之后點添加。完畢。如果系統已經添加的該用戶，系統自動提示，重新添加。刪除用戶：選中要刪除的用戶，直接點刪除、系統有提示是否真的刪除，點是，就刪除了此用戶。如圖413。 413關于截圖 倉庫管理系統的安全性設計可以分為數據庫級安全設計和應用軟件級安全設計兩個級別。數據庫級安全設計對數據庫級安全通過賦予操作員不同的操作權限，控制操作員對數據庫的訪問，對操作員進行存取控制；另外并發(fā)控制、完整性約束以及數據的備份和恢復策略等等，這些安全性都可以充分利用數據庫管理系統（DBMS）本身具有的功能來實現。應用軟件級安全設計可以在系統平臺上根據不同的登陸身份和權限，給出不同的操作界面，允許不同的操作。本系統的登錄模塊、用戶管理模塊配合，就是完成這樣的功能。