MIS课程设计报告_mis课程设计报告

2020-02-27 其他范文下载本文

MIS课程设计报告由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“mis课程设计报告”。

西安郵電學院

MIS课程设计报告书

(学生学籍管理系统分析设计)

系部名称：信息与管理工程系学生姓名：王鸣

专业名称：信息管理与信息系统班

级：信管0402班

时间：

2006 年 12 月11 日至

2006

年12 月 22 日

一.可行性分析„„„„„„„„„„„„„„„„„„„„„„„„„ 4

二.系统分析部分„„„„„„„„„„„„„„„„„„„„„„„„ 4 1.业务流程图„„„„„„„„„„„„„„„„„„„„„„„„ 5 2.数据流程图„„„„„„„„„„„„„„„„„„„„„„„„ 5 3.功能分析图„„„„„„„„„„„„„„„„„„„„„„„„ 6 4.数据字典„„„„„„„„„„„„„„„„„„„„„„„„„ 7 5.数据加工处理的描述„„„„„„„„„„„„„„„„„„„„ 8 6.管理信息系统流程设想图„„„„„„„„„„„„„„„„„„ 9

三.系统设计部分

1.功能结构图设计„„„„„„„„„„„„„„„„„„„„„„ 9 2.新系统信息处理流程设计„„„„„„„„„„„„„„„„„„ 9 3.输出设计(主要指打印输出设计)„„„„„„„„„„„„„„„ 9 4.存储文件格式设计(数据库结构设计)„„„„„„„„„„„„„ 9 5.输入设计(主要指数据录入卡设计)„„„„„„„„„„„„„„ 12 6.代码设计(职工证号和部门代号等)„„„„„„„„„„„„„„ 14 7.程序设计说明书„„„„„„„„„„„„„„„„„„„„„„ 14

四.系统实施部分

1.程序框图„„„„„„„„„„„„„„„„„„„„„„„„„ 14 2.源程序„„„„„„„„„„„„„„„„„„„„„„„„„„ 18 3.模拟运行数据„„„„„„„„„„„„„„„„„„„„„„„ 71 4.打印报表„„„„„„„„„„„„„„„„„„„„„„„„„ 72 5.系统使用说明书„„„„„„„„„„„„„„„„„„„„„„ 72

五.附录或参考资料设计任务书

信管专业

2004级MIS课程设计任务书

一、设计目的：

通过本次设计，要求同学们能够将所学到的信息系统分析方法与软件设计技术及方法综合运用到实际信息系统的分析与设计中，提高同学们对软件的综合分析与设计能力，主要包括对数据的分析、组织能力，数据的提取、处理能力；软件结构的分析设计，复杂界面与输入输出设计能力；学习常用软件开发工具的使用。

二、设计内容：学生学籍管理系统：

1、系统需求：

本系统主要是用于学生基本信息的管理。该系统可以完成对学生信息添加、班级管理、查找等操作,能够对学生信息进行方便有效的科学管理。

2、主要功能描述 1）权限管理

主要是用户的等级和权限的划分。分３级管理员，超级用户、只读用户、普通用户，权限可以自定义添加和删除。2）班级管理

添加班级、浏览班级、查询班级。3）学生档案管理

浏览档案、添加档案、查询档案。

4）课程设置：基本课程设置和班级课程设置。

5）成绩管理：考试类型设置、成绩添加浏览和查询。

6）打印报表：可以打印学生的档案和成绩等相关的信息报表。

三、设计要求

结合所学习的系统分析与设计的具体方法，应用程序设计的基本知识和数据库知识进行详细的系统分析设计。具体要求如下：

1、学习进行相对复杂数据的分析与设计，建立合理的数据模型。

2、学习使用VB的数据环境设计器和数据报表设计器进行报表输出设计。

3、学习使用visio工具进行常用软件图形的绘制。

4、进一步熟练进行软件系统的界面设计，深入掌握界面设计元素。

5、提供相应的软件设计报告。报告要求有系统的需求分析、系统流程图、数据流程图、软件结构图、数据库设计说明和软件说明书。

