10 2011 档案
摘要：关于动态创建PopupMenu的问题http://topic.csdn.net/t/20040825/09/3306672.html动态创建菜单 var mmiTemp:TMenuItem; begin mmiTemp:=TMenuItem.Create(); mmiTemp.Caption:= '标题 ';// mmiTemp.OnClick:= actLoadExecute;//设定action PopupMenu2.Add(mmiTemp);//加入到上层的菜单 end;其实我们可以使用一种更快的方法达到同样的功能...
阅读全文
摘要：SQL 取小時、分鐘、秒－－datepart hour、minute、second都不是SQL Server的函数。要取小時、分鐘和秒，都要使用datepart函数。另外直接相加的得到的结果是数字相加，而不是字符串合并，需要转换成varchar update person set id_no = cast(year(in_date) as varchar(4))+ cast(month(in_date) as varchar(2)) + cast(day(in_date) as varchar(2)) + cast(datepart(hh,in_date) as varchar(2)) + c
阅读全文
摘要：1楼: 我的form上有3个Panel，我要在指定的Panel上动态创建多个Button，请问各位，这代码如何写？点这个button时要能弹出菜单2楼: varbtn1:TButton;beginbtn1:=TButton.create(owner)btn1.parent:=panel1.....end3楼: varbutton1:Tbuttonbeginbutton1:=Tbutton.create(nil);button1.parent:=panel1;end;4楼: btn1.OnClick:=yourprocedure5楼: 对了，先谢各位了，我还要实现:点动态创建的这个BUTTON时
阅读全文
摘要：query1.SQL.LoadFromFile( 'directory\filename.sql '); query1.ExecSQL;把文件分割成一个一个的事物块，然后有一个Query控件， QUERY1.close; QUERY1.sql.clear; QUERY1.SQL.LoadFromFile( '文件名 '); QUERY1.execsql; 反复执行即可
阅读全文
摘要：下载首先下载,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
阅读全文
摘要：今天重点学习了TreeView的使用方法，基本的已经写了，现在主要想说的是如何显示数据库的资料，今天只是做了个较简单的例子，一个父节点下显示数据库中某个field的值。代码如下： procedure TMainForm.TreeviewShow(Sender: TObject); var node1,subnode1: TTreeNode; i: Integer; begin Treeview1.Selected := nil; node1 := Treeview1.Items.AddFirst(nil,'user'); ADOTable1.Active := True; wh
阅读全文
摘要：这个是一个循环树，下面给你我写的实例： for (int i = 0; i < dsdoc.Tables[0].Rows.Count; i++)//找出所有父节点 { TreeNode node = new TreeNode(); node.Text = dsdoc.Tables[0].Rows[i]["teamname"].ToString(); node.Value = dsdoc.Tables[0].Rows[i]["teamid"].ToString(); node.ImageUrl = Config.teamPic; treenode(n
阅读全文
浙公网安备 33010602011771号