信息網(wǎng)絡(luò)技術(shù)實踐

1、信息網(wǎng)絡(luò)技術(shù)實踐設(shè)計報告課題:學(xué)生考勤系統(tǒng)的設(shè)計班級:2003434姓名:張俊仕學(xué)號:20032028指導(dǎo)老師:沈文忠、劉丹丹學(xué)生考勤系統(tǒng)的設(shè)計一.課題描述學(xué)生考勤管理系統(tǒng)可對學(xué)生的上課以及下課時間進(jìn)行管理,方便快捷的完成學(xué)生的考勤工作.當(dāng)學(xué)生上課或者下課時，通過讀卡器讀入學(xué)生的卡號，并將卡號信息傳送至PC機，軟件可以根據(jù)學(xué)生的卡號自動查詢學(xué)生信息,并記錄學(xué)生的上課時間和下課時間,最后將記錄保存入數(shù)據(jù)庫中.同時,系統(tǒng)可以查詢、修改、增加、刪除某個學(xué)生的考勤情況以及每個學(xué)生的出勤總次數(shù).系統(tǒng)可由學(xué)生信息管理,考勤信息管理等應(yīng)用模塊組成.二.基本設(shè)備【硬件】IC讀卡器、IC卡與PC機硬件平臺【軟件

2、】VB.NET與SQLServer軟件開發(fā)環(huán)境三.基本設(shè)計思路 SQLServer:建立學(xué)生基本信息表,學(xué)生考勤信息表刷卡信息表等表項 VB.Net1. 首先建立一個Form,界面上顯示出班級、學(xué)號、姓名和課題名稱2. 進(jìn)入第二個Form,建立進(jìn)入刷卡界面和考勤信息管理兩項3. 點擊進(jìn)入進(jìn)入刷卡界面,實現(xiàn)刷卡并記錄上、下課時間.4. 點擊進(jìn)入考勤信息管理,首先是管理員的登陸操作,然后進(jìn)入考勤管理,實現(xiàn)查詢、添加、刪除、修改、等系列功能.四.模塊實現(xiàn)流程圖五.VB.Net中相關(guān)程序考勤信息管理模塊中添力口：SqlConnection1.Open()SqlCommandl.Connection=S

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

4、lCommand1.Connection=SqlConnection1SqlCommand1.CommandText="insertinto學(xué)生信息表(IC卡號，姓名，班級，學(xué)號)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學(xué)生考勤信息表where姓名="'&TextBox1.Text&"'or班級守&ComboBox2.Text&&quo

6、t;'or學(xué)#='"&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學(xué)生考勤信息表where姓名='"&TextBox1.Text&"'or學(xué)號='"&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學(xué)生考勤信息表set出勤次數(shù)='"&ComboBox4.Text&"',曠課='"&ComboBox1.Text&"'where姓名='"&TextBox1.Text&"'or學(xué)號='"&ComboBox3.Text&"'and日期='"&ComboBox5.Text&

10、"'orIC卡號='"&TextBox2.Text&"'"SqlCommand1.ExecuteNonQuery()SqlConnection1.Close()DataSet11.Clear()SqlDataAdapter1.Fill(DataSet11)DataGrid1.Update()刷卡界面中將串口設(shè)置完成后,可通過串口發(fā)送數(shù)據(jù),在發(fā)送數(shù)據(jù)之前可先將發(fā)送緩沖區(qū)與接收緩沖區(qū)中的數(shù)據(jù)清除.DimjihaoAsBytejihao=CByte(TextBox4.Text)AxMSComm1.OutBufferCou

11、nt=0AxMSComm1.InBufferCount=0Dimbytecodeact(3)AsBytebytecodeact(1)=&HAAbytecodeact(2)=jihaobytecodeact(3)=&HBBAxMSComm1.Output=bytecodeactForm2_Load中設(shè)置代碼: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將十進(jìn)制格式的字符串轉(zhuǎn)換成十六進(jìn)制式的字符串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卡號,班級,姓名,學(xué)號)selectIC卡號,班級,姓名,學(xué)號from學(xué)生信息表whereIC卡號='"&TextBox3.Text&"'"SqlCommand1.ExecuteNonQuery()刷卡信息表set 上課時間= '" &SqlCommand1.CommandText="updateTextBox2.Text&"',日期='"&

16、;TextBox1.Text&"'whereIC卡號='"&TextBox3.Text&"'and上課時間isnull"SqlCommand1.ExecuteNonQuery()SqlCommand1.CommandText="insertinto學(xué)生考勤信息表(IC卡號,班級,姓名,學(xué)號,上課時間,日期)selectIC卡號,班級,姓名,學(xué)號,上課時間,日期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學(xué)生考勤信息表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