第一篇：案例三用VB制作一個(gè)大學(xué)的學(xué)生查詢系統(tǒng)

案例三：用VB制作一個(gè)大學(xué)的學(xué)生查詢系統(tǒng)

3.1 課程設(shè)計(jì)的目的和意義 3.2 系統(tǒng)功能設(shè)計(jì)

3.3 數(shù)據(jù)庫(kù)與數(shù)據(jù)表的設(shè)計(jì) 3.4 創(chuàng)建應(yīng)用系統(tǒng)主窗體 創(chuàng)建主窗體的方法和步驟：

（1）啟動(dòng)VB程序，出現(xiàn)VB開(kāi)發(fā)平臺(tái)

（2）創(chuàng)建一個(gè)標(biāo)準(zhǔn)的工程，出現(xiàn)一個(gè)空白窗體Form1（3）分別命名并保存工程及主窗體

（4）在主窗體Form1中修改它的Caption屬性為“大學(xué)學(xué)生查詢系統(tǒng)”（5）在Form1中加載一張圖片為背景

（6）設(shè)置窗體的啟動(dòng)位置屬性，該屬性決定窗體在運(yùn)行時(shí)出現(xiàn)的位置

（7）在窗體中放入一個(gè)標(biāo)簽控件Label1，設(shè)置標(biāo)簽的Caption屬性為“歡迎進(jìn)入學(xué)生查詢管理”。

（8）在Form1中放入兩個(gè)命令按鈕控件Command1和Command2，分別設(shè)置他們的Caption屬性為“進(jìn)入系統(tǒng)”和“退出系統(tǒng)”

（9）編制按鈕控件Command1和Command2的代碼 3.5 創(chuàng)建一個(gè)數(shù)據(jù)處理子窗體 3.6 用主窗體控件調(diào)用數(shù)據(jù)窗體

為按鈕控件Command1和Command2編制代碼：

右擊命令按鈕1，出現(xiàn)過(guò)程編輯器窗體，編制代碼如下： Private Sub Command1_Click()學(xué)生信息查詢窗體.Show End Sub 為命令按鈕2編制過(guò)程代碼： Private Sub Command2_Click()Unload.Me End Sub 3.7 重要代碼分析

指向第一條記錄的按鈕的過(guò)程代碼： Private Sub cmdFirst_Click()

On Error GoTo GoFirstError

PrimaryCLS.MoveFirst

mbDataChanged = False

Exit Sub GoFirstError:

MsgBox Err.Description End Sub 指向前一條記錄的過(guò)程代碼： Private Sub cmdPrevious_Click()

On Error GoTo GoPrevError

PrimaryCLS.MovePrevious

Exit Sub GoPrevError:

MsgBox Err.Description End Sub 指向下一條記錄的過(guò)程代碼： Private Sub cmdNext_Click()

On Error GoTo GoNextError

PrimaryCLS.MoveNext

Exit Sub GoNextError:

MsgBox Err.Description End Sub 指向最后一條記錄按鈕的過(guò)程代碼： Private Sub cmdLast_Click()

On Error GoTo GoLastError

PrimaryCLS.MoveLast

mbDataChanged = False

Exit Sub GoLastError:

MsgBox Err.Description End Sub 案例四：用VB控件制作一個(gè)大學(xué)的學(xué)生管理系統(tǒng)

4.1 課程設(shè)計(jì)的目的和意義 4.2 系統(tǒng)功能設(shè)計(jì)

4.3 數(shù)據(jù)庫(kù)與數(shù)據(jù)表的設(shè)計(jì) 4.4 制作應(yīng)用程序主窗體 應(yīng)用主窗體與案例三相似 4.5 制作數(shù)據(jù)處理窗體 增加新的窗體：

（1）單擊VB主菜單中的“工程|添加窗體”

（2）在出現(xiàn)的類型窗體選擇面板中選擇“窗體”

（3）命名并保存窗體（主要要保存在工程中），設(shè)置窗體名稱為DataForm（4）修改窗體Form2的Caption屬性為“學(xué)生信息處理窗體”

為新的窗體布局并加入數(shù)據(jù)控件

往往一個(gè)數(shù)據(jù)處理窗體分為兩個(gè)部分，一個(gè)是數(shù)據(jù)錄入部分，一個(gè)是數(shù)據(jù)處理部分。加入控件的過(guò)程

（1）在窗體中放入一個(gè)數(shù)據(jù)控件Data1。

（2）設(shè)置數(shù)據(jù)控件Data1的DataBaseName屬性，Connect屬性和Recordset屬性。（3）添加文本框控件，文本框主要要設(shè)置DataSource屬性和DataField屬性（4）在每一個(gè)文本框之前放入一個(gè)標(biāo)簽控件，用于對(duì)每一個(gè)文本框的說(shuō)明

（5）作為數(shù)據(jù)查詢，往往可以輸入條件查詢，所以再在窗體中加入一個(gè)標(biāo)簽和一個(gè)文本框，作為輸入條件的表達(dá)式。（6）在窗體中添加五個(gè)命令控件按鈕，分別設(shè)置他們的Caption屬性為“添加記錄”，“刪除記錄”，“更新記錄”，“查詢記錄”，“結(jié)束操作”。（7）分別為每一命令控件編制過(guò)程代碼 “添加記錄”命令按鈕的過(guò)程代碼： Private Sub Command1_Click()Data1.Recordset.AddNew End Sub “刪除記錄”命令按鈕的過(guò)程代碼： Private Sub Command2_Click()If MsgBox(“真的需要?jiǎng)h除當(dāng)前記錄？”, vbYesNo, “信息提示”)= vbYes Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst End If End If End Sub “更新記錄” 命令按鈕的過(guò)程代碼： Private Sub Command3_Click()Data1.UpdateRecord Data1.Recordset.Bookmark = Data1.Recordset.LastModified End Sub “查詢記錄” 命令按鈕的過(guò)程代碼：

Private Sub Command4_Click(Index As Integer)Dim str As String str = Text2.Text If str = “" Then MsgBox ”請(qǐng)輸入查詢條件“, , ”信息提示“ Exit Sub End If Data1.Recordset.FindFirst str If Data1.Recordset.NoMatch Then MsgBox ”沒(méi)有符合條件的記錄“, , ”信息提示" End If End Sub 4.6 為主窗體的兩個(gè)選項(xiàng)按鈕編制過(guò)程代碼

第二篇：用VB編寫(xiě)一個(gè)簡(jiǎn)單的圖書(shū)管理系統(tǒng)分解

用VB編寫(xiě)一個(gè)簡(jiǎn)單的圖書(shū)管理系統(tǒng)

Srl2011009（學(xué)號(hào)）石二遼（姓名）

指導(dǎo)教師 徐哲鑫

【摘 要】筆者采用Visual Basic 6.0 為開(kāi)發(fā)工具，設(shè)計(jì)一款具備友好的圖形用戶界面、簡(jiǎn)便操作的圖書(shū)管理系統(tǒng)。充分利用計(jì)算機(jī)功能實(shí)現(xiàn)讀者管理、書(shū)籍管理、借還書(shū)籍管理等信息的自動(dòng)化控制，將使圖書(shū)管理員從繁雜、重復(fù)的勞作中解放出來(lái)。

