摘要：
在imglist中将dbgrideh数据显示在某一列中，其中：dbgrideh中SHowImag要设置为true；代码： Procedure TForm1.LoadPassPic(pDataSet: TCustomADODataSet; pField, pPicField: String);Var 阅读全文
摘要：
Create Table #B(PersonID Int, B Varchar(5000))Insert Into #B(PersonID, B)Values(2,'AAAAAAAAAAAAAAAAAAAAA') Insert Into #B(PersonID, B)Values(1,'AAAAAA 阅读全文
摘要：
Create Table #AAA( WindowNo Varchar(50))Insert Into #AAA(WindowNo)Values('2窗口')Insert Into #AAA(WindowNo)Values('3窗口')Insert Into #AAA(WindowNo)Values 阅读全文
摘要：
procedure TForm1.btn4Click(Sender: TObject); var Str :String; D :tDatetime; a:Double; function DateTimeToUnixDate(const ADate: TDateTime): Longint; co 阅读全文
摘要：
Select * from openquery(Emr, 'Select Cast(wlkh as Varchar(20)) From view.xxxx') 增加Cast即可。 阅读全文
摘要：
Declare @PayStr Varchar(200)Set @PayStr = ''Select @PayStr = @PayStr + ',' + Cast(DetailID as Varchar(20)) From GHBaseDB.dbo.tPubClass_Detail B where 阅读全文
摘要：
procedure GetFileListEx(FilePath, ExtMask: string; FileList: TStrings; SubDirectory: Boolean = True); // // 遍历目录及子目录procedure TForm2.GetFileListEx(Fil 阅读全文
摘要：
dbgrdeh列名不够，多加几列。 阅读全文
摘要：
Declare @Sql Varchar(500)Create Table #t( ID Varchar(20))Set @Sql = ''Select @Sql = @Sql + ' Alter Table #t Add Class_' + Cast(Item As Varchar(20)) + 阅读全文
摘要：
造一条最长的数据放在数据第一条。 阅读全文