- 1、本文档共25页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
随着经济的发展,教育在以各种方式普及着。随着计算机的普及,计算机在生活中 得到越来越多的应用,具中在计算机上的运行的各种软件在解决教育上的实际问题中起 着重大的作用。特别是在大学学院或班级,经常会对所有学生的信息进行统计和管理, 由于学生数冃经常繁多,所以在处理统计学生信息的时候,工作量会特别大。所以针对 这种情况,同时对分析学生信息管理所需要的功能,依靠一个相应的学生管理系统会使 这项繁琐的工作变得简单而轻松。因此我们利用小型数据库管理系统中优秀的软件 Visual FoxPro 6.0作为系统开发工具,在对学生信息管理体系进行充分分析和系 统论证的基础上开发设计了一种小型的学生成绩管理系统,它不但具有满足学生成绩相 关性息的录入、显示、查询、修改、删除和统计功能等基本耍求,而且具有程序设计合 理、操作简单、运行可靠和保密性强等特点。
关键词:学生信息;数据库管理系统;程序设计;Visual FoxPro
TOC \o 1-5 \h \z 摘要 I
HYPERLINK thisform. text2. value二〃 thisform. textl. setfocus
return
case x2!=alltrim(密码)
messagebox (z,对不起!密码错误!请重输! ,0+48+0,注意〃)
thisform. text2. value二〃
thisform. textl. setfocus
return
otherwise
MESSAGEBOXC系统登陆成功! 〃)
do菜单.mpt
do form菜单表单
thisform? release
endcase
(2)退出”的click事件代码
thisform. release
2、查询的示意图及事件代码
(1)查询示意图如下:
密欢迎您使用学生值患簣理系统!
图5-3学生信息查询
(2) “查询”的click事件代码:
USE学生表
xl=alltrim(thisform. Text2. value)
if xl二二
messagebox(,z没有输入,请检查!〃,0+48+0,注意! “)
else
brow for 学号二xl
endif
close all
3、插入信息示意图及事件代码
(1)插入的示意图如下:
V欢迎您使用字生信息管理系统!
ffiUR浏览息查向 AMLSWi 常助 退出系
IZml -1 汨、| I |cb| “IB ! 1胡 I 3 阪型 似W
A 、
矽插入学生值恿 「O II回I S3
图5-4插入信息
(2) “插入”的click事件的代码
USE学生表
INSERT into学生表(学号,姓名,性别,所在系,班号,出生日期,城市,联系电话, 公寓号);
values(thisform. text2? Value, thisform. text3. Value, thisform. text4? Value
,thisform. text5. Value, thisform. text6. Value, thisform. text7. Value, thisform. text8. Value, thisform. text9. Value, thisform. textlO. Value)
messagebox(,z插入成功! ,0+48+0,恭喜你! “)
select学号,姓名,性别,所在系,班号,岀生H期,城市,联系电话,公寓号from 学生表 order by 学号
Broese
close all
4、删除的示意图及事件代码
(1)删除示意图如下:
莎 欢迎您使用字生信息管理系统!
图5-5删除信息
(2) “删除”的click事件代码:
USE学生表
xl=all trim (this form, text 1. value)
if xl二二〃〃
messagebox(没有输入,请检查!〃,0+48+0, 〃注意! 〃)
endif
locate for 学号=xl
if found ()二? f?
messagebox (z/未找到所删除的记录,请检査! ,0+48+0,注意! “)
else
DELETE from 学生表 where 学号=thisform. textl. value
pack
messagebox (z/删除成功! 、0+48+0,恭喜你! “)
select学号,姓名,性别,所在系,班号,出生日期,城市,联系电话,公寓号from 学生表 order by 学号
endif
browse
close all
5、修改的示意图及事件代码
(1)修改的示意图如下:
莎欢迎您便用学生借息伍理系统!
借恿浏2S 信理査向 信.亘细借 帮助 追出系统
TS 昌I 冬| 1 x |
文档评论(0)