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