教师工作量实习报告(共50页)

1、精选优质文档-倾情为你奉上教师工作量系统专业：信息管理与信息系统小组成员：解玉龙 0 杜小青 6安雪娇 1目录一 功能模块设计1二 系统分析概述2（一） 系统分析的内容2（二） 系统的目标与任务3三 详细调查.3四 业务流程分析.7五 数据流程分析.8六 数据字典.8（1）数据项.8（2）数据结构.9（3）数据流.9（4）数据存储.10（5）处理逻辑.10（6）外部实体.11七 总结. 12教师工作量系统一 功能模块设计系统的总体结构图如下：系统管理员模块查询全校教师工作量汇总全校教师工作量修改全校教师工作量数据的备份和维护系部管理员模块查询系部教师工作量统计系部教师工作量修订系部教师工作量主

2、控模块教师模块录入工作量信息查询工作量信息系统支持三类用户：系统管理员，系统管理员和普通教师。每类用户均需要通过相应的身份验证才能完成相应的系统功能。1.教师模块教师模块主要包括的功能是：每位教师（含实验人员）可以根据自己的工号录入和查询自己在理论教学，试验，实习课程设计，毕业论文指导，研究生指导，答辩，监考等工作量。2.系统管理员模块该模块的功能如下：系统管理员可以查询所有教师的工作量情况。系统管理员可以对系部教师工作量进行汇总，上报学校教务处。系部根据自己的学科情况在遵守教务处有关文件精神的基础上对教师教学工作量计算进行适当的修订和折减，主要用于系部的课时费，各种奖金的发送。3.系统管理员

3、模块系统管理员按照学校教务处有关文件的规定统计和修改全校教师的教学工作量，主要用于各种考评，检查，教师个人职称评定等。可对系统的数据进行备份和维护二系统分析概述（一）系统分析的内容教师教学工作量是教师直接从事与教学相关工作的数量与质量的总构成，是衡量教师教学工作业绩的尺度，也是对教师进行考核的重要指标。教师工作量统计具体来说包括课程工作量、指导实习工作量、指导论文工作量、评议论文工作量、监考工作量、补考阅卷工作量、命题工作量和其他工作量的统计。统计的关键在于数据的真实性与易取性。在深化教育改革的过程中，科学合理的教师工作量统计方法是教学改革与人事分配制度改革的重要依据。因此采用科学、合理的计算

4、方法对学校管理工作的建设和发展都有着重要的意义。我校现有排课系统，其中存储的数据是教师工作量统计所需的基础数据，但这在现有的工作流程中并没有得到充分的利用，这无疑形成了一种浪费。利用逐级式推动的统计管理方法，不仅效率低，还易造成不科学，不规范，不准确的弊病，而且不能为管理提供科学的依据。信息技术的迅速发展，使计算机已经成为人们工作和生活中不可缺少的工具，现在人们越来越依靠计算机来实现自动化办公，应用计算机在数据处理和数据存储方面的优异性能, 可帮助工作人员提高工作的效率、减少错误。同时还能提供快速的查询检索功能以及按要求进行报表打印功能。为实现教师工作量统计工作的科学化，规范化，需要进行教师教

5、学工作量计算机统计工作实现计算机化，从而减少中间环节，提高工作效率，降低统计人员的工作强度，使管理工作实现科学化。（二）系统的目标与任务：1.主要用于学院教学管理工作，因此要考虑设计成一个综合性的系统，能够适应教学考核，职位评定及新专业的学位申请，计算课酬和其他各项工作所需要教学量统计数据的支持。由于在软件设计时，不可能准确的预见未来所有的统计需求，因此需设计为一个组合查询统计模块来支持软件的功能。2.因为教学工作量折算方法首先是遵照学校的有关规定，而目前学校的管理规定仍然处于不断的探索和优化中，因此将会不断的对折算方法和系数作出调整，所以要求本系统中的所有计算公式都必须设计成动态可修改，这样

