请问DevExpress的dbTree如何使用?只有这么多份了:((45分)

  • 主题发起人 主题发起人 becauseI
  • 开始时间 开始时间
B

becauseI

Unregistered / Unconfirmed
GUEST, unregistred user!
千万不要叫我去搜索,我已经搜索过了。。
自带的 demo 不够详细
 
SQL 的表结构
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tabdatabase]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[tabdatabase]
GO
CREATE TABLE [dbo].[tabdatabase] (
[fitem_id] [int] NOT NULL ,--序号
[fitem_name_e] [varchar] (20) NOT NULL ,--英文名
[fitem_name_c] [varchar] (40) NULL ,--中文名
[fparent_id] [int] NOT NULL ,--父节点
[fitem_level] [int] NULL --层次

) ON [PRIMARY]
GO
ALTER TABLE [dbo].[tabdatabase] WITH NOCHECK ADD
CONSTRAINT [PK_tabdatabase] PRIMARY KEY NONCLUSTERED
(
[fitem_id]
) ON [PRIMARY]
GO
CREATE INDEX [IX_tabdatabase] ON [dbo].[tabdatabase]([fitem_name_c]) ON [PRIMARY]
GO
CREATE INDEX [IX_tabdatabase_1] ON [dbo].[tabdatabase]([fitem_name_e]) ON [PRIMARY]
GO

DELPHI中代码
ADODataSet1.Close;
ADODataSet1.CommandText := '';
ADODataSet1.CommandText := 'select * from tabdatabase order by fitem_name_e';
ADODataSet1.Open;
dxDBTreeView1.DataSource := DataSource1;
dxDBTreeView1.KeyField := 'fitem_id';
dxDBTreeView1.ParentField := 'fparent_id';
dxDBTreeView1.ListField := 'fitem_id';
dxDBTreeView1.DisplayField := 'fitem_name_e';
dxDBTreeView1.Images := Imgtv;
dxDBTreeView1.ImageIndexField := 'fitem_level';
dbedit1.DataSource := DataSource1;
dbedit1.DataField := 'fitem_id';
 
多谢您的指导,您能告诉我一下fitem_id是什么样的编码规则吗?多谢!!!!![:)]
 
fitem_id fitem_name_e fitem_name_c fparent_id fitem_level
1 AA 电脑 0 1
2 BB 鼠标 1 2
3 CC 键盘 1 2
4 DD 鼠标球 2 3
5 EE 显示器 1 2
...
自己多动手!
 
多谢指点!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部