D10.天地弦-生活的点点滴滴是珍贵的

declare @StartDate datetime
declare @EndDate datetime
declare @WeekDay INT

set @StartDate = '2008-2-8'
set @EndDate = '2008-2-28'

SET @WeekDay = 1   --星期天

SELECT

datediff(week
                 ,case
                     when DATEPART(weekday,@StartDate) = @WeekDay then @StartDate - 1
                     else @StartDate
                  end
                 ,case
                      when DATEPART(weekday,@EndDate) = @WeekDay then @EndDate - 1
                      else @EndDate
                  end
             ) 

- case when DATEPART(weekday,@EndDate) <> @WeekDay then 1
          else 0 end + 1

select * from bas_Material
  where CHECKSUM(*)
       NOT IN (SELECT CHECKSUM(*) FROM erpdata_zl.dbo.bas_Material)
找出bas_Material不存在在 erpdata_zl.dbo.bas_Material中的记录

--和行转列的应用效果差不多了，统计结果中可能会用到
--测试表
create table Test
(F1 varchar(10),
F2 varchar(10))

go

--插入数据
insert into Test
select 'jack' F1,'book1' F2
union
select 'jack' F1,'book2' F2
union
select 'jack' F1,'book3' F2
union
select 'Mary' F1,'book4' F2
union
select 'Mary' F1,'book5' F2
union
select 'Mike' F1,'book1' F2
union
select 'Mike' F1,'book5' F2
union
select 'Mike' F1,'book7' F2
union
select 'Mike' F1,'book9' F2
--一条动态SQL语句

go
--合并函数
CREATE FUNCTION MergeCharField(@Group varchar(255))
RETURNS varchar(8000)
AS
BEGIN
DECLARE @r varchar(8000)
SET @r=''
SELECT @r=@r+','+rtrim(F2) FROM Test WHERE F1=@Group

RETURN(substring(@r,2,8000))
END
GO
--调用
select F1 [name],dbo.MergeCharField(F1) [book] from test group by F1
--删除测试环境
drop table test
drop FUNCTION MergeCharField
/*
name     book
--------------------------
jack       book1,book2,book3
Mary     book4,book5
Mike     book1,book5,book7,book9
*/

