vfp学籍信息管理系统_vfp学籍管理系统

其他范文时间：2020-02-28 08:12:16 收藏本文下载本文

【www.daodoc.com - 其他范文】

vfp学籍信息管理系统由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vfp学籍管理系统”。

课题名称：学籍管理信息系统一系统分析

据本次课程设计指导老师的要求，需建立一个“学籍管理系统”，以取代人工管理。开发项目如：

1能对与学籍管理有关的各类数据进行输入，修改，浏览与打印。2能根据需要查询学籍管理所需的各类数据。

3打印学生学籍信息，奖学金，个人简历等报表。

了解了老师的要求，我详细查阅了图书馆的相关书籍，经过调查，设想，我终于归纳出了目标系统，以满足数据需求和功能需求。

二

总体程序设计

总体程序设计共分为三个层次，系统功能需求可分为4 方面。如功能界面所示:(1)录入功能.(2)浏览功能(3)查询功能(4)报表打印功能.三报表设计

数据需求建立一个名为xjgl的项目，在此项目下建立一个名为xjgl的数据库，它包括4个主表和4个自由表。用户需提供和输入的数据如下表所示：

（1）主表：学籍卡表，简历表，奖学金表，班级表

Xjk.dbf(学号，姓名，性别，出生日期，民族，政治面貌，班级名称，奖惩情况，特长生，照片，备注)Jl.dbf(学号，起始时间，终止时间，所在单位，备注)Jxj.dbf(学号，姓名，班级名称，第一学年，第二学年，第三学年，第四学年，累计)Bj.dbf（班级名称，所属系部，入学年度，学制，备注）

（2）自由表：系部表，民族表，政治面貌表，毕业班级表xb.dbf(系部名称)zzmm.dbf(政治面貌)mz.dbf(民族)Bj.dbf（班级名称，所属系部，入学年度，学制，备注）

四

表单及代码根据需要共建立了8个表单，分别是：“登陆系统”表单、“欢迎界面”表单、功能界面表单、数据查询表单、学籍数据管理表单、报表打印表单、班级基本信息表单、奖学金数据管理表单。截图如下：

（1）“登陆系统”表单

代码：确定：do case case thisform.optiongroup1.value=1 if thisform.text1.value=“aaa”and thisform.text2.value=“111 meagebox(”欢迎使用本系统“)do form 欢迎界面 thisform.release else i=i+1 if i

else meagebox(”信息有误，禁止进入！“)quit endif endif

case thisform.optiongroup1.value=2 ifthisform.text1.value=”xxx“andthisform.text2.value=”123“ meagebox(”欢迎使用本系统“)do form 欢迎界面 thisform.release k=k+1 if k

else meagebox(”信息有误，禁止进入！“)quit endif endif

endcase

退出;thisform.release

（2）“欢迎界面”表单：

代码：

timer1：if thisform.label1.left+thisform.label1.width

thisform.label1.left=thisform.label1.left-10 endif timer2：if thisform.label1.left+thisform.label1.width

thisform.label1.left=thisform.label1.left-10 endif

（3）“功能界面”表单：

代码：

学籍管理：do form 数据查询

thisform.Refresh

奖学金：do form 数据查询

thisform.refres

学籍管理：do form 学籍管理

奖学金：do form 奖学金数据管理

个人简历：do form 最新简历

班级：do form 班级信息管理

个人简历：do form 个人简历报表的打印

奖学金：do form 奖学金报表的打印

学籍管理：do form 学籍报表的打印

退出系统：quit

（4）

“数据查询”表单：

按班级查询：select xjk

set filter to xjk.班级名称=thisform.combo1.value go top thisform.refresh 按姓名查询：select xjk

set filter to;alltrim(xjk.姓名)==alltrim(thisform.text1.value)

count all to rs go top

thisform.refresh if rs=0 meagebox(' 查无此人!',0+64)

endif form—active：thisform.combo1.value=bj.班级名称

select xjk

set filter to xjk.班级名称=thisform.combo1.value go top

thisform.refresh

optiongroup1.option1-click： rthisform.combo1.enable=.t.thisform.text1.enable=.t.thisform.command1.enable=.t.thisform.text1.enable=”“ select xjk

set filter to xjk.班级名称=thisform.combo1.value

go top thisform.refresh

optiongroup1.option2-click： thisform.combo1.enabled=.f.thisform.text1.enabled=.t.thisform.command1.enabled=.t.select xjk

set filter to xjk.姓名”" go top

thisform.refresh

（5）

“学籍管理”表单：

代码：

数据管理-上一个-click:select xjk

skip-1 if bof()go top endif

thisform.refresh

下一个-click:select xjk skip if bof()go bottom endif thisform.refresh 第一个-click:select xjk go top thisform.refresh 末一个-click:select xjk go bottom thisform.refresh 请选择班级-click:select xjk set filter to xjk.班级名称=thisform.combo1.value go top thisform.refresh 姓名-gotfocus:thisform.refresh 添加记录-click:select xjk go bottom if len(alltrim(编号))0 append blank replace 性别 with '男' replace 民族 with '汉' replace 政治面貌 with '团员' replace 班级名称 with thisform.combo5.value endif thisform.refresh 删除记录-click:select xjk sc=meagebox('是否删除当前记录?' ,4+32+256,'提示信息')if sc=6 delete skip if bof()go top endif endif form-destory:select xjk use xjk exclusive pack form-activate:thisform.combo1.value=bj.班级名称

select xjk set filter to xjk.班级名称=thisform.combo5.value go top thisform.refresh

（6）

“打印”表单：

代码：确定：do case case thisform.optiongroup1.value=1 report form 个人简历报表 environment to printer thisform.refresh case thisform.optiongroup1.value=2 report form 个人简历报表 environment preview thisform.release endcase（7）

“班级基本信息”表单：

代码：

添加记录：select bj

append blank repl 学制 with '4' thisform.refresh form-destory: select bj

go top

do while.not.eof()

bj.备注='毕业'

delete

claaaname=bj.班级名称

select xjb

replace all 备注 with '毕业';

for xjb.班级名称=claname;