【正文】 vbCrLf amp。 39。 39。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。經(jīng)過(guò)大量的測(cè)試和試用，作者深信本軟件達(dá)到了方便和實(shí)用的設(shè)計(jì)目的，并在軟件界面和易用實(shí)用等方面有著獨(dú)到之處。 vbCrLf amp。 amp。 from amp。 caoxing End Sub Private Sub Command1_Click() Text1(1).Text = Text1(1).Text amp。 (3) amp。 (2) Wend = Else MsgBox 沒(méi)有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub List1_Click() Dim i As Long Dim sql As String Dim rsclick As New i = CLng() ID = Left(, 6) If i 0 Then = adUseClient sql = select * from 學(xué)生操行 where 學(xué)號(hào) =39。 (2) Wend = Else MsgBox 沒(méi)有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學(xué)生管理 where 學(xué)號(hào) =39。 39。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 Space(5) amp。 Space(5) amp。 order by 學(xué)期 sql, conn, adOpenKeyset, adLockPessimistic If = False Then Else MsgBox 該生沒(méi)有評(píng)語(yǔ)！ , vbOKOnly + vbExclamation, Exit Sub End If = 39。 39。 (0) Wend End Sub Private Sub Command2_Click() xing = InputBox(輸入老師姓或姓名： ) Text1(1).Text = Text1(1).Text amp。 str2 amp。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic i End If Else MsgBox 請(qǐng)選擇要?jiǎng)h除的學(xué)生！ , vbOKOnly + vbExclamation, End If Exit Sub End Sub Private Sub delxmfl_Click() Command13_Click End Sub Private Sub exitsys_Click() Unload Me End Sub Private Sub findstudent_Click() End Sub Private Sub Form_Load() Dim connectionstring As String Dim sql As String On Error GoTo openerror = adUseClient sql = select * from 學(xué)生管理 order by 學(xué)號(hào) 39。 Space(2) amp。 在這里我還要感謝我們宿舍的其它 5 個(gè)同學(xué)。 39。 (2) Wend = Else MsgBox 沒(méi)有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學(xué)生管理 where 學(xué)號(hào) =39。 (2) Wend = Else MsgBox 沒(méi)有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub List1_Click() Dim i As Long Dim sql As String Dim rsclick As New i = CLng() ID = Left(, 6) If i 0 Then = adUseClient sql = select * from 學(xué)生操行 where 學(xué)號(hào) =39。 (3) amp。文本框清空 While = False = amp。 (1) amp。 姓名 amp。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 (4) Wend xq = (1) Exit Sub displaypyerror: MsgBox End Sub Private Sub List2_Click() = True End Sub Private Sub modifypyxm_Click() Command11_Click End Sub Private Sub TreeView1_NodeClick(ByVal Node As ) On Error GoTo clickerror Dim i As Integer Dim rs As New Dim sql As String i = = True Dim a As Integer = True = True = True = True If 0 Then txttbl = If = True Then = False Else = True End If Else If InStr(, \) 0 Then txttbl = txtfield = str1 = txttbl str2 = txtfield sql = select amp。 ID_num amp。 from amp。 Else Text1(1).Text = Text1(1).Text amp。記錄當(dāng)前評(píng)語(yǔ)項(xiàng)目 Dim str2 As String 39。 vbCrLf amp。 39。 39。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 amp。 amp。 學(xué)期 amp。記錄當(dāng)前項(xiàng)目分支名稱(chēng) Dim str1 As String 39。 Text1(1).Text amp。 str2 amp。 amp。 Space(2) amp。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 Space(5) amp。 Space(5) amp。 order by 學(xué)期 sql, conn, adOpenKeyset, adLockPessimistic If = False Then Else MsgBox 該生沒(méi)有評(píng)語(yǔ)！ , vbOKOnly + vbExclamation, Exit Sub End If = 39。 Space(2) amp。 amp。 amp。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用 戶 , vbOKOnly + vbExclamation, Else 39。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。 _ (2) amp。打開(kāi)學(xué)生管理數(shù)據(jù)表，在列表框中顯示所有的學(xué)生 sql, conn, adOpenKeyset, adLockPessimistic While = False (1) amp。 from amp。 vbCrLf amp。 sql, conn, adOpenKeyset, adLockPessimistic (1) = MsgBox 密碼修改成功 , vbOKOnly + vbExclamation, Unload Me End If End Sub Private Sub Command2_Click() Unload Me End Sub 6. 主界面設(shè)計(jì) : 主界面代碼設(shè)計(jì) : Option Explicit Dim rs1 As New Dim cat As New Dim tbl As New Dim list2state As Boolean 39。文本框清空 While = False = amp。 (1) amp。 姓名 amp。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 amp。 Space(5) amp。 Space(5) amp。 Space(10) amp。 操行評(píng)定 amp。 str2 amp。 39。文本框清空 While = False Text1(0).Text = Text1(0).Text amp。通過(guò)這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒(méi)有學(xué)到的 visual basic 開(kāi)發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。 amp。 amp。 學(xué)期 amp。 Space(2) amp。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False (0) amp。 1． 4 系統(tǒng)簡(jiǎn)介 本系統(tǒng)主要由以下功能模塊構(gòu)成 : 五 .評(píng)語(yǔ)項(xiàng)目管理 (增加評(píng)語(yǔ)項(xiàng)目 ,刪除選定項(xiàng)目 ,增加項(xiàng)目分類(lèi) ,刪除項(xiàng)目分類(lèi) ) 六 .評(píng)語(yǔ)維護(hù) 七 .學(xué)生管理 (查找學(xué)生 ,添加學(xué)生 ,刪除學(xué)生 ,添加新評(píng)語(yǔ) ) 八 .系統(tǒng)管理 (修改密碼 ,添加用戶 ,退出系統(tǒng) ) 第五章 系統(tǒng)的分析 2． 3 系統(tǒng)開(kāi)發(fā)的目標(biāo)和思想 本系統(tǒng)主要服務(wù)于教師對(duì)學(xué)生寫(xiě)評(píng)語(yǔ)的工作 .利用本評(píng)語(yǔ)生成系統(tǒng) ,教師可以方便的快捷的給班級(jí)的學(xué)生寫(xiě)評(píng)語(yǔ) ,主要操作是定位學(xué)生對(duì)數(shù)據(jù)庫(kù)添加評(píng)語(yǔ)信息 ,最后可以完成對(duì)學(xué)生的查詢(xún)以及評(píng)語(yǔ)的修改 . 2． 4 系統(tǒng)的可行性分析 技術(shù)上 :本系統(tǒng)采用 visual basic 與微軟的 access 作為數(shù)據(jù)庫(kù) ,技術(shù)上開(kāi)發(fā)難度一般 . 經(jīng)濟(jì)上 :本系統(tǒng)服務(wù)于學(xué)校教師 ,提高了教育工作者辦事效率 ,節(jié)省了開(kāi)支 .所以具有經(jīng)濟(jì)上的可行性 . 社會(huì)上 :本系統(tǒng)同時(shí)也方便了廣大老師寫(xiě)評(píng)語(yǔ)尋求者 ,以及家長(zhǎng) .所以具有社會(huì)可行性 . 第六章 系統(tǒng)的設(shè)計(jì) 3． 3 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì) 3． 2 系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì) : 程序登陸 主界面 評(píng)語(yǔ)項(xiàng)目管理 評(píng)語(yǔ)維護(hù) 學(xué)生管理 系統(tǒng)管理 : : : : : : 8:衛(wèi)生評(píng)語(yǔ) : 9:系統(tǒng)管理 : 10:學(xué)生操行 : 11:學(xué)生管理 : 12:學(xué)生成績(jī)?cè)u(píng)語(yǔ) : 13:印象評(píng)語(yǔ) : 14:作業(yè)評(píng)語(yǔ) : 3． 4 界面設(shè)計(jì)與代碼設(shè)計(jì) 7. 登陸界面設(shè)計(jì) : 登陸