2011年9月24日

正文内容加载中...
posted @ 2011-09-24 08:46 xxmcu 阅读(117) 评论(0) 编辑

2011年5月7日

摘要: (1) 这是一个可扩展到多层的树视图。视图就是单纯显示,无法与传入数据自动同步,必须手动写。 (2) 无论父节点还是子节点,传入数据必须是一个相同的结构(record),存放在其data属性里,通过“指针:=GetNodeData(节点)”获得地址,传入传出其“指针^.各结构属性”。 (3) 控件从RootNodeCount:=根节点数目大于0开始激发,立即激发onGetNodeDataSize,来获得传入结构数据的大小,此处可以返回sizeof(结构类型)。 (4) 然后对每个节点(包括已激发的子节点)进行OnInitNode,此处可以可以直接修改节点的属性,并用(2)的方法传入其data,阅读全文
posted @ 2011-05-07 09:25 xxmcu 阅读(525) 评论(0) 编辑

2011年4月17日

摘要: 新建表:create table [表名]([自动编号字段] int IDENTITY (1,1) PRIMARY KEY ,[字段1] nVarChar(50) default '默认值' null ,[字段2] ntext null ,[字段3] datetime,[字段4] money null ,[字段5] int default 0,[字段6] Decimal (12,4) default 0,[字段7] image null ,)删除表:Drop table [表名]插入数据:INSERT INTO [表名] (字段1,字段2) VALUES (100,'5阅读全文
posted @ 2011-04-17 10:06 xxmcu 阅读(119) 评论(0) 编辑
摘要: 给你一个例子:DbName:数据库名称procedure Tform1.CreateDb(DbName: string);var Dbnew:OleVariant;begin if FileExists(DbName) then begin if MessageBox(Application.Handle,PChar('数据库 ' + DbName + ' 已存在!'+ #13#10 +'是否覆盖?'), '警告',MB_YESNO + MB_ICONWARNING) = idNo then exit; if not Delete阅读全文
posted @ 2011-04-17 10:02 xxmcu 阅读(241) 评论(0) 编辑

2011年4月15日

摘要: 很久以前弄的,用了一天的时间,没有什么技巧,却很实用.很乱,复制下来到记事本,把自动换行去掉再看,就有条理了:) ---------------------------------------------------------------------------- 类型名称 TYPE 备注 ---------------------------------------------------------------------------- 自动编号 integer + identity(1,1) 文本 varchar(50) 括号中很久以前弄的,用了一天的时间,没有什么技巧,却很实用.很乱阅读全文
posted @ 2011-04-15 17:48 xxmcu 阅读(513) 评论(0) 编辑

2011年4月12日

摘要: 1:宽度为1的虚线可以通过设置pen的style.如image1.canvas.Pen.Width:=1;image1.canvas.Pen.Style:=psDash;image1.canvas.MoveTo(0,0);image1.canvas.LineTo(100,100);但当宽度大于1时,Dotted or dashed pen styles无效。不过你可以一段一段的画来实现 2:这个答案其实我也想过,也这么实现过,但仍对wind_cloudy表示感谢 3:画多条虚线可能更好一些,如image1.canvas.Pen.Width:=1;image1.canvas.Pen.Style:阅读全文
posted @ 2011-04-12 15:13 xxmcu 阅读(1303) 评论(0) 编辑

2011年4月10日

摘要: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TeEngine, TeeTools, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;type TForm1 = class(TForm) Chart1: TChart; Series1: TLineSeries; Button1: TButton; procedure Button1Click(Sender: TObject); pro阅读全文
posted @ 2011-04-10 15:12 xxmcu 阅读(258) 评论(0) 编辑

公告

导航

统计

  • 随笔 - 7
  • 文章 - 0
  • 评论 - 0
  • 引用 - 0