VFP学生学籍管理系统

在线咨询详情 5173论文网竭诚为您服务 本站永久域名：www.lw5173.com

3、源代码

在项目管理器中，可以打开任何一个表单查看它的详细代码。下面给出了程序一部分的源代码：

①主程序main.prg源程序：

set talk off

set escape off

set clock status

_screen.caption="学生档案管理系统"

_screen.picture="back.jpg"

_screen.icon="picture\xt.ico"     &&指定应用程序图标

_screen.windowstate=2         &&设置启动时应用程序为全屏显示

public pot

pot=0

mypath=left(sys(16),rat("\",sys(16)))    &&返回路径

set defa to &mypath

do form login.scx                    &&调用登录对话框

read events

modi windows screen close            &&恢复主窗口的关闭能力

set sysmenu to defa                  &&恢复VFP的默认菜单

close all

release all

return

②   查询源代码

Form1对象          Init事件

功能：将查询的字段添加到列表框中

public tiaojian,backtj,ftype

tiaojian="select * from student!学生基本信息 where "

backtj=tiaojian

open database data\student

use 学生基本信息

for i=1 to fcount()-1

    thisform.pageframe1.page1.combo1.additem(fields(i))

endfor

thisform.pageframe1.page1.combo2.enabled=.f.

thisform.pageframe1.page1.text1.readonly=.t.

thisform.pageframe1.page1.optiongroup1.enabled=.f.

 

Thisfrom.pageframe1.page1对象          Click事件

tiaojian="select * from student!学生基本信息 where "

backtj=tiaojian

thisform.pageframe1.page1.edit1.value=""

close database

open database data\student

use 学生基本信息

for i=1 to fcount()-1

    thisform.pageframe1.page1.combo1.additem(fields(i))

endfor

6

thisform.pageframe1.page1.combo1.enabled=.t.

thisform.pageframe1.page1.combo2.enabled=.f.

thisform.pageframe1.page1.text1.readonly=.t.

thisform.pageframe1.page1.optiongroup1.enabled=.f.

 

thisform.pageframe1.page1.combo1对象     Click事件

功能：选择查询的字段

tiaojian=backtj

if len(alltrim(this.value))=0

   ret=messagebox("字段不能为空!",16,"查询")

else

   thisform.pageframe1.page1.combo2.enabled=.t.

   tiaojian=backtj+alltrim(this.value)

   thisform.pageframe1.page1.edit1.value=tiaojian  

endif

 

thisform.pageframe1.page1.combo2对象     Click事件

功能：选择查询条件

this.enabled=.f.

ziduan=alltrim(thisform.pageframe1.page1.combo1.value)

ftype=type("&ziduan")

do case

   case ftype="C"

        tiaojian=tiaojian+'"'+'"'

   case ftype="N"

        tiaojian=tiaojian

   case ftype="D"

        tiaojian=tiaojian+"ctod()"       

endcase

backtj=tiaojian

 

thisform.pageframe1.page1.text1对象     InteractiveChange事件

功能:获得查询的值

do case

        case ftype="C"

        tiaojian=stuff(backtj,len(backtj),0,alltrim(thisform.pageframe1.page1.text1.value))

endcase

thisform.pageframe1.page1.edit1.value=tiaojian 

 

Command1查询按钮              Click事件

功能：查询满足条件的记录，并将结果赋于表单的表格中

create sql view xsst1 as &tiaojian

 thisform.pageframe1.page1.grid1.recordsource="xsst1"

 drop view xsst1

 thisform.pageframe1.page1.combo1.enabled=.t.

 

7

 

四、调试分析

经过一段时间的使用，稳定性较好，没有出现误差。有些进程之间的互斥性不是太好，很可能造成数据表与数据表之间的冲突，所以使用的时候尽可能的把某项功能完成后再完成其它功能，也就是说尽可能少的打开某些窗口，以便造成文件冲突，但是不会影响到数据丢失以及更改数据的内容。

以下是某些功能的运行结果：

五、优点和缺点

优点：能实现学籍管理系统的大部分功能，能满足用户的需求，可移植性强。数据库之间的连接较完善。

缺点：某些数据表没有规划完善，如课程表和成绩表。学生基本信息表和系班级表存在删除异常，还值得改进。

六、用户使用说明书

    下面给出文字性说明，具体说明见系统的帮助说明。

1、系统维护

(1)系单位管理

①创建系

单击"系统维护/系单位管理",将弹出一个“系库维护”对话框。单击“创建”按钮，将弹出一个“创建系”对话框： 在"系名"中输入新的系名，在“系主任”中输入该系主任的姓名，单击确定即可创建新的系。

②更名系

首先在“系统维护”窗体中选择要更名的系，单击“更名”按钮，在弹出的对话框中输入要更名后的新名称，单击确定即可更改该系的名称，更改后与之相对应的成绩表和课程表、班级信息的系也会随着改变。

③删除系

在“系统维护”窗口中选择要删除的系，单击“删除”按钮，将弹出一个询问对话框，如果单击“是”，将删除改系，删除改系后，也会将该系的所有内容一起删除，如班级信息。

(2)系班级管理

系班级维护功能有：增加班级、删除班级、更改名称。在菜单栏中单击“系统维护/系班级管理”，将弹出一个“班级维护”对话框， 在系列表框中选择系，在班级列表框中会自动列出该系的所有班级，然后单击班级名，便可对班级进行操作。

①增加班级

在弹出的对话框中的“新增班级的名称”框中输入要增加的班级名称，然后单击确定，将会将新班级增加到所选的系中。

②删除班级

删除班级将会将该班级和所在班级的信息一同删除，请慎用。

③更改名称

单击要更改的班级，然后单击“更改名称”按钮，在弹出的对话框中输入新的名称，单击

“确定”即可，更改名称将会更改对应的班级信息。

（3）课程管理

课程管理可以对班级所选的课程进行增加和删除管理。

单击"系统维护/课程管理"将会弹出"课程维护"对话框：

①     增加课程

在“系统维护”中单击“增加课程”命令按钮，在弹出的对话框中输入新增加的课程名，单击确定即可。

②     删除课程

在“系统维护”中选中要删除的课程，单击“删除课程”命令按钮即可删除选中的课程。

（4）成绩库管理

成绩库管理可对班级增加成绩表。单击“系统维护/成绩库管理”，将会弹出一个对话框。

创建成绩表步骤如下：

选择系和所在的班级，单击学期，将会自动在列表框中列出本班组本期的课程。

①     添加课程

选中要添加的课程，单击“添加”即可将选中的课程添加到“要创建的课程字段”列表框中，单击“全部添加”按钮可添加所有课程。

②     移除课程

在“要创建的课程字段”中选中要删除的课程，单击删除即可删除选中的课程。也可单击“全部移去”可移去全部课程。

 

确定所要创建所选的课程后，单击“确定创建”。创建的表名将会自动生成，表名为：系+班级+第几期的成绩构成。

以上内容只是毕业设计作品的部分资料介绍,如果了解更多详情请联系客服QQ:57510459
     购买帮助>>