【導(dǎo)讀】在這種形勢(shì)下，書(shū)籍就漸漸地成為人們獲取并增長(zhǎng)知識(shí)的主。件工程的角度進(jìn)行了科學(xué)而嚴(yán)謹(jǐn)?shù)年U述。

　　

【正文】 okID 圖書(shū)編號(hào) 數(shù)字 長(zhǎng)整型 LoanDate 借書(shū)日期 日期 /時(shí)間 ReturnDate 還書(shū)日期 日期 /時(shí)間 Operator 操作員 文本 TblOperato 表： 字段代碼 字段名稱 類型 寬度 小數(shù)位數(shù) OperatorID 操作員編號(hào) 自動(dòng)編號(hào) Name 姓名 文本 50 Password 密碼 文本 50 Memo 備注 文本 255 ER 圖向關(guān)系模型轉(zhuǎn)換的結(jié)果如下： 圖書(shū)管理 (圖書(shū)編號(hào) +館藏編號(hào) +書(shū)名 +作者 +出版社 +出版日期 +入庫(kù)日期 +價(jià)格 +操作員） 圖書(shū)編號(hào)為此關(guān)系的碼。 借書(shū)證（借書(shū)證編號(hào) +是否有效 +姓名 +男女 +身份證號(hào) +部門 +電話 +地址 +最大借書(shū)量 +操作員 +創(chuàng)建日間） 借書(shū)證編 號(hào)為此關(guān)系的碼。 31 借閱（借書(shū)證編號(hào) +書(shū)號(hào) +借書(shū)日期 +還書(shū)日期 +操作員） 借書(shū)證編號(hào)為此關(guān)系的碼。 操作員（操作員編號(hào) +姓名 +密碼 +備注） 操作員編號(hào)為此關(guān)系的碼。 利用 DATA 控件訪問(wèn)數(shù)據(jù)庫(kù) 該軟件是利用 ACCESS 數(shù)據(jù)庫(kù)，操作方便，簡(jiǎn)單。在 ACCESS 數(shù)據(jù)庫(kù)中不需要?jiǎng)?chuàng)建數(shù)據(jù)連接，因?yàn)樗?VB 中默認(rèn)的數(shù)據(jù)庫(kù)形式。 以歸納為以下幾步： 1．創(chuàng)建數(shù)據(jù)庫(kù)源名（ DATABASE） 2．創(chuàng)建數(shù)據(jù)對(duì)象 3．操作數(shù)據(jù)庫(kù) 4．關(guān)閉數(shù)據(jù)對(duì)象和鏈接 每一步的作法如下： 創(chuàng)建數(shù)據(jù)源名 先進(jìn)行定 義： DIM DB AS DATABASE Set db = OpenDatabase(e:\圖書(shū)館管理系統(tǒng) \) 也可以直接在 DATA 控件的屬性中的 DATABASENAME 直接進(jìn)行連接。 創(chuàng)建數(shù)據(jù)對(duì)象 (Record Set) ADO 中的數(shù)據(jù)對(duì)象通常保存的是查詢結(jié)果。 Record Set 是 ADO 中最復(fù)雜的對(duì)象，有許多屬性和方法。 Record Set 保存的是一行行的記錄，并標(biāo)有一個(gè)當(dāng)前記錄。以下是創(chuàng)建方法： 可以直接利用 DATA控件直接綁定，在 DATA控件的屬性中的 RECORDSOURCE對(duì)數(shù)據(jù)表進(jìn)行連接。 Set Record Set=(sqtStr) 這條語(yǔ)句創(chuàng)建并打開(kāi)了對(duì)象 Record Set，其中 db 是先前創(chuàng)建的鏈接對(duì)象，sqtStr 是一個(gè)字串，代表一條標(biāo)準(zhǔn)的 SQL 語(yǔ)句。例如： sqlStr=“ SELECT * FROM tab1” Set Record Set=(sqtStr) 32 這條語(yǔ)句執(zhí)行后，對(duì)象 Record Set 中就保存了表 tab1 中的所有記錄。 操作數(shù)據(jù)庫(kù) 我們通過(guò)調(diào)用鏈接對(duì)象的 openrecordset 方法來(lái)將查詢結(jié)果返回給一個(gè)數(shù)據(jù)對(duì)象或進(jìn)行插入、刪除等操作。例如： 修改： sql1 = select * from 圖書(shū)總表 where 條形碼號(hào) =39。 amp。 Text3(3).Text amp。 39。 If sql1 Then Set rec = (sql1) (8).Value = CDate() (5).Value = CBool(a) (6).Value = Text3(8).Text End If 刪除： 1 Dim s As Integer s = MsgBox(確定刪除這組記錄嗎 ?刪除后將不能恢復(fù)數(shù)據(jù) !, vbYesNo + vbQuestion, 刪除確定 ) If s = 6 Then 增加： Set rs = (借書(shū)流水表 ) a = False (0).Value = Trim(Text1(0).Text) (1).Value = Trim(Text1(1).Text) 33 關(guān)閉數(shù)據(jù)對(duì)象和鏈接對(duì)象 在使用了 ADO 對(duì)象之后要關(guān)閉它，因?yàn)樗褂昧艘欢ǖ姆?wù)器資源。通過(guò)調(diào)用方法 close 實(shí)現(xiàn)關(guān)閉，然后再釋放它。 Record Set Record Set=Nothing /關(guān)閉創(chuàng)建的數(shù)據(jù)對(duì)象 Set mConn=Nothing /關(guān)閉創(chuàng)建的鏈接對(duì)象 顯示數(shù)據(jù)庫(kù)中的內(nèi)容 我利用 MSFLEGRID 控件來(lái)顯示數(shù)據(jù)庫(kù)中的內(nèi)容，可以直接通過(guò) DATA 控件來(lái)實(shí)現(xiàn)操作，也可以利用代碼來(lái)完成相關(guān)的操作。 第一種方法： 設(shè)置 MSFLGRID 控件的屬性 Datasource 屬性 第二種方法： sql = select * from 借書(shū)流水表 where 借書(shū)證號(hào) =39。 amp。 Text1(0).Text amp。 39。 If sql Then Set rs = (sql) End If If Not ( And ) Then Do While Not (0, 0) = (0, 1) = 借書(shū)證號(hào) (0, 2) = 姓名 vbTab amp。 (0).Value amp。 vbTab amp。 (1).Value amp。 vbTab amp。 (2) Loop End If 下面舉例對(duì) SQL 語(yǔ)句進(jìn)行詳細(xì)說(shuō)明 ： 34 一個(gè)訪 問(wèn)數(shù)據(jù)庫(kù)的程序段，對(duì)于不同的用戶以及一個(gè)用戶的不同行為，要其執(zhí)行的 SQL語(yǔ)句是不同的，其不同主要表現(xiàn)在查詢、插入或更新時(shí)的參數(shù)不同，于是我們將 SQL 語(yǔ)句定義為含變量的字符串（ dim sql as string），通過(guò)賦予變量不同的值便產(chǎn)生出適合的 SQL 語(yǔ)句串，再通過(guò)數(shù)據(jù)對(duì)象的相應(yīng)方法來(lái)執(zhí)行它，完成所需的數(shù)據(jù)操作。這一方法的運(yùn)用詳見(jiàn)下面部分。 第一． 對(duì)登錄界面進(jìn)行簡(jiǎn)單介紹（我在這段程序中使用 ADODB 數(shù)據(jù)源） /用 SQL 語(yǔ)句從數(shù)據(jù)庫(kù)中的密碼表中取得用戶名稱和相應(yīng)的密碼 sql = select * from 密碼 where 用戶名稱 =39。 amp。 amp。 39。 and 密碼 = 39。 amp。 amp。 39。 Set rs = (sql) /用一個(gè)循環(huán)語(yǔ)句將密碼表中的所有用戶名顯示在登錄界面的用戶名稱下拉列表框中供用戶選擇 connstr select 用 戶 名 稱 from 密碼 , conn, adOpenStatic, adLockReadOnly Dim i As String For t = 0 To Val() 1 i = Trim((用戶名稱 ).Value) i Next t 第二． 對(duì)查詢界面進(jìn)行簡(jiǎn)單介紹 Private Sub Command1_Click() strSQl = /以下語(yǔ)句實(shí)現(xiàn)或者查詢模式 If = True Then If = vbChecked Then strSQl = 圖書(shū)總表 .編號(hào) =39。 amp。 Text1(0).Text amp。 39。 End If If = vbChecked Then If strSQl = Then strSQl = 圖書(shū)分表 .類別 =39。 amp。 amp。 39。 Else strSQl = strSQl amp。 or 圖書(shū)分表 .類別 =39。 amp。 amp。 39。 End If End If 35 End if 39。make the search、 /以下是用 SQL 語(yǔ)句對(duì)圖書(shū)分表和圖書(shū)總表按編號(hào)相同進(jìn)行查詢： sql1 = SELECT 圖書(shū)總表 .*,圖書(shū)分表 .試卷代號(hào) ,圖書(shū)分表 .試卷名稱 ,圖書(shū)分表 .頁(yè)號(hào) sql1 = sql1 amp。 FROM 圖書(shū)總表 ,圖書(shū)分表 sql1 = sql1 amp。 WHERE amp。 strSQl amp。 and 圖書(shū)總表 .編號(hào) = 圖書(shū)分表 .編號(hào) End If 39。show the found records /對(duì)查詢結(jié)果創(chuàng)建數(shù)據(jù) RECORDSET 對(duì)象： If sql1 Then Set rs = (sql1) Set = rs End If 39。show number of rsords found = 總共找到 amp。 CStr() amp。 記錄 39。close the rsordset Exit Sub End sub 出錯(cuò)處理 當(dāng)我遇到一些錯(cuò)誤是，如無(wú)當(dāng)前記錄等一些常規(guī)性錯(cuò)誤，我的處理方法有兩種： 第一種： On error goto a A: MsgBox 第二種方法： on error resume next 為了使程序能更加完善，我還運(yùn)用了 BeginTrans……… CommitTrans 語(yǔ)句 計(jì)算機(jī)系統(tǒng)的配置方案 硬件環(huán)境 ： 內(nèi)容 最低配置 建議配置 主機(jī) P/200 PII/266 以上 內(nèi)存 64MB 128MB 以上 36 硬盤 10GB 20GB 以上 顯示器 VGA 以上 軟件環(huán)境： 操作系統(tǒng)： Windows 98 中文版、 Windows2020 中文版、 Windows XP 中文版 編程軟件 ： Visual 中文版 數(shù)據(jù)庫(kù) :Access2020 中文版 系統(tǒng)的安全性和可靠性設(shè)計(jì) 對(duì)所有登錄本系統(tǒng)的使用用戶進(jìn)行嚴(yán)格的用戶名和密碼的管理，如果不屬于系統(tǒng)事先設(shè)定好的合法用戶，則系統(tǒng)無(wú)法登錄，為了防止密碼外泄，本系統(tǒng)具備密碼修改功能。 第五章 系統(tǒng)詳細(xì)設(shè)計(jì) 程序按照主要管理功能進(jìn)行組織， 完成系統(tǒng)管理設(shè)計(jì)和圖書(shū)管理設(shè)計(jì)，下面我按照操作順序進(jìn)行操作、界面的源程序進(jìn)行詳細(xì)說(shuō)明。 啟動(dòng)： 雙擊圖標(biāo)運(yùn)行程序以后，就可以看到程序的主界面。由于這個(gè)時(shí)候還沒(méi)有登陸系統(tǒng)，因此系統(tǒng)提示未登錄。這是，需要通過(guò)系統(tǒng)管理菜單進(jìn)行登錄操作。 37 圖 1 啟動(dòng)后的主界面 登錄 系統(tǒng)進(jìn)行登錄時(shí)，用戶單擊了菜單“登錄”，此時(shí)系統(tǒng)開(kāi)始顯示登錄窗口。 Private Sub mnuSysLogin_Click() vbModal If Then = amp。 （ amp。 amp。 ） Else = amp。 （未登錄） End If End Sub 程序首先顯示 frmLogin 窗口，由于這個(gè)窗口是模態(tài)（ vbModal）顯示的，因此如果用戶只能關(guān)閉這個(gè)窗口后才能進(jìn)行其他的操作。 VB 的窗口分成模塊窗口和非模態(tài)窗口兩種，普通情況下都是 非模態(tài)窗口，但是多數(shù)對(duì)話框是模態(tài)窗口。 38 程序的后面使用了一個(gè)結(jié)構(gòu)體，這個(gè)結(jié)構(gòu)體在公共模塊定義，程序的任何地方都可以訪問(wèn)這個(gè)結(jié)構(gòu)體，同時(shí)程序初始化了一個(gè)全局變量 CurrentUser。該變量用來(lái)指示當(dāng)前是否有用戶登陸，用戶的 ID和名稱是什么等信息。 Type Users ID As Integer Name As String Password As String LoginSuccess As Boolean End Type Public CurrentUser As Users 這里我們首先運(yùn)行了 frmLogin窗體，然后根據(jù) frmLogin窗體對(duì)用戶信息的判斷，由 frmLogin 窗體設(shè)置 CurrentUser 信息。如果 成功， CurrentUser 的LoginSuccess 屬性將為 True，否則為 False。如果 CurrentUser 的 LoginSuccess屬性為 True，則主窗體顯示當(dāng)前用戶登錄的用戶名。 下面我們主要看 frmLogin 窗體的操作。 圖 2 登錄窗體 這里我們?cè)敿?xì)講解登錄的全部過(guò)程，因?yàn)檫@個(gè)過(guò)程中涉及到 DAO 數(shù)據(jù)庫(kù)訪問(wèn)的全部過(guò)程，因此我們將著重介紹這些過(guò)程。以后程序中使用同樣功能的部分將不再介紹。 Private Sub cmdOK_Click() Dim strUserID As String Dim strUserPwd As String Dim db As Database Dim rs As Recordset 39。獲取用戶輸入 If = Then MsgBox 請(qǐng)輸入正確的用戶名 , vbInformation 39 Exit Sub End If