摘要:
扩展名是bat(在nt/2000/xp/2003下也可以是cmd)的文件就是批处理文件。==== 注 =======================================.bat是dos下的批处理文件.cmd是nt内核命令行环境的另一种批处理文件从更广义的角...
阅读全文
posted @ 2008-04-29 13:02
martian6125
阅读(138)
推荐(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
阅读(123)
推荐(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
阅读(163)
推荐(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
阅读(110)
推荐(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
阅读(346)
推荐(0)
编辑
摘要:
truncate table t_colliery //删除表中的数据,但是保留表结构本身drop table t_colliery //删除表结构set nocount on delete from t_colliery //删除表中的数据,但是保留表结构本身 ...
阅读全文
posted @ 2008-04-29 12:51
martian6125
阅读(127)
推荐(0)
编辑
摘要:
ADOConnection1.BeginTrans; //开始事务trywith ADOCommand1 dobeginConnection:=ADOConnection1;commandtext:='update [country] set [populatio...
阅读全文
posted @ 2008-04-29 12:51
martian6125
阅读(201)
推荐(0)
编辑
摘要:
varr_id :string;beginif Qry.FieldByName('code1').AsString'' thenbegin if (Application.MessageBox('确认删除?', '提示', MB_YESNO+mb_iconinf...
阅读全文
posted @ 2008-04-29 12:50
martian6125
阅读(130)
推荐(0)
编辑