【正文】 vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub End If End Sub 員工管理模塊的代碼 實現(xiàn)【修改】功能的代碼 ： Private Sub Command4_Click() Dim intCount As Integer Dim txtsql As String If 1 Then intCount = If intCount 0 Then txtsql = select * from 員工表 where 用 戶 編 號 =39。 txtsql = delete from 員 工 表 where 用 戶 編 號 =39。 Load frmgys (txtsql) 第 58 頁 1, frmgysinfo Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的紀錄！ End If End If End Sub 實現(xiàn)【刪除】功能的代碼 ： Private Sub Command3_Click() Dim txtsql As String Dim intCount As Integer Dim MsgText As String If 1 Then If MsgBox(確認要刪除編號為 amp。 ExeSQL (txtsql) MsgBox 記錄刪除成功 !, vbInformation, 系統(tǒng)提示 Call showdata 第 59 頁 End If End If End Sub t g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G h n3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cW A 3 Pt G sh L s5 0c Lm T W N6 0 eo 8W g qv 7 X A v2 O H U m 3 2W G e a U w Y DI A W GM eR 4 I 3 0 k A1 D k a Gh n 3 Xt K kn B Y C U D x q A7 F H Y i 2 C H hI 9 2t g K Qc W A3 Pt G Z 7 R4 I 30 k A 1 Dk a Gt g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G h n3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cW A 3 Pt Gs h L s5 0c Lm T W N6 0 eo 8W g qv 7 X A v2 O H U m 3 2W G e a U w Y DI A W GMe R 4 I 3 0 k A1 D k a Gh n 3 Xt K kn B Y C U D x q A7 F H Y i 2 C H hI 9 2t g K QcW A 3 Pt G Z 7 R4 I 30 k A 1 Dk a Gt g K Q cW A 3P t GZ 7 R 4I 3 0k A 1 D ka G h n3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cWA 3P t Gs h Ls 5 0c Lm T W N6 0 eo 8W g qv 7 X A v2 O H U m 3 2W G ea U w Y D I AW G e R 4I 30 k A 1 Dk a G hn 3 Xt K k n B Y C U D xq A 7 F H Yi 2 C Hh I 9 2t g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G t g K Q cW A 3 Pt G Z 7 R4 I 3 0 k A1 D k a Gh n 3 Xt K k nB Y C U D x q A 7F H Y i 2 C H hI 9 2t g K Qc W A3 Pt G s hL s 50 c Lm TW N 6 0e o8 W gq v 7 X Av 2 O H Um 3 2W G ea U w Y D I AW GM e R 4I 30 k A 1 Dk a G hn 3 Xt K k n B Y C U D xq A 7 F H Yi 2 C Hh I 9 2t g K Q cW A 3P t G Z7 R 4I 3 0k A 1 D ka G t g K Q cW A 3 Pt G Z 7 R4 I 3 0 k A1 D k a Gh n 3 Xt K kn B Y C U D x q A 7F H Y i 2 C H hI 9 2t g K Qc W A3 Pt G s hL s 50 c Lm TW N 6 0e o8 W gq v 7 X Av 2 O H Um 32 W G ea U w Y D I AW GM e R 4I 30 k A 1DkaGhn3 X t Kk n B Y C U D xq A 7 F H Yi 2 C H hI 92 t g K Q cW A 3 Pt G Z 7 R4 I 3 0 k A1 D 。 Trim((intCount, 1)) amp。 Trim((, 1)) amp。 enddate amp。 / amp。 enddate amp。 / amp。 ExeSQL (txtsql) MsgBox 記錄刪除成功 !, vbInformation, 系統(tǒng)提示 Call showdata End If End If 進貨信息查詢模塊代碼 實現(xiàn)【查詢】功能的代碼 ： Private Sub cmdSearch_Click() Dim MyDate As Date Dim sql As String Dim startdate As String Dim enddate As String startdate = Year() amp。 Trim((intCount, 1)) amp。 ygEdit = 1 Load frmyg (txtsql) 1, frmyginfo Else MsgBox 警告 , vbOKOnly + vbExclamation, 請首先選擇需要修改的紀錄！ End If End If End Sub 實現(xiàn)【刪除】功能的代碼 ： Private Sub Command3_Click() Dim txtsql As String Dim intCount As Integer 第 50 頁 Dim MsgText As String If 1 Then If MsgBox(確認要刪除編號為 amp。判斷用戶是否存在 If (NameKey) = False Then MsgBox 用戶名不存在 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進入本 系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 39。 但在這次畢業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應用，而是學會了設(shè)計系統(tǒng)的思維方法， 以及與同學們之間相互幫助的精神。 界面友好、操作簡單、 易于維護、 方便、效率高好等是本管理系統(tǒng)的優(yōu)點。 圖 庫存信息瀏覽界面 第 34 頁 對象 屬性 屬性值 Frame1 Frame1 庫存信息瀏覽 Label(0) Label 庫存 編號 TextXS(0) TextBox Label(1) Label 商品編號 TextXS(1) TextBox Label(2) Label 商品名 稱 TextXS(2) TextBox Label(3) Label 數(shù)量 TextXS(3) TextBox cmdPrient CommandButton 打印 表 庫存信息瀏覽界面包含的屬性及控件 庫存信息瀏覽界面 上有個報表打印功能，如下圖 為在 查詢庫存 信息后的 打印 預覽： 第 35 頁 綜合查詢 模塊 的 設(shè)計 在整個辦公用品管理系統(tǒng)中，每天都交換著大量的錄入與商品領(lǐng)用信息，如果不能建立一個有效的檢索機制，那將是使辦公用品管理系統(tǒng)的效率 大大降低，因此，本次開發(fā)提供了一個功能全面的綜合查 詢系統(tǒng)。圖 商品設(shè)置界面，表 商品設(shè)置界面包含的 屬性及其控件。Q) quit 基本信息設(shè)置 jbset ? 供應商設(shè)置 (amp。見下圖： 圖 系統(tǒng)功能模塊圖 辦公用品管理系統(tǒng) 基本信息管理 出庫信息管理 進貨信息管理 庫存信息瀏覽 安全設(shè)置 系統(tǒng)初始化 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)備份 數(shù)據(jù)恢復 注銷 系統(tǒng)用戶管理 綜合查詢 數(shù)據(jù)備份 第 22 頁 第四章 系統(tǒng)詳細設(shè)計 系統(tǒng) 用戶 登錄 模塊 的設(shè)計 用戶登錄界面，主要實現(xiàn)兩個功能： ? 連接數(shù)據(jù)庫 ? 檢驗用戶登錄 圖 為所示的系統(tǒng) 用戶 登錄界面，表 所示系統(tǒng)登錄界面包含的控件及其屬性。 第 20 頁 保管員出庫查詢主要實現(xiàn)對保管員的出庫的信息查詢的功能。此功能 為辦公用品管理 模塊 和數(shù)據(jù)統(tǒng)計模塊提供依據(jù)。 根據(jù)需求分析規(guī)劃出的實體，相關(guān) ER 圖有 ： 保管員信息 ER 圖 、 出庫信息 ER 圖 、供應商信息 ER 圖 、 進貨信息 ER 圖 、 庫存信息 ER 圖 、 商品信息 ER 圖 、 員工信息 ER圖 、 用戶信息 ER 圖 。 VB 中的編程與傳統(tǒng)的編程方法不同。 （ 5） 庫存信息瀏覽 模塊 庫存信息管理模塊包括對庫存信 息的統(tǒng)計和打印等功能。 系統(tǒng)信息：用戶名，密碼，權(quán)限 。 因此，本系統(tǒng)的出現(xiàn)，將對辦公用品管理的進一步發(fā)展提供決策支持。充分利用計算機的功能實現(xiàn)對入庫管理、領(lǐng)用管理，庫存信息查詢等自動化控制，將會使辦公用品管理工作大大減弱。 1 江蘇廣播電視大學五年制（高職） 辦公用品管理系統(tǒng) 學 校： 江蘇電大張家港學院 年 級： 02 級 專 業(yè)： 計算機信息管理 姓 名： 學 號： 指導教師： 職稱： ___講師 ___ 二 00 七 年 四 月 2 【摘 要】 : 辦公用品管理系統(tǒng)是辦公自動化管理系統(tǒng)的重要組 成部分，它可以對辦公用品的入庫和領(lǐng)用進行規(guī)范化管理，進而提高工作效率，避免資源的浪費。 因此有一個智能化、系統(tǒng)化、信息化的辦公用品管理系統(tǒng)十分重要的。 總的來說，本系統(tǒng) 提高 了 對辦公用品管理的效率， 降低管理成本 ， 能幫助維護企業(yè)的正常辦公用品借還秩序， 滿足企業(yè)對辦公用品的管理正?；?、合理 化、科學化。 商品信息：商品編號，商品名稱，零售價，批發(fā)價，供應商名稱，備注。 （ 4） 進貨信息管理模塊 進貨信息管理模塊包括對辦公用品信息的添加、修改、刪除、查詢和打印等功能。 采取“事件驅(qū)動”方式在設(shè)計好用戶界面后才開始編寫程序。 ER 模型是建立概念性數(shù)據(jù)模型