6、提供与设计报告相一致的软件系统。

7、每四人为一个课题组，自由组合，检查相应的小组讨论，讨论结果计入平时成绩。

8、报告书写规范见附件。

四、时间安排（共两周10天）

1、第一周的周一、周二（2天）：查阅资料、进行系统的需求分析，要求画出系统的业务流程图及数据流程图，并设计各类报表的格式。（图书馆）

2、第一周的周三到周五（3天）：并进行详细的数据分析，建立数据字典，并进行数据库及数据查询设计。（机房）

3、第二周的周一周二（2天）：进行软件结构设计，包括软件功能的划分、输入输出界面的设计。（机房）

4、第二周的周三：（1天）：进行输出报表的设计。（机房）

5、第二周的周四：（1天）：全面进行系统调试。（机房）

6、第二周的周五：（1天）：作业检查，提交报告及设计好的软件。（机房）

五、考查方式

1、考勤20％

2、文档40％

3、程序40％

六、地点

信管系机房正文:（1）可行性分析

计算机管理学生信息的意义：

在各大中小学校，用计算机管理学校的信息已经越来越普遍了。用计算机不但可以提高工作效率，而且还节省了许多人力物力，增强了学校资料的安全性。提高了学校的管理能力，为此，用计算机来管理学校的信息，是非常必要的。我作为一个计算机应用的大学生，希望能有所贡献。用我三年的所学编制了一个实用的程序来帮助桂阳一中进行更有效的学籍档案管理。

可行性研究：

目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。

经济上可行性：

现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；

第三，本系统的运行可以大大的提高学校的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：

本系统的开发我利用Microsoft SQL Server2000作为本系统的数据库，它是一个支持多用户的新型数据库，适用于大中规模的数据量需求。学校校园网的建设也为新系统服务器/客户端的结构提供了硬件的支持。

使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型，给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高，非常有利于以后对新系统的扩展与修改。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，因此，它在技术上是可行的。

运行上可行性：

本系统为一个小型的学生信息管理系统，所耗费的资源非常的小，学校的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。法律可行性：

本系统纯为私人设计，在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。

（2）系统分析部分1）业务流程图

用户学生名单基本信息管理学生情况统计查询浏览表操作人员学生学生登记表学生学籍学生学籍管理各专业教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表学生

2）数据流程图用户学生名单学生学生登记表学生信息管理学生学籍查询浏览表查询浏览表操作人员学生学籍管理各系部教学计划教务管理学生成绩学生成绩管理学生成绩单教师教学计划排课课表打印课表学生

3）功能分析图

学生信息管理系统用户信息管理班级信息管理学籍信息管理课程信息管理成绩信息管理奖惩信息管理个人信息查询添加修改删除用户查看所有班级信息添加修改删除班级信息查询学生学籍信息添加修改删除学生学籍信息查询课程信息添加修改删除课程信息查询成绩信息添加修改删除成绩信息查询学生奖惩信息添加修改删除奖惩信息按学号查询个人信息

4）数据字典数据存储字典

（1）存储文件名：班级和课程

标识符：cla_Cour

数据结构：

班级号

cla_No

课程名称

course_Name(2)存储文件名：班级信息

标识符：cla_Form

数据结构：

班级号

cla_No

班级名称

cla_Name

导员名称

cla_Teacher

备注信息

cla_Remarks(3)存储文件名：课程信息

标识符：course_Form

数据结构：

课程名

cla_Name

课程列表

cla_Rem(4)存储文件名：奖惩信息

标识符：prize_Form

数据结构：

奖惩名

cla_Name

奖惩列表

cla_Rem(5)存储文件名：奖惩信息

标识符：prize_Stud

数据结构：

奖惩号

prize_No

奖惩学号

prize_Stu

奖惩日期

prize_Data

奖惩名

prize_Name(6)存储文件名：成绩信息

标识符：score_Form

数据结构：

成绩号

score_No

考试期号

score_Per

班级号

