基于vb圖書管理系統畢業論文正稿-資料下載頁

　　

【正文】 End 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 圖書借閱管理模塊的設計與實現代碼實現: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 系統管理 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 請選擇正確的用戶權限, vbOKOnly + vbExclamation, = Exit Sub Else (0) = (1) = (2) = MsgBox 添加用戶成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd Sub第四章 圖書管理系統運行環境硬件平臺CPUIntel P4 主板Intel 850芯片組的GA8TXC內存2128M的三星Rambus內存硬盤Seagate Barracuda 80G顯卡Unika 小妖G9800顯示器美格770PF，17寸純平顯示器軟件環境操作系統Microsoft WindowsXP簡體中文專業版＋SP1辦公軟件Microsoft Office 2003顯卡驅動nVIDIA Win2000/XP致 謝在本次畢業設計中，我從指導老師身上學到了很多東西。他認真負責的工作態度，嚴謹的治學精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學習都有一種巨大的幫助，感謝他細心而又耐心的輔導。參考文獻數據庫系統原理與應用 閃四清 清華大學出版社1999VisualVisual 羅光春 電子科技大學出版社2000Visual visual 周豐治 高等教育出版社2001軟件工程 楊文龍等 電子工業出版社2002管理信息系統 薛華成 清華大學出版社19991. 若不給自己設限，則人生中就沒有限制你發揮的藩籬。2. 若不是心寬似海，哪有人生風平浪靜。在紛雜的塵世里，為自己留下一片純靜的心靈空間，不管是潮起潮落，也不管是陰晴圓缺，你都可以免去浮躁，義無反顧，勇往直前，輕松自如地走好人生路上的每一步3. 花一些時間，總會看清一些事。用一些事情，總會看清一些人。有時候覺得自己像個神經病。既糾結了自己，又打擾了別人。努力過后，才知道許多事情，堅持堅持，就過來了。4. 歲月是無情的，假如你丟給它的是一片空白，它還給你的也是一片空白。歲月是有情的，假如你奉獻給她的是一些色彩，它奉獻給你的也是一些色彩。你必須努力，當有一天驀然回首時，你的回憶里才會多一些色彩斑斕，少一些蒼白無力。只有你自己才能把歲月描畫成一幅難以忘懷的人生畫卷。