逸'Coding'Blog

摘要： IF EXISTS(Select Name From Sysobjects Where Name='P_ExistsDropTable' And Xtype='P')DROP PROC P_ExistsDropTableGOCreate Proc P_ExistsDropTable(@DelTable Varchar(200))AsDeclare @SQLText Varchar(1000)If Exists(Select Top 1 Name From Sysobjects Where Name=@DelTable And XType='U') 阅读全文

摘要： --主要原理： exec sp_spaceused '表名' --取得表占用空間 exec sp_spaceused ''--數據庫所有空間 create table #Data(name varchar(100),row varchar(100),reserved varchar(100),data varchar(100),index_size varchar(100),unused varchar(100)) declare @name varchar(100) declare cur cursor for select name from sysobje 阅读全文

摘要： declare @DJBH varchar(50)declare @DM2 varchar(50)declare @SQLText varchar(3000)declare myCursor cursor for select top 10 DJBH from SPJHD ORDER BY DJBHopen myCursorfetch next from myCursor into @DJBHwhile @@fetch_status=0 begin print 'CategoryId='+cast(@DJBH as varchar(20)) Set @SQLText =  阅读全文

摘要： 1、判断数据表是否存在 方法一：use yourdb;goif object_id(N'tablename',N'U') is not nullprint '存在'else print '不存在'例如：use fireweb;goif object_id(N'TEMP_TBL',N'U') is not nullprint '存在'else print '不存在' 方法二：USE [实例名] GOIF EXISTS (SELECT * FROM dbo.SysObje 阅读全文

摘要： Delphi4--Delphi7的代码美化工具，一键美化，Ctrl+D,如果有CnPack那么,Csdn会遮蔽快捷键.请在Tools里面美化选项.可以自行义美化格式。不支持delphi2005以后的版本（他们已经自带了)CSDN下载地址:http://download.csdn.net/detail/yilongmd/5177915 阅读全文

摘要： 可以自己来配置格式:Csdn 下载地址:http://download.csdn.net/detail/yilongmd/5166283 阅读全文

摘要： 拿到手机的时候 首先就想得到Root权限,这款手机很多root工具都不适应机型,什么360,百度,QQ.还有一些是Z4都试过了 都不行.同事跟我说一定要刷机.我想功能出现了就应该可以一键root的 深度一键ROOT工具(刷机大师) V3.0.7 一定要这个版本下载地址:http://www.7edown.com/soft/down/soft_22577.html一.解压,安装二.电脑操作,里面有含一键Root工具,其他刷机功能本人都没用过...三.（手机操作）打开手机的USB调试应用程序-设定-开发者选项-USB调试 把USB调试勾选上四.用数据线将手机连接电脑五.等待连接手机 自动更新驱动六 阅读全文

摘要： 使用唯一约束语句:ALTER TABLE [Table] ADD CONSTRAINT [索引名称] PRIMARY KEY CLUSTERED ([Columns])删除用:ALTER TABLE [Table]DROP CONSTRAINT [索引名称] 阅读全文

摘要： procedure TFmXX.BtnFindClick(Sender: TObject);var i : integer;begin inherited; for i := 0 to BTvCity.Items.Count -1 do begin {如果和文本框匹配} if BTvCity.Items[i].Text = EdtNodeText.Text then begin {有父类的时候通过关闭展开父类让Tv自动定位} if BTvCity.Items[i].Parent <> nil then begin BTvCi... 阅读全文

摘要： varp1,p2,p3:pointerS:String;I:Integer;beginp1:= Pointer(S);p2:= @S;P3:= pchar(s);//p1和p2p3 有什么区别吗？procedure TForm1.FormCreate(Sender: TObject);begins:='abcdef';end;我们用这种方式来赋值s 是一个全局变量p1:=Pointer(S);45ecd8 是s的指针的指针所以这2句话是指针的复制p2:= @S;指针的指针赋值给指针p3:=pchar(s);call 404ca4在下面和第一个类似就是把string中的数据(去掉 阅读全文