教師評(píng)語管理系統(tǒng)畢業(yè)論文

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：35 大小：448.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩34頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　畢業(yè)設(shè)計(jì)　　教師評(píng)語管理系統(tǒng)　　班級(jí)　　學(xué)號(hào)　　姓名<

2、/p>　　摘要…………………………………………………………………………1　　Abstract………………………………………………………………………2　　第一章引言…………………………………………………………………4　　1．1 課題背景………………………………………………………

3、……………4　　1．2 系統(tǒng)簡介……………………………………………………………………5　　第二章系統(tǒng)的分析……………………………………………………………6　　2．1 系統(tǒng)開發(fā)的目標(biāo)和思想……………………………………………………6　　2．2 系統(tǒng)的可行性分析…………

4、………………………………………………8　　第三章系統(tǒng)的設(shè)計(jì)……………………………………………………………18　　3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)………………………………………………………18　　3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)　　3．3 界面設(shè)計(jì)與代碼設(shè)計(jì)…………………………

5、…………………………………………23　　…………………………………………………………24　　結(jié)束語………………………………………………………………………………46　　致謝…………………………………………………………………………………47　　參考文獻(xiàn)………………………………

6、…………………　　摘要　　教師評(píng)語管理系統(tǒng)用計(jì)算機(jī)管理教師給學(xué)生撰寫評(píng)語信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前中介管理都是由教師人員手工抄寫的方式來操作的.現(xiàn)在一般的教師評(píng)語管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)評(píng)語生成管理程序來幫助學(xué)生管理員進(jìn)行更有效的學(xué)生評(píng)語寫作。評(píng)語管理系統(tǒng)是典型的信息管理

7、系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,不斷

8、修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。　　關(guān)鍵字:評(píng)語管理,MIS,visual basic ,數(shù)據(jù)庫　　Abstract　　Teachers comment management system for teachers to use computer management

9、 information students wrote comments a computer application technology innovation, Management has not yet popular in the computer before the intermediary personnel manual transcription by teachers are the way to operate.

10、 Now the general comments of teachers are using computers as a management tool for computer comments generated management procedures to help students managers more effective students writing comments. Comme&l

11、t;p>　　Keyword : comments management MIS,visual basic database　　引言　　課題背景　　教師評(píng)語管理系統(tǒng)用計(jì)算機(jī)管理教師給學(xué)生撰寫評(píng)語信息的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)

12、還未普及之前中介管理都是由教師人員手工抄寫的方式來操作的.現(xiàn)在一般的教師評(píng)語管理都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)評(píng)語生成管理程序來幫助學(xué)生管理員進(jìn)行更有效的學(xué)生評(píng)語寫作。評(píng)語管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。<

13、;b>　　系統(tǒng)簡介　　本系統(tǒng)主要由以下功能模塊構(gòu)成:　　評(píng)語項(xiàng)目管理(增加評(píng)語項(xiàng)目,刪除選定項(xiàng)目,增加項(xiàng)目分類,刪除項(xiàng)目分類)　　評(píng)語維護(hù)　　學(xué)生管理(查找學(xué)生,添加學(xué)生,刪除學(xué)生,添加新評(píng)語)</p&

14、gt;　　系統(tǒng)管理(修改密碼,添加用戶,退出系統(tǒng))　　系統(tǒng)的分析　　系統(tǒng)開發(fā)的目標(biāo)和思想　　本系統(tǒng)主要服務(wù)于教師對學(xué)生寫評(píng)語的工作.利用本評(píng)語生成系統(tǒng),教師可以方便的快捷的給班級(jí)的學(xué)生寫評(píng)語,主要操作是定位學(xué)生對數(shù)據(jù)庫添加評(píng)語信息,最后可以完成對學(xué)生的查

15、詢以及評(píng)語的修改.　　系統(tǒng)的可行性分析　　技術(shù)上:本系統(tǒng)采用visual basic 6.0與微軟的access作為數(shù)據(jù)庫,技術(shù)上開發(fā)難度一般.　　經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于學(xué)校教師,提高了教育工作者辦事效率,節(jié)省了開支.所以具有經(jīng)濟(jì)上的可行性.<p&