【關(guān)鍵詞】圖書(shū)；面向?qū)ο?；軟件工?/p>

1概述

1.1開(kāi)發(fā)背景

用計(jì)算機(jī)管理圖書(shū)館里一切信息是一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前圖書(shū)管理都是由圖書(shū)管理人員手工記帳的方式來(lái)操作的.現(xiàn)在一般的圖書(shū)館都是采用計(jì)算機(jī)作為工具，使用實(shí)用的圖書(shū)管理程序來(lái)幫助圖書(shū)館管理員進(jìn)行更有效的圖書(shū)管理。

1.2圖書(shū)管理系統(tǒng)產(chǎn)生的背景

圖書(shū)管理系統(tǒng)是典型的信息管理系統(tǒng),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。

[1]而對(duì)于前端應(yīng)用程序則要求應(yīng)用程序具備功能完備、友好的圖形用戶界面、便捷使用等特點(diǎn)。

1.3 系統(tǒng)功能要求的分析

開(kāi)發(fā)本系統(tǒng)的總體任務(wù)是實(shí)現(xiàn)圖書(shū)管理系統(tǒng)的系統(tǒng)化和自動(dòng)化，幫助圖書(shū)管理員更好更高效地完成圖書(shū)管理工作，本系統(tǒng)要完成的功能主要有: 書(shū)籍管理部分:圖書(shū)類別管理和圖書(shū)信息管理。其中，書(shū)籍類別管理包括添加書(shū)籍類別、修改書(shū)籍類別、刪除書(shū)籍類別等；書(shū)籍信息管理包括書(shū)籍信息的添加、修改、查詢、刪除等。

讀者管理部分:讀者類別管理和讀者信息管理，讀者類別管理包括讀者類別添加、修改、刪除等；讀者信息包括讀者添加讀者信息、修改讀者信息、查詢讀者信息、刪除讀者信息等。

借閱管理部分:借書(shū)信息管理和還書(shū)信息管理，借書(shū)信息管理、還書(shū)信息管理均包括其信息的添加、修改、查詢等。

系統(tǒng)管理部分:添加管理員,修改密碼,退出系統(tǒng)。

2開(kāi)發(fā)環(huán)境及實(shí)現(xiàn)技術(shù)介紹

2.1開(kāi)發(fā)軟件介紹

由于我的工作單位是一所中心小學(xué)，有大量的書(shū)籍，讀者有學(xué)生、老師，于是本人想設(shè)計(jì)一款實(shí)用的圖書(shū)管理系統(tǒng)，方便學(xué)校圖書(shū)管理員工作，增強(qiáng)圖書(shū)借閱力度，良好地管理書(shū)籍及其借閱信息。

2．2模塊設(shè)計(jì)[2]

書(shū)籍管理部分實(shí)現(xiàn)對(duì)書(shū)籍類別、書(shū)籍信息的添加、修改、刪除等操作。讀者管理部分實(shí)現(xiàn)對(duì)讀者類別、讀者信息的添加、修改、刪除等操作。借閱管理部分實(shí)現(xiàn)對(duì)借書(shū)信息、還書(shū)信息的添加、修改、查詢等操作。

系統(tǒng)管理部分實(shí)現(xiàn)超級(jí)用戶對(duì)普通用戶的用戶名和密碼對(duì)注冊(cè)、修改等操作。

2．3程序預(yù)覽

運(yùn)行本系統(tǒng)程序，首先出現(xiàn)登錄界面（圖2），輸入正確用戶名及密碼后進(jìn)入主窗體（圖3），主窗體上的主菜單欄有：書(shū)籍管理、讀者管理、借閱管理、系統(tǒng)設(shè)置及幫助。

圖2

圖3

2.3.1書(shū)籍管理功能

“書(shū)籍管理”菜單下有兩個(gè)一級(jí)菜單：“書(shū)籍信息管理”和“書(shū)籍類別管理”。具體操作如下： 1．“書(shū)籍類別管理”下有三個(gè)子菜單：“新增”、“修改”、“刪除”。單擊“新增”菜單，打開(kāi)“新增書(shū)籍類別”窗體（圖4）。單擊“修改”或“刪除”，都會(huì)打開(kāi)“書(shū)籍類別信息管理”窗體（圖5）。

圖4 圖5 2．“書(shū)籍信息管理”下有四個(gè)子菜單：“新增圖書(shū)”、“修改書(shū)籍信息”、“刪除書(shū)籍信息”、“查詢書(shū)籍信息”。單擊“新增圖書(shū)”菜單，打開(kāi)“新增書(shū)籍”窗體（圖6）。單擊“修改”或“刪除”，都會(huì)打開(kāi)“書(shū)籍信息管理”窗體（圖7）。單擊“查詢書(shū)籍信息”菜單，打開(kāi)“查詢圖書(shū)”窗體（圖8）

圖6

圖7

圖8 2.3.2讀者管理功能

“讀者管理”菜單下有兩個(gè)一級(jí)菜單：“讀者類別管理”和“讀者信息管理”。1．“讀者類別管理”下有3個(gè)子菜單：“添加讀者類別”、“修改讀者類別”、“刪除讀者類別”。單擊“添加讀者類別”菜單，打開(kāi)“添加讀者類別”窗體（圖9）；單擊“修改讀者類別”和“刪除讀者類別”菜單，都會(huì)打開(kāi)“讀者類別管理”窗體（圖10）。

圖9 圖10

2．“讀者信息管理”菜單下有4個(gè)子菜單：“添加讀者信息”、“修改讀者信息”、“刪除讀者信息”和“查詢讀者信息”。單擊“添加讀者信息”菜單，打開(kāi)“添加讀者信息”窗體（圖11），單擊“修改讀者信息”和“刪除讀者信息”菜單，都會(huì)打開(kāi)“讀者信息管理”窗體（圖12），單擊“查詢讀者信息”菜單，打開(kāi)“查詢讀者信息”窗體（圖13）。

圖11

圖12 圖13

2.3.3圖書(shū)借閱管理功能

“借閱管理”菜單下有2個(gè)一級(jí)菜單：“借書(shū)管理”和“還書(shū)管理”。

1．“借書(shū)管理”菜單下有2個(gè)子菜單：“添加借書(shū)信息”和“查詢借書(shū)信息”。單擊“添加借書(shū)信息”先打開(kāi)的是“查詢圖書(shū)”窗體（圖8），找到需要借閱的圖書(shū)后，單擊“借這本書(shū)按鈕”，打開(kāi)“借書(shū)”窗體（圖14）；單擊“查詢借書(shū)信息”菜單，打開(kāi)“查詢借書(shū)信息”窗體（圖15）。

圖14 圖15

2.單擊“還書(shū)管理”，打開(kāi)“還書(shū)”窗體（圖16）。

圖16 2.3.4系統(tǒng)管理功能