由于刚在学ASP,自己主攻方向也不是网页,但是开了课就学学.学就要装IIS这一装还发现了不少问题.现在与在家分享我的个人经验:
第一就是大家装好了IIS就是不能打开ASP的网页,HTML的就可以.
这说明你的IIS没有问题,大家不要重装了,(我以前不知道就重装N遍,结果还是一样,打不开)
后来我发现原来是我们装的那个IIS没有WEB服务扩展(方法:右键我的电脑>管理>服务和应用程序>Internet信息服务(IIS)>web服务扩展>[好像就是前页两个是禁止后面五个都设允许,这里也不太懂原理反正这样就可以浏览ASP网页了)
好高兴也终于可以看自己做的网页了
学到了后台了,自己的IIS怎么不能浏览后台呀?
觉得求学要靠自己,一个晚上没睡,终于被我搞定了,高兴的不想睡了,六点钟就去学校打了一早上球
原来是我们的IIS没有开启启用父路径(方法:右键我的电脑>管理>服务和应用程序>Internet信息服务(IIS)>网站>默认网站>右键属性>主目录>配置>选项>勾选那个启有父路径,)
就好了
还有一个就是那个文档里添加一个Index.asp这个有的IIS有有的没(方法::右键我的电脑>管理>服务和应用程序>Internet信息服务(IIS)>网站>默认网站>右键属性>文档>添加就好了)
这样一般都可以了,如果不行,联系我在讨论下
qq:343253490

有一DataSet邦定DBGrid, 在保存....等操作后, AfterScroll表现正常

后将这个DataSet邦定到cxGrid上面, 发现在执行保存和Field.Readonly之后,AfterScroll执行了N次, 在网上查了一下这个N等于记录条数....,

cxGrid虽然很庞大, 很全, 但是要慎用...

总结:
1. 使用CloneCursor(FSourceCds, false), 新的Cds移动(first, next, piror, last)不会影响到FSourceCds的移动．

  pvParentKey:=FCdsGongChengPZJL_TV.FieldByName('FKey').AsString;
    lvTmpCds := TClientDataSet.Create(nil);
    lvTmpCds.CloneCursor(FCdsGongChengPZJL_TV, false);
    lvTmpCds.First;
    raise Exception.Create(
          'Clone:' + lvTmpCds.FieldByName('FKey').AsString
          + sLineBreak + 'After Clone:' + FCdsGongChengPZJL_TV.FieldByName('FKey').AsString
          + sLineBreak + 'Before Clone:' + pvParentKey

raise Exception.Create(
      'Clone Filter[' + lvTmpCds.Filter + '] RecordCount:' + IntToStr(lvTmpCds.RecordCount)
      + sLineBreak + 'Source Filter[' + FCdsGongChengPZJL_TV.Filter + '] RecordCount:' + IntToStr(FCdsGongChengPZJL_TV.RecordCount)
      );

UUCall知道是什么东西吧？不知道吧,火星人了吧...其实我也是刚知道的，以前总听说有网上免费电话，就是，然后下载了。免费体验拿了10分钟。打了个电话回家, 呵呵, 感觉还可以,

大家要是经常打长途的话可以尝试一下，

点下面这个注册吧, 这样如果你也免费体验我有积分拿, 呵呵, 谢谢先!

 http://account.uucall.com/c/34925953.html

我点击这个部位,他执行的是新建的动作.

在这个位置点就是正常的

这个位置点,弹出这个

经过几个小时的折腾, 也没有找出什么原因来

我上面都的按扭都是连的是action. 居然点按钮的前半部分不正常. 点后半部分才正常. 写这么多年程序, 头一次见到...,

我把他换成dxBar是正常的.

后来再换回来, 把属性ShowCaption设为false再设为true, 把什么AutoSize重设了几下, 居然可以了

难怪真的这几个小时我的RP真的有问题? 

至今没有想明白是什么问题. 如果哪位知道, 请告诉我一下. 谢谢

procedure TfrmOrderMgr.grdVMainStylesGetContentStyle(
  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
  AIndex: Integer;
  AVar: Variant;
  ABoolean: Boolean;
  lvItem: TcxGridDBColumn;
begin
  lvItem := TcxGridDBColumn(AItem);

  if grdVMainFCompleted.GroupIndex <> -1 then Exit; //分组时不分颜色

  AIndex := grdVMainFCompleted.Index;
  AVar := ARecord.Values[AIndex];
  if VarIsOrdinal(AVar) then ABoolean := AVar else ABoolean := false; //是否为bool值

  if ABoolean then  //已完成
    AStyle := dmMain.cxStyleRecCompleted else AStyle := dmMain.cxStyleRecNormal;

  if lvItem.VisibleIndex = 0 then //第一列
  begin
    AIndex := grdVMainFClosed.Index;
    AVar := ARecord.Values[AIndex];
    if VarIsOrdinal(AVar) then ABoolean := AVar else ABoolean := false; //是否为bool值
    if ABoolean then  //已取消
      AStyle := dmMain.cxStyleRecClosed;
  end;
end;

UPDATE hrm_EmpKaoQin SET FJiaQinLX=0 WHERE FJiaQinLX IS NULL

----未建立约束

if object_id('DF_hrm_EmpKaoQin_FJiaQinLX') IS NULL 
  ALTER TABLE hrm_EmpKaoQin ADD CONSTRAINT
    DF_hrm_EmpKaoQin_FJiaQinLX DEFAULT (0) FOR FJiaQinLX

---更改字段类型

ALTER TABLE hrm_EmpKaoQin ALTER COLUMN FBeiZhu VARCHAR(1600)

--更改字段不允许为空

ALTER TABLE sto_MCOH_InKey ALTER COLUMN FPiHao VARCHAR(30) NOT NULL