vb學(xué)籍管理系統(tǒng)論文-資料下載頁
2024-12-06 01:36本頁面
【導(dǎo)讀】快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管。和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提。各個領(lǐng)域并發(fā)揮著越來越重要的作用。發(fā)展也不過10年的時間。但是，計算機(jī)和網(wǎng)絡(luò)對社會的影響已經(jīng)迅速擴(kuò)大，甚。至在改變?nèi)藗兊纳?。特別是90年代以來，多媒體和網(wǎng)絡(luò)技術(shù)的飛速發(fā)展正在。以驚人的速度改變著人們的工作方式、交往方式和生活方式。正像著名的未來學(xué)。溝通，并在書上找到一些相關(guān)資料進(jìn)入查閱。經(jīng)過一系列的了解，深入，便明確
【正文】 。若用戶名為空 MsgBox 請輸入用戶名 , vbOKOnly + vbCritical, 警告 39。顯示提示信息 39。設(shè)置輸入焦點 Exit Sub 39。退出過程 End If If strPassword = Then 39。若密碼為空 MsgBox 請輸入密碼 , vbOKOnly + vbCritical, 警告 39。顯示提示信息 畢業(yè)論文（設(shè)計）報告紙 在 第 xxv 頁 共 30 頁 xxv 39。設(shè)置輸入焦點 Exit Sub 39。退出過程 End If strUserName = MakeStr(strUserName) 39。處理非法字符 strPassword = MakeStr(strPassword) strSQL = SELECT * FROM [s_admin] WHERE admin_name=39。 amp。 strUserName amp。 39。 39。查詢用戶名 Set rs = QueryExt(strSQL) 39。讀取指定用戶名的資料 If Not Then 39。若記錄集不為空 If rs(admin_pwd) = strPassword Then 39。若密碼相同 OK = True 39。登記成功 UserName = strUserName 39。保存用戶名到全局變量 Right = rs(admin_right) 39。保存用戶權(quán)限 Unload Me 39。卸載 當(dāng)前窗體 Exit Sub 39。退出當(dāng)前過程 End If End If MsgBox 用戶名或密碼錯誤！ , vbOKOnly + vbCritical, 警告 39。錯誤登錄提示 txtUserName = 39。清空用戶名 txtPWD = 39。清空密碼 39。設(shè)置輸入焦點 iTry = iTry + 1 39。累加重試次數(shù) If iTry = 3 Then 39。重試次數(shù)超限 MsgBox 非法用戶，系統(tǒng)將關(guān)閉！ , vbOKOnly + vbCritical, 警告 39。提示關(guān)閉 DBapi_Disconnect 39。斷開數(shù)據(jù)庫連接 End 39。結(jié)束程序 Else 39。未超過重試次數(shù)限制 畢業(yè)論文（設(shè)計）報告紙 在 第 xxvi 頁 共 30 頁 xxvi Exit Sub 39。退出過程 End If End Sub Private Sub lblLabels_Click(Index As Integer) End Sub 學(xué)生信息的查詢 學(xué)生信息查詢窗體的設(shè)計 “查詢”模塊包括兩個功能：查詢學(xué)生資料和查詢學(xué)生成績。對于查詢結(jié)果可以使用報表打印出來。 查詢學(xué)生資料可按姓名，班級 ，出生日期，入學(xué)時間等來進(jìn)行查詢?！安樵儗W(xué)生資料”窗體如下： 學(xué)生信息查詢窗體 代碼 Dim rs As 39。記錄集 Dim strSQL As String 39。保存 SQL 語句 Dim gradeID As Integer, classID As Integer 39。保存年級編號、班級編號 Private Sub cmbClass_LostFocus() 39。班級組合框 classID = () 39。獲取班級編號 畢業(yè)論文（設(shè)計）報告紙 在 第 xxvii 頁 共 30 頁 xxvii End Sub Private Sub cmbGrade_LostFocus() 39。年級組合框 If = 全部 Then 39。若選擇“全部” Set rs = QueryExt(SELECT * FROM s_class ORDER BY class_name) 39。獲取全部班級信息 Else 39。選中某一年級 gradeID = () 39。獲取年級編號 Set rs = QueryExt(SELECT * FROM s_class WHERE grade_id= amp。 gradeID amp。 ORDER BY class_name) 39。獲取指定年級的班級信息 End If With cmbClass .Clear 39。清空組合框 .AddItem 全部 39。添加一個選項 i = 1 .AddItem rs!class_name 39。添加班級名稱 .ItemData(i) = rs!class_id 39。保存班級編號 i = i + 1 39。處理下一記錄 Loop .ListIndex = 0 39。選中第 1個選項 End With End Sub Private Sub cmdExit_Click() 39?！巴顺觥卑粹o Unload Me 39。卸載窗體 End Sub 學(xué)生信息查詢 報表設(shè)計 ? 在“工程資源管理器”中單擊右鍵，添加 DataReport 命令，打開一個空白報表。 畢業(yè)論文（設(shè)計）報告紙 在 第 xxviii 頁 共 30 頁 xxviii ? 設(shè)置報表名稱“ StuReport” ? 從左側(cè)工具欄中“數(shù)據(jù)報表”組中選擇相應(yīng)的控件，將其放到報表對應(yīng)的分欄中 ? 調(diào)整相應(yīng)位置，如下圖 ? 運行 學(xué)生信息查詢窗體 的 “查詢”按鈕 ，即可得到相關(guān)查詢信息 畢業(yè)論文（設(shè)計）報告紙 在 第 xxix 頁 共 30 頁 xxix 謝 辭 在畢業(yè)設(shè)計中，我們遇到的困難很多，在解決它們的同時我又學(xué)到了很多，受益匪淺，特別是如何分析、建立、開發(fā)一個系統(tǒng)。 在一個系統(tǒng)開發(fā)的過程中編碼不是重要的，重要的是分析系統(tǒng)、建立起系統(tǒng)模型。在分析一個系統(tǒng)前，分析人員必須要對將要開發(fā)的系統(tǒng)所涉及到的各方面知識有一個認(rèn)識，然后將系統(tǒng)的模型建立起來。而且一個成功的軟件要符合用戶的需要，要以用戶為中心，開發(fā)出用戶想要的軟件，而不能自以為是、想當(dāng)然的做。 在程序編寫中，我認(rèn)識到軟件要有簡便的界面，良好的程序風(fēng)格。擁有 這些條件，程序的可讀性才會好，開發(fā)的復(fù)雜度才能大大減少，修改代碼時更加容易下手。 在編碼中，良好的編程風(fēng)格與習(xí)慣是提高工作效率的一個重要方面，而且良好的編程風(fēng)格與習(xí)慣也是使軟件便于維護(hù)的基礎(chǔ)。 在即將畢業(yè)的時刻，我感謝我的學(xué)校，給予我成長的地方，感謝那可愛可敬的老師教會了我怎么去習(xí)，怎么去做人，感謝我可愛的同學(xué)，是你們讓我知道了，什么是快樂，什么是悲傷！ 最后感謝我的輔導(dǎo)老師 —— 倪老師，是您在我實習(xí)期間對我們的照顧，把學(xué)樣里的信息通知我們，讓我們能更好的，實習(xí)、學(xué)習(xí)，謝謝老師！ 畢業(yè)論文（設(shè)計）報告紙 在 第 xxx 頁 共 30 頁 xxx 參考文獻(xiàn) [1] 明日科 技 .安劍 .劉彬彬 .高春艷 .Visual Basic 技術(shù)方案寶典 .北京 .人民郵電出版社 .2021 [2] [3]趙松濤 .Visual Basic + SQL Server ：電子工業(yè)出版社 . [3] 夏邦貴著 《 SQL Server 數(shù)據(jù)庫開發(fā)入門與范例解析》 .北京機(jī)械工業(yè)出版社 .2021 [4] 彭東著 .《 SQL Server 2021 應(yīng)用開發(fā)技術(shù)指南》 .北京清華大學(xué)出版社 .2021 [5] 王鋒 .SQL Server 2021 中文版 經(jīng)典實例教程 .北京 .中國電力出版社 .2021
研究報告相關(guān)推薦
鄂ICP備17016276號-1