2004年9月17日
摘要：
题 有性词 歌手wait for a girl like you when we make love it's understood... ForeingerRunaway make love to me through all the ... 阅读全文
摘要：
function changeMoney(TM:real):string ; //金额转换var shu:array of string[2]; shu1:array of string[2]; shuzi,zifu:string;temp1:integer;begin setlength(shu,10);setlength(shu1,10); shu[9]:='仟';shu[8]:=... 阅读全文
摘要：
CREATE PROCEDURE GetRecordByPage @tblName varchar(255),--表名 @fldName varchar(255),--排序的字段名 @fldStr varchar(1000)='*',--字段列表 @pagesize int=10,--页的大小 @pageIndex int=1,--页序号，第多少页 @order char(4)='ASC'--排... 阅读全文
摘要：
procedure Tfmpcxt.OutToExcel(sender:TDBGrid);var i,j,m:integer; ExcelApp:Variant;begin if TDBGrid(Sender).DataSource=nil then exit; if TDBGrid(Sender).DataSource.DataSet=nil then exit; if not TD... 阅读全文
摘要：
procedure TqrFrm.QRDBText54Print(sender: TObject; var Value: String);var i,j:integer; ts:string;begin i:=length(Value); j:=1; ts:=''; while i>j*3 do begin ts:=','+copy(pchar(Value),i-3*j+1,3... 阅读全文