多行选择记录的grid的实例
出处:网络

PUBLIC oForm

oForm= CREATEOBJECT('clsmultigrid')

oForm.ADDOBJECT('Grid1','Grid')

WITH oForm.Grid1
.COLUMNCOUNT = 3
.HEIGHT = 288
.PANEL = 1
.WIDTH = 320
.LEFT = 24
.TOP = 24
.Column1.WIDTH = 17
.Column1.NAME = "Column1"
.Column1.Header1.CAPTION = ""
.Column1.ADDOBJECT('Check1','clscheck')
.Column1.Check1.VISIBLE = .T.
.Column1.CURRENTCONTROL = 'Check1'
.Column1.Text1.VISIBLE = .F.
.Column1.REMOVEOBJECT('Text1')
.Column1.SPARSE = .F.
.Column2.WIDTH = 148
.Column2.NAME = "Column2"
.Column2.Header1.CAPTION = "NAME"
.Column3.WIDTH = 114
.Column3.NAME = "Column3"
.Column3.Header1.CAPTION = "PHONE"
.Column3.FORMAT = "R"
.Column3.INPUTMASK = "(###)###-####"
.SETALL('DynamicBackColor', 'IIF(selecter, RGB(0,219,219), RGB(255,255,255))', 'COLUMN')
.VISIBLE = .T.
ENDWITH

oForm.VISIBLE = .T.

DEFINE CLASS clsmultigrid AS FORM

TOP = 0
LEFT = 0
HEIGHT = 334
WIDTH = 376
DOCREATE = .T.
CAPTION = "Form"
WINDOWTYPE = 1
WINDOWSTATE = 0
NAME = "clsmultigrid"

PROCEDURE LOAD
CREATE CURSOR crsTemp (selecter L, thename c(25), thephone c(10))
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "JOHN SMITH", "1111111111")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "AMY SUTTON", "2222222222")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "BILL BRADLEY", "3333333333")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "LUCY LUI", "4444444444")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "CHUCK NORRIS", "5555555555")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "BRUCE LEE", "6666666666")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "KATHERINE HEPBURN", "7777777777")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "JIM WALKER", "8888888888")
INSERT INTO crsTemp (selecter, thename, thephone) valueS (.F., "SANDY LITTLETON", "9999999999")
GO TOP IN "crsTemp"
ENDPROC

ENDDEFINE

DEFINE CLASS clscheck AS CHECKBOX
HEIGHT = 17
WIDTH = 18
AUTOSIZE = .T.
CAPTION = ""
NAME = "clscheck"

PROCEDURE CLICK
IF DODEFAULT()
KEYBOARD '{DNARROW}'
ENDIF
ENDPROC

ENDDEFINE

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明