vb稿件投遞管理系統(tǒng)的設(shè)計(jì)與開發(fā)畢業(yè)論文(參考版)
2025-07-01 12:19本頁面
【正文】 參考文獻(xiàn)[1][J].沈陽農(nóng)業(yè)大學(xué)學(xué)報(bào)（社會(huì)科學(xué)版）.(4)；510—512[2] 隋興芳 ,[J]. 北京：科技期刊研究，2005,16（5）：677679[3] Basic 從入門到實(shí)踐.[M].北京：清華大學(xué)出版社，2009[4](美) Basic2010 從入門到精通.[M].北京：清華大學(xué)出版社，2011[5][美]Abrahan Silberschat, Henry F. Korth,S. Sudarshah. 數(shù)據(jù)庫系統(tǒng)概念[M].機(jī)械工業(yè)出版社，[6] 劉志銘。其次，感謝學(xué)校給我們提供了良好的學(xué)習(xí)環(huán)境，使我們大家能夠聚一起學(xué)習(xí)、討論，同時(shí)也方便老師對(duì)我們的指導(dǎo)。首先，我要感謝我的指導(dǎo)老師張大磊老師對(duì)我的悉心指導(dǎo)，在設(shè)計(jì)期間，張老師教導(dǎo)我如何收集文獻(xiàn)資料，理清設(shè)計(jì)思路，指導(dǎo)操作方法，引導(dǎo)我們自主創(chuàng)新，發(fā)揮主觀能動(dòng)性。在這段時(shí)間里，我學(xué)到了很多知識(shí)也有很多感受。致謝：經(jīng)過了一年多的學(xué)習(xí)和工作，我終于完成了畢業(yè)設(shè)計(jì)與論文。比如系統(tǒng)的整體設(shè)計(jì)需要進(jìn)一步的美觀，系統(tǒng)的自適應(yīng)性還不夠完善還需要進(jìn)一步的改善和加強(qiáng)，系統(tǒng)的內(nèi)容需要更加豐富和多樣化。但是，一個(gè)完整的系統(tǒng)僅僅靠三個(gè)月的分析、設(shè)計(jì)來開發(fā)是遠(yuǎn)遠(yuǎn)不夠的，它需要更長的時(shí)間來測試并完善。稿件投遞管理系統(tǒng)是利用VB編程語言和Access數(shù)據(jù)庫編譯設(shè)計(jì)的，運(yùn)行環(huán)境簡單，一般的瀏覽器都可進(jìn)行瀏覽。系統(tǒng)的管理對(duì)于系統(tǒng)的維護(hù)來說很重要，社會(huì)是不斷進(jìn)步與發(fā)展的，用戶對(duì)于網(wǎng)上娛樂的要求也會(huì)越來越高。界面的清晰簡單可以使學(xué)習(xí)用戶一目了然，輕松的找到自己瀏覽稿件投遞管理處理系統(tǒng)的目的所在。 經(jīng)過這幾個(gè)月來對(duì)系統(tǒng)的分析、設(shè)計(jì)，使我對(duì)稿件投遞管理系統(tǒng)設(shè)計(jì)與開發(fā)有了全面的了解與認(rèn)識(shí)，同時(shí)對(duì)稿件投遞管理系統(tǒng)做了具體的解剖。（二）對(duì)各個(gè)控件的屬性、事件要清楚，這樣才能在編程的過程中熟練的應(yīng)用。 記錄, vbInformation Else MsgBox 沒有找到記錄,請重新輸入查詢數(shù)據(jù), vbInformation End If第七章 結(jié)論本文通過對(duì)稿件投遞管理系統(tǒng)的分析和研究，在論文的研究和實(shí)踐的基礎(chǔ)上，結(jié)合投稿流程的具體要求，設(shè)計(jì)出了一個(gè)具有基本投稿與稿件處理功能的方案，并將該方案運(yùn)用于具體系統(tǒng)實(shí)現(xiàn)。 query1, con, adOpenForwardOnly, adLockReadOnly Set = Nothing If Not ( And ) Then End If If 0 Then Set = myrs MsgBox 總共查到 amp。 Trim() amp。 = 39。 記錄, vbInformationElse MsgBox 沒有找到記錄,請重新輸入查詢數(shù)據(jù), vbInformationEnd If查詢界面：圖66稿件查詢主要代碼如下：Dim myrs As New Dim query1 As String query1 = SELECT * FROM choice WHERE amp。End IfDim rs As New query1, con, adOpenForwardOnly, adLockReadOnlySet = NothingIf Not ( And ) Then End IfIf 0 Then Set = rs MsgBox 總共查到 amp。 Text3 amp。 = 39。End IfIf = True Then qn = title query1 = SELECT * FROM teacherinfo WHERE amp。 Text2 amp。 = 39。End IfIf = True Then qn = tname query1 = SELECT * FROM teacherinfo WHERE amp。 Text1 amp。 = 39。調(diào)用Recordset對(duì)象Update方法保存數(shù)據(jù) Set = myrs = Empty = Empty = Empty = Empty = Empty MsgBox 添加成功！專家信息管理界面：圖65專家信息管理主要代碼如下：Private Sub Command1_Click()Dim query1 As StringIf = True Then qn = tno query1 = SELECT * FROM teacherinfo WHERE amp。 amp。 amp。 月不能多于31天！ Exit Sub End If Case 4, 6, 9, 11 If 30 Then MsgBox amp。 query1, con, adOpenForwardOnly, adLockReadOnly 39。 Trim(No) amp。 No = (0) Dim myrs As New Dim query1 As String query1 = SELECT * FROM choice WHERE course = 39。 39。 amp。 qn amp。 你有所有的權(quán)限！, vbInformation + vbOKOnly, 登陸提示 39。 vbCrLf amp。 = False 39。 vbCrLf amp。 = False = = = True = True = True = True = True = False = False = False = False = False = False = False = False ElseIf !權(quán)限 = 專家 Then qx = 專家 UserName = MsgBox 歡迎專家登陸！ amp。 你只有作者的權(quán)限！, vbInformation + vbOKOnly, 登陸提示 39。 vbCrLf amp。 39。 amp。 39。 amp。 39。 amp。圖51用戶查詢目錄 第六章 主要界面主要通過ADO數(shù)據(jù)庫與Data Grid的連接，實(shí)現(xiàn)了保存在數(shù)據(jù)庫中各個(gè)會(huì)員用戶的相應(yīng)信息全部顯示在Data Grid 上，以便于管理員瀏覽及其他相應(yīng)操作[8]。而且可以進(jìn)行刪除或者修改。（3）刪除選擇要?jiǎng)h除的作者或
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1