【正文】 計 : 修改界面代碼設(shè)計 : 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。 vbCrLf amp。 學期 amp。文本框清空 While = False = amp。 ID amp。 (1) amp。 amp。 (1) amp。 amp。 (1) amp。 amp。 姓名 amp。檢驗密碼是否正確 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=。 amp。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備 ,易使用等特點。 畢業(yè)設(shè)計 教師評語管理系統(tǒng) 班級 學號 姓名 摘 要 ???????????????????????????? 1 Abstract???????????????????????????2 第一章 引言 ????????????????????????? 4 1． 1 課題背景 ?????????????????????????? 4 1． 2 系統(tǒng)簡介?????????????????????? ??? ? 5 第二章 系統(tǒng)的分析???????????????????? ??? 6 2． 1 系統(tǒng)開發(fā)的目標和思想?????????????????? ?? 6 2． 2 系統(tǒng)的可行性分析???????????????????? ?? 8 第三章 系統(tǒng)的設(shè)計 ???????????????????????1 8 3． 1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計????????????????????? 18 3． 2 系統(tǒng)的數(shù)據(jù)庫設(shè)計 3． 3 界面設(shè)計與代碼設(shè)計?????????????????????????? 23 ?????????????? ???????? 24 結(jié)束語 ??????????????????????????????4 6 致謝 ???????????????????????????????4 7 參考文獻 ??????????????????? 摘 要 教師評語管理系統(tǒng)用計算機管理教師給學生撰寫評語信息的一種計算機應用技術(shù)的創(chuàng)新 ,在計算機還未普及之前中介管理都是由教師人員手工抄寫的方式來操作的 .現(xiàn)在一般的教師評語管理都是采用計算機作為工具的實用的計算機評語生成管理程序來幫助學生管理員進行更有效的學生評語寫作。 經(jīng)過分析 ,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具 ,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具 ,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ,首先在短時間內(nèi)建立系統(tǒng)應用原型 ,然后 ,對初始原型系統(tǒng)進行需求迭代 ,不斷修正和改進 ,直到形成用戶滿意的可行系統(tǒng)。而對于后者則要求應用程序功能完備 ,易使用等特點。 amp。 amp。 Space(5) amp。 39。 Space(5) amp。 39。 Space(5) amp。 39。 Space(5) amp。 39。 vbCrLf amp。 vbCrLf amp。 Space(10) amp。 amp。標記 list2 的狀態(tài) Dim ID_num As String 39。記錄當前評語項目 Dim str2 As String 39。 操行評定 amp。打開學生管理數(shù)據(jù)表，在列表框中顯示所有的學生 sql, conn, adOpenKeyset, adLockPessimistic While = False (1) amp。 Space(12) amp。 Else Text1(1).Text = Text1(1).Text amp。 str2 amp。函數(shù)參數(shù) prompt = 修改“ + str1 + ”中的“ + str2 + ”類別評語： amp。 str1 sql, conn, adOpenKeyset, adLockPessimistic i (str2) = str End If End Sub Private Sub Command6_Click() Dim rs As New Dim sql As String Dim i As Integer Dim answer As String 39。 from amp。 39。 ID amp。 amp。 ID_num amp。文本框清空 While = False Text1(0).Text = Text1(0).Text amp。 學期 amp。 vbCrLf 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。通過這幾個月的畢業(yè)設(shè)計，我學到很多以前沒有學到的 visual basic 開發(fā)技術(shù)，在軟件工程學上更是取得了很大的進步。 致謝 我首先感謝我的指導老師呂老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。 參 考 文 獻 1 陳明 . 軟件工程學教程 .科技出版社， 2020 2 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社， 2020 3 飛思科技產(chǎn)品研發(fā)中心 . visual basic 數(shù)據(jù)庫 應用開發(fā) .電子工業(yè)出版社， 2020 4 飛思科技產(chǎn)品研發(fā)中心 . visual basic 開發(fā)者手冊 . 電子工業(yè)出版社 , 2020 5 申 旻 . visual basic 高手突破 . 清華大學出版社， 2020， 302 6 Steve Teixeira， Xaviver Pacheco 著，龍勁松，王瑜，謝尚書譯 . visual basic 開發(fā)人員指南 . 機械工業(yè)出版社 .2020 7 喬林 .參透 Delphi／ Kylix . 中國鐵道出版社 .2020 8 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2020 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2020 嚴蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學出版社 .2020 10 王珍 玲 。而對于后者則要求應用程序功能完備 ,易使用等特點。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。 amp。檢驗密碼是否正確 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=。 姓名 amp。 amp。 (1) amp。 amp。 (1) amp。 amp。 (1) amp。 ID amp。文本框清空 While = False = amp。 學期 amp。 vbCrLf amp。 (4) Wend Exit Sub Else MsgBox 請選擇學生！ , vbOKOnly + vbExclamation, Exit Sub End If End Sub 10. 添加學生界面設(shè)計 : 添加學生代碼設(shè)計 : 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 已有這個用戶 , vbOKOnly + vbExclamation, = = = Exit Sub Else End If Wend If Trim() Trim() Then MsgBox 兩次密碼不一致 , vbOKOnly + vbExclamation, = = Exit Sub Else (0) = (1) = 。 (3) amp。 Space(2) amp。 第 amp。 amp。 (2) Wend = Else MsgBox 沒有找到目標！ , vbOKOnly + vbExclamation, End If End If End Sub Private Sub Command2_Cli