Form6.Text6 = Form6.Data1.Recordset("身份证号")
Unload Form5
Text2.Text = ""
End If
End If
End Sub
Private Sub Command2_Click()
Unload Form5
Form6.Show
End Sub
7
通过本次课程设计，我了解到了我们平时的实验根本和做一个完整的系统差的实在太远，我们平时的实验固然很重要，这是我们对基本知识点的一次次的巩固，这是为我们做一次完整系统的基础工作，是必不可少的一个环节。但是真正要体验一下做系统的快感，课程设计是个不错的选择。我们往往所认为的编代码在课程设计里面所占的比例其实很小，真正要做的东西其实远远不止敲代码。这也是我们的专业所要做的，我们的专业会的不仅仅是敲代码，我们要做的是设计，不是打字员。此外我认为在做系统是要充分利用各种资源，要会运用各种知识，要灵活掌握所学知识，还有就是团队的重要性，这真的很重要。
Form3.Text4 = Form3.Data1.Recordset("班级")
Form3.Text5 = Form3.Data1.Recordset("籍贯")
Form3.Text6 = Form3.Data1.Recordset("专业")
Unload Form4
Text2.Text = ""
6.
6.1
Private Sub Command1_Click()
If Text1.Text <> "" Then
Form3.Data1.Recordset.MoveFirst
Form3.Data1.Recordset.FindFirst ("身份证号=" & "'" & Text1 & "'")
If Form3.Data1.Recordset.NoMatch Then
Form6.Data1.Recordset.MoveFirst
Form6.Data1.Recordset.FindFirst ("姓名=" & "'" & Text1 & "'")
If Form6.Data1.Recordset.NoMatch Then
MsgBox ("没有匹配的记录，请重新输入！")
新生入学管理系统
摘要
1
每当新学年开始，各个学校都在忙于招收新生入学。虽然随着计算机网络的飞速发展，通过网上招生系统可以及时地获取考生的信息，却因缺乏相应的应用软件而无法有效地利用这些信息，新生的入学报到以及随后的学籍档案管理等工作需要靠手工完成，其工作效率及数据准确率就会存在很大的问题。因此需要设计一套有针对性的新生入学报到系统，为学校的日常工作提供现实有力的帮助。
但是通过本次课程设计发现自己本身还存在着很多不足，不能做到编写代码脱离书本，还有很多代码已经渐渐的遗忘，在今后的学习道路上要更加的努力。
Text1.SetFocus
Else
Form6.Text1 = Form6.Data1.Recordset("姓名")
Form6.Text2 = Form6.Data1.Recordset("学号")
Form6.Text3 = Form6.Data1.Recordset("性别")
Form6.Text4 = Form6.Data1.Recordset("缴费情况")
3.1
A．系统应符合新生入学报到档案管理的规定，操作方便，安全。
B．能及时地根据需要更新学生档案资料。
C．尽可能采用现行的资源，来降低开发成本。
4
4.1
4.2
4.3
4.4
4.5
4.
•数据流名称：新生基本信息
•别名：无
•简述：确认新生是否具有入学资格
•来源：学生
•去向：系统
•数据流量：所有已入取新生
4.
•数据项名称：学生证件
•别名：身份证、准考证、入取通知书
•简述：新生入学所需所有信息
•类型：字符串
•长度：120
4.
•数据存储名称：新生注册信息
•别名:学生花名册
•简述：存放Leabharlann 生信息•组成：姓名+性别+籍贯+班级+身份证号码+班级+专业
•组织方式：索引文件，以姓名+身份证号+班级为关键字
•查询要求：要求能立即查询
Form6.Data1.Recordset.FindFirst ("学号=" & "'" & Text2 & "'")
If Form3.Data1.Recordset.NoMatch Then
MsgBox ("没有匹配的记录，请重新输入！")
Text2.SetFocus
Else
Form6.Text1 = Form6.Data1.Recordset("姓名")
Form6.Text2 = Form6.Data1.Recordset("学号")
Form6.Text3 = Form6.Data1.Recordset("性别")
Form6.Text4 = Form6.Data1.Recordset("缴费情况")
Form6.Text5 = Form6.Data1.Recordset("班级")
Form6.Text5 = Form6.Data1.Recordset("班级")
Form6.Text6 = Form6.Data1.Recordset("身份证号")
Unload Form5
Text1.Text = ""
End If
ElseIf Text2.Text <> "" Then
Form6.Data1.Recordset.MoveFirst
MsgBox ("没有匹配的记录，请重新输入！")
Text2.SetFocus
Else
Form3.Text1 = Form3.Data1.Recordset("姓名")
Form3.Text2 = Form3.Data1.Recordset("身份证号")
Form3.Text3 = Form3.Data1.Recordset("性别")
MsgBox ("没有匹配的记录，请重新输入！")
Text3.SetFocus
Else
Form3.Text1 = Form3.Data1.Recordset("姓名")
Form3.Text2 = Form3.Data1.Recordset("身份证号")
Form3.Text3 = Form3.Data1.Recordset("性别")
End If
ElseIf Text3.Text <> "" Then
Form3.Data1.Recordset.MoveFirst
Form3.Data1.Recordset.FindFirst ("姓名=" & "'" & Text3 & "'")
If Form3.Data1.Recordset.NoMatch Then
Form3.Text4 = Form3.Data1.Recordset("班级")
Form3.Text5 = Form3.Data1.Recordset("籍贯")
Form3.Text6 = Form3.Data1.Recordset("专业")
Unload Form4
Text3.Text = ""
•数据存储名称：缴费信息
•别名：无
•简述：存放新生缴费信息
•组成：姓名+性别+班级+身份证号+缴费信息+学号
•组织方式：索引文件，以姓名+学号为关键字
•查询要求：要求能立即查询
4.
4.7
符号说明：
4.8
4.9
系统工作顺序图（本人负责模块）
5
5.1
5.2功能选择界面
5.3注册管理界面
5.3.1
5.4
5.4.1
MsgBox ("没有匹配的记录，请重新输入！")
Text1.SetFocus
Else
Form3.Text1 = Form3.Data1.Recordset("姓名")
Form3.Text2 = Form3.Data1.Recordset("身份证号")
Form3.Text3 = Form3.Data1.Recordset("性别")
End If
ElseIf Text2.Text <> "" Then
Form3.Data1.Recordset.MoveFirst
Form3.Data1.Recordset.FindFirst ("班级=" & "'" & Text2 & "'")