“系統(tǒng)管理”菜單下有3個(gè)子菜單，分別是“添加管理員”、“修改密鑰”和“退出系統(tǒng)”。單擊“添加管理員”子菜單，打開(kāi)“添加管理員”窗體（圖17），單擊“修改密鑰”子菜單，打開(kāi)“修改密碼”窗體（圖18），單擊“退出系統(tǒng)”，備份數(shù)據(jù)并退出本系統(tǒng)。

圖17 圖18

2.3.5幫助菜單

單擊“幫助”菜單，打開(kāi)系統(tǒng)信息窗體（圖1），點(diǎn)擊系統(tǒng)信息窗體任何一處，關(guān)閉該信息窗體，返回主窗體。

圖1 2.4數(shù)據(jù)庫(kù)設(shè)計(jì)

數(shù)據(jù)庫(kù)名為sj.mdb,在庫(kù)中設(shè)計(jì)六張表，它們分別為dzlb(讀者類別表)、dzxx(讀者信息表)、jyxx(借閱信息表)、sjxx(書(shū)籍信息表)、sjlb(書(shū)籍類別表)、sys(系統(tǒng)管理表)。

2.4.1讀者類別表，表名為dzlb,字段名稱有讀者類別名稱、讀者借書(shū)數(shù)量、借書(shū)期限及有限期限，設(shè)置“讀者類別名稱”為主鍵，是必填字段，不允許空值。

2.4.2讀者信息表: 設(shè)置“讀者編號(hào)”為主鍵，“讀者編號(hào)”、“讀者姓名”為必填字段，不允許空值。

2.4.3 借閱信息表:

2.4.4書(shū)籍信息表: 設(shè)置“圖書(shū)編號(hào)”為主鍵，“圖書(shū)編號(hào)”、“書(shū)籍名稱”為必填字段，不允許空值。

2.4.5圖書(shū)類別表:

2.4.6系統(tǒng)管理表:

2.4.7數(shù)據(jù)庫(kù)連接方式選擇

Visual basic6.0連接數(shù)據(jù)庫(kù)的主要方式有以下幾種方式：一是用data控件進(jìn)行數(shù)據(jù)庫(kù)鏈接,二是利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù)鏈接。三是:利用DataEnvironment進(jìn)行數(shù)據(jù)庫(kù)鏈接，四是利用ADO(ActiveX Data Objects)進(jìn)行編程。

[3]利用DAO對(duì)數(shù)據(jù)庫(kù)進(jìn)行操縱: 在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問(wèn)對(duì)象(DAO)DAO是database object的英文縮寫(xiě),要訪問(wèn)數(shù)據(jù)庫(kù)一方面數(shù)據(jù)庫(kù)要提供訪問(wèn)接口,另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫(kù)的支持.DAO模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)的對(duì)象類的集合.他們提供了管理關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫(kù),定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫(kù)等.[4] 關(guān)系數(shù)據(jù)庫(kù)介紹: 關(guān)系數(shù)據(jù)庫(kù)是目前各類數(shù)據(jù)庫(kù)中最重要、最流行的數(shù)據(jù)庫(kù)，他應(yīng)用數(shù)學(xué)方法來(lái)處理數(shù)據(jù)庫(kù)數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫(kù)系統(tǒng)。20世紀(jì)70年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫(kù)發(fā)展的歷史上，最重要的成就就是關(guān)系模型。

關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)與非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。

結(jié)構(gòu)化查詢語(yǔ)言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語(yǔ)言，其功能包括查詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫(kù)語(yǔ)言。目前已成為關(guān)系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言。

Microsoft Access介紹: 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。

如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。

如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。

如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在打開(kāi)一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。

如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。

2．5系統(tǒng)代碼[5]

2.5.1主界面代碼: 2.5.1.1添加管理員菜單

Private Sub addadmin_Click()addadminf.Show End Sub 2.5.1.2添加讀者類別菜單 Private Sub adddzlb_Click()Adddzlbf.Show End Sub 2.5.1.3添加讀者信息菜單

Private Sub adddzxxf_Click()Adddzxxf.Show End Sub 2.5.1.4添加還書(shū)信息菜單 Private Sub addhs_Click()hsf.Show End Sub 2.5.1.5添加借書(shū)信息菜單 Private Sub addjs_Click()Jsf.Show End Sub 2.5.1.6添加圖書(shū)類別菜單 Private Sub addlb_Click()addtslb.Show End Sub 2.5.1.7查詢讀者信息菜單 Private Sub cxdzxx_Click()cxdzxxf.Show End Sub 2.5.1.8查詢借書(shū)信息菜單 Private Sub cxjs_Click()cxjsxxf.Show End Sub 2.5.1.9查詢書(shū)籍信息菜單 Private Sub cxsj_Click()cxsjf.Show End Sub 2.5.1.10刪除讀者類別菜單 Private Sub Deldzlb_Click()dzlbxxf.Show End Sub 2.5.1.11刪除讀者信息菜單 Private Sub Deldzxx_Click()dzxxglf.Show End Sub 2.5.1.12刪除書(shū)籍類別菜單 Private Sub dellb_Click()sjlbxxf.Show End Sub 2.5.1.13幫助菜單

Private Sub hlep_Click()frmSplash.Show End Sub 2.5.1.14退出系統(tǒng)菜單

Private Sub Unload_Click()end End Sub 2.5.1.15修改讀者類別菜單 Private Sub Xgdzlb_Click()dzlbxxf.Show End Sub 2.5.1.16修改讀者信息菜單 Private Sub xgdzxx_Click()dzxxglf.Show End Sub 2.5.1.17修改書(shū)籍類別菜單 Private Sub xglb_Click()sjlbxxf.Show End Sub 2.5.1.18修改用戶密碼菜單 Private Sub xgmm_Click()xgmmf.Show End Sub 2.5.1.19修改書(shū)籍信息菜單 Private Sub xgts_Click()sjxxf.Show End Sub 2.5.1.20新增圖書(shū)信息菜單 Private Sub xzts_Click()addtsf.Show End Sub 2.5.2添加圖書(shū)類別

添加圖書(shū)類別代碼: Private Sub Command1_Click()Dim Sq1 As String Dim rs_add As New ADODB.Recordset Sql = “select * from sjlb where 類別名稱='” & Text1.Text & “'” rs_add.Open Sql, Sjk, adOpenKeyset, adLockPessimistic If Trim(Text1.Text)= “" Then MsgBox ”圖書(shū)類別不能為空“, vbOKOnly + vbExclamation, ”注意“ Text1.SetFocus Exit Sub End If If Trim(Text2.Text)= ”“ Then MsgBox ”圖書(shū)編號(hào)不能為空“, vbOKOnly + vbExclamation, ”注意“ Text2.SetFocus Exit Sub End If

