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

    • 1.建立 res 文件

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

      <?xml version="1.0" encoding="UTF-8" standalone="yes"?>








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

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

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

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

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

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

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

    • 疯狂的高尔夫“川AN4R08”

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

      阅读剩余部分...

    • 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)

    • 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;

    • 关于港版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

    • 2014,我来了

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

Powered by Typecho)))   ICP:蜀ICP备05009250号