信息网络技术实践

《信息网络技术实践》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、信息网络技术实践设计报告课题:学生考勤系统的设计班级:2003434姓名:张俊仕学号:20032028指导老师:沈文忠、刘丹丹学生考勤系统的设计一.课题描述学生考勤管理系统可对学生的上课以及下课时间进行管理,方便快捷的完成学生的考勤工作.当学生上课或者下课时,通过读卡器读入学生的卡号，并将卡号信息传送至PC机，软件可以根据学生的卡号自动查询学生信息,并记录学生的上课时间和下课时间,最后将记录保存入数据库中.同时,系统可以查询、修改、增加、删除某个学生的考勤情况以及每个学生的出勤总次数.系统可由学生信息管理,考勤信息管理等应用模块组成.二.基本设

2、备【硬件】IC读卡器、IC卡与PC机硬件平台【软件】VB.NET与SQLServer软件开发环境三.基本设计思路①SQLServer:建立〝学生基本信息表〞,〝学生考勤信息表〞〝刷卡信息表〞等表项②VB.Net1.首先建立一个Form,界面上显示出班级、学号、姓名和课题名称2.进入第二个Form,建立〝进入刷卡界面〞和〝考勤信息管理〞两项3.点击进入〝进入刷卡界面〞,实现刷卡并记录上、下课时间.4.点击进入〝考勤信息管理〞,首先是管理员的登陆操作,然后进入考勤管理,实现查询、添加、删除、修改、等系列功能.四.模块实现流程图学生考勤系统进入刷卡界

3、面考勤信息管理刷卡记录上、下课时间管理员登陆信息正确对考勤信息进行添加、删除、查询、修改等功能五.VB.Net中相关程序⑴考勤信息管理模块中添加:SqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="insertinto学生考勤信息表(IC卡号,姓名,班级,学号)values('"&TextBox2.Text&"','"&TextBox1.Text&"','"&ComboBox2.Text&"','"&ComboBox3.Text&"

4、')"SqlCommand1.ExecuteNonQuery()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="insertinto学生信息表(IC卡号,姓名,班级,学号)values('"&TextBox2.Text&"','"&TextBox1.Text&"','"&ComboBox2.Text&"','"&ComboBox3.Text&"')"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()DataSet11.

5、Clear()SqlDataAdapter1.Fill(DataSet11)DataGrid1.Update()删除:SqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="deletefrom学生考勤信息表where姓名='"&TextBox1.Text&"'or班级='"&ComboBox2.Text&"'or学号='"&ComboBox3.Text&"'orIC卡号='"&TextBox2.Text&"'or日期='"&Combo

6、Box5.Text&"'"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()DataSet11.Clear()SqlDataAdapter1.Fill(DataSet11)DataGrid1.Update()查询:SqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="deletefrom查询项"SqlCommand1.ExecuteNonQuery()SqlCommand1.Conn

7、ection=SqlConnection1SqlCommand1.CommandText="insertinto查询项select*from学生考勤信息表where姓名='"&TextBox1.Text&"'or学号='"&ComboBox3.Text&"'or班级='"&ComboBox2.Text&"'orIC卡号='"&TextBox2.Text&"'or日期='"&ComboBox5.Text&"'"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()DimForm6AsNewForm6

8、Form6.Show()修改:SqlConnection1.Open()SqlCommand1.Connection=SqlConnection1Sq