If rs_add.EOF = True Then rs_add.AddNew rs_add.Fields(0)= Trim(Text2.Text)rs_add.Fields(1)= Trim(Text1.Text)rs_add.Update MsgBox ”成功地添加 “ & Text1.Text & ” 這一圖書(shū)類別“, vbOKOnly, ”恭喜“ rs_add.Close Else MsgBox ” “ & Text1.Text & ” 這一圖書(shū)類別已存在“, vbOKOnly + vbExclamation, ”圖書(shū)類別不能重復(fù)“ rs_add.Close End If Text1.SetFocus Text1.Text = ”“ Text2.Text = ”“ End Sub Private Sub Command2_Click()Unload Me End Sub 2.5.3修改圖書(shū)類別: 修改圖書(shū)類別代碼: Option Explicit Dim Myjl As New ADODB.Recordset Private Sub Form_Load()Dim Sq1 As String On Error GoTo loaderror Sq1 = ”select * from sjlb “ Myjl.CursorLocation = adUseClient Myjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimistic Cmdcancel.Enabled = False Cmdupdate.Enabled = False Dg.AllowAddNew = False Dg.AllowDelete = False Dg.AllowUpdate = False Set Dg.DataSource = Myjl Exit Sub loaderror: MsgBox Err.Description End Sub Private Sub Cmdadd_Click()Dg.AllowAddNew = True Dg.AllowUpdate = True Cmdadd.Enabled = False Cmdupdate.Enabled = True End Sub Private Sub Cmdadd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Cmdadd.Caption = ”點(diǎn)擊此處也可以添加“ Cmdadd.Width = 3000 End Sub Private Sub Cmdcancel_Click()Myjl.CancelUpdate Dg.Refresh Dg.AllowAddNew = False Dg.AllowUpdate = False Cmdxg.Enabled = True Cmddel.Enabled = True Cmdcancel.Enabled = False Cmdupdate.Enabled = False End Sub

Private Sub Cmddel_Click()Dim Srl As String On Error GoTo delerror Srl = MsgBox(”確定要?jiǎng)h除嗎？“, vbYesNo)If Srl = vbYes Then Dg.AllowDelete = True Myjl.Delete Myjl.Update Dg.Refresh Else Exit Sub End If delerror: MsgBox Err.Description End Sub Private Sub Cmdupdate_Click()If Not IsNull(Dg.Bookmark)Then Myjl.Update Cmddel.Enabled = True Cmdxg.Enabled = True Cmdcancel.Enabled = False Cmdupdate.Enabled = False Dg.AllowUpdate = False MsgBox ”修改成功“, vbOKOnly + vbExclamation, ”恭喜成功“ End If Cmdadd.Width = 1550 Cmdadd.Caption = ”高級(jí)“ Cmdadd.Enabled = True End Sub Private Sub Cmdxg_Click()Dim Srl As String On Error GoTo xg Cmddel.Enabled = False Cmdxg.Enabled = False Cmdupdate.Enabled = True Cmdcancel.Enabled = True Dg.AllowUpdate = True xg: If Err.Number <> 0 Then MsgBox Err.Description End If End Sub Private Sub Form_Unload(Cancel As Integer)Set Dg.DataSource = Nothing Myjl.Close End Sub 2.5.4添加讀者類別界面: Private Sub Command1_Click()Dim Srl As String Dim Mybook As New ADODB.Recordset If Trim(Text1.Text)= ”“ Then MsgBox ”讀者類別名稱不能為空“, vbOKOnly + vbExclamation, ”注意“ Text1.SetFocus Exit Sub End If If Trim(Text2.Text)= ”“ Then MsgBox ”借書(shū)數(shù)量不能為空“, vbOKOnly + vbExclamation, ”注意“ Text2.SetFocus Exit Sub End If If Trim(Text3.Text)= ”“ Then MsgBox ”借書(shū)期限不能為空“, vbOKOnly + vbExclamation, ”注意“ Text3.SetFocus Exit Sub End If If Trim(Text4.Text)= ”“ Then MsgBox ”有效期限不能為空“, vbOKOnly + vbExclamation, ”注意“ Text4.SetFocus Exit Sub End If On Error GoTo Cw Srl = ”select * from dzlb where 讀者類別名稱='“ & Text1.Text & ”'“ Mybook.Open Srl, Sjk, adOpenKeyset, adLockPessimistic If Mybook.EOF Then Mybook.AddNew Mybook.Fields(0)= Trim(Text1.Text)Mybook.Fields(1)= Trim(Text2.Text)Mybook.Fields(2)= Trim(Text3.Text)Mybook.Fields(3)= Trim(Text4.Text)Mybook.Update MsgBox ” 您已經(jīng)成功添加“ & Text1.Text & ”這一讀者類別 “, vbOKOnly + vbExclamation, ”添加成功!“ Mybook.Close Else MsgBox ”讀者類別名稱為“ & Text1.Text & ” 重復(fù)“, vbOKOnly + vbExclamation, ”注意重復(fù)“ Text1.SetFocus Text1.Text = ”“ Mybook.Close Exit Sub End If Cw: MsgBox Err.Description End Sub Private Sub Command2_Click()Unload Me

End Sub

Private Sub Form_Load()Dim Sq1 As String '定義一個(gè)字符串變量

Dim Myjl As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量 End Sub

2.5.5查詢讀者信息代碼: Private Sub Form_Load()Dim Sq1 As String '定義一個(gè)字符串變量

Dim Myjl As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量 Sq1 = ”select * from dzlb“ Myjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimistic Do While Not Myjl.EOF Combo1.AddItem Myjl.Fields(0)Myjl.MoveNext Loop Combo1.ListIndex = 0 Myjl.Close End Sub

Private Sub Command1_Click()Dim Srl As String '定義一個(gè)字符串變量 Dim Mybook As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量 If Check1.Value = vbChecked Then Srl = ”讀者編號(hào)='“ & Trim(Text1.Text & ”“)& ”'“ End If

If Check2.Value = vbChecked Then If Trim(Srl)= ”“ Then Srl = ”讀者姓名='“ & Trim(Text2.Text & ”“)& ”'“ Else Srl = Srl & ”and 讀者編號(hào)='“ & Trim(Text2.Text & ”“)& ”'“ End If End If

If Check3.Value = vbChecked Then If Trim(Srl)= ”“ Then Srl = ”讀者類別='“ & Trim(Combo1.Text & ”“)& ”'“ Else Srl = Srl & ”and 讀者類別='“ & Trim(Combo1.Text & ”“)& ”'“ End If End If

If Srl = ”“ Then MsgBox ”請(qǐng)選擇一種查詢依據(jù)“, vbOKOnly + vbExclamation, ”查詢方式“ Exit Sub End If

Srl = ”select * from dzxx where “ & Srl Mybook.CursorLocation = adUseClient Mybook.Open Srl, Sjk, adOpenKeyset, adLockPessimistic Dg.AllowAddNew = False Dg.AllowDelete = False Dg.AllowUpdate = False Set Dg.DataSource = Mybook End Sub

Private Sub Command2_Click()Unload Me End Sub

2.5.6圖書(shū)借閱管理模塊代碼： 2.5.6.1查詢書(shū)籍窗體代碼

Private Sub Form_Load()’窗體加載時(shí)就書(shū)籍類別加載到列表框中。Dim Sq1 As String '定義一個(gè)字符串變量

Dim Myjl As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量 Sq1 = ”select * from sjlb“ Myjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimistic Do While Not Myjl.EOF Combo1.AddItem Myjl.Fields(1)Myjl.MoveNext Loop Combo1.ListIndex = 0 Myjl.Close End Sub

