kobaer-CSDN博客

原创 delphi 查找下一个控件并设置焦点

with Self dobegin for i := 0 to ControlCount - 1 do begin if TWinControl(Controls[i]).TabOrder = edt1.TabOrder + 1 then//edt1为当前控件 begin TWinControl(Controls[i]).SetFocus

2009-11-11 09:07:00 1934

原创 delphi dbgrideh列宽根据内容自动增长

procedure Tfrm_sjzd.lsbAfterPost(DataSet: TDataSet);var max, i: Integer;begin inherited; max := 0; if dbg.Columns[dbg.SelectedIndex].Width < dbg.Canvas.TextWidth(dbg.SelectedField.Text)

2009-11-11 08:58:00 1286

原创 delphi 关于DateTimePicker的一点问题（同时修改日期和时间的实现）

昨天群里一个朋友问如下问题：DateTimePicker中kind属性设为dtkTime时显示并能让用户编辑时间,但此时默认情况下没有日期显示,在format属性中加入日期格式,如 MM/dd/yyyy H:m 则日期和时间能同时显示. 问题是虽然程序运行时日期和时间都能显示并编辑,但界面上日期改了,DateTimePicker.DateTime 中

2009-10-31 09:52:00 3508 1

原创 delphi 用ado连接excel2007

前段时间写了一个用delphi比较两个excel不同的程序。使用了ado ，但是发现怎么都连接不上。最后知道原因了。我使用的office是2007版本的。原因是office2007已经是基于xml的。和以前的不一样了。下边是连接office2007的ConnectionString ADOConnection1.ConnectionString:=Provider=M

2009-10-11 12:39:00 5461

原创 delphi 反转文本框的汉字

今天在群里有朋友问怎么反转一个字符串。如将字符串123456798 变为987654321。其实在delphi中已经提供了反转函数 ReverseString，在使用这个函数之前必须要uses StrUtils。但是汉字却不能使用这个函数，下边是反转汉字的代码。 uses StrUtils;procedure TForm1.Button1Click(Sender

2009-10-11 12:20:00 1786

原创 delphi tdxmemdata使用方法

这几天一直使用这个控件从一开始不会用到现在有一点头绪。马上记下来1、添加字段这个是循环自动添加字段 //在使用前必须actiona.Active := false;a.close;a.fields.Clear;a.FieldDefs.Clear;for i := 1 to 10 dobegin temp :=字段名; a.FieldDe

2009-09-26 11:58:00 5739 1

原创 sql查询表结构，过程，视图，主键，外键，约束

一、表结构查询SELECT TOP (100) PERCENT a.name AS zdm,COLUMNPROPERTY(a.id, a.name, IsIdentity) AS bs , CASE WHEN EXISTS (SELECT 1 FROM dbo.sysindexes si INNER JOIN dbo.sysindexkeys sik ON si.id = sik.id

2009-09-26 11:25:00 2070

kobaer