信息网络技术实践

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

2、】VB.NET与SQLServer软件开发环境三.基本设计思路 SQLServer:建立学生基本信息表,学生考勤信息表刷卡信息表等表项 VB.Net1. 首先建立一个Form,界面上显示出班级、学号、姓名和课题名称2. 进入第二个Form,建立进入刷卡界面和考勤信息管理两项3. 点击进入进入刷卡界面,实现刷卡并记录上、下课时间.4. 点击进入考勤信息管理,首先是管理员的登陆操作,然后进入考勤管理,实现查询、添加、删除、修改、等系列功能.四.模块实现流程图五.VB.Net中相关程序考勤信息管理模块中添力口：SqlConnection1.Open()SqlCommandl.Connection=S

3、qlConnectionlSqlCommandl.CommandText="insertinto学生考勤信息表(IC卡号，姓名，班级，学号)values。"&TextBox2.Text&"','"&TextBoxl.Text&"','"&ComboBox2.Text&"','"&ComboBox3.Text&"')"SqlCommand1.ExecuteNonQuery()Sq

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

5、.ExecuteNonQuery()SqlConnection1.Close()DataSet11.Clear()SqlDataAdapter1.Fill(DataSet11)DataGrid1.Update()删除：SqlConnection1.Open()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="deletefrom学生考勤信息表where姓名="'&TextBox1.Text&"'or班级守&ComboBox2.Text&&quo

6、t;'or学#='"&ComboBox3.Text&"'orIC卡号='"&TextBox2.Text&"'or日期='"&ComboBox5.Text&""，SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()DataSet11.Clear()SqlDataAdapter1.Fill(DataSet11)DataGrid1.Update()查询:SqlConnection1.Op

7、en()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="deletefrom查询项"SqlCommand1.ExecuteNonQuery()SqlCommand1.Connection=SqlConnection1SqlCommand1.CommandText="insertinto查询项select*from学生考勤信息表where姓名='"&TextBox1.Text&"'or学号='"&ComboBox3

8、.Text&"'or班级='"&ComboBox2.Text&"'orIC卡号守&TextBox2.Text&"'or日期="，&ComboBox5.Text&"'"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()DimForm6AsNewForm6Form6.Show()修改:SqlConnection1.Open()SqlCommand1.Connection=SqlCon

9、nection1SqlCommand1.CommandText="update学生考勤信息表set出勤次数='"&ComboBox4.Text&"',旷课='"&ComboBox1.Text&"'where姓名='"&TextBox1.Text&"'or学号='"&ComboBox3.Text&"'and日期='"&ComboBox5.Text&

10、"'orIC卡号='"&TextBox2.Text&"'"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()DataSet11.Clear()SqlDataAdapter1.Fill(DataSet11)DataGrid1.Update()刷卡界面中将串口设置完成后,可通过串口发送数据,在发送数据之前可先将发送缓冲区与接收缓冲区中的数据清除.DimjihaoAsBytejihao=CByte(TextBox4.Text)AxMSComm1.OutBufferCou

11、nt=0AxMSComm1.InBufferCount=0Dimbytecodeact(3)AsBytebytecodeact(1)=&HAAbytecodeact(2)=jihaobytecodeact(3)=&HBBAxMSComm1.Output=bytecodeactForm2_Load中设置代码:AxMSComm1.PortOpen=TrueDataSet31.Clear()SqlDataAdapter1.Fill(DataSet31)TextBox1.Text=DateTime.Now.ToShortDateString()TextBox2.Text=DateTim

12、e.Now.ToLongTimeString()DataGrid1.Update()添加串口接收的代码:DimbytedataAsObjectDimiAsIntegerDimdataread()AsByteDimreadstrAsStringreadstr=""SelectCaseAxMSComm1.CommEventCaseMSCommLib.OnCommCEvReceivebytedata=AxMSComm1.InputReDimdataread(UBound(bytedata)Fori=0ToUBound(bytedata)dataread(i)=bytedata(i

13、)readstr=readstr&hex2(CStr(dataread(i)NextiIfreadstr.Substring(0,2)="FF"ThenTextBox3.Text=readstr.Substring(6,8)TextBox5.Text=readstr.Substring(6,8)EndIfEndSelect将十进制格式的字符串转换成十六进制式的字符串PrivateFunctionhex2(ByRefcAsString)AsStringhex2=Hex(CInt(c)IfLen(hex2)<2Thenhex2="0"&

14、hex2EndIfEndFunction记录上下课时间:SqlConnection1.Open()DataSet31.Clear()SqlCommand1.Connection=SqlConnection1SqlDataAdapter1.SelectCommand.CommandText="select*from刷卡信息表whereIC卡号='"&TextBox3.Text&"'and下课时间isnull"SqlDataAdapter1.Fill(DataSet31)IfDataSet31.刷卡信息表.Rows.Count

15、=0ThenSqlCommand1.CommandText="insertinto刷卡信息表(IC卡号,班级,姓名,学号)selectIC卡号,班级,姓名,学号from学生信息表whereIC卡号='"&TextBox3.Text&"'"SqlCommand1.ExecuteNonQuery()刷卡信息表set 上课时间= '" &SqlCommand1.CommandText="updateTextBox2.Text&"',日期='"&

16、;TextBox1.Text&"'whereIC卡号='"&TextBox3.Text&"'and上课时间isnull"SqlCommand1.ExecuteNonQuery()SqlCommand1.CommandText="insertinto学生考勤信息表(IC卡号,班级,姓名,学号,上课时间,日期)selectIC卡号,班级,姓名,学号,上课时间,日期from刷卡信息表whereIC卡号='"&TextBox3.Text&"'"

17、SqlCommand1.ExecuteNonQuery()ElseSqlCommand1.CommandText="update刷卡信息表set下课时间='"&TextBox2.Text&"',日期='"&TextBox1.Text&"'whereIC卡号='"&TextBox3.Text&"'and下课时间isnull"SqlCommand1.ExecuteNonQuery()SqlCommand1.CommandTe

18、xt="update学生考勤信息表set下课时间='"&TextBox2.Text&"'whereIC卡号='"&TextBox3.Text&"'and下课时间isnull"SqlCommand1.ExecuteNonQuery()EndIfSqlConnection1.Close()DataSet31.Clear()SqlDataAdapter1.SelectCommand.CommandText="select*from刷卡信息表"SqlDataA

19、dapter1.Fill(DataSet31)DataGrid1.Update()TextBox3.Text=""Timer1:TextBox2.Text=DateTime.Now.ToLongTimeString()TextBox2.Refresh()Timer2:DimjihaoAsByteIfTextBox4.Text.Length<>0Thenjihao=CByte(TextBox4.Text)AxMSComm1.OutBufferCount=0AxMSComm1.InBufferCount=0Dimbytecodeact(3)AsBytebytecodeact(1)=&HAAb