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: 883    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: 868    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: 1454    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: 790    No Comments

win2008更换密钥方法

更改产品密钥可以用下面的命令行
SLMGR.VBS -ipk 11111-22222-33333-44444-55555

激活可以用下面的命令行
SLMGR.VBS -ato

Posted in 杂七杂八 at May 9, 2016. by 傻猫 .    Views: 923    No Comments

NET Framework4.0注册

C:\Inetpub\AdminScripts>cd

C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319\

C:\WINDOWS\Microsoft.NET\Framework\v4.0.30319>aspnet_regiis.exe -i

Start installing ASP.NET (4.0.30319).

.......

Finished installing ASP.NET (4.0.30319).

Posted in Web开发 at March 29, 2016. by 傻猫 .    Views: 1774    No Comments

史上最全的中国歌手翻唱日本歌大全索引字典

原来我们是听日语歌长大的。

黎明 - 月亮下求你吻 (サザンオールスターズ - エロティカ·セブン)
黎明 - 一夜倾情 (安全地帯 - 恋の予感)
黎明 - 夜揺遥 (米米CLUB - Shake Hip!)
黎明 - 阳光 (福山雅治 - HELLO)
黎明 - 我的亲爱 (槙原敬之 - もう恋なんてしない)
黎明 - 送你一瓣的雪花 (CHAGE - 梦を见ましょうか)
黎明 - 如果这是情 (安全地帯 - ともだち)
黎明 - 梦中相拥 (工藤静香 - Please)
黎明 - 两心知 (ASKA - はじまりはいつも雨)
黎明 - 告诉我你会在梦境中等我 (玉置浩二 - Star)
黎明 - 迟到 (久保田利伸 - 夜に抱かれて~A Night in Afro Blue~)
黎明 - OH!夜! (小田和正 - OH!YEAH!)
黎明 - AHHHHH! (久保田利伸 - AHHHHH!)

查看更多内容...

Posted in 休闲娱乐 at March 5, 2016. by 傻猫 .    Views: 2108    No Comments

魅族Flyme 5新版固件命名方式

首版 Flyme 5 For MX5 体验版已面向 MX5 熊猫骑士团开放下载,欢迎各位熊猫骑士下载更新。同时,全新的Flyme 5 固件会启用新的命名规则,请各位魅友知悉,以便之后更新固件的时候,能正确地查询并成功更新固件。

稳定版

235430pvvdsrxizolnzabr.png.thumb.jpg

稳定版命名格式为:Flyme:版本号+版本类型代号

版本号的具体命名以图为示例,从左至右依次为:

[5]为 Flyme 大版本,不随正常版本迭代而变化,例如Flyme 5

[0]为 Flyme 同个大版本中的升级,通常需要伴随一个大的功能集合才增加,如Flyme 4.1 到 Flyme 4.2 的更新

[1]为定期迭代的的版本,每次升级+1

[0]为紧急修复版本,每次+1,常规迭代时此位为0

最末位的字母为版本类型代号:A(公开版)、C(移动公开版)、M(移动定制版)、U(联通定制版)、Q(电信定制版)、I(国际版)、Y(YunOS版)


体验版

ad.jpg

体验版命名格式为:Flyme 大版本.年.月.日 beta

体验版命名以Flyme 大版本+日期复合的形式,其中年月日以单位数字显示,如2015年9月9日显示为5.9.9

一般情况下,beta后缀默认不跟随任何内容;若当天有多个体验版本,beta后缀上加数字以示区分,如beta2、beta3

Posted in 移动终端 at February 29, 2016. by 傻猫 .    Views: 2074    No Comments