曝光臺 注意防騙 網曝天貓店富美金盛家居專營店坑蒙拐騙欺詐消費者

● 系統管理模塊:用來實現用戶的增加、刪除和修改等操作。
三、數據庫設計
這里的數據庫采用Access，用ADO 作為連接數據對象。
1、建立Access 數據庫
啟動Access，建立一個空的數據庫book.mdb，如圖8 所示。
使用程序設計器建立系統需要的表格如下。
圖書登記表，如圖9 所示。
圖8 建立數據庫book.mdb 圖9 圖書登記表
圖書借閱表，如圖10 所示。圖書賠償表，如圖11 所示。
圖10 圖書借閱表圖11 圖書賠償表
圖書資料表，如圖12 所示。系統管理表，如圖13 所示。
圖12 圖書資料表圖13 系統管理表
投訴管理表，如圖14 所示。
圖14 投訴管理表
值班管理表，如圖15 所示。
圖15 值班管理表
2、連接數據
在Visual Basic 環境下，選擇“工程”→“引用”命令，在隨后出現的對話框中選擇“Microsoft ActiveX Data
Objects 2.0 Library”，然后單擊“確定”按鈕，如圖16 所示。
圖16 引用ADO 連接數據庫
在程序設計的公共模塊中，先定義ADO 連接對象。語句如下:
Public conn As New ADODB.Connection ' 標記連接對象
然后在子程序中，用如下的語句即可打開數據庫:
Dim connectionstring As String
connectionstring = "provider=Microsoft.Jet.oledb.4.0;" &_
"data source=book.mdb"
conn.Open connectionstring
3、設置ODBC
VB 的ADO 對象是通過ODBC 來訪問數據庫，所以還要建立ODBC 數據引擎接口。
打開控制面板中的“管理工具”→“數據源”(ODBC)，出現如圖17 所示的對話框。
圖17 ODBC 對話框
單擊“添加”按鈕，出現“創建新數據源”對話框，如圖18 所示。
圖18 “創建新數據源”對話框
選擇Microsoft Access Driver(*.mdb)，單擊“完成”按鈕，出現如圖19 所示對話框。
圖19 設置連接數據源
在“數據源名”文本框中添加一個名字，單擊“確定”按鈕完成系統默認連接設置。然后在ODBC 對話框
中單擊“確定”按鈕完成ODBC 設置。
界面設計
設計好的界面如圖20 所示。
圖20 圖書管理系統界面
這是一個多文檔界面(MDI)應用程序，可以同時顯示多個文檔，每個文檔顯示在各自的窗體中。MDI 應
用程序中常有包含子菜單的“窗體”選項，用于在窗體或文檔之間進行切換。
菜單應用程序中，有5 個菜單選項，每個選項對應著E-R 圖的一個子項目。
1、創建主窗體
首先創建一個工程，命名為圖書管理系統，選擇“工程”→“添加MDI 窗體”命令，則在項目中添加了主
窗體。該窗體的一些屬性如表1 所示。
表1 主窗體的屬性
屬性值
Caption 圖書管理系統
Name Main
Menu Mainmenu1
Windowstate Maxsize
Windowstate 的值為Maxsize，即程序啟動之后自動最大化。
將“菜單”組件從“工具箱”拖到窗體上。創建一個Text 屬性設置為“文件”的頂級菜單項，且帶有名為“關
閉”的子菜單項。類似地創建一些菜單項，如表2 所示。
表2 菜單項表
菜單名稱Text 屬性功能描述
MenuItem1 圖書管理頂級菜單，包含子菜單
MenuItem2 圖書登記調出圖書登記窗體
MenuItem3 圖書借閱調出圖書借閱窗體
MenuItem4 圖書賠償調出圖書賠償窗體
MenuItem5 圖書資料頂級菜單，包含子菜單
MenuItem6 查詢輸出調出查詢輸出窗體
MenuItem7 值班管理頂級菜單，沒有子菜單
MenuItem8 投訴管理頂級菜單，沒有子菜單
MenuItem9 系統管理頂級菜單，包含子菜單
MenuItem10 增加用戶調出用戶窗體
MenuItem11 修改密碼調出密碼窗體
MenuItem12 退出系統退出
主窗體如圖21 所示。
圖21 主窗體
2、創建各子窗體
選擇“工程”→“添加窗體”命令，添加子窗體。
在新建Visual Basic 工程時自帶的窗體中，將其屬性MIDChild 改成True，則這個窗體成為MID 窗體
的子窗體。
在這個項目中，要創建的子窗體如表3 所示。
表3 所有子窗體
子窗體名Text
圖書登記frmdengji
圖書借閱frmjieyue
圖書賠償frmpeichang
增加新用戶frmadduser
查詢輸出frmfind
登錄系統frmlogin
修改密碼frmchangepwd
下面分別給出這些子窗體，以及它們所使用的控件。
(1) 圖書登記子窗體如圖22 所示，其控件如表4 所示。
圖22 圖書登記子窗體
表4 圖書登記子窗體控件
控件類別控件Name 控件Text
Label1 編號
Label2 書名
Label3 類型
Label4 購買日期
Label
Label5 定價
Text1 (空)
Text2 (空)
Text3 (空)
Text4 (空)
TextBox
Text5 (空)
Command1 增加記錄
Command2 刪除記錄
Command3 下一條
Command4 上一條
Command5 第一條
CommandButton
Command6 最后一條
Command7 退出
ADO DataAdodc1 (空)
DataGrid DataGrid1 (空)
圖書借閱和圖書賠償子窗體分別如圖23 和圖24 所示，因為它們的控件與圖書登記子窗體的雷同，在
此不作介紹。
圖23 圖書借閱子窗體
圖24 圖書賠償子窗體
(2) 增加用戶子窗體如圖25 所示，其控件如表5 所示。
圖25 增加用戶子窗體
表5 增加用戶子窗體控件
控件類別控件Name 控件Text
Label1 輸入用戶名
Label2 輸入密碼
Label3 確認密碼
Label
Label4 選擇權限
Text1 (空)
TextBox Text2 (空)
Text3 (空)
ComboBox Comb1 (空)
Commandl 確定
　
中國航空網 www.k6050.com
航空翻譯 www.aviation.cn
本文鏈接地址：航空講座1(32)