【正文】 集 各 種 信 息 以 供 查 詢 、存 儲 和 檢 索 。 Access 的 優(yōu) 點 在 于 它 能 使 用 數(shù) 據(jù) 表 示 圖 或 自 定 義 窗 體 收 集 信 息 。數(shù) 據(jù) 表 示 圖 提 供 了 一 種 類 似 于 Excel 的 電 子 表 格 ， 可 以 使 數(shù) 據(jù) 庫 一 目 了 然 。另 外 ， Access 允 許 創(chuàng) 建 自 定 義 報 表 用 于 打 印 或 輸 出 數(shù) 據(jù) 庫 中 的 信 息 。 Access也 提 供 了 數(shù) 據(jù) 存 儲 庫 ， 可 以 使 用 桌 面 數(shù) 據(jù) 庫 文 件 把 數(shù) 據(jù) 庫 文 件 置 于 網 絡 文 件 服務 器 ， 與 其 他 網 絡 用 戶 共 享 數(shù) 據(jù) 庫 。 Access 是 一 種 關 系 數(shù) 據(jù) 庫 工 具 ， 關 系 數(shù)據(jù) 庫 是 已 開 發(fā) 的 最 通 用 的 數(shù) 據(jù) 庫 之 一 。 如 上 所 述 ， Access 作 為 關 系 數(shù) 據(jù) 庫 開發(fā) 具 備 了 許 多 優(yōu) 點 ， 可 以 在 一 個 數(shù) 據(jù) 包 中 同 時 擁 有 桌 面 數(shù) 據(jù) 庫 的 便 利 和 關 系 數(shù)據(jù) 庫 的 強 大 功 能 。 數(shù) 據(jù) 庫 引 擎在 這 里 ,JET 數(shù) 據(jù) 庫 引 擎 提 供 了 與 數(shù) 據(jù) 庫 打 交 道 的 途 徑 ， 我 們 是 通 過 它 以 及Visual Basic 來 訪 問 數(shù) 據(jù) 庫 并 對 其 進 行 各 種 操 作 。 Visual Basic、 Access北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 20 頁以 及 其 他 微 軟 的 軟 件 產 品 都 是 通 過 共 用 JET 數(shù) 據(jù) 庫 引 擎 ， 從 而 給 用 戶 提 供 了 豐富 的 數(shù) 據(jù) 類 型 。DATA 控 件 在 數(shù) 據(jù) 庫 中 的 信 息 與 將 信 息 顯 示 給 用 戶 看 的 Visual Basic 程序 之 間 架 起 了 一 座 橋 梁 。 我 們 可 以 設 置 DATA 控 件 的 各 個 屬 性 ， 告 訴 它 要 調 用那 個 數(shù) 據(jù) 庫 的 哪 個 部 分 。 缺 省 情 況 下 ， DATA 控 件 根 據(jù) 數(shù) 據(jù) 庫 中 的 一 個 或 多 個數(shù) 據(jù) 表 建 立 一 個 dynasettype（ 動 態(tài) 集 合 ） 類 型 的 記 錄 集 合 。 一 個 記 錄 集 合 是動 態(tài) 的 也 就 意 味 著 ， 當 原 來 的 數(shù) 據(jù) 表 中 的 容 改 變 了 以 后 ， 該 記 錄 集 合 中 的 記 錄也 會 隨 之 改 變 。 DATA 控 件 還 提 供 了 用 來 瀏 覽 不 同 記 錄 的 各 種 跳 轉 按 鈕 。 將DATA 控 件 放 置 在 窗 體 中 之 后 ， 我 們 還 必 須 在 該 控 件 與 要 處 理 的 數(shù) 據(jù) 庫 之 間 建 立聯(lián) 系 。第 五 章 系 統(tǒng) 設 計 與 實 現(xiàn) 系 統(tǒng) 總 體 規(guī) 劃設 計 檔 案 系 統(tǒng) ， 需 要 運 用 窗 體 和 控 件 、 過 程 代 碼 、 數(shù) 據(jù) 庫 設 計 等 許 多 知 識 。檔 案 系 統(tǒng) 包 括 檔 案 名 稱 、 檔 案 說 明 、 檔 案 類 型 等 。北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 21 頁檔 案 管 理 就 是 將 上 述 信 轉 變 為 計 算 機 能 接 受 的 數(shù) 據(jù) 送 入 計 算 機 ， 系 統(tǒng) 包 括學 生 檔 案 數(shù) 據(jù) 輸 入 、 信 息 查 詢 、 信 息 瀏 覽 及 報 表 輸 出 等 功 能 。 系 統(tǒng) 功 能1. 收 入 記 錄 ；2． 查 詢 ；3． 折 線 式 圖 表 ；4． 收 支 詳 情5． 每 月 結 算6． 察 看 課 程 表 。 系 統(tǒng) 具 體 實 現(xiàn) 數(shù) 據(jù) 輸 入對 財 務 信 息 信 息 的 管 理 ， 包 括 家 庭 財 務 信 息 的 輸 入 、 添 加 、 刪 除 和 修 改 。 查 詢通 過 查 詢 ， 將 滿 足 查 詢 條 件 的 信 息 顯 示 在 窗 體 上 。 信 息 瀏 覽將 滿 足 分 析 條 件 的 數(shù) 據(jù) 在 報 表 中 顯 示 出 來 。 報 表 輸 出可 以 將 查 詢 的 結 果 數(shù) 據(jù) 通 過 報 表 輸 出 ， 也 可 打 印 輸 出 。 系 統(tǒng) 設 計 與 實 現(xiàn)系 統(tǒng) 設 計 包 括 數(shù) 據(jù) 庫 設 計 、 登 陸 界 面 設 計 、 主 界 面 設 計 、 菜 單 設 計 和 功 能設 計 。 功 能 設 計 包 括 輸 入 設 計 、 查 詢 等 設 計 。 原 代 碼 見 附 錄 。北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 22 頁 數(shù) 據(jù) 庫 設 計數(shù) 據(jù) 庫 采 用 Access 數(shù) 據(jù) 庫 ， 使 用 VisData 或 在 Access 環(huán) 境 中 創(chuàng) 建 數(shù) 據(jù)庫 personal 財 務 信 息 表 (Zb)如 下 ： （ 圖 1）通 過 數(shù) 環(huán) 境 設 計 器 的 查 詢 設 計 窗 口 ， 將 財 務 信 息 表 (personal)中 的 字 段添 加 到 設 計 器 中 。 登 陸 界 面 設 計登 陸 界 面 是 用 戶 進 入 系 統(tǒng) 前 必 須 要 驗 證 身 份 的 一 個 必 要 步 驟 。此 界 面 由 四 個 標 簽 、 一 個 文 本 框 和 兩 個 按 鈕 組 成 。登 陸 界 面 運 行 如 下 ：北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 23 頁 （ 圖 2）實 現(xiàn) 代 碼 :Option ExplicitPublic grzbpass As StringPrivate Sub Comca_Click()Unload MeEndEnd SubPrivate Sub Comok_Click()grzbpass = If = True Then If = Then Dim i As Byte, pas(7) As String, mw mw = For i = 1 To Len() pas(i 1) = Mid(, i, 1) pas(i 1) = Chr(Asc(pas(i 1)) + 50 + i * 2) mw = mw + pas(i 1) Next i Open + \ For Output As 1 Write 1, mw Close 1 Else MsgBox 兩次輸入的密碼不相同，請重輸。, 48, 提示 = With Text2 .Text = .SetFocus End With Exit Sub End If北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 24 頁End IfUnload MeEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = False = False = False = False = amp。H80000009 = amp。H80000008 = amp。H80000008 = amp。H80000009End SubPrivate Sub Label2_Click()If Then MsgBox 請先輸入正確的密碼！ = 0 = 8 Else = True = True = False = True = True End IfEnd SubPrivate Sub Label2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 25 頁 = amp。H80000009 = amp。H80000008 = amp。H80000008 = amp。H80000009End IfEnd SubPrivate Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = True = True = True = TrueEnd Sub北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 26 頁 主 界 面 設 計主 界 面 是 用 戶 打 開 系 統(tǒng) 首 先 見 到 的 界 面 ， 也 是 進 入 其 他 模 塊 的 入 口 。主 界 面 將 常 用 菜 單 項 設 計 為 工 具 欄 ， 在 工 具 欄 上 有 輸 入 新 增 、 修 改 、 上 下記 錄 按 鈕 、 刪 除 結 算 、 幫 助 和 退 出 等 菜 單 。主 界 面 運 行 如 下 ： （ 圖 3）北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 27 頁整 個 主 界 面 直 觀 的 顯 示 了 財 務 記 錄 的 基 本 信 息 。實 現(xiàn) 代 碼 :Option ExplicitPublic myyear As StringPrivate Sub MYHELP() 1End SubPrivate Sub visok(test As Boolean) 39。在某些功能啟用時，另一些功能不允許用Dim kk As IntegerIf test Then = True (1).Visible = True = True (3).Visible = True = True (4).Visible = True = True (5).Visible = True = True (7).Visible = False (8).Visible = False = True For kk = 10 To 16 (kk).Visible = True Next kk = True = True = True = True = True = True = True北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 28 頁 = True = True Text1(0).Locked = True Text1(1).Locked = True Text1(2).Locked = True = TrueElse = False (1).Visible = False = False (3).Visible = False = False (4).Visible = False = False (5).Visible = False = False (7).Visible = True (8).Visible = True = False For kk = 10 To 16 (kk).Visible = False Next kk = False = False = False = False = False = False = False = False = False Text1(0).Locked = False Text1(1).Locked = False Text1(2).Locked = False北 京 理 工 大 學 現(xiàn) 代 遠 程 教 育 學 院 畢 業(yè) 設 計 (論 文 )第 29 頁 = FalseEnd IfEnd SubPrivate Sub mok() 39。前進,后退按鈕在記錄位不同時的不同狀態(tài)Dim l As Integer, n As Integer, book As Variant = Format((0), yyyymmdd)book = = bookn = l = 1Select Case n Case 0 (3).Enabled = False = False (4).Enabled = True = True Case 1 To l 1