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

前段时间买了一套SMExport suite for Delphi/CBuilder (with sources) 组件,默认导出的XLS表格数据,发现有窜行的问题,很是郁闷,后来发现是因为Options选项中 soFieldMask 没有选中,只需要选中即可解决,也是醉了,先MARK一下。

微信截图_20161118095017.png

另外导出表格里,有大量空白字符,可以在导出组件OnGetCellParams事件中添加以下代码即可。

procedure TFrm_KduserManage.smxprtxlsx1GetCellParams(Sender: TObject;
Field: TField; var Text: WideString; AFont: TFont;
var Alignment: TAlignment; var Background: TColor;
var CellType: TCellType);
begin
if Assigned(Field) then
begin
Text:=Trim(Text);
end;
end;

Posted in 软件开发 at November 18, 2016. by 傻猫 .    Views: 153    No Comments

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

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

aaa
http-redirect enable
domain pre-web --------认证前域
authentication-scheme default0
accounting-scheme default0
user-group web
web-server 111.208.61.24
web-server url http://111.208.61.24
acl number 6001 ------举例,配置前域可以访问的地址,不需要配置端口号
rule permit ip source user-group web destination ip-address 111.208.22.73 0
rule permit ip source user-group web destination ip-address 111.208.55.7 0
rule permit ip source user-group web destination ip-address 111.208.61.40 0
rule permit ip source user-group web destination ip-address 111.208.61.4 0
rule permit ip source user-group web destination ip-address 127.0.0.1 0
acl number 6002 ----用户访问其他http资源都强推页面,支持80和8080端口,端口号必须配置,需要确保以下规则的配置顺序。
rule permit tcp source user-group wx destination-port eq www
rule permit tcp source user-group wx destination-port eq 8080
rule permit ip source user-group wx -----当用户访问非http资源(如FTP)时命中这条规则,流动作是http-redirect的情况下会做deny处理

traffic classifier permit
if-match acl 6001

traffic classifier redirect
if-match acl 6002

traffic behavior permit

traffic behavior redirect
http-redirect

traffic policy web
classifier permit behavior permit
classifier redirect behavior redirect

traffic-policy web inbound

Posted in 移动终端 at October 20, 2016. by 傻猫 .    Views: 367    No Comments

开始北漂生活

如题

Posted in 我的生活 at October 12, 2016. by 傻猫 .    Views: 388    No Comments

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

SQL Server中文版的默认的日期字段datetime格式是yyyy-mm-dd Thh:mm:ss.mmm
例如:
select getdate() 2004-09-12 11:06:08.177
整理了一下SQL Server里面可能经常会用到的日期格式转换方法:
举例如下:
select CONVERT(varchar, getdate(), 120 ) 2004-09-12 11:06:08

select replace(replace(replace(CONVERT(varchar, getdate(), 120 ),'-',''),' ',''),':','')
20040912110608

select CONVERT(varchar(12) , getdate(), 111 ) 2004/09/12

select CONVERT(varchar(12) , getdate(), 112 ) 20040912

select CONVERT(varchar(12) , getdate(), 102 ) 2004.09.12

select CONVERT(varchar(12) , getdate(), 101 ) 09/12/2004

select CONVERT(varchar(12) , getdate(), 103 ) 12/09/2004

select CONVERT(varchar(12) , getdate(), 104 ) 12.09.2004

select CONVERT(varchar(12) , getdate(), 105 ) 12-09-2004

select CONVERT(varchar(12) , getdate(), 106 ) 12 09 2004

select CONVERT(varchar(12) , getdate(), 107 ) 09 12, 2004

select CONVERT(varchar(12) , getdate(), 108 ) 11:06:08

select CONVERT(varchar(12) , getdate(), 109 ) 09 12 2004 1

select CONVERT(varchar(12) , getdate(), 110 ) 09-12-2004

select CONVERT(varchar(12) , getdate(), 113 ) 12 09 2004 1

select CONVERT(varchar(12) , getdate(), 114 ) 11:06:08.177

Convert第三个参数,进行日期类型转化时的格式:

如Convert(Char(10),     GetDate(),     111)   

101     美国     mm/dd/yyyy     
102     ANSI     yy.mm.dd     
103     英国/法国     dd/mm/yy     
104     德国     dd.mm.yy     
105     意大利     dd-mm-yy     
106     -     dd     mon     yy     
107     -     mon     dd,     yy     
108     -     hh:mm:ss     
109     (*)       默认值     +     毫秒     mon     dd     yyyy     hh:mi:ss:mmmAM(或     PM)     
110     美国     mm-dd-yy     
111     日本     yy/mm/dd     
112     ISO     yymmdd     
113     (*)       欧洲默认值     +     毫秒     dd     mon     yyyy     hh:mm:ss:mmm(24h)     
114     -     hh:mi:ss:mmm(24h)     
120     (*)       ODBC     规范     yyyy-mm-dd     hh:mm:ss[.fff]     
121     (*)       ODBC     规范(带毫秒)     yyyy-mm-dd     hh:mm:ss[.fff]     
126(***)     ISO8601     yyyy-mm-dd     Thh:mm:ss:mmm(不含空格)     
130*     科威特     dd     mon     yyyy     hh:mi:ss:mmmAM     
131*     科威特     dd/mm/yy     hh:mi:ss:mmmAM 

