我对自定义类运用不太会，那为相关经验的高手给指点指点？
只是用过几次容器类编程，迫切需要掌握类编程。老用例程编总觉得束缚手脚。高手指点指点。我给分。 问题点数：100、回复次数：4Top
1 楼computerdragon（dragon）回复于 2003-12-03 08:56:24 得分 10
转：
http://www.cnbizsoft.com/tech/vfp60.htm
一个例子你可以看看，也许有用。Top
2 楼sunsunup（細水長流）回复于 2003-12-03 09:48:00 得分 10
先寫一個類, 再把類調出來就可以了. 除了容器類, 很多基本類都可以加工.Top
3 楼zhongyj（）回复于 2003-12-05 13:11:38 得分 40
select 0
create cursor temptable (name c(10),sex C(1),age i(4))
oform=createobject("form")
oform.addobject("grid1","Grid")
oform.addobject("employee1","employee")
oform.addobject("addcmd1","addcmd")
oform.addobject("deletecmd1","deletecmd")
oform.addobject("close1","closecmd")
oform.addobject("name1","textbox")
oform.addobject("sex1","textbox")
oform.addobject("age1","spinner")
oform.visible=.T.
oform.name1.visible=.T.
oform.name1.top=0
oform.name1.controlsource="thisform.employee1.cname"
oform.sex1.visible=.T.
oform.sex1.left=100
oform.sex1.controlsource="thisform.employee1.sex"
oform.age1.visible=.T.
oform.age1.controlsource="thisform.employee1.age"
oform.age1.left=200
oform.addcmd1.visible=.T.
oform.deletecmd1.visible=.T.
oform.close1.visible=.T.
oform.grid1.visible=.T.
oform.grid1.top=60
oform.grid1.recordsource="temptable"
Read event
oform.release
use in temptable
Define CLASS closecmd AS commandbutton
Top=30
Left=200
width=100
Height=24
Caption="Close"
Procedure click
Clear event
Endproc
Enddefine
Define CLASS employee AS custom
cname='default'
sex='M'
age=20
Enddefine
Define CLASS deletecmd AS commandbutton
Top=30
Left=100
width=100
Height=24
Caption="Delete"
Procedure click
delete
thisform.grid1.refresh
Endproc
Enddefine
Define CLASS addcmd AS commandbutton
Top=30
Left=0
width=100
Height=24
Caption="Add"
Procedure click
local oBusinessRules
oBusinessRules=createobject("BusinessRules")
if !oBusinessRules.addemployee(thisform.employee1,"temptable")
messagebox("新增失敗")
else
thisform.grid1.refresh
endif
Endproc
Enddefine
Define CLASS BusinessRules AS custom
Procedure addemployee
parameters pemployee,destable
local lSuccess,oDataAccess
lSuccess=.T.
if empty(pemployee.cname)
lSuccess=.F.
else
oDataAccess=createobject("DataAccess")
oDataAccess.addrecord(pemployee,destable)
Endif
return lSuccess
Endproc
Enddefine
Define CLASS DataAccess AS custom
Procedure addrecord
parameters pemployee,destable
if used(destable)
insert into (destable) values (pemployee.cname,pemployee.sex,pemployee.age)
endif
Endproc
Enddefine
Top
4 楼magnetmoon（天涯明月刀）回复于 2003-12-05 17:46:37 得分 40
public fa,fb
fa=createobject('form')
fa.show()
fb=createobject('you_form')
fb.show()
define class you_form as form
caption='aaa'
enddefine
Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
