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

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

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

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

文檔簡介

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

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è)計……………………………………………………………18　　3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計………………………………………………………18　　3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計　　3．3 界面設(shè)計與代碼設(shè)計…………………………

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

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

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

8、修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。　　關(guān)鍵字:評語管理,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　　引言　　課題背景　　教師評語管理系統(tǒng)用計算機(jī)管理教師給學(xué)生撰寫評語信息的一種計算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計算機(jī)

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

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

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

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

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

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

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

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

21、ng　　Dim rs_login As New ADODB.Recordset　　If Trim(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空　　MsgBox "沒有這個用戶", 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 "沒有這個用戶", vbOKOnly + vbExclamation, ""

24、;　　txtuser.SetFocus　　Else '檢驗密碼是否正確　　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è)計:</b

31、>　　添加學(xué)生代碼設(shè)計:　　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é)號不能為空", vbOKOnly + vbExclamation, ""　　Text2.SetFocus　　Exit Sub

34、　　End If　　If Trim(Text3.Text) = "" Then　　MsgBox "班級不能為空", 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é)號不能重復(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è)計:　　查找學(xué)生代碼設(shè)計:　　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é)號" & Space(5) & "姓名" & Space(5) &

44、"班級"　　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é)號='" & 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 班級='" & 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é)號='" & 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 "該生沒有評語！", 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è)計:</p&g

65、t;　　添加學(xué)生代碼設(shè)計:　　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 "已有這個用戶", 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è)計:　　修改界

75、面代碼設(shè)計:　　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è)計:　　主界面代碼設(shè)計:

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é)號　　Dim txttbl As String '記錄當(dāng)前評語項目名稱　　Dim txt

83、field As String '記錄當(dāng)前項目分支名稱　　Dim str1 As String '記錄當(dāng)前評語項目　　Dim str2 As String '記錄當(dā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 & "操行評定" & 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("確定要刪除這一項嗎？", 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 "請選擇要刪除的項目！而不是項目分類！", 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、"輸入項目分類名稱", "增加項目分類")　　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 "只能在項目中添加分類，請單擊要添加分類的項目名稱！", 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 "請選擇要刪除的項目分類！而不是項目名稱！", vbOKOnly, ""　　Exit Sub

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

110、lt;p>　　answer = MsgBox("確定要刪除這一項嗎？", vbYesNo, "刪除項目分類")　　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é)號" '打開學(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 + "”類別中添加新的評語："　　str = InputBox(prompt, "添加新評語")　　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 + "”類別評語：" & List2.Text　　str = InputBox(prompt, "修改評語")</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 = "確實要刪除

131、此條評語嗎？"　　answer = MsgBox(prompt, vbYesNo, "刪除評語")　　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é)號='" & 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è)計

溫馨提示

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

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載