- 博客(7)
- 收藏
- 关注
原创 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 1940
原创 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 3510 1
原创 delphi 用ado连接excel2007
前段时间写了一个用delphi比较两个excel不同的程序。使用了ado ,但是发现怎么都连接不上。最后知道原因了。我使用的office是2007版本的。原因是office2007已经是基于xml的。和以前的不一样了。下边是连接office2007的ConnectionString ADOConnection1.ConnectionString:=Provider=M
2009-10-11 12:39:00 5469
原创 delphi 反转文本框的汉字
今天在群里有朋友问怎么反转一个字符串 。如将字符串123456798 变为987654321。其实在delphi中已经提供了反转函数 ReverseString,在使用这个函数之前必须要uses StrUtils。 但是汉字却不能使用这个函数,下边是反转汉字的代码。 uses StrUtils;procedure TForm1.Button1Click(Sender
2009-10-11 12:20:00 1788
原创 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 5744 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
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人