VF成绩管理系统ER图+流程图+总结结构图+数据流图 第6页
cmdNext.Name = "cmdNext"
cmdTop.Top = 4
cmdTop.Left = 0
cmdTop.Width = 50
cmdTop.Picture = (HOME()+"WIZARDS\WIZBMPS\WZTOP.BMP")
cmdTop.Caption = ""
CMDTOP.ToolTipText = "第一个记录"
cmdtop.fontsize = 9
cmdtop.fontname = "宋体"
cmdTop.Name = "cmdTop"
cmdEnd.Top = 4
cmdEnd.Left = 153
cmdEnd.Width = 50
cmdEnd.Picture = (HOME()+"WIZARDS\WIZBMPS\WZEND.BMP")
cmdEnd.Caption = ""
CMDEND.ToolTipText = "最后一个记录"
cmdend.fontsize = 9
cmdend.fontname = "宋体"
cmdEnd.Name = "cmdEnd"
cmdFind.Top = 4
cmdFind.Left = 204
cmdFind.Width = 50
cmdFind.Picture = (HOME()+"WIZARDS\WIZBMPS\WZLOCATE.BMP")
cmdFind.Caption = ""
CMDFIND.ToolTipText = "查找记录"
cmdfind.fontsize = 9
cmdfind.fontname = "宋体"
cmdFind.Name = "cmdFind"
cmdPrint.Top = 4
cmdPrint.Left = 255
cmdPrint.Width = 50
cmdPrint.Picture = (HOME()+"WIZARDS\WIZBMPS\WZPRINT.BMP")
cmdPrint.Caption = ""
CMDPRINT.ToolTipText = "打印报表"
cmdprint.fontsize = 9
cmdprint.fontname = "宋体"
cmdPrint.Name = "cmdPrint"
cmdExit.Top = 4
cmdExit.Left = 459
cmdExit.Width = 50
cmdExit.Picture = (HOME()+"WIZARDS\WIZBMPS\WZCLOSE.BMP")
cmdExit.Caption = ""
CMDEXIT.ToolTipText = "退出表单"
cmdexit.fontsize = 9
cmdexit.fontname = "宋体"
cmdExit.Name = "cmdExit"
cmdAdd.Top = 4
cmdAdd.Left = 306
cmdAdd.Width = 50
cmdAdd.Picture = (HOME()+"WIZARDS\WIZBMPS\WZNEW.BMP")
cmdAdd.Caption = ""
CMDADD.ToolTipText = "添加 / 保存记录"
cmdadd.fontsize = 9
cmdadd.fontname = "宋体"
cmdAdd.Name = "cmdAdd"
cmdDelete.Top = 4
cmdDelete.Left = 408
cmdDelete.Width = 50
cmdDelete.Picture = (HOME()+"WIZARDS\WIZBMPS\WZDELETE.BMP")
cmdDelete.Caption = ""
CMDDELETE.ToolTipText = "删除记录"
cmddelete.fontsize = 9
cmddelete.fontname = "宋体"
cmdDelete.Name = "cmdDelete"
cmdEdit.Top = 4
cmdEdit.Left = 357
cmdEdit.Width = 50
cmdEdit.Picture = (HOME()+"WIZARDS\WIZBMPS\WZEDIT.BMP")
cmdEdit.Caption = ""
CMDEDIT.ToolTipText = "编辑 / 还原记录"
cmdedit.fontsize = 9
cmdedit.fontname = "宋体"
cmdEdit.Name = "cmdEdit"
PROCEDURE Init
TxtBtns::Init()
THISFORM.ShowTips = .T.
ENDPROC
PROCEDURE setcaption
IF !THIS.EditMode
THIS.cmdAdd.Picture = THIS.wizbmppath+"wznew.bmp"
THIS.cmdEdit.Picture = THIS.wizbmppath+"wzedit.bmp"
THIS.cmdAdd.DownPicture = THIS.wizbmppath+"wznew.bmp"
THIS.cmdEdit.DownPicture = THIS.wizbmppath+"wzedit.bmp"
ELSE
THIS.cmdAdd.Picture = THIS.wizbmppath+"wzsave.bmp"
THIS.cmdEdit.Picture = THIS.wizbmppath+"wzundo.bmp"
THIS.cmdAdd.DownPicture = THIS.wizbmppath+"wzsave.bmp"
THIS.cmdEdit.DownPicture = THIS.wizbmppath+"wzundo.bmp"
ENDIF
ENDPROC
ENDDEFINE
***班级查询按钮的 Click事件代码***
local lcBj
m.lcBJ = allt(thisform.combo1.value)
ThisForm.Grid1.RecordSource = ""
Select * from ydy where allt(bj) = m.lcBj into cursor ydcj_
Thisform.LockScreen = .t.
ThisForm.Grid1.RecordSource = "ydcj_"
ThisForm.Grid1.RecordSourceType = 1
ThisForm.Grid1.Init()
ThisForm.LockScreen = .f.
***人员查询按钮的 Click事件代码***
local lcXm
m.lcXm = allt(thisform.text1.value)
ThisForm.Grid1.RecordSource = ""
Select * from ydy where allt(xm) = m.lcXm into cursor ydcj_
Thisform.LockScreen = .t.
ThisForm.Grid1.RecordSource = "ydcj_"
ThisForm.Grid1.RecordSourceType = 1
ThisForm.Grid1.Init()
ThisForm.LockScreen = .f.
成绩管理模块下有：学生成绩录入和学生成绩查询2个功能
学生成绩录入是对学生成绩进行增加、修改、删除等功能。
学生成绩查询是对学生成绩进行查询功能。
学生成绩录入界面如下图所示
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页