博客园 - xxmcu
uuid:24b78886-0ed1-41c2-8670-e3f31dcf42c4;id=3385
2011-09-24T00:46:01Z
xxmcu
https://www.cnblogs.com/xxmcu/
feed.cnblogs.com
https://www.cnblogs.com/xxmcu/archive/2011/09/24/2188352.html
图形文字 - xxmcu
文字编码英文字符WingdingsWebdings32空白空白空白33!!!34"""35###36$$$37%%%38&&&39'''40(((41)))42***43+++44,,,45---46...47///4800049111502225133352444535555466655777568885799958:::59;;;60<<<61===62>>>63???64@@@65AAA66BBB67CCC68DDD69EEE70FFF71GGG72HHH73III74JJJ
2011-09-24T00:46:00Z
2011-09-24T00:46:00Z
xxmcu
https://www.cnblogs.com/xxmcu/
【摘要】文字编码英文字符WingdingsWebdings32空白空白空白33!!!34"""35###36$$$37%%%38&&&39'''40(((41)))42***43+++44,,,45---46...47///4800049111502225133352444535555466655777568885799958:::59;;;60<<<61===62>>>63???64@@@65AAA66BBB67CCC68DDD69EEE70FFF71GGG72HHH73III74JJJ <a href="https://www.cnblogs.com/xxmcu/archive/2011/09/24/2188352.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/xxmcu/archive/2011/05/07/2039593.html
VirtualStringTree+ - xxmcu
(1) 这是一个可扩展到多层的树视图。视图就是单纯显示,无法与传入数据自动同步,必须手动写。 (2) 无论父节点还是子节点,传入数据必须是一个相同的结构(record),存放在其data属性里,通过“指针:=GetNodeData(节点)”获得地址,传入传出其“指针^.各结构属性”。 (3) 控件从RootNodeCount:=根节点数目大于0开始激发,立即激发onGetNodeDataSize,来获得传入结构数据的大小,此处可以返回sizeof(结构类型)。 (4) 然后对每个节点(包括已激发的子节点)进行OnInitNode,此处可以可以直接修改节点的属性,并用(2)的方法传入其data,
2011-05-07T01:25:00Z
2011-05-07T01:25:00Z
xxmcu
https://www.cnblogs.com/xxmcu/
【摘要】(1) 这是一个可扩展到多层的树视图。视图就是单纯显示,无法与传入数据自动同步,必须手动写。 (2) 无论父节点还是子节点,传入数据必须是一个相同的结构(record),存放在其data属性里,通过“指针:=GetNodeData(节点)”获得地址,传入传出其“指针^.各结构属性”。 (3) 控件从RootNodeCount:=根节点数目大于0开始激发,立即激发onGetNodeDataSize,来获得传入结构数据的大小,此处可以返回sizeof(结构类型)。 (4) 然后对每个节点(包括已激发的子节点)进行OnInitNode,此处可以可以直接修改节点的属性,并用(2)的方法传入其data, <a href="https://www.cnblogs.com/xxmcu/archive/2011/05/07/2039593.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/xxmcu/archive/2011/04/17/2018699.html
access2 - xxmcu
新建表: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
2011-04-17T02:06:00Z
2011-04-17T02:06:00Z
xxmcu
https://www.cnblogs.com/xxmcu/
【摘要】新建表: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 <a href="https://www.cnblogs.com/xxmcu/archive/2011/04/17/2018699.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/xxmcu/archive/2011/04/17/2018697.html
ACCESS - xxmcu
给你一个例子: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
2011-04-17T02:02:00Z
2011-04-17T02:02:00Z
xxmcu
https://www.cnblogs.com/xxmcu/
【摘要】给你一个例子: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 <a href="https://www.cnblogs.com/xxmcu/archive/2011/04/17/2018697.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/xxmcu/archive/2011/04/15/2017432.html
用SQL语句创建Access表 - xxmcu
很久以前弄的,用了一天的时间,没有什么技巧,却很实用.很乱,复制下来到记事本,把自动换行去掉再看,就有条理了:) ---------------------------------------------------------------------------- 类型名称 TYPE 备注 ---------------------------------------------------------------------------- 自动编号 integer + identity(1,1) 文本 varchar(50) 括号中很久以前弄的,用了一天的时间,没有什么技巧,却很实用.很乱
2011-04-15T09:48:00Z
2011-04-15T09:48:00Z
xxmcu
https://www.cnblogs.com/xxmcu/
【摘要】很久以前弄的,用了一天的时间,没有什么技巧,却很实用.很乱,复制下来到记事本,把自动换行去掉再看,就有条理了:) ---------------------------------------------------------------------------- 类型名称 TYPE 备注 ---------------------------------------------------------------------------- 自动编号 integer + identity(1,1) 文本 varchar(50) 括号中很久以前弄的,用了一天的时间,没有什么技巧,却很实用.很乱 <a href="https://www.cnblogs.com/xxmcu/archive/2011/04/15/2017432.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/xxmcu/archive/2011/04/12/2013687.html
delphi 画粗虚线方法 - xxmcu
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:
2011-04-12T07:13:00Z
2011-04-12T07:13:00Z
xxmcu
https://www.cnblogs.com/xxmcu/
【摘要】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: <a href="https://www.cnblogs.com/xxmcu/archive/2011/04/12/2013687.html" target="_blank">阅读全文</a>
https://www.cnblogs.com/xxmcu/archive/2011/04/10/2011445.html
tchart 跟随鼠标的y轴线 - xxmcu
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
2011-04-10T07:12:00Z
2011-04-10T07:12:00Z
xxmcu
https://www.cnblogs.com/xxmcu/
【摘要】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 <a href="https://www.cnblogs.com/xxmcu/archive/2011/04/10/2011445.html" target="_blank">阅读全文</a>