【文章內(nèi)容簡介】 準確記錄訂單的貨物進行交貨 訂單數(shù)量 文本 50 否 訂單信息表 發(fā)貨數(shù)量和下單數(shù)量一致 貨物單位 文本 50 否 訂單信息表 記錄準確訂單量 所在倉庫 文本 50 否 訂單信息表 確定下單貨物準確位置 圖 訂單信息表 數(shù)據(jù)項目 客戶信息 字段名稱 數(shù)據(jù)類型 字段大小 主鍵 有關(guān)的數(shù)據(jù)結(jié)構(gòu) 注釋 客戶名稱 文本 50 是 客戶信息查詢表 記錄下單單位 地區(qū)名稱 文本 50 否 客戶信息查詢表 確定送貨地點 城市名稱 文本 50 否 客戶信息查詢表 確定送貨地點 郵政編碼 數(shù)字 長整形 否 客戶信息查詢表 下單客戶地區(qū)的郵編 聯(lián)系電話 數(shù)字 長整形 否 客戶信息查詢表 及時聯(lián)系客戶 聯(lián)系地址 文本 50 否 客戶信息查詢表 準確送達貨物 聯(lián)系人姓名 文本 50 否 客戶信息查詢表 聯(lián)系客戶的需要 圖 客戶信息表 山東交通學(xué)院課程設(shè)計報告 9 數(shù)據(jù)項目 商品信息 字段名稱 數(shù)據(jù)類型 字段大小 主鍵 有關(guān)的數(shù)據(jù)結(jié)構(gòu) 注釋 商品名稱 文本 50 是 商品信息管理表 確定訂單商品 商品類型 文本 50 否 商品信息管理表 確定商品類型 商 品單價 文本 50 否 商品信息管理表 給客戶報價 商品庫存 文本 50 否 商品信息管理表 所下單商品剩余庫存 所在倉庫 文本 50 否 商品信息管理表 準確定位下單商品位置 圖 商品信息表 數(shù)據(jù)項目 管理員信息 字段名稱 數(shù)據(jù)類型 字段大小 主鍵 有關(guān)的數(shù)據(jù)結(jié)構(gòu) 注釋 id 文本 6 是 用戶管理表 登陸的賬號 idcardno 文本 18 否 用戶管理表 管理員的身份證 mima 文本 6 否 用戶管理表 登陸的密碼 name 文本 20 否 用戶管理表 登陸人的名稱 role 文本 20 否 用戶管理表 角色 gender 文本 1 否 用戶管理表 管理員性別 圖 操作數(shù)據(jù)庫設(shè)計 使用 DATA 控件連接數(shù)據(jù)庫 在硬盤的用戶盤上建立一個用戶目錄（如 E:\WORK），用于保存所有實驗文件。啟動ACCESS，找到數(shù)據(jù)庫 WLGL,確認有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將 WLGL 數(shù)據(jù)庫打開，轉(zhuǎn)化 97 格式的數(shù)據(jù)庫，取名 WLGL97，復(fù)制到用戶目錄下。 啟動 VB，在窗體上加入 DATA 控件 data1，文本框控件 text1，保存文件和工程到用戶目錄下。 設(shè)置 DATA 控件的 databasename 屬性為 WLGL97，設(shè)置 DATA 控件的 Recordsource屬性為貨物表。設(shè)置文本框控件的 datasource 屬性為 data1,設(shè)置文本框控件的datafield 屬性為貨物名稱。 運行程序，查看結(jié)果。修改上述文本框控件的 datafield 屬性，查看結(jié)果。添加其他文本框控件，設(shè)置屬性，顯示更多的貨物表內(nèi)容。 山東交通學(xué)院課程設(shè)計報告 10 使用 ADODC 控件連接數(shù)據(jù)庫 在硬盤的用戶盤上建立一個用戶目錄（如 E:\WORK），用于保存所有實驗文件。啟動ACCESS，找到數(shù)據(jù)庫 WLGL,確認有貨 物表，并已經(jīng)錄入了多條數(shù)據(jù)。復(fù)制到用戶目錄下。 啟動 VB,通過菜單 工程 — 部件 — 控件添加控件 Microsoft ADO DATA CONTROL 和Microsoft DATAgrid CONTROL 。通過工具箱加兩個控件到窗體上。 設(shè)置 ADODC 的屬性，生成 — 提供程序 — Microsoft JET OLE DB；連接 — WLGL—測試連接成功；記錄源 — 命令類型： 2— 表名稱：貨物表。設(shè)置 datagrid 控件屬性datasource 為 ADODC1.： 使用數(shù)據(jù)窗體設(shè)計器操作數(shù)據(jù)庫 在硬盤的用戶盤上建立一個用戶目錄（如 E:\WORK），用于保存所有實驗文件。啟動ACCESS，找到數(shù)據(jù)庫 WLGL,確認有 貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。將 WLGL 數(shù)據(jù)庫打開，轉(zhuǎn)化 97 格式的數(shù)據(jù)庫，取名 WLGL97，復(fù)制到用戶目錄下。 啟動 VB,通過菜單 外接程序 — 可視化數(shù)據(jù)管理器，在 visdata 界面上文件 打開數(shù)據(jù)庫 — Microsoft ACCESS WLGL97,實用程序 數(shù)據(jù)窗體設(shè)計器 — 窗體名稱 :huowu— 記錄源：貨物表 — 添加使用的多個字段到右側(cè) — 生成窗體 — 關(guān)閉。 對自動生成的窗體，重新排列位置、設(shè)置字體大小，顏色，控件長度等，調(diào)整界面美觀大方，不留空白，不顯擁擠。 山東交通學(xué)院課程設(shè)計報告 11 使用 ADO 對象訪問數(shù)據(jù)庫 在硬盤的用 戶盤上建立一個用戶目錄（如 E:\WORK），用于保存所有實驗文件。啟動ACCESS，找到數(shù)據(jù)庫 WLGL,確認有貨物表，并已經(jīng)錄入了多條數(shù)據(jù)。復(fù)制到用戶目錄下。 啟動 VB,通過菜單 工程 — 引用 添加 Microsoft ActiveX DATA 添加按鈕控件，添加 list 控件 list1,編寫單擊事件如下： Dim i%, j% Dim ans1 As New Dim 1 As New Dim rst1 As New Provider=。Persist Security Info=False。Data Source= E:\WORK\ Set = ans1 = select * from 貨物表 1, , adOpenDynamic, adLockOptimistic i = For i = 0 To 15 (1).Value For j = 0 To 6 Print (j)。 Next j Print Next i 界面設(shè)計 用戶登錄 系統(tǒng)登錄控制，必須使用用戶名和密碼登錄后才能使用系統(tǒng) 山東交通學(xué)院課程設(shè)計報告 12 代碼如下 Option Explicit Public LoginSucceeded As Boolean Private Sub cmdcancel_Click() 39。設(shè)置全局變量為 false 39。不提示失敗的登錄 LoginSucceeded = False End End Sub Private Sub cmdOK_Click() Dim As New Dim rs As New Dim constr As String Provider=。Data Source= amp。 amp。 \。Persist Security Info=False If Trim() = Then MsgBox (請輸入用戶名 ) 山東交通學(xué)院課程設(shè)計報告 13 Else select * from 用戶 管理 where id=39。 amp。 Trim() amp。 39。, , adOpenDynamic, adLockOptimistic If And Then MsgBox (不存在該用戶，請重新輸入用戶名 ) Else