基于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 = 讀者編號=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 圖書借閱管理模塊的設計與實現(xiàn)代碼實現(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 已有這個用戶, 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 請選擇正確的用戶權(quán)限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub 致 謝在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。他認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學習都有一種巨大的幫助，感謝他細心而又耐心的輔導。參考文獻［1］黃孝章.《信息系統(tǒng)分析與設計》.［2］郭東強.《現(xiàn)代管理信息系統(tǒng)》.［3］吳功宜.《計算機網(wǎng)絡教程》.［4］高巍巍.《數(shù)據(jù)庫基礎與應用》.［5］李春葆.《——基于VB+Access》.2010［6］陳禹.《信息管理與信息系統(tǒng)概論》.［7］徐建華.《現(xiàn)代圖書館管理》.［8］付立宏.《圖書館管理學》.［9］蘇新寧.《數(shù)據(jù)倉庫與挖掘》.［10］李寶山.《管理系統(tǒng)工程》.［11］麻志毅.《面向?qū)ο蠓治雠c設計》
試題試卷相關(guān)推薦
鄂ICP備17016276號-1