6、当计算方法发生变化后，不必修改系统源程序，只需由使用者重新定义相关的计算公式即可，这就必须要解决如何较直观的定义表达式并计算求职的问题。3.对教学工作量的计算，学校有一系列具体规定，这些规定也是教学管理的重要依据，因此也必须在系统设计时加以考虑。三详细调查教师工作量每学期统计一次，年底进行全年汇总，作为教师工作业绩考核和奖励的重要依据。石家庄经济学院的教师工作量统计工作到目前为止一直采用手工操作管理模式。每学期末教研室主任到教学秘书处领取石家庄经济学院教师工作量登记表，分发给教研室里的各位教师。教师根据自己的实际情况填写完毕后交给教研室主任审核签字，教研室主任统一核对签字完毕后交与教学秘书，教

7、学秘书再根据存档资料对收到的登记表再次进行核对。若有不一致则返还给教研室主任，重复上述过程。核对一致后再手工输入教师工作量汇总表，交与有关部门存档。这种统计管理方法是逐级推动式的，整个流程中涉及到的人员更多的是基于手工的、纸质资料的操作。纸质资料积累多了之后查询起来就会比较费力，更不必说对数据进行深层挖掘了。整个工作量统计过程中需要进行多重审核，一方面增加了教学秘书和教研室主任的工作负担，另一方面，也使得统计工作所需时间的延长。我校现有排课系统，其中存储的数据是教师工作量统计所需的基础数据，但这在现有的工作流程中并没有得到充分的利用，这无疑形成了一种浪费。这种逐级推动式的统计管理方法，不仅效率

8、低，易造成不科学、不规范、不准确的弊病，而且不能为管理、决策提供科学的依据。教师工作量计算公式和计算参数由教务处决定，其中公式是固定的，但计算参数可能会根据需要做一些调整。现行的计算方法与计算参数如下：专业课的工作量计算方法为：学时*（1.25+人数/120）；基础课的计算方法为：学时*（1+人数/120）。实习的工作量具体计算方法如下：大一实习：天数*0.5*人数/20；大二实习：天数*0.6*人数/20；大三实习：天数*0.7*人数/20；大四实习：天数*0.7*人数/20；野外实习：天数*0.9*人数/20。指导论文工作量计算：指导一份论文8个工作量。评议论文工作量：评议一份论文1个工作

9、量。监考工作量：监考一次1个工作量。补考阅卷工作量：一份0.1个工作量。命题工作量：一份命题1个工作量。教师工作量登记表/ 学年 第 学期所在单位工号教师姓名转储号工作量合计备注理论课名称课程性质学时结课考 试人数上课时间工作量理论课工作量小计实验课名称地点学时人数上课时间工作量实验课工作量小计实习名称实习地点联系人实 习 人 数教师实际指导实习 起止日期及天数工作量一年级实习 二年级实习三年级实习四年级实习野外踏勘实习工作量小计指导毕业论文（设计） 份数指导毕业论文（设计）工作量评议毕业论文（设计） 份数评议毕业论文（设计）工作量监考次数监考工作量补考阅卷份数阅卷工作量命题份数命题工作量其他

10、工作本人签字： 年 月 日教研室主任签字： 年 月 日单位领导签字： 年 月 日四业务流程分析教师院系教务处教学任务计划工作量发送通过表审核未通过表填制发送打印工作量表五数据流程分析教学任务D3工作量表P4打印保存教务处D1教师院系P1发送P2计算工作量工作量表P3审核D2未通过表六数据字典（1）数据项数据项名称：教师编号 总编号：1-101数据项编号：101 有关编码说明：别名：teacher-no简要说明：本校教师编码 x x x x x x 类型及长度：数字型。6位数据值类型：（连续/离散）离散 序列号 院系代码 就职年份（2）数据结构数据结构名称：教学任务 总编号：2-01数据结构编号

11、：01 数据量：约xx份/年简要说明：新学期下发给教师的教学任务数据结构组成： 下发时间 姓名 性别 教师编号 出生日期 就职日期 民族 家庭住址（3）数据流数据流名称：教师工作量表 数据流编号：08 总编号：3-08简要说明：学期结束后任课老师填写的工作量表 数据流量：800份/学期数据流来源：任课老师数据流去向：P2，P3 数据流组成： 课程名称 任课老师 日期（4）数据存储数据存储名称：工作量存储表 总编号：4-15数据存储编号：15 相关联的处理简要说明：按教师编号汇总各学期工作量数据存储组成：姓名编号汇总时间工作量名称 理论 实验 实习（5）处理逻辑处理逻辑名称：工作量统计审核 总编