score_Cla

学号

score_Stu

科目

score_Cou

成绩

score_Sco(7)存储文件名：个人信息

标识符：student_Form

数据结构：

学号

student_No

姓名

student_Name

性别

student_Sex

出生日期

student_Bir

班级号

student_Cla

电话

student_Tel

入学日期

student_Esd

籍贯

student_Add

备注

student_Rem(8)存储文件名：用户信息

标识符：user_Form

数据结构：

用户名

user_ID

登陆密码

user_PWD

用户日期

user_DATA 5）数据加工处理的描述

处理名：用户名处理

处理过程：登陆学生信息管理系统后，点击“用户信息管理”后出现用户信息管理界面，可以用于添加，修改，删除用户信息。

处理名：班级信息处理

处理过程：登陆学生信息管理系统后，点击“班级信息管理”后出现班级信息管理界面，可以用于查询所有班级信息和添加，修改，删除班级信息。

处理名：学籍信息处理

处理过程：登陆学生信息管理系统后，点击“学籍信息管理”后出现学籍信息管理界面，可以用于查询所有学生学籍信息和添加，修改，删除学生学籍信息。

处理名：课程信息处理

处理过程：登陆学生信息管理系统后，点击“课程信息管理”后出现课程信息管理界面，可以用于查询所有班级课程信息和添加，修改，删除班级课程信息。

处理名：成绩信息处理

处理过程：登陆学生信息管理系统后，点击“成绩信息管理”后出现成绩信息管理界面，可以用于查询所有成绩信息和添加，修改，删除成绩信息。

处理名：奖惩信息处理

处理过程：登陆学生信息管理系统后，点击“奖惩信息管理”后出现奖惩信息管理界面，可以用于查询所有奖惩信息和添加，修改，删除奖惩信息。

处理名：个人信息处理

处理过程：登陆学生信息管理系统后，点击“个人信息管理”后出现个人信息管理界面，可以用于查询个人信息。

6）管理信息系统流程设想图（新系统模型）

（3）系统设计部分

1）功能结构图设计

学生信息管理系统用户信息管理班级信息管理学籍信息管理课程信息管理成绩信息管理奖惩信息管理个人信息查询添加用户信息修改用户信息删除用户信息查询班级信息添加班级信息修改班级信息删除班级信息查询学籍信息添加学籍信息修改学籍信息删除学籍信息查询课程信息添加课程信息删除课程信息添加成绩信息查询成绩信息修改成绩信息删除成绩信息查询奖惩信息添加奖惩信息删除奖惩信息查询个人信息

2）新系统信息处理流程设计

3）输出设计（主要指打印输出设计）

4）存储文件格式设计（数据库结构设计）

5）输入设计（主要指数据录入卡设计）

6）代码设计（职工证号和部门代号等）

7）程序设计说明书

（4）系统实施部分

1）程序框图

2）源程序

学生信息管理图形界面程序设计如下：

Dim i As Long Private Sub Form_Load()

Label1.ForeColor = &H8000000E

Label1.FontSize = 12

Label1.AutoSize = True

i = Image2.Width End Sub

Private Sub Form_Resize()

Image1.Top = 0

Image1.Left = 0

Image1.Height = Me.Height

Image1.Width = Me.Width

Image2.Top = Me.HeightImage2.Width

Label1.Top = Me.Height100 End Sub

Private Sub Timer1_Timer()

i = i + 50

Label1.Left = Me.Width1

