学生上机管理及考勤系统-网络-软件实验报告

1、精选优质文档-倾情为你奉上软 件 实 验 报 告 题目：学生上机管理及考勤系统 日期：2004年10月24日目录：-第3页-第3页-第3页-第3页 -第5页 -第9页 -第12页-第19页-第20页一：系统结构简图：系统设置一个管理中心和若干台放置在远端的刷卡机（用一台PC机模拟），如图所示。以太网物管中心客户机客户机服务器通信客户机刷卡机以太网RS-232 二：功能模块及其划分简介1、 刷卡模拟机：模拟刷卡动作把卡号发送给通信客户机，同时接收通信客户机返回的相关信息并显示。2、 客户通信机：接收卡号后判断是否有效，并根据判断发相关信息给刷卡机（如卡号，机房号，机器号，上机密码）。学生卡有效时

2、存卡号、机房号、机号、上机时间等信息到学生上机信息表中。删除上机预约表中的相关项。修改学生信息表中的次数。修改电脑表中的是否使用项 。3、 服务器 ：共四张表 information存储学生上机卡号、机房号、机号、上机时间；xuesheng存储学生的基本信息：姓名、卡号、班级、宿舍电话、手机号；diannao表存储机房号，机号，是否被预订，是否完好；yuyue表存储卡号，机房号，机号，预约时间。4、 客户查询机 ：可按卡号，姓名，班级，上机次数查询学生基本情况。5 、客户设置机 ：分电脑情况设置，学生情况设置，预约。电脑情况设置进行新机加入，原机器各信息修改和机器的删除。学生情况设置进行学生的

3、加入、删除和基本信息的修改。预约为学生上机预约。6、 同学间分工 ： 杜英芳负责刷卡机和通信机，刘倩、熊杰、邹雯珠负责客户查询机和客户设置机，张雪负责数据库的建立和设置。 三：各功能模块说明（一）：刷卡模拟机的设计1、 完成的功能模拟刷卡动作把卡号发送给通信客户机，同时接收通信客户机返回的相关信息并显示。2、 实现步骤：界面设计上只有一个combobox，一个Listbox、button和串行口控件，combobox用于输入卡号，原来用的是edit控件但在测试时为了方便就改成combobox。它的items设了九个从至，也可自己输入其它号码，进行动作模拟。Button是退出按钮。然后在各控件中

4、添加代码：界面的初始化是我们仿照老师给的程序copy过来的和退出按钮的代码都不存在什么问题。procedure TForm1.FormCreatfe(Sender: TObject);begin if Not MSComm1.PortOpen then begin MSComm1.PortOpen:=True; MSComm1.DTREnable:=True; MSComm1.RTSEnable:=True; end; MSComm1.RThreshold := 1;end;procedure TForm1.Button3Click(Sender: TObject);begin MSComm1

5、.PortOpen:=False; close;end;这一段代码是模仿老师的模版做的都没什么问题。procedure TForm1.MSComm1Comm(Sender: TObject);var ReceBuf:string;begin ReceBuf := Trim(MSComm1.Input); ListBox1.Items.Add(ReceBuf);end; 这用于选择固定的几个卡号，不必要每次输入一长串数字，完全是出于省事。procedure TForm1.ComboBox1Select(Sender: TObject);begin if MSComm1.PortOpen then

6、 begin MSComm1.Output:=ComboBox1.Text; ListBox1.Clear; end else Messagedlg(通信端口1未打开！,mtError,mbok,0);end;这个函数用于自己输入其它号码进行测试，按回车触动。procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);begin if key=#13 then if MSComm1.PortOpen then begin MSComm1.Output:=ComboBox1.Text; ListBox1.Clear; en

7、d else Messagedlg(通信端口1未打开！,mtError,mbok,0);end;3、 感受 整个设计没难度，但因为是第一次使用delphi在做的时候都模仿了老师的程序。 （二）：通信机的设计 1 、完成功能 接收到刷卡机发出的卡号后判断是否有效，并根据判断，发相关信息给刷卡机。学生卡有效时，存卡号、机房号、机号、上机时间等信息到information表中。无效时发“无效卡号”或“日期不对”。没有效的学生卡号是指：非本系统允许的卡；是本系统的卡但未预约本次上机。多次预约但都没上机的我们没做出来。因为我们的预约表是一天为一张表，同时搜索几张表不会。 2、设计步骤界面设计时用了DBG

