摘要：
下载首先下载,VCLSkin文件,可以到Delphi园地 http://www.delphifans.com/Delphi盒子 http://www.2ccc.com/安装*最好安装前把文件放到Lib文件夹下:1.把下载的文件解压后放到Delphi目录的Lib文件夹下2.启动Delphi>Open找到刚才放的*.dpk和*.pas选中3.点Install,Compile,Delphi最右边会出现个VCL Skin页,里面会有SkinData和SkinStore最简单的实现如下:1 新建工程,在 Form1上放置Skindata 控件。2 设置 Skindata的skinstore 属性 阅读全文
摘要：
摘自：一个表，三个字段Id : 结点的ID整型的ParentId : 父结点的ID，没有父结点则为0Name : 结点的文本。{ 装入目录 }procedure TMainForm.LoadFolder;function GetParentNode(Id: integer): TTreeNode;vari iCount:integer;beginresult := nil;with TreeView dobeginiCount := Items.Count - 1;for i := iCount downto 0 doif integer(Items[i].Data) = Id thenbeg 阅读全文
摘要：
#4楼 得分：0回复于：2011-06-17 09:51:44[code=Delphi(Pascal)]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Menus;type TAInfo = class private FID: integer; FPId: integer; FName: String; public constructor Create ; overload ; co 阅读全文
摘要：
上面是数据表。painfo=^Tainfo;Tainfo=recordbh,cname,lastbh:string[100];end;procedure TForm1.SetTreeView(atreenode: TTreeNode; aIndex: string); //递归函数varadoquery: TAdoquery;temp: TTreeNode;pif: PAInfo;beginadoquery := TAdoquery.Create(nil);try with adoquery do begin Connection := self.ADOConnection1; close; 阅读全文
摘要：
新手来看:如何设计表结构便于treeview显示？食品饮料类--饮料类--果汁类--山楂汁--柠檬汁--碳酸类--可口可乐--百事可乐--酒类--啤酒类--烟台啤酒--青岛啤酒--白酒类--茅台--五粮液办公设备类--…………以此类推请问该如何建表，便于用treeview显示，而且能反映他们之间的类别关系方法二：一个表字段如下：id(自动编号)fullname(文本)ProgramID(文本)programID是5位一段的数字，比如食品饮料类：00001饮料类：0000100001果汁类：000010000100001山楂汁：00001000010000100001柠檬汁:0000100001 阅读全文
摘要：
1.选取增加的节点var Nodeo: TTreeNode; begin Nodeo := TreeView1.Selected; TreeView1.Items.AddChild(Nodeo, '子节点 '); ADOQuery1.Edit; DBGrid.Fields[1].AsString := '子节点 '; ADOQuery1.Post; ... end;2.给你整个递归的 (一)procedure TFrmMain.Button1Click(Sender: TObject);var GNode:TTreeNode;begin with dm.... 阅读全文
摘要：
unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, ADODB, StdCtrls;type PNodeInfo=^TNodeInfo; TNodeInfo=record ID:string; FullName:string; Url:string; end; TForm3 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQue 阅读全文
摘要：
TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：1、count，节点个数。2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个节点，则后添加的节点将排在前面。该函数返回新添加的节点。AddChildFirst添加第一个子节点，要 阅读全文
摘要：
一、引言：TreeView控件适合于表示具有多层次关系的数据。它以简洁的界面，表现形式清晰、形象，操作简单而深受用户喜爱。而且用它可以实现ListView、ListBox所无法实现的很多功能，因而受到广大程序员的青睐。树形结构在Windows环境中被普遍应用，但在数据库开发中面对层次多、结构复杂的数据，如何快速构造树形目录并实现导航呢？二、实现关键技术：在Delphi提供的控件中包含了TreeView控件，但树的具体形成还需要用户编写代码。即它的列表项要在程序中动态添加，而这些列表数据通常由用户已录入在数据库表中，并作为数据库维护的一项内容。许多人用TreeView构造树形目录时，通常都使用多 阅读全文
摘要：
CREATE PROC [dbo].[Sp_InputExcel2003toSQL]@dir NVARCHAR(100),--EXCEL文件存放路径：如D:\ExcelFiles@tabname NVARCHAR(50) --定义导入到数据库中的表名ASSET NOCOUNT ONCREATE TABLE #t([filename] NVARCHAR(1000))IF RIGHT(@dir,1)<>'\' SET @dir=@dir+'\' DECLARE @cmd NVARCHAR(1000) declare @str varchar(30)dec 阅读全文