【正文】 MsgBox 已有這個(gè)用戶 , vbOKOnly + vbExclamation, = = = 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 5. 修改密碼界面設(shè)計(jì) : 修改界面代碼設(shè)計(jì) : 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。 學(xué)期 amp。 ID amp。 amp。 amp。 amp。檢驗(yàn)密碼是否正確 If Trim((1)) = Trim() Then userID = Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 If t = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。 畢業(yè)設(shè)計(jì) 教師評語管理系統(tǒng) 班級 學(xué)號 姓名 摘 要 ???????????????????????????? 1 Abstract???????????????????????????2 第一章 引言 ????????????????????????? 4 1． 1 課題背景 ?????????????????????????? 4 1． 2 系統(tǒng)簡介?????????????????????? ??? ? 5 第二章 系統(tǒng)的分析???????????????????? ??? 6 2． 1 系統(tǒng)開發(fā)的目標(biāo)和思想?????????????????? ?? 6 2． 2 系統(tǒng)的可行性分析???????????????????? ?? 8 第三章 系統(tǒng)的設(shè)計(jì) ???????????????????????1 8 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)????????????????????? 18 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 3． 3 界面設(shè)計(jì)與代碼設(shè)計(jì)?????????????????????????? 23 ?????????????? ???????? 24 結(jié)束語 ??????????????????????????????4 6 致謝 ???????????????????????????????4 7 參考文獻(xiàn) ??????????????????? 摘 要 教師評語管理系統(tǒng)用計(jì)算機(jī)管理教師給學(xué)生撰寫評語信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前中介管理都是由教師人員手工抄寫的方式來操作的 .現(xiàn)在一般的教師評語管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)評語生成管理程序來幫助學(xué)生管理員進(jìn)行更有效的學(xué)生評語寫作。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 amp。 39。 39。 39。 39。 vbCrLf amp。 amp。記錄當(dāng)前評語項(xiàng)目 Dim str2 As String 39。打開學(xué)生管理數(shù)據(jù)表，在列表框中顯示所有的學(xué)生 sql, conn, adOpenKeyset, adLockPessimistic While = False (1) amp。 Else Text1(1).Text = Text1(1).Text amp。函數(shù)參數(shù) prompt = 修改“ + str1 + ”中的“ + str2 + ”類別評語： amp。 from amp。 ID amp。 ID_num amp。 學(xué)期 amp。 (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。 致謝 我首先感謝我的指導(dǎo)老師呂老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。而對于后者則要求應(yīng)用程序功能完備 ,易使用等特點(diǎn)。 amp。 姓名 amp。 (1) amp。 (1) amp。 (1) amp。文本框清空 While = False = amp。 vbCrLf amp。 (3) amp。 第 amp。 (2) Wend = Else MsgBox 沒有找到目標(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é)號 =39。 (2) Wend = Else MsgBox 沒有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學(xué)生管理 where 班級 =39。 (2) Wend = Else MsgBox 沒有找到目標(biāo)！ , vbOKOnly + vbExclamation, End If End If If = True Then sql = select * from 學(xué)生管理 where 學(xué)號 =39。 班級 If = True Then sql = select * from 學(xué)生管理 where 學(xué)生姓名 =39。 39。 關(guān)鍵字 :評語管理 ,MIS,visual basic ,數(shù)據(jù)庫 Abstract Teachers ment management system for teachers to use puter management information students wrote ments a puter application technology innovation, Management has not yet popular in the puter before the intermediary personnel manual transcription by teachers are the way to operate. Now the general ments of teachers are using puters as a management tool for puter ments generated management procedures to help students managers more effective students writing ments. Comment management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and frontend application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool panies, the use of its various objectoriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, putation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. Keyword : ments management MIS,visual basic database 第四章 引言 1． 3 課題背景 教師評語管理系統(tǒng)用計(jì)算機(jī)管理教師給學(xué)生撰寫評語信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新 ,在計(jì)算機(jī)還未普及之前中介管理都是由教師人員手工抄寫的方式來操作