VF成绩管理系统ER图+流程图+总结结构图+数据流图 第5页

程序设计

**main.prg***

set stat bar off

set talk off

set safe  off

set dele on

set cent  on

set date to ansi

set debug off

set default to sys(5) + sys(2003)

release window  常用

_screen.backcolor=rgb(0,255,255)

_screen.caption="福州大学学生成绩管理系统 by  林玉焰"

_screen.icon="bmp\01.ico"

_screen.picture="bmp\bmmain.jpg"&&插入图片

zoom window screen  max

_screen.controlbox=.f.

set sysmenu  off

ON SHUTDOWN quit

public xg,xxlr,cjlr,xxcx,cjcx,xxdy,cjdy,ydxx

do form bmain

READ events

set sysmenu to default

close all

clear

4.3子程序设计

4.3.1系统登录

    登录界面如下图

用户根据自己的用户名和初始密码666666进入系统后可自行修改密码

***bmain.scx**

***确认登录按钮的 Click事件代码***

local lcUser,lcPass

lcUser = thisform.combo1.value

*messagebox(lcUser)

lcPass = thisform.text1.value

locate for allt(Yhm) = allt(lcUser)

if allt(Mm) = allt(lcPass)

  if ((Yhm==lcUser)and(Mm==lcPass))

      xg = .t.

      xxlr = .t.

      cjlr = .t.

      xxcx = .t.

      cjcx = .t.

      xxdy = .t.

      cjdy = .t.

      ydxx = .t.

  endif

  do 菜单.mpr

thisform.release

else

  messagebox("请检查密码输入是否正确!")

endif

***退出系统按钮的 Click事件代码***

do form 退出系统

4.3.2系统主界面

       系统主界面如下图所示

整个系统下有：档案管理、成绩管理、报表打印、系统管理、退出系统五大模块。

4.3.3档案管理

档案管理模块下有：学生信息录入和学生信息查询2个功能

学生信息录入是对学生信息进行增加、修改、删除等功能。

学生信息查询是对学生信息进行查询功能。 

学生信息录入界面如下图所示

***BUTTONSET1代码***

DEFINE CLASS picbtns AS txtbtns

Width = 513

   Height = 29

   wizbmppath = (HOME()+"WIZARDS\WIZBMPS\")

   fontsize = 9

   fontname = "宋体"

   Name = "picbtns"

   cmdPrev.Top = 4

   cmdPrev.Left = 51

   cmdPrev.Width = 50

   cmdPrev.Picture = (HOME()+"WIZARDS\WIZBMPS\WZBACK.BMP")

   cmdPrev.Caption = ""

   CMDPREV.ToolTipText = "前一个记录"

   cmdprev.fontsize = 9

   cmdprev.fontname = "宋体"

   cmdPrev.Name = "cmdPrev"

   cmdNext.Top = 4

   cmdNext.Left = 102

   cmdNext.ColorSource = 0

   cmdnext.fontsize = 9

    cmdnext.fontname = "宋体"

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页