《VFP实验报告(中国海洋大学学生档案管理)》由会员分享，可在线阅读，更多相关《VFP实验报告(中国海洋大学学生档案管理)（16页珍藏版）》请在金锄头文库上搜索。
1、设计中国海洋大学人事行政管理系统学号：110112009003 专业年级：09政治学与行政学 姓名：常征 上机时间：周五78节实验目的：通过设计中国海洋大学人事行政管理系统，将本学期所学的VFP知识进行综合，设计出一个结合自己专业的数据库管理系统，以熟练掌握VFP基本操作。实验目录：一、组成模块1二、各模块介绍2（一）部门查询2（二）院系归属41、建立如下所示的三个数据表，结构索引如下图42、建立数据库，添加表，熟悉数据库的应用53、表之间临时关系的建立：64、表之间的永久关系的建立：75、查询在该系统中的应用：8(1)单表8(2)多表9(3) 子查询9（三）职称评定101、添加新字段102、
2、字段有效性103、添加自己记录114、更新字段115、删除记录11（四）人事管理121、顺序结构的应用（换课）122、分支结构的应用（讲课费计算）133、循环结构的应用（抽调教师）14（五）退出15三、结束语16一、组成模块（各模块相应菜单见下面过程中的截图）中国海洋大学人事行政管理系统部门查询院系归属职称评定退出人事管理二、各模块介绍（一）部门查询以教务处为例，进入系统，调用密码验证表单a=thisform.text1.valueif a=jiaowuchuthisform.label2.caption=欢迎使用本系统!mand1.visible=.T.thisform.label1.vis
3、ible=.F.thisform.text1.visible=.F.elseb=b+1if b=3messagebox(对不起,你不是合法用户,请退出)thisform.releaseelsemessagebox(你是第+str(b,3)+次输入，请重试)this.selstart=0this.sellength=len(rtrim(this.value)return 0endifendif（二）院系归属1、建立如下所示的三个数据表，结构索引如下图三个表浏览如下图2、建立数据库，添加表，熟悉数据库的应用（参照完整性）3、表之间临时关系的建立：use kclocate for 课程名=公共关系学
4、no=课程号SELECT 2use dtindex on 课程号 tag 课程号use jsset relation to 课程号 into breplace all 姓名 with b.学科带头人 for 课程号=no4、表之间的永久关系的建立：（主索引）（建立关联）5、查询在该系统中的应用：(1)单表 Select 教工号,姓名,count(课程号) as 授课数量 from js group by 姓名 into table sksj(2)多表 select 教工号,姓名,性别,学科带头人from js join dt on js.课程号=da.课程号;where 学科带头人=”崔凤”(
5、3) 子查询select 教工号,姓名,(year(date()-year(出生日期) as 年龄,js.课程号,课程名; from kc join js;on kc.课程号=js.课程号 where kc.课程号 in;(select dt.课程号 from dt where 学科带头人=王刚 or 学科带头人=郑敬高)（三）职称评定SQL在该系统中的应用前面应用了SQL的数据查询功能，以下为其数据定义和数据操纵功能的简单应用1、添加新字段alter table js add 职称 C (12)2、字段有效性alter table js alter 职称 C(10) ;check 职称=副教
6、授 error 您无权参加教授职称评定3、添加自己记录insert into js values(2011090378,常征,.T.,1990-12-02,87839,讲师)4、更新字段update js set 职称=iif(year(date()-year(出生日期)36,副教授,讲师)5、删除记录delete from js where 姓名=常征（四）人事管理本模块主要解决三大程序结构的应用1、顺序结构的应用（换课） Command1的代码：t=thisform.label2.captionthisform.label2.caption=thisform.label4.captiont
7、hisform.label4.caption=t2、分支结构的应用（讲课费计算）a=thisform.text1.valuedo case case a=17 and a=34 and a=51 and a=68 b=15*17+20*17+25*17+30*17+(a-68)*35endcasethisform.text2.value=b3、循环结构的应用（抽调教师）Command1 的代码：thisform.timer1.enabled=.not.(thisform.timer1.enabled)a= 按“停止”按钮，可得抽调教师姓名b= 被抽调的教师是： +bo1.textif this
8、form.timer1.enabled=.T. this.caption=停止 (S) thisform.label1.caption=aelse this.caption=开始 (0 this.removeitem(this.listindex) this.value=1 thisform.text1.value=this.listcountendifendcaseCombo1 的Valid事件代码：if this.tag=Y return.T.else this.tag=Yreturn 0endif（五）退出过程代码：if messagebox(您确定要退出吗？,1,温馨提示)=1clear allset sysmenu to defaultendif三、结束语 通过设计中国海洋大学人事行政管理系统，对本学期所学的VFP应用知识进行一个较为全面的总结。因时间所限，仍有部分内容未罗列出来，如数组、自定义方法、报表等，还望老师见谅。16
