请大家帮忙,帮我做做VFP课程设计,本人非常感谢!用VFP制作一个学生管理系统: 1、系统规模:有三个表及
1、系统规模:有三个表及以上(1)学生基本情况表:学院、学号、班级、姓名、性别、出生日期、专业、入学时间、家庭住址等(2)学生成绩表:学号、姓名、上课学年、上课学期、课程...
1、系统规模:有三个表及以上
(1)学生基本情况表:学院、学号、班级、姓名、性别、出生日期、专业、入学时间、家庭住址等
(2)学生成绩表:学号、姓名、上课学年、上课学期、课程编号、课程名称、开课学院、考试成绩、考试日期、任课教师。
(3)课程表:开课学院、课程编号、课程名称、学时、学分、上课学年、上课学期。
2、功能要求:有效录入、修改、删除、查询、统计、报表功能。
(1)录入、修改、删除:学生基本情况、学生成绩、课程。
(2)查询:某个学生的基本情况、成绩,查询某门课程信息。
(3)统计:全班每门课程的平均成绩、每个学生全部课程的平均成绩、分学院统计课程门数。
(4)报表:全班基本情况、全班成绩情况、个人成绩单、课程清单。
3、自行设计数据表的结构,至少包含上面所列字段。
4、每个表的数据记录不少于30条,班级至少5个。
5、应用程序界面友好,风格不做具体要求。
6、所有工作在项目管理器中进行。
7、30条记录应通过“录入”界面录入;“查询”为单值查询。
哪位高手能把每个题目的操作步骤告诉我吗?非常感谢 或者是请你在百忙之中,帮我做一个课设平人表示非常的感谢!急需呀。发往我的邮箱NXYDDK@163.COM 展开
(1)学生基本情况表:学院、学号、班级、姓名、性别、出生日期、专业、入学时间、家庭住址等
(2)学生成绩表:学号、姓名、上课学年、上课学期、课程编号、课程名称、开课学院、考试成绩、考试日期、任课教师。
(3)课程表:开课学院、课程编号、课程名称、学时、学分、上课学年、上课学期。
2、功能要求:有效录入、修改、删除、查询、统计、报表功能。
(1)录入、修改、删除:学生基本情况、学生成绩、课程。
(2)查询:某个学生的基本情况、成绩,查询某门课程信息。
(3)统计:全班每门课程的平均成绩、每个学生全部课程的平均成绩、分学院统计课程门数。
(4)报表:全班基本情况、全班成绩情况、个人成绩单、课程清单。
3、自行设计数据表的结构,至少包含上面所列字段。
4、每个表的数据记录不少于30条,班级至少5个。
5、应用程序界面友好,风格不做具体要求。
6、所有工作在项目管理器中进行。
7、30条记录应通过“录入”界面录入;“查询”为单值查询。
哪位高手能把每个题目的操作步骤告诉我吗?非常感谢 或者是请你在百忙之中,帮我做一个课设平人表示非常的感谢!急需呀。发往我的邮箱NXYDDK@163.COM 展开
4个回答
展开全部
假设库文件名zgk.dbf
**主程序**
set talk off
h=""
do while h<>"12345"
clear
acce "输入口令:" to h
enddo
Use zgk
A=1
Do while A<5
Clear
text
1.录入数据"
2.修改数据"
3.查询数据"
4.删除数据"
5.退出"
endtext
Input "请选择1-5:" to A
Do Case
Case a=1
Do 录入
Case a=2
Do 修改
Case a=3
Do 查询
Case a=4
Do 删除
Other wise
use
Endcase
Enddo
Procedure 查询
c=1
Do while c<5.
Clear
Text
1.按职工号查询
2.出生日期查询
3.按姓名查询
4.按部门查询
5.返回
Endtext
Input "请选择1-5:" to C
h=""
Do case
Case c=1
Accept "输入职工号:" to H
disp for 职工号=H
wait
Case c=2
Accept "输入出生日期:" to H
Disp for 出生日期=ctod(H)
wait
Case c=3
Accept "输入姓名:" to H
disp for 姓名=H
wait
Case c=4
Accept "输入部门:" to H
Disp for 部门=H
wait
Other wise
Exit
Endcase
Enddo
Return
Proc 修改
c=1
Do while c<3
Clear
Text
1.按职工号修改
2.按姓名修改
3.返回
Endtext
Input "请选择1-3:" to C
h=""
Do case
Case c=1
Accept "输入职工号:" to H
Edit for 职工号=H
Case c=2
Accept "输入姓名:" to H
edit for 姓名=H
Other wise
Exit
Endcase
Enddo
Return
Proc 删除
c=1
Do while c<3
Clear
Text
1.按职工号删除
2.按姓名删除
3.返回
Endtext
Input "请选择1-3" to C
h=""
Do case
Case c=1
Accept "输入职工号:" to H
dele for 职工号=H
pack
Case c=2
Accept "输入姓名:" to H
dele for 姓名=H
pack
Other wise
Exit
Endcase
Enddo
Return
Proc 录入
c=1
Do while c<3
Clear
Text
1.插入记录
2.追加记录
3.返回
Endtext
Input "请选择1-3:" to C
h=0
Do case
Case c=1
Input "在哪条记录后插入新记录?" to H
Go h
insert
Case c=2
Append
Other wise
Exit
Endcase
Enddo
Return
**主程序**
set talk off
h=""
do while h<>"12345"
clear
acce "输入口令:" to h
enddo
Use zgk
A=1
Do while A<5
Clear
text
1.录入数据"
2.修改数据"
3.查询数据"
4.删除数据"
5.退出"
endtext
Input "请选择1-5:" to A
Do Case
Case a=1
Do 录入
Case a=2
Do 修改
Case a=3
Do 查询
Case a=4
Do 删除
Other wise
use
Endcase
Enddo
Procedure 查询
c=1
Do while c<5.
Clear
Text
1.按职工号查询
2.出生日期查询
3.按姓名查询
4.按部门查询
5.返回
Endtext
Input "请选择1-5:" to C
h=""
Do case
Case c=1
Accept "输入职工号:" to H
disp for 职工号=H
wait
Case c=2
Accept "输入出生日期:" to H
Disp for 出生日期=ctod(H)
wait
Case c=3
Accept "输入姓名:" to H
disp for 姓名=H
wait
Case c=4
Accept "输入部门:" to H
Disp for 部门=H
wait
Other wise
Exit
Endcase
Enddo
Return
Proc 修改
c=1
Do while c<3
Clear
Text
1.按职工号修改
2.按姓名修改
3.返回
Endtext
Input "请选择1-3:" to C
h=""
Do case
Case c=1
Accept "输入职工号:" to H
Edit for 职工号=H
Case c=2
Accept "输入姓名:" to H
edit for 姓名=H
Other wise
Exit
Endcase
Enddo
Return
Proc 删除
c=1
Do while c<3
Clear
Text
1.按职工号删除
2.按姓名删除
3.返回
Endtext
Input "请选择1-3" to C
h=""
Do case
Case c=1
Accept "输入职工号:" to H
dele for 职工号=H
pack
Case c=2
Accept "输入姓名:" to H
dele for 姓名=H
pack
Other wise
Exit
Endcase
Enddo
Return
Proc 录入
c=1
Do while c<3
Clear
Text
1.插入记录
2.追加记录
3.返回
Endtext
Input "请选择1-3:" to C
h=0
Do case
Case c=1
Input "在哪条记录后插入新记录?" to H
Go h
insert
Case c=2
Append
Other wise
Exit
Endcase
Enddo
Return
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
creat database 学生管理
在打开数据库后,建立的表都是这个数据库的
所以在打开数据库后,直接建表即可
文件-新建-表单
在打开数据库后,建立的表都是这个数据库的
所以在打开数据库后,直接建表即可
文件-新建-表单
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以借助百度Hi示意我们
有机会可以解决你的问题
差不多的要求也可以示意我们
ES:\\1BC4102D127475F1E20DBEB5CE3709E4
有机会可以解决你的问题
差不多的要求也可以示意我们
ES:\\1BC4102D127475F1E20DBEB5CE3709E4
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以你采纳我问题,我做好联系你
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询