計算機科學與技術專業畢業論文下載-資料下載頁

【導讀】在這種形勢下，書籍就漸漸地成為人們獲取并增長知識的主。件工程的角度進行了科學而嚴謹的闡述。

　　

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