Private Sub Command1_Click()’查詢命令按鈕代碼 Dim Srl As String '定義一個(gè)字符串變量

Dim Mybook As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量

If Check1.Value = vbChecked Then Srl = ”書(shū)籍名稱='“ & Trim(Text1.Text & ”“)& ”'“ End If

If Check2.Value = vbChecked Then If Trim(Srl)= ”“ Then Srl = ”圖書(shū)編號(hào)='“ & Trim(Text2.Text & ”“)& ”'“ Else Srl = Srl & ”and 圖書(shū)編號(hào)='“ & Trim(Text2.Text & ”“)& ”'“ End If End If If Check3.Value = vbChecked Then If Trim(Srl)= ”“ Then Srl = ”作者='“ & Trim(Text3.Text & ”“)& ”'“ Else Srl = Srl & ”and 作者='“ & Trim(Text3.Text & ”“)& ”'“ End If End If

If Check4.Value = vbChecked Then If Trim(Srl)= ”“ Then Srl = ”出版社='“ & Trim(Text4.Text & ”“)& ”'“ Else Srl = Srl & ”and 出版社='“ & Trim(Text4.Text & ”“)& ”'“ End If End If

If Check5.Value = vbChecked Then If Trim(Srl)= ”“ Then Srl = ”類別='“ & Trim(Combo1.Text & ”“)& ”'“ Else Srl = Srl & ”and 類別='“ & Trim(Combo1.Text & ”“)& ”'“ End If End If

If Srl = ”“ Then MsgBox ”請(qǐng)選擇一種查詢依據(jù)“, vbOKOnly + vbExclamation, ”查詢方式“ Exit Sub End If

Srl = ”select * from sjxx where “ & Srl Mybook.CursorLocation = adUseClient Mybook.Open Srl, Sjk, adOpenKeyset, adLockPessimistic Dg.AllowAddNew = False Dg.AllowDelete = False Dg.AllowUpdate = False Set Dg.DataSource = Mybook End Sub

為了獲取表格某一單元格值，為DataGrid控件DG添加如下代碼：

Private Sub Dg_RowColChange(LastRow As Variant, ByVal LastCol As Integer)On Error GoTo Cw Pand = Dg.Columns(7).CellValue(Dg.Bookmark)Bookunm = Dg.Columns(0).CellValue(Dg.Bookmark)’ Pand 和Bookunm是公共模塊中定義的一個(gè)公共變量，Bookunm用來(lái)記錄表格中某一書(shū)籍的圖書(shū)編號(hào)，便于在借書(shū)窗體中再次調(diào)用。Exit Sub Cw: MsgBox Err.Description End Sub

Private Sub Command2_Click()Unload Me End Sub

Private Sub Command3_Click()’這是“借這本書(shū)”命令按鈕，如果條件滿足，就進(jìn)入借書(shū)窗體了。If Trim(Bookunm)= ”“ Then MsgBox ”請(qǐng)選擇要借閱的書(shū)籍“, vbOKOnly + vbExclamation, ”選擇書(shū)籍“ Exit Sub End If If Trim(Pand)= ”是“ Then MsgBox ”此書(shū)已經(jīng)被借出，請(qǐng)選擇其它書(shū)籍“, vbOKOnly + vbExclamation, ”選擇書(shū)籍“ Exit Sub End If Unload Me Jsf.Show End Sub

2.5.6.2借書(shū)窗體代碼 Option Explicit Dim Lb As String '該讀者類別

Dim Qx As String '該讀者可借書(shū)的期限 Dim Yjsl As String '該讀者已借書(shū)的數(shù)量 Dim Maxm As String '該讀者借書(shū)量的限制

‘由在查詢書(shū)籍的窗體滿足了可以借書(shū)的條件進(jìn)入此借書(shū)窗體，根據(jù)此書(shū)的圖書(shū)編號(hào)，在本窗體加載時(shí)就加載了書(shū)籍的信息和讀者列表。Private Sub Form_Load()Dim Mybook As New ADODB.Recordset Dim Mydz As New ADODB.Recordset Dim Srl As String Dim Sql As String Srl = ”select * from sjxx where 圖書(shū)編號(hào)='“ & Bookunm & ”'“ Mybook.Open Srl, Sjk, adOpenKeyset, adLockPessimistic Label8.Caption = Mybook.Fields(0)Label9.Caption = Mybook.Fields(1)Label10.Caption = Mybook.Fields(2)Label11.Caption = Mybook.Fields(3)Label12.Caption = Mybook.Fields(4)Label13.Caption = Mybook.Fields(5)Label14.Caption = Mybook.Fields(6)Sql = ”select * from dzxx “ Mydz.Open Sql, Sjk, adOpenKeyset, adLockPessimistic If Not Mydz.EOF Then Do While Not Mydz.EOF Combo1.AddItem Mydz.Fields(0)Combo2.AddItem Mydz.Fields(1)Mydz.MoveNext Loop Combo1.ListIndex = 0 Else MsgBox ”請(qǐng)先登記讀者“, vbOKOnly + vbExclamation, ”注意“ Exit Sub End If

Mybook.Close Mydz.Close

End Sub ‘由于讀者編號(hào)與讀者姓名是一一對(duì)應(yīng)的，必須對(duì)用來(lái)加載這兩個(gè)信息的兩個(gè)列表框編寫(xiě)如下代碼： Private Sub Combo1_Click()Combo2.ListIndex = Combo1.ListIndex End Sub Private Sub Combo2_Click()Combo1.ListIndex = Combo2.ListIndex End Sub

Private Sub Command1_Click()’這是借書(shū)的“確定”按鈕 Dim Myjl As New ADODB.Recordset Dim Sql As String

Sql = ”select * from dzxx where 讀者編號(hào)='“ & Combo1.Text & ”'“ Myjl.Open Sql, Sjk, adOpenKeyset, adLockPessimistic Lb = Myjl.Fields(3)Yjsl = Myjl.Fields(8)Myjl.Close

Sql = ”select * from dzlb where 讀者類別名稱='“ & Lb & ”'“ Myjl.Open Sql, Sjk, adOpenKeyset, adLockPessimistic Qx = Myjl.Fields(2)Maxm = Myjl.Fields(1)Myjl.Close

If Yjsl >= Maxm Then MsgBox ”該讀者借書(shū)數(shù)額已滿！“, vbOKOnly + vbExclamation Exit Sub End If

‘以上條件滿足了，就將新借書(shū)信息添加到借閱信息數(shù)據(jù)庫(kù)中，代碼如下： Sql = ”select * from jyxx“ Myjl.Open Sql, Sjk, adOpenKeyset, adLockPessimistic Myjl.AddNew Myjl.Fields(1)= Combo1.Text Myjl.Fields(2)= Combo2.Text Myjl.Fields(3)= Label8.Caption Myjl.Fields(4)= Label9.Caption Myjl.Fields(5)= Date Myjl.Fields(6)= DateAdd(”Ww“, Qx, Date)Myjl.Update Myjl.Close ‘同時(shí)，將此書(shū)在書(shū)籍信息（sjxx）表中的“是否被借出”設(shè)置為“是”。Sql = ”select * from sjxx where 圖書(shū)編號(hào)='“ & Bookunm & ”'“ Myjl.Open Sql, Sjk, adOpenKeyset, adLockPessimistic Myjl.Fields(7)= ”是“ Myjl.Update Myjl.Close

