发布两免费控件，我觉得好用，大家用用，看有什么要改进的。
目前只在D6下试过，没在D7下用，谁有D7的试试看能不能用，请回复。
(Dbtree and ADO万能查询)，都有DEMO，大家自己看看用，我很懒没写说明，有什么就问(看不懂)。
http://www.myjinsui.com/down/sort.asp?classid=9
目前只在D6下试过，没在D7下用，谁有D7的试试看能不能用，请回复。
(Dbtree and ADO万能查询)，都有DEMO，大家自己看看用，我很懒没写说明，有什么就问(看不懂)。
http://www.myjinsui.com/down/sort.asp?classid=9
支持一下，基本上摈弃了sql了
2、分隔符(treecoedseperate),:可用规定字符为每一级的分隔符，以该字符进行分隔，如用‘-’等。 JsDbTree1.DataSource:=编码数据库;
JsDbTree1.DataField:=显示编码用字段;
JsDbTree1.McData:=显示名称用的字段;
JsDbTree1.Images:=显示树的图片；
JsDbTree1.Menu:=菜单按钮按下后显示的菜单;
JsDbTree1.Title.Caption:=树的名称(标题);
JsDbTree1.TreeCodeFormat:=编码级方式的编码格式;
JsDbTree1.TreeCodeSeperate:=分隔符方式的分隔字符;
JsDbTree1.TreeName:=树的根名;
JsDbTree1.ButtonMenuVisible:=是否显示菜单按钮;
JsDbTree1.ButtonCloseVisible:=是否显示关闭按钮;
JsDbTree1.ButtonRefreshVisible:=是否显示刷新按钮;
JsDbTree1.OnTreeChange:=在树选择项更改时;
JsDbTree1.TreeRefresh=控制树刷新;
2、分隔符(treecoedseperate),:可用规定字符为每一级的分隔符，以该字符进行分隔，如用‘-’等。 JsDbTree1.DataSource:=编码数据库;
JsDbTree1.DataField:=显示编码用字段;
JsDbTree1.McData:=显示名称用的字段;
JsDbTree1.Images:=显示树的图片；
JsDbTree1.Menu:=菜单按钮按下后显示的菜单;
JsDbTree1.Title.Caption:=树的名称(标题);
JsDbTree1.TreeCodeFormat:=编码级方式的编码格式;
JsDbTree1.TreeCodeSeperate:=分隔符方式的分隔字符;
JsDbTree1.TreeName:=树的根名;
JsDbTree1.ButtonMenuVisible:=是否显示菜单按钮;
JsDbTree1.ButtonCloseVisible:=是否显示关闭按钮;
JsDbTree1.ButtonRefreshVisible:=是否显示刷新按钮;
JsDbTree1.OnTreeChange:=在树选择项更改时;
JsDbTree1.TreeRefresh=控制树刷新;
双击控件会弹出字段编辑器，其中displaylabel:为查询时显示的中文名(或其他名字)，fieldName为对应的字段。在字段编辑器中添加的字段才能在查询时允许使用，如不用字段编辑器，则查询时使用数据表中所有字段并不改变字段名。
TQADOCQuery1.Execute(true);// =true 返回全部SQL语句，为false返回查询部份；
TQADOCQuery1.DateSeperate:='#'; 为#Aaccse中的日期查询用；
TQADOCQuery1.indexName:=;为查询时以该字段索引；
TQADOCQuery1.tableName:=为查询用的表.
以前网上有类似的，但有很多改进，如可以用“包含”(Access中)
1、“武”设置起来麻烦；如：不同的表每次要建立联接，要查询的字段必须手工加，如果有几十个字段那还不麻烦死了。
2、“武”只有常用的>、=、<、。没有“包含”；
3、“武”不能在查询中建立新的索引；
4、“武”控控件返回后不能直接使用；
5、“武”控件在进行条件选择时特别是“选取”时不能屏蔽掉重复的选项，
6、“武”控件不能用作数据联接，而我这个可以，可以当ADOTabled用。界面是与他的控件相同，应为我认为那样的界面比较好，
新增加了对逻辑型字段的查询,(用于组合查询时有很大帮助)。
注意：在access与SQL中查询语句不同，所以新增加了FTQBoole属性，nbAccess选项时返回的语句为XX=true，同时dateseperate属性自动变为#, 而nbSqlServer时返回为XX=1，同时dateseperate自动变为'，
object JsDbTree1: TJsDbTree
Left = 0
Top = 40
Width = 137
Height = 377
Hint = #35774#22791#32534#30721
ShowHint = True
Title.Caption = #32534#30721#26641
Title.Font.Charset = DEFAULT_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -11
Title.Font.Name = 'MS Sans Serif'
Title.Font.Style = []
OnHide = JsDbTree1Hide
DataField = 'id'
DataSource = DataSource1
McData = 'name'
Menu = JsDbTree1.Menu
Images = ImageList2
TreeCodeSeperate = '-'
TreeName = #35774#22791#32534#21495
OnTreeChange = JsDbTree1TreeChange
end
如何色默认显示是name,怎样新增,删除?
我的e-mail:[email protected]
对不起，我将8月15的控件传上去了，而DEMO中用的是9月的控件，
我也把最新的又传了一次，默认显示是name。
怎样新增,删除：目前是在数据表中进行，再刷新一次树。
但我在控件中留有新增、删除、编码增位、编码减位等项目，只是目前控件这部份不是很完善，所以被屏蔽了，下一个版本发布时就会有的。谢谢大家的支持。
谢谢你的支持
我试过了，可以
再次感谢！
这个控件很好，避免了我写递归，
我现在正在实现新增，删除功能
完后把代码发上来，仅供参考