VF成绩管理系统ER图+流程图+总结结构图+数据流图 第7页
*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.Width = 50
cmdNext.Picture = (HOME()+"WIZARDS\WIZBMPS\WZNEXT.BMP")
cmdNext.Caption = ""
CMDNEXT.ToolTipText = "下一个记录"
cmdNext.ColorSource = 0
cmdnext.fontsize = 9
cmdnext.fontname = "宋体"
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
学生成绩查询界面如下图所示
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页