基于vb的圖書管理系統(tǒng)畢業(yè)論文(更新版)
【正文】 ：滾動條上滑塊所在位置由value值所決定。第二步：用Access建立一個名為Pad的數(shù)據(jù)庫，在庫中建立一個表Myset，給表添加四個字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。第三章 圖書管理系統(tǒng)的設(shè)計與實現(xiàn) 系統(tǒng)的設(shè)計該系統(tǒng)考慮將整個系統(tǒng)分解成如下模塊:主界面圖書管理圖書信息管理讀者類別管理讀者信息管理圖書借閱管理借書管理還書管理系統(tǒng)管理登錄圖書類別管理讀者管理 系統(tǒng)的詳細(xì)設(shè)計:3. 借閱信息表:4. 書籍信息表::: 系統(tǒng)的設(shè)計與實現(xiàn) 系統(tǒng)的主界面的設(shè)計與實現(xiàn)主界面代碼:Private Sub add_admin_Click()End SubPrivate Sub add_back_book_Click()End SubPrivate Sub add_book_info_Click()End SubPrivate Sub add_book_style_Click()End SubPrivate Sub add_lend_book_Click()End SubPrivate Sub add_reader_info_Click()End SubPrivate Sub add_reader_style_Click()End SubPrivate Sub change_pwd_Click()End SubPrivate Sub del_book_info_Click()End SubPrivate Sub del_book_style_Click()End SubPrivate Sub del_reader_info_Click()End SubPrivate Sub del_reader_style_Click()End SubPrivate Sub exit_sys_Click()EndEnd SubPrivate Sub find_book_info_Click()End SubPrivate Sub find_lend_book_Click()End SubPrivate Sub find_reader_info_Click()End SubPrivate Sub modify_book_info_Click()End SubPrivate Sub modify_book_style_Click()End SubPrivate Sub modify_reader_info_Click()End SubPrivate Sub modify_reader_style_Click()End Sub 圖書管理模塊的設(shè)計與實現(xiàn)圖書管理模塊主要由:圖書類別管理,圖書信息管理.圖書類別管理又分別由以下幾個界面構(gòu)成:1. 添加圖書類別添加圖書類別代碼:Private Sub Command1_Click()Dim rs_bookstyle As New Dim sql As StringIf Trim() = Then MsgBox 圖書種類不能為空, vbOKOnly + vbExclamation, Exit SubEnd IfIf Trim() = Then MsgBox 種類編號不能為空, vbOKOnly + vbExclamation, Exit SubEnd Ifsql = select * from 圖書類別 where 類別名稱=39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = CInt() (2) = CInt() (3) = CInt() MsgBox 添加讀者類別成功！, vbOKOnly, Else MsgBox 讀者類別重復(fù)！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd Sub3. 查詢讀者信息代碼分析:Private Sub Command1_Click()Dim rs_findreader As New Dim sql As StringIf = vbChecked Then sql = 讀者編號=39。 ) amp。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 讀者類別=39。 Trim( amp。否39。參考文獻［1］黃孝章.《信息系統(tǒng)分析與設(shè)計》.［2］郭東強.《現(xiàn)代管理信息系統(tǒng)》.［3］吳功宜.《計算機網(wǎng)絡(luò)教程》.［4］高巍巍.《數(shù)據(jù)庫基礎(chǔ)與應(yīng)用》.［5］李春葆.《——基于VB+Access》.2010［6］陳禹.《信息管理與信息系統(tǒng)概論》.［7］徐建華.《現(xiàn)代圖書館管理》.［8］付立宏.《圖書館管理學(xué)》.［9］蘇新寧.《數(shù)據(jù)倉庫與挖掘》.［10］李寶山.《管理系統(tǒng)工程》.［11］麻志毅.《面向?qū)ο蠓治雠c設(shè)計》.
試題試卷相關(guān)推薦
鄂ICP備17016276號-1