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