12、号：2-03处理逻辑编号：12 数据量：XX份/学期简要说明：教务处审核教师填制的工作量表是否准确属实输入数据流：工作量表处 理：查看审核教师填制的工作量表，若审核不通过， 则返回教师重新填写；审核通过则保存并打印。输出数据流：工作量表（6）外部实体外部实体名称：院系外部实体编号：01 总编号：6-01简要说明： 数量：约xx个输入的数据流：输出的数据流：教学任务外部实体名称：教师外部实体编号：01 总编号：6-11简要说明： 数量：约xx个输入的数据流：教学计划输出的数据流：工作量表外部实体名称：教务处外部实体编号： 总编号：6-21简要说明： 数量：1个输入的数据流：工作量表输出的数据流：

13、工作量表七总结高校教务管理工作是高等教育中的一个极为重要的环节，是整个院校管理的核心和基础。教师工作量管理是教务管理中不可缺少的部分，面对种类繁多的数据和报表，手工处理方式已经很难跟上现代化管理的步伐，随着计算机及通讯技术的飞速发展，高等教育对教务管理工作中的工作量管理提出了更高的要求。尽快改变传统的管理模式，运用现代化手段进行科学管理，已经成为整个教育系统亟待解决的课题之一。教师教学工作量管理系统实现了教学任务，教学计划的下达，上交的网络管理，同时通过教学任务的管理又方便的实现了各个院系教师教学工作量的统计，具有技术先进，管理科学，性能良好等特点，实现了教师教学工作量管理的办公自动化。为领导

14、决策层提供更加准确可靠的分析数据，促进学习教学管理工作的建设和改革。教师工作量计算系统设计闪现窗体截屏代码Private Sub Form_Load()Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2End SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 1000End SubPrivate Sub Timer2_Timer()Unload Me系统说明.ShowEnd Sub系统说明窗体截屏代码Option ExplicitSub Ch

15、angeColor(Ctl As Control, Color1 As Integer, Color2 As Integer, Color3 As Integer, Color4 As Integer) ' 改变字体颜色If Val(Ctl.Tag) = Color1 Then Ctl.Tag = Color2ElseIf Val(Ctl.Tag) = Color2 Then Ctl.Tag = Color3ElseIf Val(Ctl.Tag) = Color3 Then Ctl.Tag = Color4ElseIf Val(Ctl.Tag) = Color4 Then Ctl.Ta

16、g = Color1Else Ctl.Tag = Color1End If Ctl.ForeColor = QBColor(Ctl.Tag)End SubPrivate Sub Form_Load()Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2End SubPrivate Sub Timer1_Timer() If Label1.Left < Me.Width Then '从左到右滚动 Label1.Left = Label1.Left + 100 ElseIf Label1.Left

17、 > Me.Width Then Label1.Left = -Label1.Width End If Call ChangeColor(Label1, 1, 3, 5, 9) '调用自定义函数，改变文字颜色 Label2.Left = Label2.Left - 100 '从右到左滚动 If Label2.Left < -Label2.Width Then Label2.Left = Me.ScaleWidth End If Call ChangeColor(Label2, 1, 3, 5, 9) '调用自定义函数，改变文字颜色 Label3.Top =

18、Label3.Top - 100 '从下往上滚动 If Label3.Top < -Label3.Height Then Label3.Top = Picture1.ScaleHeight End IfEnd SubPrivate Sub Timer2_Timer()Unload Me主窗体.ShowEnd Sub主窗体截屏代码Private Sub ActiveBar21_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)AlignToForm = TrueSelect Case Tool.NameCase "系统登录

19、"欢迎界面.ShowCase "密码修改"密码修改.ShowCase "数据备份和恢复"数据备份和恢复.ShowCase "退出"Unload Me提示信息.ShowCase "连接数据库"连接服务器.Show End Select End SubPrivate Sub Form_Load()Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2End Sub欢迎登录窗体截屏代码Private Sub Command2_