.TextMatrix(.Rows1

End With

mrc.Close

OK = False

miCount = 0 End Sub

Private Sub cmdCancel_Click()

OK = False

Me.Hide End Sub

Private Sub cmdOK_Click()

txtSQL = “select * from user_Form where user_ID = '” & txtUserName.Text & “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = True Then

MsgBox “没有这个用户，请重新输入用户名!”, vbOKOnly + vbExclamation, “警告”

txtUserName.SetFocus

Else

If Trim(mrc.Fields(1))= Trim(txtPaword.Text)Then

OK = True

mrc.Close

Me.Hide

UserName = Trim(txtUserName.Text)

Else

MsgBox “输入密码不正确，请重新输入！”, vbOKOnly + vbExclamation, “警告”

txtPaword.SetFocus

txtPaword.Text = “”

End If

miCount = miCount + 1

If miCount = 3 Then

Me.Hide

End If

Exit Sub End Sub

Private Sub txtPaword_KeyDown(KeyCode As Integer, Shift As Integer)

EnterToTab KeyCode End Sub

Private Sub txtPaword_KeyPre(KeyAscii As Integer)

If KeyAscii = 13 Then

Call cmdOK_Click

End If End Sub

Private Sub txtUserName_Click()

txtPaword.Text = “” End Sub

Private Sub txtUserName_KeyDown(KeyCode As Integer, Shift As Integer)

EnterToTab KeyCode End Sub

学生信息管理系统界面程序设计如下： Private Sub claiMenu_Click()

frmclai.Show End Sub

Private Sub couiMenu_Click()

frmcoui.Show End Sub

Private Sub cusiMenu_Click()

frmcusi.Show End Sub

Private Sub MDIForm_Load()

dColor.Show End Sub

Private Sub MDIForm_Resize()

If Me.Height > 1100 Then

dColor.Height = Me.Height180

End If End Sub

Private Sub prpiMenu_Click()

frmprpi.Show End Sub

Private Sub scoiMenu_Click()

frmscoi.Show End Sub

Private Sub stsiMenu_Click()

frmstsi.Show End Sub

Private Sub sumiMenu_Click()

frmsumi.Show End Sub

奖惩信息管理界面程序设计如下： Dim mrc As ADODB.Recordset Dim MsgText As String

Private Sub Command1_Click()

Dim txtSQL As String

If Text1(0)= “” Then

MsgBox “ 奖惩名称不能为空!”, vbOKOnly, “提示”

Text1(0).SetFocus

Exit Sub

End If

txtSQL = “select * from prize_Form where prize_Name='” & Trim(Text1(0))& “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox “此奖惩名称已经存在!”, vbOKOnly, “警告”

Text1(0).SetFocus

Exit Sub

End If

mrc.Close

txtSQL = “select * from prize_Form”

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.AddNew

mrc.Fields(0)= Trim(Text1(0))

mrc.Fields(1)= Trim(Text1(1))

mrc.Update

mrc.Close

Text1(0)= “”

Text1(1)= “”

MsgBox “奖惩信息添加成功!”, vbOKOnly, “提示”

List1Text End Sub

Private Sub Command2_Click()

If List1.Text “” Then

txtSQL = “delete from prize_Form where prize_Name='” & Trim(List1.Text)& “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

MsgBox “奖惩信息已经删除!”, vbOKOnly, “提示”

List1Text

End If End Sub

Private Sub Form_Load()

MSFlexGrid1.Cols = 5

MSFlexGrid1.ColWidth(0)= 300

MSFlexGrid1.ColWidth(1)= 0

MSFlexGrid1.ColWidth(2)= 0

MSFlexGrid1.ColWidth(3)= 1200

MSFlexGrid1.ColWidth(4)= 1200

MSFlexGrid1.TextMatrix(0, 3)= “奖惩日期”

MSFlexGrid1.TextMatrix(0, 4)= “奖惩名称”

MSFlexGrid1.Rows = 1

Text3(0)= GetRkno

List1Text End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label6(0).BackColor = &HC0C0C0

Label6(1).BackColor = &HC0C0C0 End Sub

Private Sub Form_Resize()

dColor.ZOrder 1 End Sub Private Sub List1Text()

Dim txSQL As String

Dim mrcc As ADODB.Recordset

txSQL = “select * from prize_Form ”

Set mrcc = ExecuteSQL(txSQL, MsgText)

List1.Clear

Do While Not mrcc.EOF

List1.AddItem Trim(mrcc!prize_Name)

mrcc.MoveNext

Loop

mrcc.Close End Sub

Private Function GetRkno()As String

GetRkno = Format(Now, “yymmddhhmm”)

Randomize

GetRkno = GetRkno & Int((991).Type

Case adDBDate

.TextMatrix(.Rows1)& “”, “yyyy-mm-dd”)

Case Else

.TextMatrix(.Rows1)& “”

End Select

Next i

mrc.MoveNext

Loop

End With

mrc.Close End Sub

Private Sub Text2_Change()

Dim txtSQL As String

txtSQL = “select * from prize_Stud where prize_Stu='” & Trim(Text2)& “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

ShowData End Sub

成绩信息管理程序设计如下： Dim mrc As ADODB.Recordset Dim MsgText As String

Private Sub Combo1_Click(Index As Integer)

Dim txSQL As String

If Index = 0 Then

txSQL = “select * from student_Form where student_Cla='” & Trim(Combo1(0).Text)& “'”

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = True Then

MsgBox “请先进行班级设置!”, vbOKOnly, “提示”

Else

With Combo1(1)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!student_NO)

