Delphi7自动以管理员身份运行程序

1.建立 res 文件

建立一个文本文件,名字可以自己起,如UAC.manifest,内容:

建立文本文件,名为 UAC.rc,内容:
1 24 UAC.manifest

编译成 uac.res 文件,运行:
brcc32 uac.rc -fouac.res

2.在代码中引入
打开项目文件,加入
{$R uac.res}

3.编译程序
这时程序就支持 VISTA 了,在运行的时候,会弹出 WINDOWS 的提示框,询问用户是否允许以管理员身份运行。

Posted in 软件开发 at January 27, 2014. by 傻猫 .    Views: 2124    No Comments

兼容各个操作系统,格式化系统日期

在实际工作中,遇到很多电脑的日期格式设置不一样,有些时间格式是“上午”或“下午”
还有一些电脑是PM,AM,长日期格式也不一样。

为此为了统一格式,我们把系统获得的日期和时间格式一下,统一为 yyyy-mm-dd hh:nn:ss 格式
mytime:=FormatDateTime('yyyy-mm-dd hh:nn:ss',qry_temp.FieldByName('CurrDateTime').AsDateTime);

Posted in 软件开发 at January 24, 2014. by 傻猫 .    Views: 1870    No Comments

疯狂的高尔夫“川AN4R08”

车牌:川AN4R08,车型:银灰色高尔夫6。
2011年至2013年8月,该车有64条交通违法记录,均已处理。
2013年8月至今年1月3日,又有18条未处理的违法记录。
在道路上开车时,驾驶员们常会遇见插队、临时变道等不文明驾驶行为,有的司机还会开斗气车故意“甩盘子”。
但是一路跟着你极速超车、用漂移逼停你,就为下车做一个不雅动作的疯狂司机,你见过吗?1月11日上午在成都青羊区(微博)长顺街,就发生了如此惊险的一幕。一辆车牌为川AN4R*8的银色两厢轿车由南往北行驶,以很快的速度先后8次变道超车,4次急刹甩尾,逼停后面行驶的汽车。这段视频前日被发布在网络上,引发网友热议。“这车看着眼熟哦!”有眼尖的网友根据车牌号和车型认出,该车劣迹斑斑,曾多次在成都中心城区做出类似危险驾驶行为。

查看更多内容...

Posted in 杂七杂八 at January 14, 2014. by 傻猫 .    Views: 2158    No Comments

MSSQL删除所有存储过程

删除所有存储过程
use 数据库
declare @tname varchar(8000)
set @tname=''
select @tname=@tname + Name + ',' from sysobjects where xtype='P'
select @tname='drop Procedure ' + left(@tname,len(@tname)-1)
exec(@tname)

删除所有表
use 数据库
declare @tname varchar(8000)
set @tname=''
select @tname=@tname + Name + ',' from sysobjects where xtype='U'
select @tname='drop table ' + left(@tname,len(@tname)-1)
exec(@tname)

删除所有视图
use 数据库
declare @tname varchar(8000)
set @tname=''
select @tname=@tname + Name + ',' from sysobjects where xtype='V'
select @tname='drop View ' + left(@tname,len(@tname)-1)
exec(@tname)

Posted in 数据库 at January 8, 2014. by 傻猫 .    Views: 1949    No Comments

DELPHI 获取本月的第一天和最后一天

USER :DateUtils
使用 StartOfTheMonth 和 EndOfTheMonth 函数获取即可;

procedure TForm1.btn1Click(Sender: TObject);
begin
mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',StartOfTheMonth(Now)));
mmo1.Lines.Add(FormatDateTime('yyyy-mm-dd',EndOfTheMonth(Now)));
//mmo1.Lines.Add(DateTimeToStr(StartOfTheMonth(Now)));
//mmo1.Lines.Add(DateTimeToStr(EndOfTheMonth(Now)));
end;

Posted in 软件开发 at January 5, 2014. by 傻猫 .    Views: 2040    No Comments

关于港版iphone5s支持移动3G4G的事