16、gt;　　社會(huì)上:本系統(tǒng)同時(shí)也方便了廣大老師寫評(píng)語尋求者,以及家長.所以具有社會(huì)可行性.　　系統(tǒng)的設(shè)計(jì)　　系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)　　3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)　　1.工作評(píng)語:<

17、;/b>　　2.集體活動(dòng)評(píng)語:　　3.紀(jì)律評(píng)語:　　4.建議期望評(píng)語:　　5.課堂評(píng)語:&

18、lt;p>　　6.特長愛好評(píng)語:　　7.體育鍛煉評(píng)語:　　8:衛(wèi)生評(píng)語:　　9:系統(tǒng)管理:　　1

19、0:學(xué)生操行:　　11:學(xué)生管理:　　12:學(xué)生成績評(píng)語:　　13:印象評(píng)語:　　14:作業(yè)評(píng)語:

20、;　　界面設(shè)計(jì)與代碼設(shè)計(jì)　　登陸界面設(shè)計(jì):　　登陸界面代碼設(shè)計(jì):　　Private Sub Command1_Click()　　Dim sql As Stri

21、ng　　Dim rs_login As New ADODB.Recordset　　If Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空　　MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExcl

22、amation, ""　　txtuser.SetFocus　　Else　　sql = "select * from 系統(tǒng)管理 where 用戶名='" & txtuser.Text & "'&q

23、uot;　　rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic　　If rs_login.EOF = True Then　　MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, ""

24、;　　txtuser.SetFocus　　Else '檢驗(yàn)密碼是否正確　　If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then　　userID =

25、 txtuser.Text　　rs_login.Close　　Unload Me　　mainform.Show　　Else　　MsgBox "密

26、碼不正確", vbOKOnly + vbExclamation, ""　　txtpwd.SetFocus　　End If　　End If　　End

27、If　　cnt = cnt + 1　　If cnt = 3 Then　　Unload Me　　End If　　Exi

28、t Sub　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Sub</

29、p>　　Private Sub Form_Load()　　Dim connectionstring As String　　connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _　　"da

30、ta source=pingyu.mdb"　　conn.Open connectionstring　　cnt = 0　　End Sub　　添加學(xué)生界面設(shè)計(jì):</b

31、>　　添加學(xué)生代碼設(shè)計(jì):　　Private Sub Command1_Click()　　Dim sql As String　　If Trim(Text1.Text) = "" Then

32、　　MsgBox "學(xué)生姓名不能為空", vbOKOnly + vbExclamation, ""　　Text1.SetFocus　　Exit Sub　　End If</p&

33、gt;　　If Trim(Text2.Text) = "" Then　　MsgBox "學(xué)號(hào)不能為空", vbOKOnly + vbExclamation, ""　　Text2.SetFocus　　Exit Sub

34、　　End If　　If Trim(Text3.Text) = "" Then　　MsgBox "班級(jí)不能為空", vbOKOnly + vbExclamation, ""

35、　　Text3.SetFocus　　Exit Sub　　End If　　sql = "select * from 學(xué)生管理"　　rs.CursorLocati

36、on = adUseClient　　rs.Open sql, conn, adOpenKeyset, adLockPessimistic　　While (rs.EOF = False)　　If Trim(rs.Fields(0)) = Trim(Text2.Text) Then<p&

37、gt;　　MsgBox "學(xué)號(hào)不能重復(fù)！", vbOKOnly + vbExclamation, ""　　Text1.SetFocus　　Text1.Text = ""　　Text2.Text = ""<

38、p>　　Text3.Text = ""　　Exit Sub　　Else　　rs.MoveNext　　End If

39、　　Wend　　rs.AddNew　　rs.Fields(0) = Text2.Text　　rs.Fields(1) = Text1.Text　　rs.Fields(2) =

40、 Text3.Text　　rs.Update　　rs.Close　　MsgBox "添加用戶成功", vbOKOnly + vbExclamation, ""

41、;　　Unload Me　　End Sub　　Private Sub Command2_Click()　　Unload Me　　End Su

42、b　　查找學(xué)生界面設(shè)計(jì):　　查找學(xué)生代碼設(shè)計(jì):　　Private Sub Command1_Click()　　Dim rs As New ADODB.Recordset<

