基于vb的圖書管理系統(tǒng)畢業(yè)論文-資料下載頁
2025-06-27 19:09本頁面
【正文】 = Exit SubEnd IfEnd Sub3. 查詢讀者信息代碼分析:Private Sub Command1_Click()Dim rs_findreader As New Dim sql As StringIf = vbChecked Then sql = 讀者編號(hào)=39。 amp。 Trim( amp。 ) amp。 39。End IfIf = vbChecked Then If Trim(sql) = Then sql = 讀者姓名=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 讀者姓名=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd IfIf = vbChecked Then If Trim(sql) = Then sql = 讀者類別=39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 讀者類別=39。 amp。 Trim( amp。 ) amp。 39。 End IfEnd Ifsql = select * from 讀者信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = FalseSet = rs_findreader39。End Sub 圖書借閱管理模塊的設(shè)計(jì)與實(shí)現(xiàn)代碼實(shí)現(xiàn):Private Sub Command1_Click()Dim sql As StringDim rs_find As New If = True Then sql = select * from 書籍信息 where 是否被借出=39。是39。End IfIf = True Then sql = select * from 書籍信息 where 是否被借出=39。否39。End IfIf = True Then sql = select * from 借閱信息 where 讀者姓名=39。 amp。 amp。 39。End If = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findEnd SubPrivate Sub Command1_Click()Dim sql As StringDim rs_add As New If Trim() = Then MsgBox 用戶名不能為空, vbOKOnly + vbExclamation, Exit Sub Else sql = select * from 系統(tǒng)管理 sql, conn, adOpenKeyset, adLockPessimistic While ( = False) If Trim((0)) = Trim() Then MsgBox 已有這個(gè)用戶, vbOKOnly + vbExclamation, = = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致, vbOKOnly + vbExclamation, = = Exit Sub ElseIf Trim() system And Trim() guest Then MsgBox 請(qǐng)選擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub 致 謝在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他細(xì)心而又耐心的輔導(dǎo)。參考文獻(xiàn)［1］黃孝章.《信息系統(tǒng)分析與設(shè)計(jì)》.［2］郭東強(qiáng).《現(xiàn)代管理信息系統(tǒng)》.［3］吳功宜.《計(jì)算機(jī)網(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è)計(jì)》
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1