mrc.MoveNext

Loop

End With

End If

txSQL = “select * from cla_Cour where cla_NO='” & Trim(Combo1(0).Text)& “'”

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = True Then

MsgBox “请先进行班级设置!”, vbOKOnly, “提示”

Else

With Combo1(2)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!course_Name)

mrc.MoveNext

Loop

End With

End If

End If End Sub

Private Sub Combo2_Click(Index As Integer)

Dim txSQL As String

If Index = 0 Then

txSQL = “select DISTINCT score_Stu from score_Form where score_Cla='” & Trim(Combo2(0).Text)& “'”

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo2(1)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Stu)

mrc.MoveNext

Loop

End With

End If

txSQL = “select DISTINCT score_Cou from score_Form where score_Cla='” & Trim(Combo2(0).Text)& “'”

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo2(2)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cou)

mrc.MoveNext

Loop

End With

End If

End If End Sub

Private Sub Combo3_Click(Index As Integer)

Dim txSQL As String

If Index = 0 Then

txSQL = “select * from student_Form where student_Cla='” & Trim(Combo3(0).Text)& “'”

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo3(1)

.Clear

Do While Not mrc.EOF

If mrc!student_NO.Text Then

.AddItem Trim(mrc!student_NO)

End If

mrc.MoveNext

Loop

End With

End If

txSQL = “select * from cla_Cour where cla_NO='” & Trim(Combo3(0).Text)& “'”

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo3(2)

.Clear

Do While Not mrc.EOF

If mrc!course_Name.Text Then

.AddItem Trim(mrc!course_Name)

End If

mrc.MoveNext

Loop

End With

End If

End If End Sub

Private Sub Command1_Click()

Dim txtSQL As String

If Text1(1)= “” Then

MsgBox “考试期号不能为空!”, vbOKOnly, “提示”

Text1(1).SetFocus

Exit Sub

End If

If Combo1(0).Text = “” Then

MsgBox “学生班号不能为空!”, vbOKOnly, “提示”

Combo1(0).SetFocus

Exit Sub

End If

If Combo1(1).Text = “” Then

MsgBox “学生编号不能为空!”, vbOKOnly, “提示”

Combo1(1).SetFocus

Exit Sub

End If

If Combo1(2).Text = “” Then

MsgBox “考试课程不能为空!”, vbOKOnly, “提示”

Combo1(2).SetFocus

Exit Sub

End If

If Text1(2)= “” Then

MsgBox “考试分数不能为空!”, vbOKOnly, “提示”

Text1(2).SetFocus

Exit Sub

End If

txtSQL = “select * from score_Form where score_Per='” & Trim(Text1(1))& “' and score_Cla='” & Trim(Combo1(0).Text)& “' and score_Stu='” & Trim(Combo1(1).Text)& “'And score_Cou='” & Trim(Combo1(2).Text)& “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox “同次同人同科只能添加一次”, vbOKOnly, “警告”

Text1(2)= “”

Combo1(0).SetFocus

Exit Sub