20、Click()Unload Me管理员登录窗体.ShowEnd SubPrivate Sub Form_Load()Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2End SubPrivate Sub 登录窗体_Click()Unload Me教师登录窗体.ShowEnd Sub教师登录窗体截屏代码Private Sub Command1_Click()If Trim(Combo2.Text) = "" Then MsgBox "请输入用户名！", 48, &qu

21、ot;用户名要填写" Combo2.SetFocusElse If Text1.Text = "" Then MsgBox "请输入密码！", 48, "密码为空！" Else Unload Me 计算工作量.ShowEnd IfEnd IfEnd SubPrivate Sub Form_Load()Dim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.ConnectionString = "Provider=SQLOLEDB.1;Pers

22、istSecurity Info=False;User ID=sa;Initial Catalog=教师工作量;Data Source=ERP47"cnn.Openrst.Open "select * from 教师表", cnn, adOpenDynamic, adLockOptimisticrst.MoveFirstDo While Not rst.EOFCombo2.AddItem rst.Fields("教师姓名").Valuerst.MoveNextLoopMe.Move (Screen.Width - Me.Width) / 2,

23、(Screen.Height - Me.Height) / 2End Sub计算工作量窗体截屏代码Private Sub Command10_Click()Combo10.Text = ""Combo11.Text = ""Combo12.Text = ""Combo13.Text = ""Combo14.Text = ""Text7.Text = ""Text2.Text = ""Text3.Text = ""Text8.Text =

24、 ""Text9.Text = ""Text10.Text = ""End SubPrivate Sub Command2_Click()Dim xlswrs As Excel.WorksheetSet xlsapp = CreateObject("excel.application")xlsapp.Visible = TrueSet xlswrb = xlsapp.Workbooks.AddSet wksheet = xlswrb.Sheets(1)wksheet.Name = "工作量登记表"

25、; '设置表头wksheet.Cells(1, 1).Value = "石家庄经济学院教师工作量登记表 "wksheet.Range("a1").Font.Name = "宋体"wksheet.Range("a1").Font.Size = 16wksheet.Range("a1").Font.Bold = Truewksheet.Rows("1").RowHeight = 33wksheet.Range("a1").HorizontalAlign

26、ment = xlCenter '文字水平居中"wksheet.Range("a1").VerticalAlignment = xlCenter '文字垂直居中 '合并单元格wksheet.Range("d2:f2,a20:e20,b21:c21,b22:c22,d21:e21,d22:e22,b23:e23,d23:e23").MergeCells = Truewksheet.Range("a1:f1,b26:f26,a13:e13,a20:e20").MergeCells = True '

