2011年9月3日
字符转换
摘要： vars:string;p:pchar;a:array[1..20] of char;那么三者之间的转换如下：1、字符串到PChar p:=PChar(s);2、PChar到字符串 s:=p;3、PChar到字符数组 StrCopy(@a,p);4、字符数组到PChar PChar(@a);5、字符串与字符数组之间的转换就只有通过PChar来中转了。例如下面这个例子：procedure TForm1.btn1Click(Sender: TObject);varstr:array[1..10] of char;beginStrCopy(@str,PChar(mmo1.Text));mmo... 阅读全文
posted @ 2011-09-03 21:23 delphi中间件 阅读(256) 评论(0) 推荐(0) 编辑
SQL SERVER备份脚本
摘要： -- 完全备份-- 注意: 一切都从完全备份开始DECLARE @Path VARCHAR(1000), @FileName VARCHAR(1000),@WeekDay VARCHAR(20)SET @WeekDay = CASE DATEPART(WEEKDAY, GETDATE()) WHEN 1 THEN '星期天' WHEN 2 THEN '星期一' WHEN 3 THEN '星期二' WHEN 4 THEN '星期三' WHEN 5 THEN '星期四' WHEN 6 THEN '星期五' 阅读全文
posted @ 2011-09-03 21:21 delphi中间件 阅读(361) 评论(0) 推荐(0) 编辑
sql server游标临时表
摘要： ALTER PROCEDURE MKTG_DiffeRenceDailyReport@CustomerName varchar(100),@ShipDate datetimeASBEGINSet NoCount ON DECLARE @NoReceivedPackages varchar(2000), @CurrBillTrackId varchar(30), @CurrPackageId varchar(30) SELECT a.BillTrackId, a.Pieces, (case isnull(a.Canceled, 0) when 1 then '√' end) as 阅读全文
posted @ 2011-09-03 21:19 delphi中间件 阅读(265) 评论(0) 推荐(0) 编辑