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

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] 下一页

Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有