43、/p>　　Dim find As String　　Dim sql As String　　List1.Clear　　List1.AddItem "學(xué)號(hào)" & Space(5) & "姓名" & Space(5) &

44、"班級(jí)"　　If Option1.Value = True Then　　sql = "select * from 學(xué)生管理 where 學(xué)生姓名='" & Text1.Text & "'"　　rs.Open sql, co

45、nn, adOpenKeyset, adLockPessimistic　　If rs.EOF = False Then　　rs.MoveFirst　　While rs.EOF = False　　List1.AddItem rs.Fields(0) & Space(

46、5) & rs.Fields(1) & Space(5) & rs.Fields(2)　　rs.MoveNext　　Wend　　Text1.Text = ""　　Else&

47、lt;/b>　　MsgBox "沒有找到目標(biāo)！", vbOKOnly + vbExclamation, ""　　End If　　End If　　If

48、Option2.Value = True Then　　sql = "select * from 學(xué)生管理 where 學(xué)號(hào)='" & Text2.Text & "'"　　rs.Open sql, conn, adOpenKeyset, adLockPessimistic</p&

49、gt;　　If rs.EOF = False Then　　rs.MoveFirst　　While rs.EOF = False　　List1.AddItem rs.Fields(0) & Space(5) & rs.Fields(1) & Space(5) &

50、 rs.Fields(2)　　rs.MoveNext　　Wend　　Text2.Text = ""　　Else　　MsgBox &qu

51、ot;沒有找到目標(biāo)！", vbOKOnly + vbExclamation, ""　　End If　　End If　　If Option3.Value = True Then<p

52、>　　sql = "select * from 學(xué)生管理 where 班級(jí)='" & Text3.Text & "'"　　rs.Open sql, conn, adOpenKeyset, adLockPessimistic　　If rs.EOF = False Then<

53、/p>　　rs.MoveFirst　　While rs.EOF = False　　List1.AddItem rs.Fields(0) & Space(5) & rs.Fields(1) & Space(5) & rs.Fields(2)　　rs.Mov

54、eNext　　Wend　　Text3.Text = ""　　Else　　MsgBox "沒有找到目標(biāo)！", vbOKOnly + vbExclamation

55、, ""　　End If　　End If　　rs.Close　　End Sub

56、　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub List1_Click()　　Dim i As

57、Long　　Dim sql As String　　Dim rsclick As New ADODB.Recordset　　i = CLng(List1.ListIndex)　　ID = Left(List1.Text, 6)　　I

58、f i > 0 Then　　rsclick.CursorLocation = adUseClient　　sql = "select * from 學(xué)生操行 where 學(xué)號(hào)='" & ID & "'" & " order by 學(xué)期"</p&g

59、t;　　rsclick.Open sql, conn, adOpenKeyset, adLockPessimistic　　If rsclick.EOF = False Then　　rsclick.MoveFirst　　Else&l

60、t;p>　　MsgBox "該生沒有評(píng)語！", vbOKOnly + vbExclamation, ""　　Exit Sub　　End If　　Text4.Text = ""

61、; '文本框清空　　While rsclick.EOF = False　　Text4.Text = Text4.Text & vbCrLf & "第" & rsclick.Fields(1) & "學(xué)期" & vbCrLf &

62、 Space(2) & _　　rsclick.Fields(2) & vbCrLf & Space(10) & rsclick.Fields(3) & Space(2) & rsclick.Fields(4)　　rsclick.MoveNext

63、Wend　　rsclick.Close　　Exit Sub　　Else　　MsgBox "請選擇學(xué)生！", vbOKOnly + vbExclamation

64、, ""　　Exit Sub　　End If　　End Sub　　添加學(xué)生界面設(shè)計(jì):</p&g

65、t;　　添加學(xué)生代碼設(shè)計(jì):　　Private Sub Command1_Click()　　Dim sql As String　　Dim rs_add As New ADODB.Recordset　　If Trim

66、(Text1.Text) = "" Then　　MsgBox "用戶名不能為空", vbOKOnly + vbExclamation, ""　　Exit Sub　　Text1.SetFocus