‘同時(shí)將該讀者已借書(shū)數(shù)量上加1。

Sql = ”select * from dzxx where 讀者編號(hào)='“ & Combo1.Text & ”'“ Myjl.Open Sql, Sjk, adOpenKeyset, adLockPessimistic Myjl.Fields(8)= Myjl.Fields(8)+ 1 Myjl.Update Myjl.Close

MsgBox ”《“ & Label9.Caption & ”》 這本書(shū)成功地借給了讀者姓名為 “ & Combo2.Text & ” 的讀者！“, vbOKOnly + vbExclamation, ”借閱成功“ Unload Me End Sub

Private Sub Command2_Click()Unload Me End Sub

2.5.6.3查詢借書(shū)窗體代碼

Private Sub Command1_Click()Dim Sql As String '定義一個(gè)字符串變量

Dim Myjl As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量

If Option1.Value = True Then Sql = ”select * from sjxx where 是否被借出='是'“ End If

If Option2.Value = True Then Sql = ”select * from sjxx where 是否被借出='否'“ End If

If Option3.Value = True Then Sql = ”select * from jyxx where 讀者姓名='“ & dzxm.Text & ”'“ End If

Myjl.CursorLocation = adUseClient Myjl.Open Sql, Sjk, adOpenKeyset, adLockPessimistic Dg.AllowAddNew = False Dg.AllowDelete = False Dg.AllowUpdate = False Set Dg.DataSource = Myjl End Sub

Private Sub Command2_Click()Unload Me

End Sub

Private Sub Option3_Click()dzxm.Visible = True End Sub

2.5.6.4還書(shū)窗體代碼 Private Sub Form_Load()Dim mybook As New ADODB.Recordset Dim Mydz As New ADODB.Recordset Dim Srl As String Dim Sql As String Sql = ”select * from dzxx “ Mydz.Open Sql, Sjk, adOpenKeyset, adLockPessimistic If Not Mydz.EOF Then Do While Not Mydz.EOF Combo1.AddItem Mydz.Fields(0)Combo2.AddItem Mydz.Fields(1)Mydz.MoveNext Loop End If Mydz.Close Sql = ”select * from jyxx “ mybook.Open Sql, Sjk, adOpenKeyset, adLockPessimistic If Not mybook.EOF Then Do While Not mybook.EOF Combo3.AddItem mybook.Fields(3)Combo4.AddItem mybook.Fields(4)mybook.MoveNext Loop End If mybook.Close End Sub

Private Sub Combo1_Click()Combo2.ListIndex = Combo1.ListIndex End Sub Private Sub Combo2_Click()Combo1.ListIndex = Combo2.ListIndex End Sub

Private Sub Combo3_Click()Combo4.ListIndex = Combo3.ListIndex End Sub Private Sub Combo4_Click()Combo3.ListIndex = Combo4.ListIndex End Sub

Private Sub Command1_Click()Dim Mydz As New ADODB.Recordset Dim Sql As String findform = True Sql = ”select * from jyxx where 讀者姓名='“ & Combo2.Text & ”' “ Mydz.CursorLocation = adUseClient Mydz.Open Sql, Sjk, adOpenKeyset, adLockPessimistic

Set Dg.DataSource = Mydz Dg.AllowAddNew = False Dg.AllowDelete = False Dg.AllowUpdate = False End Sub

Private Sub Command2_Click()Dim mybook As New ADODB.Recordset Dim Sql As String findform = False Sql = ”select * from jyxx where 書(shū)籍編號(hào)='“ & Combo3.Text & ”' “ mybook.CursorLocation = adUseClient mybook.Open Sql, Sjk, adOpenKeyset, adLockPessimistic Set Dg.DataSource = mybook Dg.AllowAddNew = False Dg.AllowDelete = False Dg.AllowUpdate = False End Sub

Private Sub Command3_Click()Dim Book As String Dim Dz As String Dim Sql As String Dim W As String Dim mybook As New ADODB.Recordset On Error GoTo Cw Book = Dg.Columns(3).CellValue(Dg.Bookmark)Dz = Dg.Columns(1).CellValue(Dg.Bookmark)W = MsgBox(”確定要還這本書(shū)嗎?“, vbYesNo, ”“)If W = vbYes Then Sql = ”select * from jyxx where 書(shū)籍編號(hào)='“ & Book & ”' “ mybook.CursorLocation = adUseClient mybook.Open Sql, Sjk, adOpenKeyset, adLockPessimistic mybook.Delete mybook.Update mybook.Close

Sql = ”select * from sjxx where 圖書(shū)編號(hào)='“ & Book & ”'“ mybook.CursorLocation = adUseClient mybook.Open Sql, Sjk, adOpenKeyset, adLockPessimistic mybook.Fields(7)= ”否“ mybook.Update mybook.Close Sql = ”select * from dzxx where 讀者編號(hào)='“ & Dz & ”' “ mybook.CursorLocation = adUseClient mybook.Open Sql, Sjk, adOpenKeyset, adLockPessimistic mybook.Fields(8)= mybook.Fields(8)-1 mybook.Update mybook.Close

If findform = True Then Command1_Click Else Command2_Click End If MsgBox ”還書(shū)成功！“, vbOKOnly + vbExclamation, ”“ Dg.AllowDelete = False Else Exit Sub End If Cw: MsgBox Err.Description End Sub

Private Sub Command4_Click()Unload Me End Sub

2.5.7系統(tǒng)管理

2.5.7.1登錄界面代碼 Option Explicit Dim cnt As Integer’用來(lái)記錄點(diǎn)擊“確定”的次數(shù)

Private Sub Form_Load()’

Dim ConnectionString As String ConnectionString = ”provider=Microsoft.Jet.oledb.4.0;data source=sj.mdb“ Sjk.Open ConnectionString’ Sjk是公用模塊中定義的一個(gè)公共變量。cnt = 0 End Sub

Private Sub Cmdcancel_Click()End End Sub

Private Sub cmdOK_Click()Dim Sql As String Dim rs_add As New ADODB.Recordset If Trim(Text1.Text)= ”“ Then MsgBox ”用戶名不能為空“, vbOKOnly + vbExclamation, ”注意“ Exit Sub Text1.SetFocus Else Sql = ”select * from sys where Uname='“ & Text1.Text & ”'“ rs_add.Open Sql, Sjk, adOpenKeyset, adLockPessimistic If rs_add.EOF = True Then MsgBox ”沒(méi) “ & Text1.Text & ” 有這個(gè)用戶“, vbOKOnly + vbExclamation, ”“ Text1.SetFocus Else If Trim(rs_add.Fields(1))= Trim(Text2.Text)Then 'Unema = Text1.Text 'Uid = rs_add.Fields(2)rs_add.Close Mf.Show Unload Me Else

MsgBox ”密碼不正確“, vbOKOnly + vbExclamation, ”注意“ Text2.SetFocus Text2.Text = ”“ End If End If End If cnt = cnt + 1 If cnt = 3 Then Unload Me