27、设置表格中的字体格式 With wksheet .Range("a3,b3,c3,d3,e3,f3,a5,b5,c5,d5,e5,f5,a13,a14,b14,c14,d14,e14,f14,a26,a27,b27,c27,d27,e27,f27 ").Font.Name = "宋体" .Range("a3,b3,c3,d3,e3,f3,a5,b5,c5,d5,e5,f5,a13,a14,b14,c14,d14,e14,f14,a26,a27,b27,c27,d27,e27,f27 ").Font.Size = 11 .Range(&

28、quot;a3,b3,c3,d3,e3,f3,a5,b5,c5,d5,e5,f5,a13,a14,b14,c14,d14,e14,f14,a20,a26,a27,b27,c27,d27,e27,f27 ").Font.Bold = True .Range("a32").Font.Size = 12End Withwksheet.Cells.HorizontalAlignment = xlCenter '全部文字水平居中"wksheet.Cells.VerticalAlignment = xlCenter '全部文字垂直居中 '设置

29、行高With wksheet.Rows("2").RowHeight = 18.75.Rows("3").RowHeight = 24.Rows("4").RowHeight = 21.Rows("5:13").RowHeight = 27.75.Rows("14").RowHeight = 15.75.Rows("14").RowHeight = 15.75.Rows("15:26").RowHeight = 27.75.Rows("27&qu

30、ot;).RowHeight = 36.75.Rows("28:29").RowHeight = 30.Rows("26").RowHeight = 172.5End With '设置列宽With wksheet.Columns("A").ColumnWidth = 21.38.Columns("B").ColumnWidth = 9.13.Columns("C").ColumnWidth = 8.Columns("D").ColumnWidth = 8.13.Col

31、umns("E").ColumnWidth = 19.38.Columns("F").ColumnWidth = 10.75End With '设置部分单元格内容为文本格式 wksheet.Range("b4,d4").Select xlsapp.Selection.NumberFormatLocal = "" '设置工作量为两位小数wksheet.Range("e4,f6:f13,f15:f26,f28:f33").Selectxlsapp.Selection.NumberFo

32、rmatLocal = "0.00_ " '为单元格设置边框 wksheet.Range("A3:F29").Select xlsapp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone xlsapp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone With xlsapp.Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex

33、 = xlAutomatic End With With xlsapp.Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With xlsapp.Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With xlsapp.Selection.Borders(xlEdg

34、eRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With xlsapp.Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With xlsapp.Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xl

35、Thin .ColorIndex = xlAutomatic End With wksheet.Range("a2").Select '填写表格中信息 With wksheet.Cells(2, 4).Value = "/ 学年 第 学期 ".Cells(3, 1).Value = "所在单位".Cells(3, 2).Value = "工号".Cells(3, 3).Value = "教师姓名".Cells(3, 4).Value = "转储号".Cells(3,

36、5).Value = "工作量合计".Cells(3, 6).Value = "备注".Cells(5, 1).Value = "课程性质".Cells(5, 2).Value = "结果人数".Cells(5, 3).Value = "天数".Cells(5, 4).Value = "学时".Cells(5, 5).Value = "参数".Cells(5, 6).Value = "工作量".Cells(13, 1).Value =

37、"课程工作量小记".Cells(14, 1).Value = "实习名称".Cells(14, 2).Value = "实习人数".Cells(14, 3).Value = "实习天数".Cells(14, 4).Value = "".Cells(14, 5).Value = "参数".Cells(14, 6).Value = "工作量".Cells(15, 1).Value = "一年级实习".Cells(16, 1).Value =

38、 "二年级实习".Cells(17, 1).Value = "三年级实习".Cells(18, 1).Value = "四年级实习".Cells(19, 1).Value = "野外踏勘".Cells(20, 1).Value = "实习工作量小计".Cells(21, 1).Value = "指导毕业论文（设计）" & Chr(10) & "份数".Cells(21, 4).Value = "指导毕业论文（设计）工作量"

39、;.Cells(22, 1).Value = "评议毕业论文（设计）" & Chr(10) & "份数".Cells(22, 4).Value = "评议毕业论文（设计）工作量".Cells(23, 1).Value = "监考次数".Cells(23, 4).Value = "监考工作量".Cells(24, 1).Value = "补考阅卷份数".Cells(24, 4).Value = "阅卷工作量".Cells(25, 1).Val

40、ue = "命题份数".Cells(25, 4).Value = "命题工作量".Cells(26, 1).Value = "其他工作".Cells(27, 1).Value = "本人签字：".Cells(27, 5).Value = " 年 月 日".Cells(28, 1).Value = "教研室主任签字：".Cells(28, 5).Value = " 年 月 日".Cells(29, 1).Value = "单位领导签字："

41、.Cells(29, 5).Value = " 年 月 日".Cells(6, 1).Value = Combo1.Text.Cells(6, 2).Value = Combo2.Text.Cells(6, 3).Value = Combo4.Text.Cells(6, 4).Value = Combo5.Text.Cells(6, 5).Value = Combo6.Text.Cells(6, 6).Value = Text5.Text.Cells(15, 2).Value = Combo7.Text.Cells(15, 3).Value = Combo8.Text.Ce

42、lls(15, 5).Value = Combo9.Text.Cells(15, 6).Value = Text6.Text.Cells(21, 2).Value = Combo10.Text.Cells(21, 6).Value = Text2.Text.Cells(22, 2).Value = Combo11.Text.Cells(22, 6).Value = Text3.Text.Cells(23, 2).Value = Combo12.Text.Cells(23, 6).Value = Text8.Text.Cells(24, 2).Value = Combo13.Text.Cells

43、(24, 6).Value = Text9.Text.Cells(25, 2).Value = Combo14.Text.Cells(25, 6).Value = Text10.TextEnd With End SubPrivate Sub Command3_Click()Unload Me欢迎界面.ShowEnd SubPrivate Sub Command5_Click()Text5.Text = Val(Combo5.Text) * (Val(Combo6.Text) + Val(Combo2.Text) / 120)End SubPrivate Sub Command6_Click()

44、Combo1.Text = ""Combo2.Text = ""Combo4.Text = ""Combo5.Text = ""Combo6.Text = ""Text5.Text = ""End SubPrivate Sub Command8_Click()Combo3.Text = ""Combo7.Text = ""Combo8.Text = ""Combo9.Text = ""Text6.

45、Text = ""End SubPrivate Sub Command9_Click()Text7.Text = Val(Combo10.Text) * 8 + Val(Combo11.Text) * 1 + Val(Combo12.Text) * 1 + Val(Combo13.Text) * 0.1 + Val(Combo14.Text) * 1Text2.Text = Val(Combo10.Text) * 8Text3.Text = Val(Combo11.Text) * 1Text8.Text = Val(Combo12.Text) * 1Text9.Text =

46、 Val(Combo13.Text) * 0.1Text10.Text = Val(Combo14.Text) * 1End SubPrivate Sub Form_Load()Dim cnn As New ADODB.ConnectionDim rst As New ADODB.Recordsetcnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=教师工作量;Data Source=ERP47"cnn.Openrst.Open

47、"select * from 课程计算表,实习计算表,其他工作量", cnn, adOpenDynamic, adLockOptimisticrst.MoveFirstDo While Not rst.EOFCombo1.AddItem rst.Fields("课程性质").ValueCombo2.AddItem rst.Fields("结课人数").ValueCombo4.AddItem rst.Fields("天数").ValueCombo5.AddItem rst.Fields("学时")

48、.ValueCombo6.AddItem rst.Fields("参数").ValueCombo3.AddItem rst.Fields("实习名称").ValueCombo7.AddItem rst.Fields("实习人数").ValueCombo8.AddItem rst.Fields("实习天数").ValueCombo9.AddItem rst.Fields("参数").ValueCombo10.AddItem rst.Fields("指导论文数量").ValueC

49、ombo11.AddItem rst.Fields("评议论文数量").ValueCombo12.AddItem rst.Fields("监考次数").ValueCombo13.AddItem rst.Fields("补考阅卷份数").ValueCombo14.AddItem rst.Fields("命题份数").Valuerst.MoveNextLoopMe.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2End SubPriv

50、ate Sub Command7_Click()Text6.Text = Val(Combo8.Text) * (Val(Combo9.Text) + Val(Combo7.Text) / 120)End Sub生成的Excel表截屏管理员登录窗体代码Private Sub Command1_Click()If Trim(Text1.Text) = "" Then MsgBox "请输入用户名！", 48, "用户名要填写" Text1.SetFocusElse If Text1.Text <> "admin&q

51、uot; Then MsgBox "用户名不正确，请重新输入！" Text1.Text = "": Text2.Text = "": Text1.SetFocusElse If Text2.Text = "" Then MsgBox "请输入密码！", 48, "密码为空！" Else If Text2.Text = "" Then 系统管理员操作.Show Unload Me Else MsgBox "密码错误！请重新输入！"End

52、IfEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2End Sub系统管理员操作窗体截屏代码Private Sub Command1_Click(Index As Integer)Adodc1.RecordSource = " select * from 课程计算表"Adodc1.RefreshAdodc1.ConnectionString = "Provider=SQLOLED

53、B.1;Persist Security Info=False;User ID=sa;Initial Catalog=教师工作量;Data Source=ERP47" '连接数据库Set DataGrid1.DataSource = Adodc1End Sub密码修改窗体截屏代码Private Sub Command1_Click()If Text1.Text = "" Then MsgBox "请输入原始密码！", 48, "提示" Text1.Text = "": Text2.Text = "": Text3.Text = "": Text1.SetFocusElse If Text1.Text <> "" Then MsgBox "输入的原始密码无效