67、　　Else　　sql = "select * from 系統(tǒng)管理"　　rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic　　While (rs_add.EOF = False)&

68、lt;/p>　　If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then　　MsgBox "已有這個(gè)用戶", vbOKOnly + vbExclamation, ""　　Text1.SetFocus　　T

69、ext1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Exit Sub　　Else<

70、/p>　　rs_add.MoveNext　　End If　　Wend　　If Trim(Text2.Text) <> Trim(Text3.Text) Then<p&g

71、t;　　MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, ""　　Text2.SetFocus　　Text2.Text = ""　　Text3.Text = ""<p

72、>　　Exit Sub　　Else　　rs_add.AddNew　　rs_add.Fields(0) = Text1.Text　　rs_add.Fields(1) = Text2.Text&

73、lt;/p>　　rs_add.Update　　rs_add.Close　　MsgBox "添加用戶成功", vbOKOnly + vbExclamation, ""　　Unload Me

74、　　End If　　End If　　End Sub　　修改密碼界面設(shè)計(jì):　　修改界

75、面代碼設(shè)計(jì):　　Private Sub Command1_Click()　　Dim rs_chang As New ADODB.Recordset　　Dim sql As String　　If Trim(Text1.Text) <> Tri

76、m(Text2.Text) Then　　MsgBox "密碼不一致！", vbOKOnly + vbExclamation, ""　　Text1.SetFocus　　Text1.Text = ""　　Text2.

77、Text = ""　　Else　　sql = "select * from 系統(tǒng)管理 where 用戶名='" & userID & "'"　　rs_chang.Open sql, c

78、onn, adOpenKeyset, adLockPessimistic　　rs_chang.Fields(1) = Text1.Text　　rs_chang.Update　　rs_chang.Close　　MsgBox "密碼修改成功", vbOKO

79、nly + vbExclamation, ""　　Unload Me　　End If　　End Sub　　Private Sub Comm

80、and2_Click()　　Unload Me　　End Sub　　主界面設(shè)計(jì):　　主界面代碼設(shè)計(jì):

81、　　Option Explicit　　Dim rs1 As New ADODB.Recordset　　Dim cat As New adox.Catalog　　Dim tbl As New adox.table　　Dim list2state As

82、Boolean '標(biāo)記list2的狀態(tài)　　Dim ID_num As String '記錄學(xué)號(hào)　　Dim txttbl As String '記錄當(dāng)前評(píng)語項(xiàng)目名稱　　Dim txt

83、field As String '記錄當(dāng)前項(xiàng)目分支名稱　　Dim str1 As String '記錄當(dāng)前評(píng)語項(xiàng)目　　Dim str2 As String '記錄當(dāng)前項(xiàng)目中類別<

84、p>　　Dim xq As Integer '記錄學(xué)期　　Dim selstu As Boolean　　Dim selxm As Boolean　　Dim xing As String '記錄教師姓名&

85、lt;/p>　　Private mnode As Node　　Private Sub write_Click()　　End Sub　　Private Sub addnewpyxm_Click()　　Comm

86、and9_Click　　End Sub　　Private Sub addpy_Click()　　Command4_Click　　End Sub　　Priv

87、ate Sub addstudent_Click()　　Form1.Show　　End Sub　　Private Sub addstupy_Click()　　Command10_Click&l

88、t;b>　　End Sub　　Private Sub adduser_Click()　　Form3.Show　　End Sub　　Private Sub addxmfl_Click()

89、　　Command12_Click　　End Sub　　Private Sub changepwd_Click()　　Form4.Show　　End Sub

90、　　Private Sub Combo1_Click()　　Dim caoxing As String　　caoxing = Combo1.Text　　Text1(1).Text = Text1(1).Text & "操行評(píng)定" & caoxing</

91、p>　　End Sub　　Private Sub Command1_Click()　　Text1(1).Text = Text1(1).Text & vbCrLf & Date　　End Sub

92、　　Private Sub Command10_Click()　　If selstu = True Then　　Command1.Enabled = True　　Command2.Enabled = True　　Command7.

93、Enabled = True　　Command8.Enabled = True　　Command14.Enabled = True　　Combo1.Enabled = True　　SSTab1.TabEnabled(1) = True<p&g