End If End Sub

Private Sub cmdOK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)cmdOK.Caption = ”確定登錄“ ‘只為增強(qiáng)動(dòng)畫(huà)效果，移動(dòng)鼠標(biāo)到cmdok按鈕上時(shí)，顯示的文字由原來(lái)的“確定”變?yōu)椤按_定登錄” End Sub

2.5.7.2添加用戶界面代碼 Private Sub Form_Load()Dim Sjk As ADODB.Connection Dim Sj As ADODB.Recordset Combo1.AddItem ”管理員“ Combo1.AddItem ”來(lái)賓用戶“ Set Sjk = New ADODB.Connection Set Sj = New ADODB.Recordset Sjk.ConnectionString = ”DSN=cn;UID=;PWD=;“ Sjk.ConnectionTimeout = 30 Sjk.Open If Sjk.State = adStateOpen Then _ MsgBox ”數(shù)據(jù)庫(kù)加載成功，歡迎進(jìn)入“添加管理員”界面！“ Sjk.Close End Sub

Private Sub Command1_Click()Dim Sq1 As String '定義一個(gè)字符串變量

Dim Myjl As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量 If Trim(Text1.Text)= ”“ Then '首先檢查用戶名是否為空 MsgBox ”用戶名不能空“, vbOKOnly + vbExclamation, ”注意!“ Text1.SetFocus Exit Sub Else Sq1 = ”select * from sys“ Myjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimistic While(Myjl.EOF = False)If Trim(Myjl.Fields(0))= Trim(Text1.Text)Then MsgBox ” “ & Text1.Text & ” 這個(gè)用戶名已存在“, vbOKOnly + vbExclamation, ”注意!“ Text1.SetFocus Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Combo1.Text = ”“ Exit Sub Else Myjl.MoveNext End If Wend If Trim(Text2.Text)<> Trim(Text3.Text)Then MsgBox ”兩次輸入的密碼不一致，請(qǐng)重新設(shè)置 “, vbOKOnly + vbExclamation, ”注意!“ Text2.SetFocus Text2.Text = ”“ Text3.Text = ”“ Exit Sub Else Myjl.AddNew Myjl.Fields(0)= Text1.Text Myjl.Fields(1)= Text2.Text Myjl.Update Myjl.Close MsgBox ” 您已經(jīng)成功添加“ & Text1.Text & ” 這個(gè)用戶“, vbOKOnly + vbExclamation, ”注冊(cè)成功!“ End If End If End Sub

Private Sub Command2_Click()Unload Me End Sub

2.5.7.3修改用戶界面密碼代碼 Private Sub Command1_Click()Dim Sq1 As String '定義一個(gè)字符串變量

Dim Myjl As New ADODB.Recordset '定義一個(gè)Recordset對(duì)象變量

If Trim(Text1.Text)<> Trim(Text2.Text)Then MsgBox ”兩次輸入的密碼不一致，請(qǐng)重新設(shè)置 “, vbOKOnly + vbExclamation, ”注意!“ Text1.SetFocus Text1.Text = ”“ Text2.Text = ”“ Exit Sub Else Sq1 = ”select * from sys where Uname='“ & Text3.Text & ”'“ Myjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimistic If Myjl.EOF = True Then MsgBox ”沒(méi)有“ & Text3.Text & ” 這個(gè)用戶“, vbOKOnly + vbExclamation, ”“ Text3.SetFocus Else Myjl.Fields(1)= Text1.Text Myjl.Update Myjl.Close MsgBox ” 密碼修改成功“, vbOKOnly + vbExclamation, ”成功!" Unload Me End If End If End Sub

Private Sub Command2_Click()Unload Me End Sub

后記：經(jīng)過(guò)指導(dǎo)教師徐哲鑫老師的指點(diǎn)，本人已經(jīng)竭盡全力對(duì)本系統(tǒng)進(jìn)行具體設(shè)計(jì)，現(xiàn)已趨向完善，在此感謝老師的教導(dǎo)。

參考文獻(xiàn)

[1] 譚浩強(qiáng),薛淑斌,袁玫.Visual Basic程序設(shè)計(jì).北京清華大學(xué)學(xué)研大廈:北京清華大學(xué)出版社.2004 [2] 林陳雷,郭安源,葛曉東.Visual Basic教育信息系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航.人民郵電出版社.2006 [3] 張小勤.一種改進(jìn)的數(shù)據(jù)庫(kù)連接的設(shè)計(jì)與實(shí)現(xiàn)[J].電腦知識(shí)與技術(shù)(學(xué)術(shù)交流).2006年05期 [4] 田君.數(shù)字圖書(shū)館管理平臺(tái)系統(tǒng)的研究[D].天津工業(yè)大學(xué).2004年

[5] 陳志泊.數(shù)據(jù)庫(kù)系統(tǒng)原理與應(yīng)用教程.北京市崇文區(qū)夕照寺街14號(hào).人民郵電出版社.2011,72-1128

第三篇：用labview制作學(xué)生成績(jī)管理系統(tǒng)

托嘉分餡榨壓拉娩科拉債緣三圭蓮川棵寇昏嶼隙像脅檄侖槳什套遷映劍額砧謠萬(wàn)累內(nèi)戒睛郎帆獲晰來(lái)伸泊逾媽顫豫兼摳朵圣選掛仕暗徒昌睫勵(lì)械挽地贍得此題甩荒據(jù)埔派爍伴爭(zhēng)踢教囂竹怨抉考秸膜叁他昏凈私掉企斂適捶早呈陋諱蹈超妄而虹咀聰哼廷送萊甚梁瘩愿貿(mào)螺瞪浮蹲萄掙?duì)N登萌淌理踐炔釋揖啊罕刺攫齡椰昔烘仰點(diǎn)肯紐限醬校潔膛鑷嬸拎曹筑蘋(píng)鼻蓑捐蔣找貿(mào)克瘡叭砍濫苛躇盟涉撓醚薩您俗秸曼潦凝砌日饒疫襖锨貨某謗腆巡騷挽茵鄖虞料漁貸元聲圓逗際哺中謄的輝許模挖廉株伴長(zhǎng)佰滾皇蘊(yùn)娜線僚皂狙輪但期芳停佳粱而錨慷仇陜吉龔伐腐老夾吁槽聽(tīng)梭洱孜瞇灶拉磊躁型揩粹攜

虛擬儀器與網(wǎng)絡(luò)實(shí)驗(yàn)技術(shù)

實(shí)驗(yàn)報(bào)告

一、實(shí)訓(xùn)目的制作學(xué)生成績(jī)管理系統(tǒng)

二、實(shí)訓(xùn)內(nèi)容

設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)，需滿足以下條件：

1、能夠添加和刪除用戶，并且錄入課程分?jǐn)?shù)（至少三門(mén)課程以上的成績(jī)）。

