vb數(shù)據(jù)庫管理學(xué)生評(píng)語-資料下載頁
2025-01-15 18:25本頁面
【正文】 Case 2 PE = 基本上按要求參加體育鍛煉，成績(jī)合格。 Case 3 PE = 體育方面不太理想，身體素質(zhì)有待加強(qiáng)。 End Select End Sub 39。美 Private Sub Option4_Click(Index As Integer) Select Case Index Case 0 Manner = 為人誠實(shí)，尊重老師、長(zhǎng)輩，團(tuán)結(jié)同學(xué)，樂于助人。 Case 1 Manner = 待人有禮貌，尊重師長(zhǎng)、團(tuán)結(jié)同學(xué)。 Case 2 Manner = 和氣待人，與同學(xué)和好相處。 Case 3 Manner = 舉止有進(jìn)欠周到，望加強(qiáng)修養(yǎng)。 End Select End Sub 39。勞 Private Sub Option2_Click(Index As Integer) Select Case Index Case 0 Labor = 熱愛勞動(dòng)，有吃苦耐勞的精神。 Case 1 Labor = 勞動(dòng)積極肯干，能吃苦耐勞。 Case 2 Labor = 勞動(dòng)課能完成任務(wù)，但主動(dòng)性有待提高。 Case 3 Labor = 勞動(dòng)方面認(rèn)識(shí)不足，表現(xiàn)一般。 End Select End Sub ⑶ 評(píng)語項(xiàng)目管理模塊主要通過增加刪除項(xiàng)目評(píng)語、增加刪除項(xiàng)目分類來實(shí)現(xiàn)對(duì)評(píng)語的管理 計(jì)算機(jī)科學(xué)系學(xué)士畢業(yè)論文 19 代碼如下 Dim xmname As String Dim rs As New Dim table As New table Dim tbl As table Dim field As String Dim str As String On Error GoTo adderror xmname = InputBox(輸入新評(píng)語項(xiàng)目名稱 , 添加評(píng)語項(xiàng)目 ) If xmname = Then MsgBox 項(xiàng)目名稱不能為空！ , vbOKOnly, Exit Sub Else If Right(xmname, 2) = 評(píng)語 Then = xmname Else = xmname + 評(píng)語 End If table For Each tbl In str = If Right(str, 2) = 評(píng)語 Then Set mnode = () = str Dim i As Integer Dim nodeindex As Integer nodeindex = For i = 0 To 1 Set mnode = (nodeindex, tvwChild) = (i).Name 計(jì)算機(jī)科學(xué)系學(xué)士畢業(yè)論文 20 Next End If Next End If Exit Sub adderror: MsgBox , vbOKOnly + vbExclamation, ⑷、 學(xué)生管理 模塊 實(shí)現(xiàn) 對(duì)學(xué)生的按三種方式查找 （ 代碼略） ⑸ 系統(tǒng)管理 模塊實(shí)現(xiàn)修改密碼、添加用戶功能 計(jì)算機(jī)科學(xué)系學(xué)士畢業(yè)論文 21 代碼分別如下 ： Private Sub Command1_Click() Dim rs_chang As New Dim sql As String If Trim() Trim() Then MsgBox 密碼不一致！ , vbOKOnly + vbExclamation, = = Else sql = select * from 系統(tǒng)管理 where 用戶名 =39。 amp。 userID amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic (1) = MsgBox 密碼修改成功 , vbOKOnly + vbExclamation, Unload Me End If End Sub Private Sub Command1_Click() Dim sql As String Dim 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, 計(jì)算機(jī)科學(xué)系學(xué)士畢業(yè)論文 22 = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致 , vbOKOnly + vbExclamation, = = Exit Sub Else (0) = (1) = MsgBox 添加用戶成功 , vbOKOnly + vbExclamation, Unload Me End If End If End Sub 計(jì)算機(jī)科學(xué)系學(xué)士畢業(yè)論文 23 總結(jié) 歷時(shí)一個(gè)多月的畢業(yè)設(shè)計(jì)終于快到了尾聲，通過這次畢業(yè)設(shè)計(jì)，在老師的指導(dǎo)下，我初步掌握了用 VB 開發(fā)軟件的方法，我在進(jìn)行設(shè)計(jì)軟件時(shí)遇到了一些困難，于是我在老師的提示 和鼓勵(lì) 下，查資料，上網(wǎng)和網(wǎng)友進(jìn)行探討。我在程序員之家，網(wǎng)址為 上的論壇和高手進(jìn)行交流，對(duì)我受益菲淺。此外我還登錄到天極網(wǎng)站看了不少優(yōu) 秀的 vb 技術(shù)文章。這些對(duì)我搞好畢業(yè)設(shè)計(jì)起了至關(guān)重要的作用。在此再次感謝 大學(xué) 的指導(dǎo)老師對(duì)我的悉心指導(dǎo)與幫助。 由于時(shí)間倉促， 雖然我已很注意本系統(tǒng)的完善，特別是在升級(jí)和功能擴(kuò)展方面留下了足夠的空間。 并使本系統(tǒng)達(dá)到了根據(jù)老師簡(jiǎn)單的選擇便可以對(duì)某個(gè)學(xué)生在 “德、智、體、美、勞”表現(xiàn)（優(yōu)秀、良好、一般、差做出判斷，自動(dòng)生成相應(yīng)的評(píng)語，還可選擇相應(yīng)的寄語，以及加入個(gè)人的評(píng)語。對(duì)生成的評(píng)語還可以進(jìn)行修改。還可也增加刪除學(xué)生記錄，便于每年學(xué)生記錄更新 但 這個(gè)軟件 肯定 還 有 很多 不完善 的地方 ， 比如 評(píng)語的內(nèi)容還不太豐富 。 這有 待我以后繼續(xù)完善 ， 肯請(qǐng)各位老師提出批評(píng)改進(jìn)意見。 計(jì)算機(jī)科學(xué)系學(xué)士畢業(yè)論文 24 致謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 我的指導(dǎo)老師在我的畢業(yè)設(shè)計(jì)過程盡心指導(dǎo)我做畢業(yè)設(shè)計(jì)，幫我查找了大量的資料，給了我很大的幫助。并且系統(tǒng)的設(shè)計(jì)主要是李老師完成的，我只是編寫了部分代碼，在這里對(duì)他表示衷心 的感謝！ 在我做畢業(yè)設(shè)計(jì)過程中還有很多的人給了我或多或少的幫助，當(dāng)時(shí)沒有及時(shí)感謝，在這里我就一次性地向他們表示感謝。 計(jì)算機(jī)科學(xué)系學(xué)士畢業(yè)論文 25 主要參考文獻(xiàn) 《 Visual Basic 程序設(shè)計(jì)》清華大學(xué)出版 2022年 7月第 1版 李大友主編 《 Visual Basic開發(fā)人員指南》機(jī)械工業(yè)出版社 1999年 1月 EricBrierley 主編 《 Visual Basic 程序設(shè)計(jì)》中央電大出版 2022年 12月第 1版 陳明 主編 《 Visual 實(shí)效編程百例》人民郵電出版社 2022年 7月 劉韜、駱娟主編 《數(shù)據(jù)結(jié)構(gòu)（ c++描述）》 中央電大出版 2022年 12月第 1版 徐孝凱主編
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1