8、rid，DataSource，ADOCommand，2个ADODataSet，1个button和一个label 。在这些控件设置时最难的是和数据库连接了，都是同学间相互教会的。添加代码时对初始化不是很清楚，后来在老师的讲解下能理解了配置文件。procedure TForm1.FormCreate(Sender: TObject);var strpath:string; /配置文件路径 strsyspara:Tinifile; /系统特殊数据存放文件beginstrpath := ExtractFilePath(Application.ExeName); strsyspara := Tinifi

9、le.Create(strpath+shenchang_CONFIG.INI); if NOT FileExists(strpath+shenchang_CONFIG.INI) then begin showmessage(警告：系统配置文件不存在！); Bresult:=False; Exit; end; g_connection:=TADOConnection.Create(nil); g_connection.ConnectionString:=strsyspara.ReadString(system,connectionstring,); g_connection.LoginPromp

10、t := False; g_connection.Open; self.ADODataSet1.Connection := g_Connection; self.ADOCommand1.Connection := g_Connection;if Not MSComm1.PortOpen then begin MSComm1.PortOpen:=True; MSComm1.DTREnable:=True; MSComm1.RTSEnable:=True; end; MSComm1.RThreshold := 1;end;通信机在串行口接收到数据时，就开始判断，如果接收缓存区有数据，取出收到的卡号

11、搜索预约表，如果表中有这项则在通信机上显示出来，再取出预约表中时间项和今天的时间判断如果一样就返回给刷卡机上机的房间号、机号和上机密码。如果不同则返回“日期不对”。如果在预约表中搜索不到就就返回“卡号无效”。在调程序时DateToStr（）加入时程序运行不起来，所以就设置了时间值strDate=2004-10-24。在返回上机密码时要搜索diannao表读出它的上机密码，发出。然后在information表中insert这次上机的信息，有卡号、房间号、机号和上机时间。再UpDate xuesheng表中的上机次数用于查询机。UpDatediannao表中的预约项把原来的非空机改为空机。Dele

