【vfp开源代码栏目提醒】:网学会员为需要vfp开源代码的朋友们搜集整理了绑定数据源示例.prg相关资料,希望对各位网友有所帮助!
PUBLIC oForm1
oForm1=NEWOBJECT("form1")
oForm1.Show
RETURN
DEFINE CLASS form1 AS Form
Top=0
Left=0
Height=118
Width=398
DoCreate=.T.
Caption="绑定数据源示例"
Name="Form1"
ADD OBJECT Label1 AS Label WITH ;
Caption=":", ;
Height=16, ;
Left=12, ;
Top=15, ;
Width=38, ;
Name="Label1"
ADD OBJECT txtName AS Textbox WITH ;
ControlSource="curTemp.cName", ;
Height=25, ;
Left=48, ;
Top=12, ;
Width=114, ;
Name="txtName"
ADD OBJECT Shape1 AS Shape WITH ;
Top=54, ;
Left=42, ;
Height=2, ;
Width=342, ;
SpecialEffect=0, ;
Style=0, ;
Name="Shape1"
ADD OBJECT Label2 AS Label WITH ;
Caption="爱好", ;
Height=16, ;
Left=12, ;
Top=48, ;
Width=24, ;
Name="Label2"
ADD OBJECT chkAngle AS CheckBox WITH ;
Top=72, ;
Left=42, ;
Height=16, ;
Width=57, ;
Caption="钓鱼", ;
ControlSource="curTemp.lAngle", ;
Name="chkAngle"
ADD OBJECT chkClimb AS CheckBox WITH ;
Top=72, ;
Left=144, ;
Height=16, ;
Width=57, ;
Caption="登山", ;
ControlSource="curTemp.lClimb", ;
Name="chkClimb"
ADD OBJECT chkSwim AS CheckBox WITH ;
Top=72, ;
Left=240, ;
Height=16, ;
Width=57, ;
Caption="游泳", ;
ControlSource="curTemp.lSwim", ;
Name="chkSwim"
ADD OBJECT cmdPrev AS CommandButton WITH ;
Top=12, ;
Left=252, ;
Height=25, ;
Width=67, ;
Caption="上一条", ;
Name="cmdPrev"
ADD OBJECT cmdNext AS CommandButton WITH ;
Top=12, ;
Left=318, ;
Height=25, ;
Width=66, ;
Caption="下一条", ;
Name="cmdNext"
PROCEDURE Load
*!* 建立
演示用的数据表
CREATE CURSOR curTemp (cName C(10),lAngle L,lClimb L,lSwim L)
INSERT INTO curTemp (cName,lAngle,lClimb,lSwim) ;
VALUES ("刘长春",.T.,.F.,.T.)
INSERT INTO curTemp (cName,lAngle,lClimb,lSwim) ;
VALUES ("王燕",.F.,.T.,.T.)
INSERT INTO curTemp (cName,lAngle,lClimb,lSwim) ;
VALUES ("高树立",.F.,.T.,.F.)
ENDPROC
PROCEDURE cmdPrev.Click
SKIP -1 &&向前移动一条记录
IF BOF()
This.Enabled=.F.
ENDIF
IF NOT EOF()
Thisform.cmdNext.Enabled=.T.
ENDIF
Thisform.Refresh
ENDPROC
PROCEDURE cmdNext.Click
SKIP &&向后移动一条记录
IF EOF()
This.Enabled=.F.
ENDIF
IF NOT BOF()
Thisform.cmdPrev.Enabled=.T.
ENDIF
Thisform.Refresh
ENDPROC
ENDDEFINE