End If

txtSQL = “select * from score_Form”

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.AddNew

mrc.Fields(0)= Trim(Text1(0))

mrc.Fields(1)= Trim(Text1(1))

mrc.Fields(2)= Trim(Combo1(0).Text)

mrc.Fields(3)= Trim(Combo1(1).Text)

mrc.Fields(4)= Trim(Combo1(2).Text)

mrc.Fields(5)= Trim(Text1(2))

mrc.Update

mrc.Close

MsgBox “考试信息添加成功!”, vbOKOnly, “提示”

With MSFlexGrid1

.Rows =.Rows + 1

.TextMatrix(.Rows1, 1)= Trim(Text1(1))

.TextMatrix(.Rows1, 3)= Trim(Combo1(1).Text)

.TextMatrix(.Rows1, 5)= Trim(Text1(2))

End With

Text1(2)= “”

Combo1(0).Clear

txtSQL = “select * from cla_Form”

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

With Combo1(0)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!cla_NO)

mrc.MoveNext

Loop

End With

End If

Combo1(1).Clear

Combo1(2).Clear

Text1(0)= GetRkno

MSFlexGrid1.TopRow = MSFlexGrid1.Rows1

Select Case mrc.Fields(i).Type

Case adDBDate

.TextMatrix(.Rows1, i)= mrc.Fields(i)& “”

End Select

Next i

mrc.MoveNext

Loop

.Visible = True

End With

Frame1.Visible = False

mrc.Close

Text2(1)= “”

txSQL = “select DISTINCT score_Cla from score_Form”

Set mrc = ExecuteSQL(txSQL, MsgText)

If mrc.EOF = False Then

With Combo2(0)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cla)

mrc.MoveNext

& “”, 46

Loop

End With

End If

Combo2(1).Clear

Combo2(2).Clear

Text2(2)= “” End Sub

Private Sub Command4_Click()

Dim txtSQL As String

Text2(1)= “”

txtSQL = “select DISTINCT score_Cla from score_Form”

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

With Combo2(0)

.Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cla)

mrc.MoveNext

Loop

End With

End If

Combo2(1).Clear

Combo2(2).Clear

Text2(2)= “” End Sub

Private Sub Command5_Click()

Dim j As Integer

Dim txtSQL As String

If Text3(0)= “” Then

MsgBox “清选择要修改的纪录!”, vbOKOnly, “提示”

MSFlexGrid1.SetFocus

Exit Sub

End If

If Text3(1)= “” Then

MsgBox “考试期号不能为空!”, vbOKOnly, “提示”

Text3(1).SetFocus

Exit Sub

End If

If Combo3(0).Text = “” Then

MsgBox “学生班号不能为空!”, vbOKOnly, “提示”

Combo3(0).SetFocus

Exit Sub

End If

If Combo3(1).Text = “” Then

MsgBox “学生编号不能为空!”, vbOKOnly, “提示”

Combo3(1).SetFocus

Exit Sub

End If

If Combo3(2).Text = “” Then

MsgBox “考试课程不能为空!”, vbOKOnly, “提示”

Combo3(2).SetFocus

Exit Sub

End If

If Text3(2)= “” Then

MsgBox “考试分数不能为空!”, vbOKOnly, “提示”

Text3(2).SetFocus

Exit Sub

End If

txtSQL = “select * from score_Form where score_NO'” & Trim(Text3(0))& “' And score_Per='” & Trim(Text3(1))& “' and score_Cla='” & Trim(Combo3(0).Text)& “' and score_Stu='” & Trim(Combo3(1).Text)& “'And score_Cou='” & Trim(Combo3(2).Text)& “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox “同次同人同科只能添加一次”, vbOKOnly, “警告”

Text3(2)= “”

Combo3(0).SetFocus

Exit Sub

End If

txtSQL = “Delete from score_Form where score_NO='” & Trim(Text3(0))& “'”

Set mrc = ExecuteSQL(txtSQL, MsgText)

txtSQL = “select * from score_Form”

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.AddNew