2008 年 4月 29 日随笔档案 - martian6125

2008年4月29日

摘要：扩展名是bat(在nt/2000/xp/2003下也可以是cmd)的文件就是批处理文件。==== 注 =======================================.bat是dos下的批处理文件.cmd是nt内核命令行环境的另一种批处理文件从更广义的角... 阅读全文

posted @ 2008-04-29 13:02 martian6125 阅读(145) 评论(0) 推荐(0)

摘要： mStrMonth:=copy(lstarttime, 6, 1);if copy(lstarttime, 6, 1)='0' thenbegin if copy(lstarttime, 7, 1)='1' then begin mStrMont... 阅读全文

posted @ 2008-04-29 12:54 martian6125 阅读(140) 评论(0) 推荐(0)

摘要： vardt:TDate;ss:String;beginDM.Free;ss:='2007-06';while (ss'2006-03') dobegin ///do with; dt:=ss+'-01'; dt:=dt-1; ss:=Forma... 阅读全文

posted @ 2008-04-29 12:54 martian6125 阅读(168) 评论(0) 推荐(0)

摘要： // CDS_Common.FieldDefs.Items[5].Name; 获得记录的字段名 //CDS_Common.Fields[5].FieldName;formatfloat('#0.00',xx);前面的‘#0.00’是个字符串，后面的XX是个... 阅读全文

posted @ 2008-04-29 12:53 martian6125 阅读(117) 评论(0) 推荐(0)

摘要： if not EXISTS(select * from syscolumns where id=object_id('u_qianyue') and [name]='guohu_date')alter TABLE u_qianyue ADD... 阅读全文

posted @ 2008-04-29 12:52 martian6125 阅读(353) 评论(0) 推荐(0)

摘要： truncate table t_colliery //删除表中的数据，但是保留表结构本身drop table t_colliery //删除表结构set nocount on delete from t_colliery //删除表中的数据，但是保留表结构本身 ... 阅读全文

posted @ 2008-04-29 12:51 martian6125 阅读(140) 评论(0) 推荐(0)

摘要： ADOConnection1.BeginTrans; //开始事务trywith ADOCommand1 dobeginConnection:=ADOConnection1;commandtext:='update [country] set [populatio... 阅读全文

posted @ 2008-04-29 12:51 martian6125 阅读(217) 评论(0) 推荐(0)

摘要： varr_id :string;beginif Qry.FieldByName('code1').AsString'' thenbegin if (Application.MessageBox('确认删除？', '提示', MB_YESNO+mb_iconinf... 阅读全文

posted @ 2008-04-29 12:50 martian6125 阅读(133) 评论(0) 推荐(0)

摘要： select * from t_colliery-----------如果表存在就删除，否则就创建新表方法---------------方法(1)------------if exists (SELECT name from sysobjects wh... 阅读全文

posted @ 2008-04-29 12:49 martian6125 阅读(271) 评论(0) 推荐(0)