Sql Server 中一个非常强大的日期格式化函数
Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2006 10:57AM
Select CONVERT(varchar(100), GETDATE(), 1): 05/16/06
Select CONVERT(varchar(100), GETDATE(), 2): 06.05.16
Select CONVERT(varchar(100), GETDATE(), 3): 16/05/06
Select CONVERT(varchar(100), GETDATE(), 4): 16.05.06
Select CONVERT(varchar(100), GETDATE(), 5): 16-05-06
Select CONVERT(varchar(100), GETDATE(), 6): 16 05 06
Select CONVERT(varchar(100), GETDATE(), 7): 05 16, 06
Select CONVERT(varchar(100), GETDATE(), 8): 10:57:46
Select CONVERT(varchar(100), GETDATE(), 9): 05 16 2006 10:57:46:827AM
Select CONVERT(varchar(100), GETDATE(), 10): 05-16-06
Select CONVERT(varchar(100), GETDATE(), 11): 06/05/16
Select CONVERT(varchar(100), GETDATE(), 12): 060516
Select CONVERT(varchar(100), GETDATE(), 13): 16 05 2006 10:57:46:937
Select CONVERT(varchar(100), GETDATE(), 14): 10:57:46:967
Select CONVERT(varchar(100), GETDATE(), 20): 2006-05-16 10:57:47
Select CONVERT(varchar(100), GETDATE(), 21): 2006-05-16 10:57:47.157
Select CONVERT(varchar(100), GETDATE(), 22): 05/16/06 10:57:47 AM
Select CONVERT(varchar(100), GETDATE(), 23): 2006-05-16
Select CONVERT(varchar(100), GETDATE(), 24): 10:57:47
Select CONVERT(varchar(100), GETDATE(), 25): 2006-05-16 10:57:47.250
Select CONVERT(varchar(100), GETDATE(), 100): 05 16 2006 10:57AM
Select CONVERT(varchar(100), GETDATE(), 101): 05/16/2006
Select CONVERT(varchar(100), GETDATE(), 102): 2006.05.16
Select CONVERT(varchar(100), GETDATE(), 103): 16/05/2006
Select CONVERT(varchar(100), GETDATE(), 104): 16.05.2006
Select CONVERT(varchar(100), GETDATE(), 105): 16-05-2006
Select CONVERT(varchar(100), GETDATE(), 106): 16 05 2006
Select CONVERT(varchar(100), GETDATE(), 107): 05 16, 2006
Select CONVERT(varchar(100), GETDATE(), 108): 10:57:49
Select CONVERT(varchar(100), GETDATE(), 109): 05 16 2006 10:57:49:437AM
Select CONVERT(varchar(100), GETDATE(), 110): 05-16-2006
Select CONVERT(varchar(100), GETDATE(), 111): 2006/05/16
Select CONVERT(varchar(100), GETDATE(), 112): 20060516
Select CONVERT(varchar(100), GETDATE(), 113): 16 05 2006 10:57:49:513
Select CONVERT(varchar(100), GETDATE(), 114): 10:57:49:547
Select CONVERT(varchar(100), GETDATE(), 120): 2006-05-16 10:57:49
Select CONVERT(varchar(100), GETDATE(), 121): 2006-05-16 10:57:49.700
Select CONVERT(varchar(100), GETDATE(), 126): 2006-05-16T10:57:49.827
Select CONVERT(varchar(100), GETDATE(), 130): 18 ???? ?????? 1427 10:57:49:907AM
Select CONVERT(varchar(100), GETDATE(), 131): 18/04/1427 10:57:49:920AM

常用:
Select CONVERT(varchar(100), GETDATE(), 24): 10:57:47
Select CONVERT(varchar(100), GETDATE(), 108): 10:57:49

Select CONVERT(varchar(100), GETDATE(), 12): 060516
Select CONVERT(varchar(100), GETDATE(), 23): 2006-05-16
select CONVERT(varchar(12) , getdate(), 112 ) : 20040912
Select CONVERT(varchar(100), GETDATE(), 8): 10:57:46

Posted in 数据库 at August 31, 2016. by 傻猫 .    Views: 744    No Comments

stringgrid删除选中行

定义一个从TStringGrid类继承的新类如下:
type
TMyGrid = class(TStringgrid);

之后,删除时:你可以这样写:
TMyGrid(Grid).DeleteRow(Grid.Row); //Grid为你的StringGrid控件

说明:DeleteRow方法是TCustomGrid类申明的protected方法,可以删除表格中的一行;
而TStringGrid没有将这一方法公开出来(意味着其他类将无法访问),所以你只需要定义一个从TStringGrid类继承的新类就可以了。

Posted in 软件开发 at July 4, 2016. by 傻猫 .    Views: 1498    No Comments

StringGrid排序/隔行变色

//排序函数//////////////////////////////////////////////
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;

查看更多内容...

Posted in 软件开发 at July 4, 2016. by 傻猫 .    Views: 1522    No Comments

sql判断存储过程是否存在

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 [表名]

查看更多内容...

Posted in 数据库 at May 18, 2016. by 傻猫 .    Views: 2039    No Comments

34岁生日来了

今年生日过得特别开心,我身份证是5月9号,其实是农历五月初九。

5月9号在北京,小白同学请我和小杨吃大餐。

今天在家一大早和老婆去河边散步,臭美的拍了一组照片,之前有同事说我全发美颜后的照片,敢不敢发原照,哈哈,今天拍的照片还是一样帅气,不美颜也一样,不能再同意的再多了。

其实今年最大的生日礼物是,我们的系统在全国上了近50个城市,其中最大的北京刚刚上线成功,电销线上收费系统突破3000万,作为主要开发人员,这是最大的荣耀。

昨天团队所有人去石经寺烧香祈福,中午农家乐吃饭,开心。

IMG_2994.JPG

今天有很多美女给哥发红包,哈哈,中午儿子用他的零花钱给我了一个蛋糕,还带他的小伙伴来家里给老爸唱生日歌,下午和老婆去看电影《不二情书》,真是开心的一天,最后发几张照片吧。

IMG_3116.JPG

IMG_4326.JPG

Posted in 我的生活 at May 15, 2016. by 傻猫 .    Views: 1296    No Comments