vfp课程设计--教务管理系统

vfp课程设计--教务管理系统内容摘要：

物理设计的结果建立数据库，把表添加到数据库中使其成为数据库表，便于管理，方便运行。 数据库运行和维护阶段 数据库应用系统经过试运行后即可投入正式运行。 在数据库系统运行过程中 我们可以 不断地对其进行评价、调整与修改。 5．详细设计 程序文件 （ 1）程序文件架构 为了使用户能够对系统文件有更清晰的认识，这里设计了文件架构图。 主文件架构图如下图所示： 系统管理 数据管理 帮助 （ 2）程序主文件 的实现 程序主文件通常包括定义程序中的应用的全局变量及调用程序入口，同时还需要加入语句“ read events”占用程序的进程，然后开始事务处理，否则程序编译后运行时，将一闪而过。 本系统的主文件 的代码如下： =.t. set cent on *clea all close data public passkey *do form main SET SYSM OFF do form login =bmp\ =南京人口学院教务管理信息系统 =.F. =.t. *= on shutdown do =.t. *on key label RIGHTMOUSE do =2 *do FORM mainform *do read events 主界面 (用户登陆 ) 主文件架构图 （ 3）退出程序 的实现 文件退出程序 的代码如下： set sysm to defa clear event 系统登陆页面设置 程序启动后，系统自动打开用户登陆页面： 通过“用户登录”页面可以对用户的身份和使用权限进行设置。 表单设计 （ 1）在教务管理系统项目管理器（ jxgl）中，新建一个表单，命名为“ login”。 （ 2）在表单中添加 bol、 label、 text、 mand 控件，使其成为上图所示结构。 表单的数据环境即为 表。 （ 3）重要控件属性 控件名 属性 值 功能 Text2 PasswordChar * 保护此管理系统 代码设计 在表单 form1 的 init 事件中添加以下代码： =39。 教师 39。 在表单 bo1 控件的 Init 和 InteractiveChange 事件中添加以下代码： 设置管理权限，定义全局变量 yhlb，用来判断使用此系统的用户类别。 在表单确定按钮的 click 事件中添加以下代码： qx=allt() public yhlb do case case qx=管理员 yhlb=39。 139。 case qx=教师 yhlb=39。 239。 case qx=学生 yhlb=39。 339。 endcase yh=allt() kl=allt() if len(allt(yh))*len(allt(kl))=0 messageb(用户名或口令不能为空。 ,0+16,错误信息 ) else locate for allt(yhbh)==yh and yhqx==yhlb if !found() messageb(无此用户。 ,0+16,错误信息 ) else if allt(yhkl)==kl do do form main else messageb(口令错误。 ,0+16,错误信息 ) endif endif endif 在表单取消按钮的 Click 事件中添加以下代码 程序主页面设计 程序启动后，在系统登录页面输入正确信息后，将进入程序的主页面的设计。 通过程序主页面的设计可以执行相应的操作，并且可以通过选择主页面菜单或按钮，调用相应程序，进行相应操作。 程序主页面的运行结果如下图所示。 表单设计 （ 1）在项目管理器 — gxgl 中新建一个表单，命名为“ main” （ 2）在表单中插入名称为 Mytool 的 ToolBar 类控件，如下图所示： （ 3 重要属性如表所示。 对象 属性 值 Form1 AutoCenter . Form1 MdiForm . Form1 ShowWindow 0在屏幕中 Form1 WindowState 2最大化 Mytool Caption Toolbar1 代码设计 在“用户管理”按钮的 Click 事件中添加以下代码： do form yhgl 在“教师管理”按钮的 Click 事件中添加以下代码 ： do form jsgl 在“学生管理”按钮的 Click 事件中添加以下代码： do form xsgl 在“教材管理”按钮的 Click 事件中添加以下代码：。