系统开发实例

《系统开发实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第10章系统开发实例10.1开发VFP数据库应用系统的一般步骤⒈需求分析充分调研、写出需求规范说明书⒉数据库设计逻辑设计、物理设计、数据代码设计10.1开发VFP数据库应用系统的一般步骤⒊应用程序设计创建子类、用户界面设计与编码、数据输出设计数据库维护功能、构造VFP应用程序⒋软件测试⒌应用程序发布⒍系统运行与维护一个实例:“学生成绩管理系统”的开发一、需求分析⒈开发目的：(1)能对学生成绩有关的各类数据进行输入、修改与查询。(2)能根据学生表和课程表录入每个学生的成绩数据。(3)能对学生成绩表进行条件查询。(4)能对四个表进行报表打印⒉数据需求

2、输入包括成绩信息表、课程名表、系别表、学生信息表4个表输出包括4个表的报表输出，每个学生的成绩单输出，每科成绩的输出。⒊功能需求⑴成绩输入用于学生考试成绩的输入⑵成绩查询用于学生成绩的查询，可以设置查询条件，系统调用相关的条件进行查询。可以查询每个学生的成绩，可以查询每科学生的成绩。⑶统计可以对成绩进行各方面的统计和分析。⑷数据维护可以对四个表进行增、删、改操作。⑸打印输出可以对四个表进行打印输出，也可以对每个人或每科进行统计输出。⑹密码输入对用户限定进入系统。一个实例:“学生成绩管理系统”的开发二、数据库设计⒈逻辑设计(1)成绩信息表：cj(学

3、号,课程号,分数,学分)(2)课程名表:kc(课程号,课程名称)(3)系别表:xb(系号，系名，负责人)(4)学生信息表:xs(学号，姓名，性别，系号，特长，出生日期，照片)⒉物理设计三、应用程序设计⒈总体设计⒉开始界面设计初始用户界面设计zjmbd.scx进入系统代码(也可调用密码表单，再进入菜单)Domenu.mprThisfrom.release10.2数据输入、数据查询模块的设计一、数据输入：成绩录入表单(cjlr)下图为设计与运行状态代码的实现添加记录按钮的单击事件thisform.text1.value=''thisform.text

4、2.value=''thisform.text3.value=''thisform.text4.value=''保存记录单击事件ifthisform.text1.value=“”orthisform.text2.value=“”orthisform.text3.value=“”orthisform.text4.value=“”messagebox('所有项内容都不能为空',48,"提示信息")elselocatefor成绩信息表.学号=alltrim(thisform.text1.value)and成绩信息表.课程号=alltrim(thisfo

5、rm.text2.value)iffound()messagebox('此学号与课号已经存在，重新输入',48,"提示信息")thisform.text1.value=""thisform.text1.setfocuselseinsertinto成绩信息表values(alltrim(thisform.text1.value),alltrim(thisform.text2.value),val(alltrim(thisform.text3.value)),val(alltrim(thisform.text4.value)))Messagebox(

6、“添加成功!”)endifendif学号组合框的单击事件thisform.combo1.visible=.f.thisform.text1.visible=.t.thisform.text1.value=thisform.combo1.text学号组合框的lostfocusthisform.combo1.visible=.f.thisform.text1.visible=.t.课程号组合框和学号类似学号文本框的单击事件thisform.text1.visible=.f.thisform.combo1.top=thisform.text1.topt

7、hisform.combo1.left=thisform.text1.leftthisform.combo1.visible=.t.课程号文本框单击事件和学号文本框单击事件类似。学生信息录入表单代码添加照片按钮的单击事件:thisform.text4.value=getpict("","选择相片","好了！")命令按钮组的单击事件docasecasethis.value=1thisform.text1.value=""thisform.text2.value=""thisform.text3.value={}thisform.text4.valu

8、e=""thisform.text1.setfocuscasethis.value=2k1=thisform.text1.valuek2