龙少爷

摘要：使用了一个游标，并分解一个字符串： DECLARE @flag NVARCHAR(50),@i INTDECLARE @r1 NVARCHAR(50),@r2 NVARCHAR(50),@assay NVARCHAR(50)SET @flag='20100427181006'SET @assay='' --使用游标DECLARE getAssayValue CURSOR FOR SELECT ... 阅读全文

摘要：1、在服务中启动SQL Server Agent 2、在SqlServer代理中，新建作业，使用Sql语句： DECLARE @strPath NVARCHAR(200)set @strPath = convert(NVARCHAR(19),getdate(),120)set @strPath = REPLACE(@strPath, ':' , '.')set @strPath = 'D:\bak... 阅读全文

摘要：在Delphi中读取Excel文件，使用CreateOleObject的方式挺讨厌的，一直搞不定，输出了文件之后，总会在系统中打开一个Excel，就算Quit也不行，一个程序中使用的多了，还不定搞出什么事情来。狠狠心找个其它的东西来代替，于是发现了XlsReadWriteII。 使用之后发现这个东西真不错，简单好用。不管是读还是写均轻松搞定。下面是Demo中的代码。 写文件代码，包括对格式的定制：... 阅读全文

摘要：确切的说，这是对上篇日志的延伸，因为在使用这个方法的过程中，一直是好好的使用着，但突然在有一个页面里面说什么也不显示了，经反复查找，发现此表中所用的数据为多列，而可以显示正常的Columns值均为0，只要修改之后就不会正常显示了。这莫不是控件的一种设置方式，还是Bug？ 今天再次测试的时候发现，将ShowGroups设置为True之后，再设置回False，显示就正常了，而Style则改为lbOwn... 阅读全文

摘要：例串：A1,,HIV,Unknown,Undetermined,,,,,,,,, {------------------------------------------------------------------------------- 过程名: TForm1.split 作者: Gsl 日期: 2010.04.24 参数: str: string; pos: Integer 指定串及列位置... 阅读全文

摘要：本处使用RzListBox，两种控件的用法应该是大同的。今天在使用的过程中，就是不能改变颜色，跟踪发现此代码根本就没有执行到。后来发现设置ListBox的style为：lbOwnerDrawVariable，之后就可以了。 阅读全文

摘要：PRec=^TRec; TRec=record a:Integer; b:string; end; AddItem: var rec:PRec; begin new(rec); rec.a:=1; rec.b:=’a’; lst.Items.AddObject(‘It’s Demo’, TObject(rec)); end; 取值: PRec(lst.Itmes.Objects[lst.It... 阅读全文

摘要：最近感觉记忆不太好,而且反复使用线程的又不多,也没有达到强化记忆的效果.做一个记录,就当记住了吧. 1、在Private中设置变量，来接收从主线程传入的参数； 2、写一个不带参数的运行方法，使迭代调用：procedure execMethod; 3、在Public中建立构造方法：constructor Create（参数列表），将参数传递给Private中的变量； 4、编写线程方法： proced... 阅读全文

摘要：挺酷的效果，而显示设置也并不麻烦，但从Demo来看，好象只是对应于单表内的字段递归，是不是可以使用多个表，有待于考证，先做个记号： MemTableEh1.TreeList.Active := True;MemTableEh1.TreeList.KeyFieldName := 'ID';MemTableEh1.TreeList.RefParentFieldName := 'ID_PARENT';M... 阅读全文

摘要：操作时写的代码并不多，主要问题是需要将所有的数据读内存表不太合适，在修改上应该可以将数据源改为动态。使用的重点是设置DbGridEh1的RowDetailPanel打开，再将DbGridEh2放入，设置MemTableEh2的MasterFields和DetailFields，接入数据源，好，出锅！ 阅读全文

摘要：代码也挺简单的，只是当时没有想到： if ds2.FieldByName('AutoRead').AsInteger=0 thenbegin DBGridEh1.Canvas.Brush.Color:=clGrayText; DBGridEh1.Canvas.Font.Color:=clWhite; DBGridEh1.DefaultDrawColumnCell(Rect, DataCol, Co... 阅读全文

摘要：在Delphi中使用树形控件TreeView,改变其颜色,使用的是CustomDrawItem方法:代码 Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--procedureTForm1.tv1CustomDrawItem(Sender:TCustomT... 阅读全文