双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

请大家帮我一下,谢谢.

2004-09-23 11:33:37 110 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

tfy_002 墨衍会员 · AI 创作全网分发关注 + 加入社区

Neo4j 智能供应链应用源代码简析本文简析Neo4j智能供应链应用的源代码，让你也可以快速开发自己的供应链应用。阅读详情

我想用vfp做一个犹如在windows98资源管理器的树型目录的向导,该如何实现.

...全文

无源低通滤波器无源RC滤波器“滤除”不需要的信号，因为它们分离并允许仅通过其频率的正弦输入信号，最简单的是无源低通滤波器网络。在低频应用（高达100kHz）中，无源滤波器通常使用简单的RC（电阻-电容）网络构建，而高频滤波器（高于100kHz）通常由RLC（电阻-电感-电容）元件制成。无源滤波器由电阻器、电容器和电感器等无源元件组成，没有放大元件（晶体管、运算放大器等），因此没有信号增益，因此它们的输出电平始终小于输入。滤波器是根据它们允许通过它们的信号的频率范围来命名的，同时阻挡或“衰减”其余部分。阅读详情

tfy_002

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

tfy_002 2004-09-24

打赏
举报

谢谢你们

dfwxj 2004-09-24

打赏
举报

用ACTIVEX控件TREEVIEW

tfy_002 2004-09-24

打赏
举报

我调试了一个怎么不可以.为什么说该句为不合方法 IF FILE("xm.dbf") 我还需要在添加其它数据表或控件吗?

xclzteb 2004-09-24

打赏
举报

楼上的可以了。

十豆三 2004-09-24

打赏
举报

转贴------------------------------

TreeView控件使用示例

　　以下代码是本演示的全部代码，你只要把它拷贝到任一PRG文件中，执行该文件你就可以看到相应的效果。该代码段在执行后会在目录下自动生成一个Xm.dbf文件，运行后可自行删除。

CLEAR ALL
CLOSE ALL
CLEAR PROGRAM

PUBLIC TreeView
Create_Dbf()
oForm = CREATEOBJECT("TreeView")
oForm.show()
RETURN

DEFINE CLASS TreeView AS form

Height = 258
Width = 388
DoCreate = .T.
AutoCenter = .T.
Caption = "TreeView 控件示例"
MaxButton = .F.
MinButton = .F.
WindowType = 1
BackColor = RGB(128,128,255)
Name = "TreeView"
Key = 0

ADD OBJECT label1 AS label WITH ;
BackStyle = 0, ;
Caption = "", ;
Height = 102, ;
Left = 198, ;
Top = 16, ;
Width = 180, ;
Name = "Label1"

ADD OBJECT command1 AS commandbutton WITH ;
Top = 211, ;
Left = 217, ;
Height = 32, ;
Width = 149, ;
Caption = "退出演示", ;
Name = "Command1"

ADD OBJECT command2 AS commandbutton WITH ;
Top = 173, ;
Left = 217, ;
Height = 32, ;
Width = 67, ;
Caption = "添加节点", ;
Name = "Command2"

ADD OBJECT command3 AS commandbutton WITH ;
Top = 173, ;
Left = 299, ;
Height = 32, ;
Width = 67, ;
Caption = "删除节点", ;
Name = "Command3"

ADD OBJECT tree AS olecontrol WITH ;
　　　　OLECLASS="COMCTL.TreeCtrl.1",;
　　　　Top = 0,;
　　　　Left = 0,;
　　　　Width = 182,;
　　　　Height = 258,;
　　　　HideSelection = .F.

PROCEDURE Init
Select xm
o = This.Tree
Scan
　　If AllTrim(Node) = '0_'
　　　　o.Nodes.Add(, 1, AllTrim(Key), AllTrim(Text))
　　Else
　　　　o.Nodes.Add(AllTrim(Node), 4, AllTrim(Key), AllTrim(Text))
　　EndIf
EndScan
　　　　This.Key = o.Nodes.Count
　　　　o.Setfocus
ENDPROC

PROCEDURE Tree.Init
　　　　This.LabelEdit = 1
　　　　This.LineStyle = 1
　　　　This.Indentation = 18
ENDPROC

PROCEDURE command1.Click
CLOSE ALL
RELEASE ThisForm
ENDPROC

PROCEDURE command2.Click
o = ThisForm.Tree
IF ISNULL(o.SelectedItem)
　　RETURN
ENDIF
ThisForm.Key = ThisForm.Key + 1
nKey = ALLTRIM(STR(ThisForm.Key)) + "_"
nNode = o.SelectedItem.Key
nText = "新添加节点"
o.Nodes.Add(nNode, 4, nKey, nText)
o.Setfocus
ENDPROC

PROCEDURE command3.Click
o = ThisForm.Tree
IF ISNULL(o.SelectedItem)
　　RETURN
ENDIF
Ip = o.SelectedItem.Index
o.Nodes.Remove(Ip)
o.Setfocus
ENDPROC

PROCEDURE Tree.NodeClick
LPARAMETERS node
IF ISNULL(This.SelectedItem)
　　RETURN
ENDIF
Ip = OCCURS("\", Node.FullPath)
ThisForm.label1.Caption = "你现在选中是: 第 " + ALLTRIM(STR(Ip + 1)) + " 层节点" + CHR(13) + CHR(13) +;
　　　　　　　　　　　　 "节点Key 值是:　　" + Node.Key + CHR(13) + CHR(13) +;
　　　　　　　　　　　　 "节点Text值是:　　" + Node.Text
ENDPROC

ENDDEFINE

PROCEDURE Create_Dbf

　　IF FILE("xm.dbf")
　　　　DELETE FILE xm.dbf recycle
　　ENDIF
　　CREATE TABLE xm(KEY c(2), Node c(2), Text c(20))
　　INSERT INTO xm(Key, Node, Text) ValUes("1_", "0_", "浙江省")
　　INSERT INTO xm(Key, Node, Text) ValUes("2_", "0_", "广东省")
　　INSERT INTO xm(Key, Node, Text) ValUes("3_", "1_", "诸暨市")
　　INSERT INTO xm(Key, Node, Text) ValUes("4_", "2_", "东莞市")
　　INSERT INTO xm(Key, Node, Text) ValUes("5_", "3_", "安华镇")
　　INSERT INTO xm(Key, Node, Text) ValUes("6_", "4_", "石龙镇")
　　RETURN

✦双11狂欢大促✦

请大家帮我一下,谢谢.

相关推荐

双11狂欢大促