如何成为一个捞金网红女主播?

作者: 傻猫    分类: 爱生活     发布时间: 12-27 10:04    浏览次数: 3000     无留言

Windows下RSA密钥生成工具openssl

作者: 傻猫    分类: 搞软件     发布时间: 12-07 17:54    浏览次数: 2990     无留言

关于SMExportToXLS导出数据窜行的问题

作者: 傻猫    分类: 搞软件     发布时间: 11-18 09:44    浏览次数: 3155     无留言

华为Me60 bras web认证 portal认证配置

作者: 傻猫    分类: 搞软件     发布时间: 10-20 09:09    浏览次数: 3873     无留言

开始北漂生活

作者: 傻猫    分类: 爱生活     发布时间: 10-12 21:16    浏览次数: 3051     无留言

MS SQL Server中的日期格式化大全

作者: 傻猫    分类: 搞软件 ,弄数据    发布时间: 08-31 21:51    浏览次数: 3381     无留言

stringgrid删除选中行

作者: 傻猫    分类: 搞软件     发布时间: 07-04 10:32    浏览次数: 3937     无留言

StringGrid排序/隔行变色

作者: 傻猫    分类: 搞软件     发布时间: 07-04 09:46    浏览次数: 3886     无留言

//排序函数//////////////////////////////////////////////
procedure Quicksort(Grid:TStringGrid; var List:array of integer;

min, max,sortcol,datatype: Integer);

{List is a list of rownumbers in the grid being sorted}
var
med_value : integer;
hi, lo, i : Integer;

function compare(val1,val2:string):integer;
var

int1,int2:integer;
float1,float2:extended;
errcode:integer;

begin

case datatype of
  0: result:=ANSIComparetext(val1,val2);
  1: begin
       int1:=strtointdef(val1,0);
       int2:=strtointdef(val2,0);
       if int1>int2 then result:=1
       else if int1<int2 then result:=-1
       else result:=0;
     end;

  2: begin
       val(val1,float1,errcode);
       if errcode<>0 then float1:=0;
       val(val2,float2,errcode);
       if errcode<>0 then float2:=0;
       if float1>float2 then result:=1
       else if float1<float2 then result:=-1
       else result:=0;
     end;
   else result:=0;
end;

end;

查看更多内容...

sql判断存储过程是否存在

作者: 傻猫    分类: 搞软件 ,弄数据    发布时间: 05-18 09:02    浏览次数: 4911     无留言

1 判断数据库教程是否存在
Sql代码
if exists (select * from sys.databases where name = ’数据库名’)
drop database [数据库名] if exists (select * from sys.databases where name = ’数据库名’)
drop database [数据库名]

2 判断表是否存在
Sql代码
if exists (select * from sysobjects where id = object_id(N’[表名]’) and OBJECTPROPERTY(id, N’IsUserTable’) = 1)
drop table [表名] if exists (select * from sysobjects where id = object_id(N’[表名]’) and OBJECTPROPERTY(id, N’IsUserTable’) = 1)
drop table [表名]

查看更多内容...

34岁生日来了

作者: 傻猫    分类: 爱生活     发布时间: 05-15 21:18    浏览次数: 3671     无留言