【正文】 i As Integer Dim answer As String 39。 str2 amp。 Space(12) amp。 操行評(píng)定 amp。標(biāo)記 list2 的狀態(tài) Dim ID_num As String 39。 Space(10) amp。 vbCrLf amp。 Space(5) amp。 Space(5) amp。 Space(5) amp。 Space(5) amp。 amp。 經(jīng)過(guò)分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC開(kāi)發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象 ,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型 ,然后 ,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代 ,不斷修正和改進(jìn) ,直到形成用戶滿意的可行系統(tǒng)。而對(duì)于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 amp。 姓名 amp。 (1) amp。 (1) amp。 (1) amp。文本框清空 While = False = 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。記錄教師姓名 Private mnode As Node Private Sub write_Click() End Sub Private Sub addnewpyxm_Click() Command9_Click End Sub Private Sub addpy_Click() Command4_Click End Sub Private Sub addstudent_Click() End Sub Private Sub addstupy_Click() Command10_Click End Sub Private Sub adduser_Click() End Sub Private Sub addxmfl_Click() Command12_Click End Sub Private Sub changepwd_Click() End Sub Private Sub Combo1_Click() Dim caoxing As String caoxing = Text1(1).Text = Text1(1).Text amp。 vbCrLf amp。函數(shù)參數(shù) prompt = 在“ + str1 + ”中的“ + str2 + ”類別中添加新的評(píng)語(yǔ)： str = InputBox(prompt, 添加新評(píng)語(yǔ) ) (str) sql = select amp。 from amp。 ID_num amp。打開(kāi)學(xué)生管理數(shù)據(jù)表，在列表框中顯示所有的學(xué)生 sql, conn, adOpenKeyset, adLockPessimistic While = False (1) amp。 order by 學(xué)期 sql, conn, adOpenKeyset, adLockPessimistic If = False Then Else MsgBox 該生沒(méi)有評(píng)語(yǔ)！ , vbOKOnly + vbExclamation, Exit Sub End If Text1(0).Text = 39。 _ (2) amp。 txttbl sql, conn, adOpenKeyset, adLockPessimistic If = False Then While = False If Not IsNull((txtfield)) Then (txtfield) End If Wend Else MsgBox 沒(méi)有任何評(píng)語(yǔ)！ , vbOKOnly = True Exit Sub End If list2state = True setmandstate Else MsgBox 沒(méi)有分類！ , vbOKOnly + vbExclamation, Exit Sub End If End If Exit Sub clickerror: MsgBox End Sub Public Sub setmandstate() If list2state = False Then = False = False = False = False Else = True = True = True = True End If End Sub Private Sub xgpy_Click() Command5_Click End Sub 結(jié)束語(yǔ) 本軟件的設(shè)計(jì)目的是為教師對(duì)學(xué)生寫(xiě)評(píng)語(yǔ)提供方便和幫助。他們和我共同生活了四年，在生活和學(xué)習(xí)上給了我很大的幫助。評(píng)語(yǔ)管理系統(tǒng) 是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用 戶 , vbOKOnly + vbExclamation, Else 39。 amp。 amp。 amp。 amp。 (1) amp。 Space(2) amp。 _ (2) 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(5) amp。 Space(5) amp。 Space(5) amp。 Space(5) amp。判斷輸入 的用戶名是否為空 MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名 =39。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。真誠(chéng)的希望你的參與。 Space(2) amp。 (1) amp。 amp。 amp。 str2 amp。記錄用戶輸入 Dim prompt As String 39。 Text1(1).Text amp。 Date End Sub Private Sub Command10_Click() If selstu = True Then = True = True = True = True = True = True (1) = True = False = False = 1 Else MsgBox 請(qǐng)選擇學(xué)生！ , vbOKOnly + vbExclamation, End If End Sub Private Sub Command11_Click() Dim answer As String Dim delxm As String Dim table As New table Dim ind As Integer If 0 Then delxm = answer = MsgBox(確定要?jiǎng)h除這一項(xiàng)嗎？ , vbYesNo, ) If answer = vbYes Then (delxm) ind = (ind) Else Exit Sub End If Else MsgBox 請(qǐng)選擇要?jiǎng)h除的項(xiàng)目！而不是項(xiàng)目分類！ , vbOKOnly, Exit Sub End If Exit Sub End Sub Private Sub Command12_Click() Dim flname As String Dim tbl As table Dim sql As String Dim rs As New Dim xmname As String Dim ind As Integer Dim nod As Node Set nod = If InStr(, \) = 0 Then flname = InputBox(輸入項(xiàng)目分類名稱 , 增加項(xiàng)目分類 ) If flname = Then MsgBox 分類名稱不 能為空！ , vbOKOnly, Exit Sub Else xmname = ind = (xmname). flname, adVarWChar, 255 Set mnode = (ind, tvwChild) = flname End If Else MsgBox 只能在項(xiàng)目中添加分類，請(qǐng)單擊要添加分類的項(xiàng)目名稱！ , vbOKOnly, End If End Sub Private Sub Command13_Click() Dim flname As String Dim answer As String Dim xmname As String Dim ind As Integer If InStr(, \) = 0 Then MsgBox 請(qǐng)選擇要?jiǎng)h除的項(xiàng)目分類！而不是項(xiàng)目名稱！ , vbOKOnly, Exit Sub Else xmname = ind = flname = answer = MsgBox(確定要?jiǎng)h除這一項(xiàng)嗎？ , vbYesNo, 刪除項(xiàng)目分類 ) If answer = vbYes Then (xmname). flname ind End If End If Exit Sub End Sub Private Sub Command14_Click() Text1(1).Text = End Sub Private Sub Command15_Click() Dim refreshstu As New Dim sql As String = adUseClient sql = select * from 學(xué)生管理 order by 學(xué)號(hào) 39。記錄當(dāng)前項(xiàng)目分支名稱 Dim str1 As String 39。 (4) Wend Exit Sub Else MsgBox 請(qǐng)選擇學(xué)生！ , vbOKOnly + vbExclamation, Exit Sub End If End Sub 4. 添加學(xué)生界面設(shè)計(jì) : 添加學(xué)生 代碼設(shè)計(jì) : 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