【正文】 個屬性為查詢條件的 參數(shù)查詢 語句。例如員工信息管理系統(tǒng)中就分別以員工編號、員工姓名、電話創(chuàng)建了 參數(shù)查詢 。在總系統(tǒng) 窗體中 創(chuàng)建 了 交叉表查詢 ，以顯示貿(mào)易商品的全過程。 創(chuàng)建窗體及控制面板 總系統(tǒng)主窗體 貿(mào)易公司管理信息系統(tǒng)中的 6 個子系統(tǒng)（員工管理系統(tǒng)、商品信息管理系統(tǒng)、供貨商信息管理系統(tǒng)、經(jīng)銷商信息管理系統(tǒng)、采購信息管理系統(tǒng)、銷售信息管理系統(tǒng)）功能相互獨立， 通過主系統(tǒng)（主窗體）可以鏈接到各個子系統(tǒng)，進行詳細(xì)信息的查詢及編輯。各個系統(tǒng)的實體間的屬性數(shù)據(jù)也存在 聯(lián)系，通過主系統(tǒng)（主窗體）的快捷操作功能，可以查詢 追蹤 到每件商品的貿(mào)易總過程及報表操作。 以下是總系統(tǒng)窗體圖： 圖 58 主窗體 14 各個子系統(tǒng)窗體 。 各個子系統(tǒng)（窗體）數(shù)據(jù)、功能獨立，能進行獨立的數(shù)據(jù)查詢、編輯以及報表等操作。 以下是其中的兩個子系統(tǒng)窗體： 圖 59 員工管理系統(tǒng)窗體 圖 510 采購信息系統(tǒng)窗體 創(chuàng)建報表 該 數(shù)據(jù)庫管理系統(tǒng)中，分別 在報表設(shè)計視圖中 設(shè) 計了 商品 信息報表、 員工信息 報表、 采購信息報表 、供 貨 商 信息 報表 、經(jīng)銷商信息報表 和 貿(mào)易總報表 共 7張報表， 通過這些報表， 將用戶所查詢的內(nèi)容直觀地展示出來，便于用戶進行預(yù)覽和打印 ， 下 圖是其中一個報表的設(shè)計界面 。 圖 511 員工信息報表 15 6 前臺界面設(shè)計 前臺界面使用 實現(xiàn)，通過前臺界面，使用戶能夠直接與數(shù)據(jù)庫建立連接，操作后臺數(shù)據(jù)庫中的數(shù)據(jù)，限于時間，本系統(tǒng)僅創(chuàng)建了用戶登錄窗體和用戶信息編輯窗體。下面分別進行介紹。 登錄窗體設(shè)計 本系統(tǒng)設(shè)計的登錄窗體專門用于系統(tǒng)管理員使用，管理員通過用戶姓 名和密碼登錄，登錄成功后，登錄成功后將進入用戶管理窗體，通過該窗體就可以查詢和編輯用戶信息。登錄窗體設(shè)計見如圖 51 所示： 用戶登錄窗體的主要代碼 : Option Explicit Dim t As Integer 39。記錄確定次數(shù) Private Sub Form_Load() t = 0 End Sub Private Sub cmdCancle_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim sql As String Dim rs_login As New Dim conn As New Dim txtusername As String provider=。 data source= amp。 amp。 \貿(mào)易公司管理系統(tǒng) .mdb If Trim() = Then MsgBox 用戶名不能為空，請重新輸入！ Else sql = select * from 用戶和密碼 where 姓名 =39。 amp。 Trim() amp。 39。 sql, conn, adOpenKeyset, adLockOptimistic If = True Then MsgBox 沒有這個用戶 ,請重輸入！ , vbOKOnly + vbExclamation, = Else txtusername = If Trim((1)) = Trim() Then Unload Me 39。MsgBox 登錄成功 Else MsgBox 密碼不正確 ,請重輸入！ , vbOKOnly + vbExclamation, = End If End If 圖 61 用戶登錄窗體 16 End If t = t + 1 If t = 3 Then Unload Me End If End Sub 編輯 窗體設(shè)計 用戶信息瀏覽與編輯窗體使用 Adodc 控件與數(shù)據(jù)庫建立連接，使用 DataGrid 控件瀏覽和編輯用戶信息，使用命令按鈕添加、修改和刪除用戶信息 .，窗體設(shè)計操作界面見圖 62 所示 : 圖 62 編輯窗體圖 窗體中對象的屬性見表 61。 name Caption 其他屬性 Command1 添加 Command2 更新 Command3 刪除 Command4 保存 表 61 窗體屬性表 主要代碼 : Private Sub Command1_Click() End Sub Private Sub Command2_Click() 39。更新數(shù)據(jù)庫數(shù)據(jù) MsgBox 保存成功 , vbInformation, 恭喜 = True End Sub Private Sub Command3_Click() MsgBox 刪除成功 , vbInformation, End Sub Private Sub Command4_Click() 39。更新數(shù)據(jù)庫數(shù)據(jù) MsgBox 更新成功 , vbInformation, 恭喜 = True End Sub 17 總結(jié) 通過本此課程設(shè)計，讓我們更 進一步 地掌握了《數(shù)據(jù)庫應(yīng)用》 課程 的 相關(guān)知識，熟悉了 創(chuàng)建數(shù)據(jù)庫 管理系統(tǒng) 的全過程。熟練地掌握了 運用 SQL 語言 和視圖創(chuàng)建 基本表 、 選擇查詢、參數(shù)查詢、生成表查詢、追加查詢 的方法 ，同時 也熟練地掌握了創(chuàng)建用戶窗體、報表和宏對象的方法。本系統(tǒng)創(chuàng)建的 后臺數(shù)據(jù)庫能夠獨立運行，并滿足用戶對數(shù)據(jù)庫管理的各種需求。 為了拓展我們的視野，我們通過自學(xué)學(xué)習(xí)了 程序設(shè)計語言和數(shù)據(jù)庫連接的相關(guān)知識，并使用這些知識創(chuàng)建了用戶登錄窗體和基本圖書管理窗體，通過這些窗體實現(xiàn)用戶對數(shù)據(jù)庫的管理。經(jīng)過程序 調(diào)試，前臺系統(tǒng)運行良好。 在數(shù)據(jù)庫的設(shè)計過程中，我們遇到了種種困難，比如 ER 圖的確定，每一個問題的解決都加深了我們對數(shù)據(jù)庫的了解。 不過，由于專業(yè)知識的限制，我們所制作的 貿(mào)易公司 管理 信息 系統(tǒng) 仍然存在一些問題，如 系統(tǒng) 缺少計算功能 ，今后需要進一步學(xué)習(xí)，完善系統(tǒng)的功能。 18 致謝 感謝 鄭玲利 老師平時對我們的教導(dǎo)，此次課程設(shè)計，老師幫助了我們很多，在此感謝老師對我們的悉心教導(dǎo)。老師對工作的負(fù)責(zé)深深地影響了我們?nèi)M成員，使我們在不知不覺中全心投入了課程設(shè)計，盡自己最大的努力把系 統(tǒng)做得更好。 19 參考文獻(xiàn) [1] 鄭玲利 .數(shù)據(jù)庫原理及應(yīng)用 案例教程 [M].北京： 清華大學(xué) 出版社， . [2] 羅朝盛 .Vsiusl 程序設(shè)計實用教程 .北京：清華大學(xué)出版社，