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 阅读全文

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

摘要： 新建表：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 阅读全文

摘要： 给你一个例子：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 阅读全文

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

摘要： 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: 阅读全文

摘要： 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 阅读全文