12、te yuyue表中的这次上机项。procedure TForm1.MSComm1Comm(Sender: TObject);var ReceBuf:string; strSql,strsqa:string; CardN:string; password:string; id,RN,HN,strDate,strTime,date:string;begin ReceBuf := Trim(MSComm1.Input); CardN:=ReceBuf; if CardN then begin / strDate:= DateToStr(Date(); strDate:=2004-10-21; st

13、rTime:= TimeToStr(Time(); strSql:=select * from dbo.yuyue Where ltrim(id)=; strSql:= strSql+CardN+; self.ADODataSet1.Active:=False; self.ADODataSet1.CommandText:=strSql; self.ADODataSet1.Active:=True; if (self.ADODataSet1.FieldByName(id).AsString)then begin date:=VarToStr(self.ADODataSet1.FieldByNam

14、e(shijian1).AsString); if strcomp(PChar(date),PChar(strDate)=0 then begin CardN:=卡号: ; MSComm1.Output:=CardN ; strSql:=Trim(self.ADODataSet1.FieldByName(id).AsString); MSComm1.Output:=strSql ; id:=strSql; strSql:=机房号：; MSComm1.Output:=strSql ; strSql:=Trim(self.ADODataSet1.FieldByName(RoomNumber).As

15、String); MSComm1.Output:=strSql; RN:=strSql ; strSql:= ; MSComm1.Output:=strSql ; strSql:=主机号: ; MSComm1.Output:=strSql ; strSql:=Trim(self.ADODataSet1.FieldByName(HostNumber).AsString); MSComm1.Output:=strSql ; HN:=strSql; strSql:= ; MSComm1.Output:=strSql ; strSql:=密码: ; MSComm1.Output:=strSql ; s

16、trSqa:=select * from dbo.diannao Where RoomNumber=; strSqa:= strSqa+RN+; strsqa:=strsqa+and HostNumber=+HN+; self.ADODataSet2.Active:=False; self.ADODataSet2.CommandText:=strSqa; self.ADODataSet2.Active:=True; password:=Trim(self.ADODataSet2.FieldByName(password).AsString); MSComm1.Output:=password

17、; strSql:=Insert into Information(id,RoomNumber,HostNumber,SDate,STime); strSql:=strSql + Values(; strSql:=strSql + id + ,; strSql:=strSql + + RN + + ,; strSql:=strSql + + HN + + ,; strSql:=strSql + + strDate + + ,; strSql:=strSql + + strTime + + ); self.ADOCommand1.CommandText:=strSql; self.ADOComm

18、and1.Execute; strSql:=UPDATE xuesheng SET times=times+ + IntToStr(1); strSql:=strSQL + WHERE id= + + id + ; self.ADOCommand1.CommandText:=strSQL; self.ADOCommand1.Execute; strSql:=DELETE from yuyue WHERE id= + + id + ; /删除在预约表中的记录 self.ADOCommand1.CommandText:=strSQL; self.ADOCommand1.Execute; strSq

19、l:=UPDATE diannao SET book=0 ; strSql:=strSQL + WHERE RoomNumber=; strSql:= strSql+RN+; strsql:=strsql+and HostNumber=+HN+; self.ADOCommand1.CommandText:=strSQL; self.ADOCommand1.Execute; strsql:=; end else strSql:=日期不对; MSComm1.Output:=strSql ; exit; end else strSql:=无效卡号; MSComm1.Output:=strSql ;

20、exit; end;end;3、感受 通信机做的很累，主要是在和数据库连接方面不会，一开始对命令都不会用但在以后的几天中开始慢慢明白了，也能根据要求自己添加代码了。在开始时程序只能运行一次第二次运行时就不对了，找了半天也找不出错误的地方，后来在老师的帮助下发现要先判断缓存区是否不空，才运行下面的代码。在这个方面我们花了很多的精力。 （三）：客户查询机1、完成功能：管理人员可以通过客户机上的操作界面查询、统计某个学生及某班学生的上机出勤情况，能根据上机次数查出缺勤较多的同学。2、实现步骤：（1）设计应用程序界面。首先运行Delphi7程序。由于题目要求可以查出学生的基本信息及根据上机次数查出缺勤

21、较多的学生，并且我们的数据库中学生信息设置包括姓名、卡号、班级、宿舍电话、手机号码及上机次数，所以选择四个Label，四个Edit框，分别根据姓名、卡号、班级和上机次数来查找。两个Button，分别为查询和退出。一个DBGrid框，用于显示学生基本信息。还有一个DataSource数据源，用于将DBGrid和数据库中的学生信息设置表相连，以及一个ADODataSet数据集，用于将从数据库中读取的信息显示到DBGrid框中去。将这些控件置于Form界面上，并根据需要排列好。（2）设置控件属性。包括从Caption或Text中改变其标题。重点是DBGrid、DataSource、ADODataSe

22、t的属性设置。其中DBGrid1的DataSource属性设置为DataSource1，而DataSet设置为ADODataSet1，并更改DataSet中的ConnectionString，将其服务器设置成我们组所用的服务器，并将其数据库设置成我们设置的数据库student，从WindowsNT登录。其次对ADODataSet1的属性进行设置，仅需对它的ConnectionString的属性进行设置，设置内容与DBGrid1相同。最后对DataSource1的属性进行设置，包括将DataSet设置为ADODataSet1，和对ConnectionString进行设置，内容同上。（3）用Pas

23、cal语言对各种控件进行编程。首先进行Form的初始化。包括对配置文件的设置，根据老师的模板，这点我们很快就完成了。开始对各控件进行程序设计。主要程序都是在“查询”按钮部分。程序如下：procedure TForm1.Button1Click(Sender: TObject) ;var Buffer:string; strSql:string; CardNumber:string; Name:string; classroom:string; /nCount:integer;begin CardNumber:=Trim(edit2.Text); Name:=Trim(Edit1.Text);

24、Buffer:=Trim(edit4.Text); classroom:=Trim(edit3.Text); if Buffer then begin strSql:=select * from dbo.xuesheng Where times=; strSql:=strSql+Buffer+; self.ADODataSet1.Active:=False; self.ADODataSet1.CommandText:=strSql; self.ADODataSet1.Active:=True; CardNumber:=; Name:=; classroom:=; edit4.Text:=; e

25、nd; if CardNumber then begin strSql:=select * from dbo.xuesheng Where id=; strSql:=strSql+CardNumber+; self.ADODataSet1.Active:=False; self.ADODataSet1.CommandText:=strSql; self.ADODataSet1.Active:=True; if (self.ADODataSet1.Eof=false) then begin Name:=; classroom:=; Buffer:=; edit2.Text:=; end else

26、 showmessage(无此卡号); Name:=; classroom:=; Buffer:=; edit2.Text:=; end; if Name then begin strSql:=select * from dbo.xuesheng Where name=; strSql:=strSql+Name+; self.ADODataSet1.Active:=False; self.ADODataSet1.CommandText:=strSql; self.ADODataSet1.Active:=True; if (self.ADODataSet1.Eof=false) then beg

27、in CardNumber:=; classroom:=; Buffer:=; edit1.Text:=; end else showmessage(无此姓名); CardNumber:=; classroom:=; Buffer:=; edit1.Text:=; end; if classroom then begin strSql:=select * from dbo.xuesheng Where class=; strSql:=strSql+classroom+; self.ADODataSet1.Active:=False; self.ADODataSet1.CommandText:=

28、strSql; self.ADODataSet1.Active:=True; if (self.ADODataSet1.Eof=false) then begin CardNumber:=; Name:=; Buffer:=; edit3.Text:=; end else showmessage(无此班级); CardNumber:=; Name:=; Buffer:=; edit3.Text:=; end; end;完成的功能为：输入卡号，就根据卡号查询学生基本信息，输入姓名就跟据姓名查询，输入班级就跟据班级查询，输入上机次数就将上机次数小于输入次数的学生的基本信息输出。若查不到，则返回相应

29、的信息。其原理为：首先从Edit.Text中将输入赋给相应的变量。由于我们的数据表多将Field设置为字符串，因此可以将输入直接赋给变量，但遇到非字符串变量则将输入转变为变量对应类型。其次将strSql设为字符串类型，并将SQL语言转化为字符串形式赋给strSql。然后将数据集关闭，将strSql赋给self.ADODataSet1.CommandText，最后将数据集打开。这时ADODataSet1可以发送SQL语言至SQL Server对数据库中的学生信息表进行查询，并可将查询结果直接显示在DBGrid1中。由于我们将数据库student中学生基本信息表的所有Field都列在了DBGrid

30、1中，所以不需要对ADODataSet1进行显示哪个Field的设置。程序中条件语句if (self.ADODataSet1.Eof=false)是判断是否查找到记录。EOF是布尔类型，true表示记录指针指在最后一个记录，通常表示未找到，而false表示未指在最后一个记录上，意味着有这条记录。一旦执行查询即将其它变量清空，并将Edit.Text置空。比如用卡号查询，按下查询键后，即将姓名、班级、上机次数的变量置空，并将其Text清空。如此可以方便下次的查询，简化条件语句，即条件语句只要一个非空条件，而不用对多个非空条件语句进行与操作。3、 遇到的问题：这个应用程序的实现是比较简单的。只要按照

31、老师给的管理机模型就可以完成基本功能，只要再补充完善一下效果就不错。但也是遇到一些问题。主要问题是将空写为空格 ，使得查询时出现问题。比如说一开始设计时若用卡号查询就不能用名字查询，用了名字就不能用卡号。用了条件语句也是这个问题。后来经老师提醒，才知道问题所在，还是对语言不太熟悉。还有配置文件中未将目录改为数据库，造成运行时总是出现命令错误。 （四）客户设置机 1、完成功能：（1）、管理员可以通过客户机上的操作界面设置学生的基本信息：姓名、卡号、班级、宿舍电话、手机号等。可以设置计算机的基本信息：机号、机房号、上机密码、是否完好等。（2）、管理人员可以通过客户机上的操作界面完成学生上机预约。2

32、、实验步骤： （1）设计应用程序界面。根据题目要求可以对学生基本信息、计算机基本信息、预约进行操作，因此我们选择多页面PageControl控件。点击右键选择new Page即可增加新页面。按我们的题目分学生基本信息设置、计算机基本设置、预约设置三个页面。首先进行计算机基本信息设置。根据题目要求和数据库中diannao表的设置，我们设置了主机号、机房号、密码和电脑情况的设置，并增添增加、修改、删除和退出的按钮。在学生基本信息设置页面中我们也是根据题目和数据库中xuesheng表进行有关设置，按钮也包括增加、修改、删除和退出。而在预约页面中，我们的构思是输入卡号和日期即可进行预约。最后增添数据集

33、ADODataSet、DataSource和ADOCommand。其中ADODataSet用于查询，而ADOCommand用于写入数据库。（2）设置控件属性。包括从Caption或Text中改变其标题。重点是ADOCommand、DataSource、ADODataSet的属性设置。其中DataSource 的DataSet设置为ADODataSet1，并更改DataSet中的ConnectionString，将其服务器设置成我们组所用的服务器，并将其数据库设置成我们设置的数据库student，从WindowsNT登录。其次对ADODataSet1的属性进行设置，仅需对它的Connection

34、String的属性进行设置，设置内容与DataSource 1相同。最后对ADOCommand1的属性进行设置，对ConnectionString进行设置，内容同上。 对电脑进行设置 对学生情况设置 进行预约设置（3）用Pascal语言对各种控件进行编程。首先进行Form的初始化。包括对配置文件的设置。然后对各控件进行程序设计。在学生基本信息设置页面和计算机基本信息设置页面中其添加、修改和删除功能是类似的。现以学生基本信息设置为例说明。添加按钮对应的程序如下：procedure TForm1.Button1Click(Sender: TObject);var strSql:string; st

35、rSqa:string; name:string; id:string; classroom:string; telephone:string; handset:string;begin name:=Edit1.Text; id:=Edit2.Text; classroom:=Edit3.Text; telephone:=Edit4.Text; handset:=Edit5.Text; strSqa:=select * from dbo.xuesheng Where id=; strSqa:=strSqa+id+; self.ADODataSet1.Active:=False; self.AD

36、ODataSet1.CommandText:=strSqa; self.ADODataSet1.Active:=True; if (self.ADODataSet1.Eof=true) then begin strSql:=Insert into xuesheng(id,name,class,telephone,handset,times); strSql:=strSql + Values(; strSql:=strSql + id + ,; strSql:=strSql + + name + + ,; strSql:=strSql + + classroom + + ,; strSql:=s

37、trSql + + telephone + + ,; strSql:=strSql + + handset + + ,; strSql:=strSql + + IntToStr(0) + + ); self.ADOCommand1.CommandText:=strSql; self.ADOCommand1.Execute; showmessage(添加成功！); end else Messagedlg(记录已经存在！,mtError,mbok,0); end;完成的功能为：根据Label的提示，输入学生基本情况后可以将该学生的基本情况写入数据库student中xuesheng信息表中，并提示添

38、加成功。若该卡号已经存在，则弹出警告说明记录已经存在。其原理为：首先从Edit.Text中将输入赋给相应的变量。由于我们的数据表多将Field设置为字符串，因此可以将输入直接赋给变量，但遇到非字符串变量则将输入转变为变量对应类型。其次将strSql设为字符串类型，并将SQL语言转化为字符串形式赋给strSql。然后将数据集关闭，将strSql赋给self.ADODataSet1.CommandText，最后将数据集打开。这时ADODataSet1可以发送SQL语言至SQL Server对数据库中学生信息表的卡号进行查询。显然学生信息表中卡号应该是主键，即卡号是唯一的，所以仅需对卡号进行查询。程

39、序中条件语句if (self.ADODataSet1.Eof=false)是判断是否查找到记录。EOF是布尔类型，true表示记录指针指在最后一个记录，通常表示未找到，而false表示未指在最后一个记录上，意味着有这条记录。若未找到则对数据库写入。将strSql赋给self.ADOCommand1.CommandText，然后执行这条语句，即可将数据添加进数据表，同时显示“添加成功”。若已存在这条记录，则显示“记录已经存在”，不作任何操作。在信息设置中我们仅设置了五项，而在信息表中还包括上机次数这一栏，由于输入的学生是新增的，因此我们用常量“0”直接写入。修改按钮对应的程序如下：procedu

40、re TForm1.Button2Click(Sender: TObject);var strSql:string; strSqa:string; name:string; id:string; classroom:string; telephone:string; handset:string;begin name:=Edit1.Text; id:=Edit2.Text; classroom:=Edit3.Text; telephone:=Edit4.Text; handset:=Edit5.Text; strSqa:=select * from dbo.xuesheng Where id=

41、; strSqa:=strSqa+id+; self.ADODataSet1.Active:=False; self.ADODataSet1.CommandText:=strSqa; self.ADODataSet1.Active:=True; if (self.ADODataSet1.Eof=false ) then begin strSql:=Update xuesheng SET name=+name+,; strSql:=strSql+class=+classroom+,; strSql:=strSql+telephone=+telephone+,; strSql:=strSql+ha

42、ndset=+handset+,+times=+IntToStr(0); strSql:=strSql+where id=+id+; self.ADOCommand1.CommandText:=strSql; self.ADOCommand1.Execute; showmessage(修改记录成功！); end else Messagedlg(找不到记录！,mtError,mbok,0); end;完成的功能为：根据Label的提示，输入学生基本情况后可以将对改学生的基本信息进行设置，并提示“修改成功”，若该记录不存在，则提示“找不到记录”。函数体与添加是一样的，只是SQL语言不同，将Inse

43、rt语句换成Update，并且是在记录存在的情况下。这 样即可对数据表进行相应的修改。删除按钮的程序如下：procedure TForm1.Button3Click(Sender: TObject);var strSql:string; strSqa:string; name:string; id:string; classroom:string; telephone:string; handset:string;begin name:=Edit1.Text; id:=Edit2.Text; classroom:=Edit3.Text; telephone:=Edit4.Text; hands

44、et:=Edit5.Text; strSqa:=select * from dbo.xuesheng Where id=; strSqa:=strSqa+id+; self.ADODataSet1.Active:=False; self.ADODataSet1.CommandText:=strSqa; self.ADODataSet1.Active:=True; if (self.ADODataSet1.Eof=false ) then begin strSql:=delete from xuesheng where id=+id+; self.ADOCommand1.CommandText:

45、=strSql; self.ADOCommand1.Execute; showmessage(删除记录成功！); end else Messagedlg(找不到记录！,mtError,mbok,0); end;完成的功能为：删除输入的学生对应的学生信息，若输入学生信息不存在，则弹出警告信息说明记录不存在。同理，函数体是一样的，只是SQL语句换成Delete。这样即可将数据表中对应的记录进行删除操作。 在电脑基本信息设置中完成的功能是一样的，只是SQL语句和操作的数据表不同而已。在预约页面中，所使用的函数是一样的，只是在操作中逻辑性略复杂了些。“确定”按钮的程序如下：procedure TFor

46、m1.Button9Click(Sender: TObject);var strSql:string; strSqa:string; HostNumber:string; RoomNumber:string; book:integer; id:string; time:TDateTime;begin id:=Edit10.Text; time:=StrToDateTime(edit13.text); strSqa:=select * from dbo.diannao Where book=0; strSqa:=strSqa+and situation=1; self.ADODataSet1.A

47、ctive:=False; self.ADODataSet1.CommandText:=strSqa; self.ADODataSet1.Active:=True; if (self.ADODataSet1.Eof=false) then begin strSql:=Insert into yuyue(id,RoomNumber,HostNumber,shijian1); strSql:=strSql + Values(; strSql:=strSql +id+ ,; strSql:=strSql+self.ADODataSet1.FieldByName(RoomNumber).AsString+ + ,; strSql:=strSql+self.ADODataSet1.FieldByName(HostNumber).AsString+ + ,; strSql:=strSql + +DateTim