发布两免费控件,我觉得好用,大家用用,看有什么要改进的。
目前只在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。
怎样新增,删除:目前是在数据表中进行,再刷新一次树。
但我在控件中留有新增、删除、编码增位、编码减位等项目,只是目前控件这部份不是很完善,所以被屏蔽了,下一个版本发布时就会有的。谢谢大家的支持。
谢谢你的支持
我试过了,可以
再次感谢!
这个控件很好,避免了我写递归,
我现在正在实现新增,删除功能
完后把代码发上来,仅供参考