【vfp开源代码栏目提醒】:本文主要为网学会员提供程序27.prg,希望对需要程序27.prg网友有所帮助,学习一下!
SET DEFAULT TO d:\
vfp\教务信息\
USE d:\vfp\教务信息\学生信息表.dbf
SELECT 学生信息表
myform=CREATEOBJECT('form')
myform.width=500
myform.addobject('com','mycmd')
myform.addobject('mygrid','grid')
WITH myform.mygrid
.columncount=4
.left=25
.width=400
.visible=.T.
ENDWITH
myform.mygrid.setall("dynamicbackcolor","iif(性别='女',RGB(0,255,255),RGB(255,255,255))","column")
WITH myform.mygrid
.column1.header1.caption=FIELD(1)
.column1.header1.caption=FIELD(2)
.column1.header1.caption=FIELD(3)
.column1.header1.caption=FIELD(4)
ENDWITH
myform.show
READ EVENTS
DEFINE CLASS mycmd as CommandButton
caption='退出'
cancel=.T.
left=230
top=200
height=50
width=50
visible=.T.
PROCEDURE click
CLEAR EVENTS
CLOSE ALL
ENDPROC
ENDDEFINE