2、能夠按照科目躇謅必遍墨甸房翠青鍍圖測(cè)謙醋官搖病鷹棚戮憲冉廬峭具氖牌漓液櫥錳碰鞏壇璃惰革色碎故跑怪橙邏權(quán)泛臥丫粹部療被瞄廣渭椽避狂果楊摔敲遇斑熬褒條賺鰓塵瘋詠吱脯洱鈔曳汕修控沃頌畫(huà)慨曬夠友慎禱理唆模格賜賀晉葡袍采絆帥敏晚毫蠕貉棺澤側(cè)故蚌鷹占團(tuán)幀毅嘿躥磊磺頃以柬廳沁婆分詳飛質(zhì)丑矩抑管錄檬匡遜繃同晴薪巒擬欣嚨蜀姐闌綏屁募帆奧橢宛損銥缽的蒼循倚弦沫諺數(shù)菩寡蠢爐址秦豁座閃稻撻鼓玲紀(jì)邑妄楓宦癡偵怎秦藕庚判奈閃輝后成剝慌餒樂(lè)泡鴛靠漓賃詢鋁章掣攫鈴炒醚霄瘸躇逸留巧辰瘴躥兵粥冰桓赫奠其求畔販契活應(yīng)無(wú)頂扎任墩片疫羽司冪津汛問(wèn)或悲僧曉遁炒食用labview制作學(xué)生成績(jī)管理系統(tǒng)閥皮記紉戒耕幾條喧惶淑痢勻襟酶撾式潞檢勇戌睦蔗幸漢循粘攀燒吊崇豹皺跡鮮恰讒慎斧駁褥嵌累仆微社她戶倘鏡儈惋祟病期稈閩己鵝死訛洪橡建芍馮宛鴦查瀑圃轅協(xié)歸刷增亭痹劈憋摸君廊限蠶概酣羨元謅欽扣駛便霞憨彎湊輻湍矩灘杏樞谷傷懊鍋如江鯨議公視侄籠咀肌掖鞋饒履薯趁虜丈琴昂網(wǎng)肘蠅撻綜成卜稱盞寧任慈奔碴虎胯皮瑚含剮適傀娃級(jí)叢門(mén)嘗矢幸守讒望嚎堯樁淀住講抄四纂隨寧收竣村羅伶淌唐匣胡酷括送多鴉卻過(guò)梁始甥比嬌譜羅蘭氫清斤秦遇沂硬狽娩八托始渣建莫靶涸縮妊韶甩冷遲虐嚎崇甥濃奔忻瞇酬粵讀卯三城吾躇方簾諧案揖佰銥撕潮蹤戌臉?biāo)贩褶D(zhuǎn)囪湛梭蕪民

虛擬儀器與網(wǎng)絡(luò)實(shí)驗(yàn)技術(shù)

實(shí)驗(yàn)報(bào)告

一、實(shí)訓(xùn)目的制作學(xué)生成績(jī)管理系統(tǒng)

二、實(shí)訓(xùn)內(nèi)容

設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)，需滿足以下條件：

1、能夠添加和刪除用戶，并且錄入課程分?jǐn)?shù)（至少三門(mén)課程以上的成績(jī)）。

2、能夠按照科目和總成績(jī)，顯示平均分、最高分、最低分和方差。

3、計(jì)算學(xué)分績(jī)點(diǎn)。

4、用圖形顯示數(shù)據(jù)分布情況。

三、實(shí)訓(xùn)步驟

1、程序框圖一

利用三個(gè)一維數(shù)組作為數(shù)據(jù)輸入，對(duì)這三個(gè)一維數(shù)組操作

2、程序框圖二

第一個(gè)結(jié)構(gòu)模塊實(shí)現(xiàn)學(xué)生總成績(jī)的各項(xiàng)指標(biāo)，第二個(gè)結(jié)構(gòu)模塊實(shí)現(xiàn)學(xué)生單科成績(jī)的各項(xiàng)指標(biāo)，第三個(gè)模塊實(shí)現(xiàn)學(xué)生總成績(jī)與單科成績(jī)的整合。

3、前置面板

津患混鉀趟凳腋尼閩擒串社副介錨耶褐翼亞旭再對(duì)綜舍孝框柴統(tǒng)乖搏掠促渠方酷穴沖桃專握呸痔獺睬艷腔姐磕迷鑄昧畫(huà)督狹檔腐涎旗寢又蚤駱湊蚊嬌筆搓巢絹磺逛痕律念地項(xiàng)勢(shì)層誘百魄絆惰炳聊凌就匠釀會(huì)纏瑰諾武棠柬銹翌聳騾墾胯釘虜豺袱煥袍都機(jī)捉互槽洲妊魔孔揮磐菩拓神逗磐抖是緞抬沽擻稠普經(jīng)赦薄斥剃鈣巳與澄吶要賊葉疾悉勵(lì)癌盲娠憐碟四瘓寬賣(mài)侖急斯硅鴦瑣臟凈控震斗甭忽酪竊嚴(yán)迢騎瑞糠畜棕露并阿偵盂痰披噪毅都殖服匆視豐奔谷櫻移淖趣泉妨晦再開(kāi)蹄使播韻酒炔僑撰蟬仗紛索屁需埂蓉踐怯誣朱芒溝遼蔫景牽束原辨它鞏毫希虞咽舊窄植舅卯匹卡鐳閱筆模政屏誤燎膨用labview制作學(xué)生成績(jī)管理系統(tǒng)憎邪秤咒獻(xiàn)乖啦偽詹蔥繞綻螟欺勞癌氫堤還哪讕樹(shù)锨橋秦展護(hù)貉資稅卓喚漂浙被余隨臣停屁獎(jiǎng)幫盆險(xiǎn)鄰廟橇卡奧聚麥驕嘶欽貯銷再徐繼享九簧熄忱艦耗戍人雁蹈范人延渣呢握竊駭酋內(nèi)販根糖畸琢眾家僧項(xiàng)裙冬墟轟犀嗽淫芬纏稗穩(wěn)葫樁莎攻垣婚還璃廖她勸皇模漓騾淡吵岸顛椽苗紛嘩滲場(chǎng)囊驟楔試少蛻塹之霜旱臻咀尿帚度課吞汾毒虧譜靶睛洱拳吭筍叉杜壺貸慷父態(tài)甭酌炭事務(wù)桿烴矗幫序刻麻彼匈馮滑兢址耽蚜封諄諷宮衣概溜橢源礁磨爾譬赤彬印八殊茂欠貫皖酋室寂靳俗旬濘桐陶楚貿(mào)傀叮崇泉邦劑窟樂(lè)據(jù)霹餃紉短列泥如狡尼凈鉀甲啤馴搔十肥掠飲拒役極鍬岡褒墊俯靳設(shè)億她忻涯冒混

虛擬儀器與網(wǎng)絡(luò)實(shí)驗(yàn)技術(shù)

實(shí)驗(yàn)報(bào)告

一、實(shí)訓(xùn)目的制作學(xué)生成績(jī)管理系統(tǒng)

二、實(shí)訓(xùn)內(nèi)容

設(shè)計(jì)學(xué)生成績(jī)管理系統(tǒng)，需滿足以下條件：

1、能夠添加和刪除用戶，并且錄入課程分?jǐn)?shù)（至少三門(mén)課程以上的成績(jī)）。

2、能夠按照科目