94、t;　　Command10.Enabled = False　　List1.Enabled = False　　SSTab1.Tab = 1　　Else　　MsgBox "請選擇學(xué)生！", vbOKOnly + vbE

95、xclamation, ""　　End If　　End Sub　　Private Sub Command11_Click()　　Dim answer As String<

96、/p>　　Dim delxm As String　　Dim table As New table　　Dim ind As Integer　　If TreeView1.SelectedItem.Children > 0 Then　　delx

97、m = TreeView1.SelectedItem.Text　　answer = MsgBox("確定要?jiǎng)h除這一項(xiàng)嗎？", vbYesNo, "")　　If answer = vbYes Then　　cat.Tables.Delete (delxm)

98、　　ind = TreeView1.SelectedItem.Index　　TreeView1.Nodes.Remove (ind)　　Else　　Exit Sub<b&

99、gt;　　End If　　Else　　MsgBox "請選擇要?jiǎng)h除的項(xiàng)目！而不是項(xiàng)目分類！", vbOKOnly, ""　　Exit Sub<p&g

100、t;　　End If　　Exit Sub　　End Sub　　Private Sub Command12_Click()　　Dim flname As Str

101、ing　　Dim tbl As table　　Dim sql As String　　Dim rs As New ADODB.Recordset　　Dim xmname As String　　Dim ind As Integer&l

102、t;/p>　　Dim nod As Node　　Set nod = TreeView1.SelectedItem　　If InStr(TreeView1.SelectedItem.FullPath, "\") = 0 Then　　flname = InputBox(

103、"輸入項(xiàng)目分類名稱", "增加項(xiàng)目分類")　　If flname = "" Then　　MsgBox "分類名稱不能為空！", vbOKOnly, ""　　Exit Sub&l

104、t;/p>　　Else　　xmname = TreeView1.SelectedItem.Text　　ind = TreeView1.SelectedItem.Index　　cat.Tables(xmname).Columns.Append fln

105、ame, adVarWChar, 255　　Set mnode = TreeView1.Nodes.Add(ind, tvwChild)　　mnode.Text = flname　　End If　　Else</

106、b>　　MsgBox "只能在項(xiàng)目中添加分類，請單擊要添加分類的項(xiàng)目名稱！", vbOKOnly, ""　　End If　　End Sub　　Priv

107、ate Sub Command13_Click()　　Dim flname As String　　Dim answer As String　　Dim xmname As String　　Dim ind As Integer　　If

108、 InStr(TreeView1.SelectedItem.FullPath, "\") = 0 Then　　MsgBox "請選擇要?jiǎng)h除的項(xiàng)目分類！而不是項(xiàng)目名稱！", vbOKOnly, ""　　Exit Sub

109、　　Else　　xmname = TreeView1.SelectedItem.Parent.Text　　ind = TreeView1.SelectedItem.Index　　flname = TreeView1.SelectedItem.Text&

110、lt;p>　　answer = MsgBox("確定要?jiǎng)h除這一項(xiàng)嗎？", vbYesNo, "刪除項(xiàng)目分類")　　If answer = vbYes Then　　cat.Tables(xmname).Columns.Delete flname　　TreeView1.N

111、odes.Remove ind　　End If　　End If　　Exit Sub　　End Sub

112、　　Private Sub Command14_Click()　　Text1(1).Text = ""　　End Sub　　Private Sub Command15_Click()　　Lis

113、t1.Clear　　Dim refreshstu As New ADODB.Recordset　　Dim sql As String　　refreshstu.CursorLocation = adUseClient　　sql = "select * from 學(xué)

114、生管理 order by 學(xué)號(hào)" '打開學(xué)生管理數(shù)據(jù)表，在列表框中顯示所有的學(xué)生　　refreshstu.Open sql, conn, adOpenKeyset, adLockPessimistic　　While refreshstu.EOF = False　　List1.AddItem

115、refreshstu.Fields(1) & " " & refreshstu.Fields(0)　　refreshstu.MoveNext　　Wend　　refreshstu.Close<p&

116、gt;　　End Sub　　Private Sub Command2_Click()　　xing = InputBox("輸入老師姓或姓名：")　　Text1(1).Text = Text1(1).Text & vbCrLf & Space