通过苹果香港网站我们可以看到,港版iphone5s 有以下几个型号:
型號 A1533 (GSM):UMTS/HSPA+/DC-HSDPA (850, 900, 1700/2100, 1900, 2100 MHz);GSM/EDGE (850, 900, 1800, 1900 MHz);LTE (Bands 1, 2, 3, 4, 5, 8, 13, 17, 19, 20, 25)
型號 A1533 (CDMA)
:CDMA EV-DO Rev. A 和 Rev. B (800, 1700/2100, 1900, 2100 MHz); UMTS/HSPA+/DC-HSDPA (850, 900, 1700/2100, 1900, 2100 MHz);GSM/EDGE (850, 900, 1800, 1900 MHz);LTE (Bands 1, 2, 3, 4, 5, 8, 13, 17, 19, 20, 25)
型號 A1453:CDMA EV-DO Rev. A 和 Rev. B (800, 1700/2100, 1900, 2100 MHz);UMTS/HSPA+/DC-HSDPA (850, 900, 1700/2100, 1900, 2100 MHz);GSM/EDGE (850, 900, 1800, 1900 MHz);LTE (Bands 1, 2, 3, 4, 5, 8, 13, 17, 18, 19, 20, 25, 26)
型號 A1457
:UMTS/HSPA+/DC-HSDPA (850, 900, 1900, 2100 MHz);GSM/EDGE (850, 900, 1800, 1900 MHz);LTE (Bands 1, 2, 3, 5, 7, 8, 20)
**型號 A1530:UMTS/HSPA+/DC-HSDPA (850, 900, 1900, 2100 MHz);GSM/EDGE (850, 900, 1800, 1900 MHz);FDD-LTE (Bands 1, 2, 3, 5, 7, 8, 20);TD-LTE (Bands 38, 39, 40)*

注意最后一个A1530这个版本,是支持联通和移动GSM的,同时也支持联通3G HSPA+,联通4G FDD-LTE,最最NB的是支持TD-LTE,也就是移动4G的啦,这个是硬件就支持的,目前的方法是插入AB卡可以激活3G和4G功能,听说IOS7.1发布后,可以直接使用移动3G和4G,爽了。

所以目前买A1530型号的iphone最划算,联通和移动的3G和4G都可以用,如果你是电信用户,那只能买电信版的了。

哥买了AB卡,还没有收到,回头测试一下速度怎么样。

这里吐槽一下狗日的中国移动成都双林营业厅,就是新华公园旁边那个营业厅,里边的小妹业务球都不懂,扎起嘴巴乱说,不懂瞎杰宝扯,你不懂你问一下别人,关公面前耍大刀,你算那根葱啊。。

妈的打10086说的我的移动号可以换4G卡,中午高高兴兴,急急忙忙跑到双林营业厅去换4G卡,走拢了却给我说由于我之前的合约机有个20块钱流量套餐不能取消,有三年合约,要三年后才能取消,有这个流量套餐的就不能办理4G业务,我就说不取消流量套餐,保留就可以了,大不了每个月多给20块钱,你现在4G业务也没有完全覆盖,据说目前只有一环路内和营业厅有信号,没4G信号的地方,也可以用4G流量??? 没4G的信号就只能用3G信号,没3G信号也就只能用2G的,操。

按你现在这们业务思路,移动还想推4G业务,推个杰宝哦,设置各种门槛,搞毛线。。。

移动的瓜娃子些,赶紧升级业务规则吧,准备好了再推4G业务啊,QNMLB

Posted in 杂七杂八 at January 4, 2014. by 傻猫 .    Views: 4747    No Comments

2014,我来了

再见2013,迎接2014
再回首,加班的场景还历历在目
挥下的汗水,会铭记在人生日记里
年轻时,大吃大喝
总认为自己的身体棒棒
至从去年得了肾结石
开始注意饮食和运动
去年总共运动90次
主要是跑步和散步
340公里,耗时66小时
燃烧热量25323大卡
减肥15斤
结石花了医药费3000+
虽然挨了痛,有了警醒
还是值得的
争取2014再减20斤
加油

Posted in 我的生活 at January 2, 2014. by 傻猫 .    Views: 2020    No Comments