论文部分内容阅读
摘 要：利用计算机手段实现新生报到工作是必然趋势；文章结合实际工作，就如何实现这一系统进行论述。
关键词：VFP；新生报到管理系统
0引言
我院新生报到一直采用人工的方式，不但速度慢效率低需要用大量的人员、不便于信息的统计和管理、难以跟各相关部门交换数据，且出错率高，给下一步的学籍管理带来很大不便。本人通过实际需求与数据库技术的有效结合，探讨基于精確、效率、便于信息传达的新生报到系统的设计与实现.
1 系统设计目标
新生报到系统是信息技术和实际应用的科学结合，将新生报到数据进行系统化的管理，不但提高了新生报到的效率，减少了在管理过程中信息传导的不正确，而且实现了数据的快速整理、统计，进一步为学籍管理工作提供了保障，本案设计的管理系统，旨在实现高校新生报到的管理自动化、数据准确安全化、信息传达精确化，
1.1 管理自动化
系统可自动查询报到人数、将报到数据导出为dbf和excel两种格式的数据表，不仅幅度降低报到管理工作人员的工作量，在保证数据的正确性的同时，为学生处、财务处、系部等相关部门提供了及时有效的数据。
1.2 数据准确安全化
系统设置密码，专人进行数据管理，避免了人工方式管理过程中，接触新生数据人员较多、容易造成信息泄露等问题。不但限定了特定字段不得修改，且基本避免了可能的错误报到，最大程度的保证了数据的准确性同时对数据的修改进行严格的限定。
1.3 信息传达精确化
系统可打印出新生报到单报表，该报表上包含包含照片在内的多项数据，可以精确的向相关部门传达信息，保证了数据传达的正确性。
2 系统主要功能模块
新生报到系统主要包括用户管理、数据导入导出管理、数据统计管理、报到管理、备注信息修改管理。系统的功能模块图如图1所示。
2.1 用户登录管理
每个操作人员均有自己的登录用户名与密码，防止非法用户进入本系统。同事，不同的用户具有不同的管理权限，设置四种权限，分别是：只能浏览数据的一级用户，可以进行报到及数据浏览的二级用户，可以进行数据修改及报到和浏览的三级用户，以及可以进行数据增加、删除、修改的超级用户。
2.2 数据管理
数据管理主要包括新增数据向数据库中的导入、已有报到数据的导出，三级。
2.3 数据查找
考虑到各种可能出现的情况，设定可以按照准考证号和姓名两种方式进行查找，在按姓名进行查找时，还可只以姓名第一个字或前两个字进行查找。
2.4 报到管理
经数据查找定位到相应记录后，对该记录进行数据标记，报到状态字段标记为“已报到”，并从系统中获取当前日期时间写入到报到时间字段中。
2.5 数据统计
触发统计事件后，对数据表中所有报到状态字段标记为“已报到”的记录进行统计并输出。
2.6 报表输出
获取相应记录后，进行报表打印输出。报表的设计根据实际工作需要，本系统设计为满足招办、辅导员、财务处、档案室、家长、新生本人等各方面的需要，除输出本人相关信息及照片之外，还打印有报到时间。
另外为了满足部分学生重新打印录取通知书的需要，需设置有单张通知书打印报表。
3 系统主要功能设计
本系统采用Visual FoxPro进行系统开发设计，虽然目前Visual FoxPro有9.0等较高的版本，但因目前非专业领域Visual FoxPro 6.0的版本应用最广泛，为充分保障软件的可移植性，系统采用6.0版本进行开发。
3.1 建立主控程序
主控程序是应用程序设计的起点，其中应包括初始化系统化境，开始事件执行，显示登录界面，且在退出时间后恢复系统原来的环境。
本管理系统的主控程序如下：
CLEAR
CLEAR ALL
PUBLIC LCNowpath
LCNowpath=SYS（5）+SYS（2003）+”＼”
SET DEFAULT TO “&LCNowpath”
SET TALK OFF
SET ESCAPE OFF
SET EXCLUSIVE OFF
SET CONSOLE ON
SET DATE ANSI
SET CENTURY ON
SET SAFETY OFF
SET HOURS TO 24
SET SYSMENU OFF
DO FORM 用户登录
READ EVENTS
CLEAR SCREEN
CLEAR EVENTS
_VFP.VISIBLE=.F.
3.2 用户登录表单
用户登录登录过程中，除对用户信息进行正确性判定之外，还需根据用户名判定用户属于何种级别用户，并弹出对话框进行告知。
部分代码：
public UPD &&设定public类型的变量UPD已进行用户信息传递
UPD=ALLtRIM（THISFORM.USERPWD.VALUE）
使用DO CASE语句对用户类型进行判断，并使用MESSAGEBOX（）函数告知用户其可以获得的权限。
3.3 查找模块
查找模块是本系统的核心之一，没有查找，就不能进行其他的相关操作。本模块部分代码如下
（1）按准考证号查找部分： N=RECNO（）
GO TOP
SCAN
IF ALLTRIM（总基本.KSH）=ALLTRIM（THISFORM.Textfind.VALUE）
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（）
THISFORM.REFRESH
SCATTER TO TEMP
IF THISFORM.Xbdm1.VALUE=”1”
THISFORM.Label2.CAPTION=”男”
ELSE
THISFORM.Label2.CAPTION=”女”
ENDIF
THISFORM.Print1.SETFOCUS（） &&查找到数据后，打印按钮获得焦点
THISFORM.REFRESH
RETURN
ENDIF
ENDSCAN
MESSAGEBOX（“不好意思，该准考证号不存在！”，0，”失败”）
GO N
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（） &&查找不到数据，查找框清零，并由查找框获得焦点
THISFORM.REFRESH
（2）按姓名查找部分：
按姓名查找按钮：
N=RECNO（）
PUBLIC M
GO TOP
SCAN
IF ALLTRIM（总基本.XM）=ALLTRIM（THISFORM.Textfind.VALUE）
THISFORM.REFRESH
SCATTER TO TEMP
M=RECNO（）
IF THISFORM.Xbdm1.VALUE=”1”
THISFORM.Label2.CAPTION=”男”
ELSE
THISFORM.Label2.CAPTION=”女”
ENDIF
THISFORM.Command1.ENABLED=.T.
RETURN
ENDIF
ENDSCAN
MESSAGEBOX（“该姓名不存在！”，0，”失败”）
GO N
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（）
THISFORM.REFRESH
下一个按钮：
M=M+1
IF M<=RECCOUNT（）
GO M
DO WHILE NOT EOF（）
IF ALLTRIM（总基本.XM）=ALLTRIM（THISFORM.Textfind.VALUE）
THISFORM.REFRESH
SCATTER TO TEMP
M=RECNO（）
IF THISFORM.Xbdm1.VALUE=”1”
THISFORM.Label2.CAPTION=”男”
ELSE
THISFORM.Label2.CAPTION=”女”
ENDIF
RETURN
ENDIF
SKIP
ENDDO
ENDIF
M=M-1
GO M
MESSAGEBOX（“已到文件尾！”，0，”查找失败”）
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（）
THISFORM.REFRESH
3.4 报到模块
此处进行数据的状态标记，并调用打印模块进行报表打印。为提高工作效率，标记打印完成后，使查找框获得焦点。
SCATTER TO TEMP
THISFORM.Bdzt1.VALUE=”已报到”
THISFORM.Bdtime.VALUE=DATETIME（）
THISFORM.Bddate.VALUE=DATE（）
M=MESSAGEBOX（“确认报到？”，4+48，”信息窗口”）
IF M=6
MESSAGEBOX（“记录修改成功！”，48，”信息窗口”）
SCATTER TO TEMP
ELSE
GATHER FROM TEMP
THISFORM.BDZT1.VALUE=””
RETURN
ENDIF
THISFORM.REFRESH
LOCAL printno
SELECT 總基本
printno = RECNO（）
REPORT FORM ；
打印报到单.frx ；
NOEJECT TO PRINTER ；
NOCONSOLE RANGE printno， ；
printno
GOTO printno
THISFORM.Textfind.SETFOCUS
3.5 其他设计
在主界面的init事件中需根据登录用户的级别对修改、增加、删除、报到打印等按钮的Enabled属性进行初始化设定，如：超级用户登录则所有按钮均可用，一级用户登录则这些按钮均不可用，二级用户登录则报到按钮可用等。
触发导出事件时，将数据用copy to 命令分别导出成.dbf文件和.xls文件。
触发统计事件时，使用count 命令对报到人数进行统计。
考虑个别记录无照片时临时的替代方案。
4 结语
在当前数据库发展趋势中，Visual FoxPro这种小型数据库系统以其简单快捷的系统开发方式及极快的数据处理速度，依然保持着其生命力和影响力。本系统实现了数据的快捷浏览与操控，使管理人员可以很方便的对数据进行查询、输出，并且在相当大的程度上保障了数据的安全性。
参考文献
[1] 张洪举.Visual FoxPro程序设计参考手册[M]，北京：人民邮电出版社，2004.
[2] 史济民.Visual FoxPro及其应用系统开发[M]，北京：清华大学出版社，2010.
[3] 徐辉.Visual FoxPro数据库应用教程与实验[M]，北京：清华大学出版社，2004
关键词：VFP；新生报到管理系统
0引言
我院新生报到一直采用人工的方式，不但速度慢效率低需要用大量的人员、不便于信息的统计和管理、难以跟各相关部门交换数据，且出错率高，给下一步的学籍管理带来很大不便。本人通过实际需求与数据库技术的有效结合，探讨基于精確、效率、便于信息传达的新生报到系统的设计与实现.
1 系统设计目标
新生报到系统是信息技术和实际应用的科学结合，将新生报到数据进行系统化的管理，不但提高了新生报到的效率，减少了在管理过程中信息传导的不正确，而且实现了数据的快速整理、统计，进一步为学籍管理工作提供了保障，本案设计的管理系统，旨在实现高校新生报到的管理自动化、数据准确安全化、信息传达精确化，
1.1 管理自动化
系统可自动查询报到人数、将报到数据导出为dbf和excel两种格式的数据表，不仅幅度降低报到管理工作人员的工作量，在保证数据的正确性的同时，为学生处、财务处、系部等相关部门提供了及时有效的数据。
1.2 数据准确安全化
系统设置密码，专人进行数据管理，避免了人工方式管理过程中，接触新生数据人员较多、容易造成信息泄露等问题。不但限定了特定字段不得修改，且基本避免了可能的错误报到，最大程度的保证了数据的准确性同时对数据的修改进行严格的限定。
1.3 信息传达精确化
系统可打印出新生报到单报表，该报表上包含包含照片在内的多项数据，可以精确的向相关部门传达信息，保证了数据传达的正确性。
2 系统主要功能模块
新生报到系统主要包括用户管理、数据导入导出管理、数据统计管理、报到管理、备注信息修改管理。系统的功能模块图如图1所示。
2.1 用户登录管理
每个操作人员均有自己的登录用户名与密码，防止非法用户进入本系统。同事，不同的用户具有不同的管理权限，设置四种权限，分别是：只能浏览数据的一级用户，可以进行报到及数据浏览的二级用户，可以进行数据修改及报到和浏览的三级用户，以及可以进行数据增加、删除、修改的超级用户。
2.2 数据管理
数据管理主要包括新增数据向数据库中的导入、已有报到数据的导出，三级。
2.3 数据查找
考虑到各种可能出现的情况，设定可以按照准考证号和姓名两种方式进行查找，在按姓名进行查找时，还可只以姓名第一个字或前两个字进行查找。
2.4 报到管理
经数据查找定位到相应记录后，对该记录进行数据标记，报到状态字段标记为“已报到”，并从系统中获取当前日期时间写入到报到时间字段中。
2.5 数据统计
触发统计事件后，对数据表中所有报到状态字段标记为“已报到”的记录进行统计并输出。
2.6 报表输出
获取相应记录后，进行报表打印输出。报表的设计根据实际工作需要，本系统设计为满足招办、辅导员、财务处、档案室、家长、新生本人等各方面的需要，除输出本人相关信息及照片之外，还打印有报到时间。
另外为了满足部分学生重新打印录取通知书的需要，需设置有单张通知书打印报表。
3 系统主要功能设计
本系统采用Visual FoxPro进行系统开发设计，虽然目前Visual FoxPro有9.0等较高的版本，但因目前非专业领域Visual FoxPro 6.0的版本应用最广泛，为充分保障软件的可移植性，系统采用6.0版本进行开发。
3.1 建立主控程序
主控程序是应用程序设计的起点，其中应包括初始化系统化境，开始事件执行，显示登录界面，且在退出时间后恢复系统原来的环境。
本管理系统的主控程序如下：
CLEAR
CLEAR ALL
PUBLIC LCNowpath
LCNowpath=SYS（5）+SYS（2003）+”＼”
SET DEFAULT TO “&LCNowpath”
SET TALK OFF
SET ESCAPE OFF
SET EXCLUSIVE OFF
SET CONSOLE ON
SET DATE ANSI
SET CENTURY ON
SET SAFETY OFF
SET HOURS TO 24
SET SYSMENU OFF
DO FORM 用户登录
READ EVENTS
CLEAR SCREEN
CLEAR EVENTS
_VFP.VISIBLE=.F.
3.2 用户登录表单
用户登录登录过程中，除对用户信息进行正确性判定之外，还需根据用户名判定用户属于何种级别用户，并弹出对话框进行告知。
部分代码：
public UPD &&设定public类型的变量UPD已进行用户信息传递
UPD=ALLtRIM（THISFORM.USERPWD.VALUE）
使用DO CASE语句对用户类型进行判断，并使用MESSAGEBOX（）函数告知用户其可以获得的权限。
3.3 查找模块
查找模块是本系统的核心之一，没有查找，就不能进行其他的相关操作。本模块部分代码如下
（1）按准考证号查找部分： N=RECNO（）
GO TOP
SCAN
IF ALLTRIM（总基本.KSH）=ALLTRIM（THISFORM.Textfind.VALUE）
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（）
THISFORM.REFRESH
SCATTER TO TEMP
IF THISFORM.Xbdm1.VALUE=”1”
THISFORM.Label2.CAPTION=”男”
ELSE
THISFORM.Label2.CAPTION=”女”
ENDIF
THISFORM.Print1.SETFOCUS（） &&查找到数据后，打印按钮获得焦点
THISFORM.REFRESH
RETURN
ENDIF
ENDSCAN
MESSAGEBOX（“不好意思，该准考证号不存在！”，0，”失败”）
GO N
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（） &&查找不到数据，查找框清零，并由查找框获得焦点
THISFORM.REFRESH
（2）按姓名查找部分：
按姓名查找按钮：
N=RECNO（）
PUBLIC M
GO TOP
SCAN
IF ALLTRIM（总基本.XM）=ALLTRIM（THISFORM.Textfind.VALUE）
THISFORM.REFRESH
SCATTER TO TEMP
M=RECNO（）
IF THISFORM.Xbdm1.VALUE=”1”
THISFORM.Label2.CAPTION=”男”
ELSE
THISFORM.Label2.CAPTION=”女”
ENDIF
THISFORM.Command1.ENABLED=.T.
RETURN
ENDIF
ENDSCAN
MESSAGEBOX（“该姓名不存在！”，0，”失败”）
GO N
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（）
THISFORM.REFRESH
下一个按钮：
M=M+1
IF M<=RECCOUNT（）
GO M
DO WHILE NOT EOF（）
IF ALLTRIM（总基本.XM）=ALLTRIM（THISFORM.Textfind.VALUE）
THISFORM.REFRESH
SCATTER TO TEMP
M=RECNO（）
IF THISFORM.Xbdm1.VALUE=”1”
THISFORM.Label2.CAPTION=”男”
ELSE
THISFORM.Label2.CAPTION=”女”
ENDIF
RETURN
ENDIF
SKIP
ENDDO
ENDIF
M=M-1
GO M
MESSAGEBOX（“已到文件尾！”，0，”查找失败”）
THISFORM.Textfind.VALUE=””
THISFORM.Textfind.SETFOCUS（）
THISFORM.REFRESH
3.4 报到模块
此处进行数据的状态标记，并调用打印模块进行报表打印。为提高工作效率，标记打印完成后，使查找框获得焦点。
SCATTER TO TEMP
THISFORM.Bdzt1.VALUE=”已报到”
THISFORM.Bdtime.VALUE=DATETIME（）
THISFORM.Bddate.VALUE=DATE（）
M=MESSAGEBOX（“确认报到？”，4+48，”信息窗口”）
IF M=6
MESSAGEBOX（“记录修改成功！”，48，”信息窗口”）
SCATTER TO TEMP
ELSE
GATHER FROM TEMP
THISFORM.BDZT1.VALUE=””
RETURN
ENDIF
THISFORM.REFRESH
LOCAL printno
SELECT 總基本
printno = RECNO（）
REPORT FORM ；
打印报到单.frx ；
NOEJECT TO PRINTER ；
NOCONSOLE RANGE printno， ；
printno
GOTO printno
THISFORM.Textfind.SETFOCUS
3.5 其他设计
在主界面的init事件中需根据登录用户的级别对修改、增加、删除、报到打印等按钮的Enabled属性进行初始化设定，如：超级用户登录则所有按钮均可用，一级用户登录则这些按钮均不可用，二级用户登录则报到按钮可用等。
触发导出事件时，将数据用copy to 命令分别导出成.dbf文件和.xls文件。
触发统计事件时，使用count 命令对报到人数进行统计。
考虑个别记录无照片时临时的替代方案。
4 结语
在当前数据库发展趋势中，Visual FoxPro这种小型数据库系统以其简单快捷的系统开发方式及极快的数据处理速度，依然保持着其生命力和影响力。本系统实现了数据的快捷浏览与操控，使管理人员可以很方便的对数据进行查询、输出，并且在相当大的程度上保障了数据的安全性。
参考文献
[1] 张洪举.Visual FoxPro程序设计参考手册[M]，北京：人民邮电出版社，2004.
[2] 史济民.Visual FoxPro及其应用系统开发[M]，北京：清华大学出版社，2010.
[3] 徐辉.Visual FoxPro数据库应用教程与实验[M]，北京：清华大学出版社，2004