117、(12) & xing & "老師"　　End Sub　　Private Sub Command3_Click()　　Dim i As Integer　　i = List2.ListIndex<

118、;/p>　　If Text1(1).Text = "" Then　　Text1(1).Text = Space(2) & Text1(1).Text & List2.Text　　Else　　Text1(1).Te

119、xt = Text1(1).Text & List2.Text　　End If　　End Sub　　Private Sub Command4_Click()　　Dim rs As New

120、ADODB.Recordset　　Dim sql As String　　Dim str As String '記錄用戶輸入　　Dim prompt As String '函數(shù)參數(shù)　　prompt

121、 = "在“" + str1 + "”中的“" + str2 + "”類別中添加新的評(píng)語："　　str = InputBox(prompt, "添加新評(píng)語")　　List2.AddItem (str)　　sql = "sel

122、ect " & str2 & " from " & str1　　rs.Open sql, conn, adOpenKeyset, adLockPessimistic　　rs.AddNew　　rs.Fields(str2)

123、= str　　rs.Update　　rs.Close　　End Sub　　Private Sub Command5_Click()&l

124、t;p>　　Dim rs As New ADODB.Recordset　　Dim sql As String　　Dim i As Integer　　Dim str As String '記錄用戶輸入　　Dim prompt

125、As String '函數(shù)參數(shù)　　prompt = "修改“" + str1 + "”中的“" + str2 + "”類別評(píng)語：" & List2.Text　　str = InputBox(prompt, "修改評(píng)語")</p

126、>　　If str = "" Then　　Exit Sub　　Else　　i = List2.ListIndex　　List2.RemoveItem

127、 (List2.ListIndex)　　List2.AddItem str　　sql = "select " & str2 & " from " & str1　　rs.Open sql, conn, adOpenKeyset, adLockPessi

128、mistic　　rs.Move i　　rs.Fields(str2) = str　　rs.Update　　rs.Close<p&

129、gt;　　End If　　End Sub　　Private Sub Command6_Click()　　Dim rs As New ADODB.Recordset　　Dim sql As Stri

130、ng　　Dim i As Integer　　Dim answer As String '記錄用戶輸入　　Dim prompt As String '函數(shù)參數(shù)　　prompt = "確實(shí)要?jiǎng)h除

131、此條評(píng)語嗎？"　　answer = MsgBox(prompt, vbYesNo, "刪除評(píng)語")　　If answer = vbYes Then　　i = List2.ListIndex　　List2.RemoveItem (List2.L

132、istIndex)　　sql = "select " & str2 & " from " & str1　　rs.Open sql, conn, adOpenKeyset, adLockPessimistic　　rs.Move i&l

133、t;/b>　　rs.Delete　　rs.Update　　rs.Close　　End If

134、　　End Sub　　Private Sub Command7_Click()　　Dim rs As New ADODB.Recordset　　Dim sql As String　　rs.CursorLocation

135、 = adUseClient　　sql = "select * from 學(xué)生操行 where 學(xué)號(hào)='" & ID_num & "'" & "order by 學(xué)期"　　rs.Open sql, conn, adOpenKeyset, adLockPes

136、simistic　　Dim cx As String　　rs.AddNew　　rs.Fields(0) = ID_num　　rs.Fields(1) = xq + 1　　rs.Fields(3

137、) = Date　　rs.Fields(4) = xing + "老師"　　cx = Replace(Text1(1).Text, Date, "")　　cx = Replace(cx, xing + "老師", "")</p&

138、gt;　　rs.Fields(2) = cx　　rs.Update　　rs.Close　　Command1.Enabled = False　　Command2.Enabled

139、 = False　　Command7.Enabled = False　　Command8.Enabled = False　　Command14.Enabled = False　　Combo1.Enabled = False　　SS

140、Tab1.TabEnabled(1) = False　　Command10.Enabled = True　　List1.Enabled = True　　End Sub　　Private Sub Command8_Click()<

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

教師評(píng)語管理系統(tǒng)畢業(yè)論文

文檔簡介

溫馨提示

最新文檔

評(píng)論

教師評(píng)語管理系統(tǒng)畢業(yè)論文

文檔簡介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載