小美lmt

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

摘要： 造一条最长的数据放在数据第一条。 阅读全文