博客园_D10.天地弦-生活的点点滴滴是珍贵的

sql删除临时表

2012-03-02T02:12:00Z

if object_id('tempdb..#tempTable') is not null
Begin
drop table #tempTable
End

dbgrideh 中checkbox列，灰色状态时处理从未选中状态

2012-02-20T08:00:00Z

查看ehgrid源码

procedure TCustomDBGridEh.DefaultDrawColumnCell(const Rect: TRect;
DataCol: Integer; Column: TColumnEh; State: TGridDrawState);

.......

    //modify by mofen
    if CheckBoxGrayAsUnChecked and (Column.CheckboxState = cbGrayed) then
    begin

      //如果是灰色状态
      PaintButtonControl {Eh}(Canvas.Handle, ARect1, Canvas.Brush.Color, bcsCheckboxEh,
        0, Flat, False, True, cbUnchecked
        );
    end else
    begin
      //DrawCheck(Canvas.Handle,ARect1,Column.CheckboxState,True,Flat);
      PaintButtonControl {Eh}(Canvas.Handle, ARect1, Canvas.Brush.Color, bcsCheckboxEh,
        0, Flat, False, True, Column.CheckboxState
        );
    end;

本文链接

tomcat虚拟路径的几种配置方法

2012-02-11T07:09:00Z

tomcat配置虚拟路径的4种方法
在tomcat中，webapp文件夹默认为web应用的根目录。

1.在tomcat\conf\server.xml中找到 host标签，在host标签中增加新的元素<Context/>并设置 Context的元素，其中path元素所设置的值就是在浏览器中所要访问的虚拟路径的名称；docBase元素所对应的值就是web应用所在的具体目录，这里既可以的相对webapp的相对路径，也可是文件的绝对路径。

<Engine name="Catalina" defaultHost="localhost">
.......

<Host name="localhost" appBase="webapps"
       unpackWARs="true" autoDeploy="true"
       xmlValidation="false" xmlNamespaceAware="false">

       <Context docBase="SHARP" path="/test" reloadable="true" />

       
      </Host>

</Engine>

2.在tomcat\conf\Catalina\localhost文件夹中设置一个web应用名称一样的xml文件。在xml文件中内容有一个<Context/>标签。

<Context path="/test" reloadable="true" />

3.直接在webapp目录下建一个包含WEB-INF/web.xml的项目应用文件夹，在游览器访问页面时会自动将此项目文件的名件名作为虚拟目录的名称。

4.直接在webapp目录下发布一个打包好的WAR文件，tomcat会自动解压war文件，在游览器访问页面时会自动将此项目文件的名件名作为虚拟目录的名称。

本文链接

FastReport微调

2011-11-03T02:07:00Z

在设计器中View->Options中调整Grid的大小默认为0.1mm，调成0.01后可以进行微调

本文链接

找出表的记录数

2011-09-01T03:38:00Z

自己写的

declare @count int
DECLARE @SQLString nvarchar(500)
        ,@TableName varchar(100)
SELECT top 1 @TableName = name from sysobjects where xtype='u'
SELECT @SQLString = 'select @innercount=count(1) from ' + @TableName

EXECUTE sp_executesql
   @SQLString
   ,N'@innercount int  OUTPUT'
   ,@innercount=@count OUTPUT
select @TableName + '记录数:' + CAST(@count as varchar(20))

网上的:

declare @name varchar(200)
declare @i int
declare @result table (name varchar(100))
declare @s nvarchar(100)
declare A cursor for (SELECT name FROM sysobjects where type='U')  OPEN A
fetch next from A into @name
WHILE @@FETCH_STATUS=0
begin
set @s='select top 10 @i=COUNT(1) from '+@name+''
exec sp_executesql @s,N'@i int output',@i
output
if @i>0
insert into @result select @name
fetch next from A into @name
end
close A
deallocate A
select * from @result

本文链接

cxgrid多选获取记录。不需要设置KeyFieldName

2011-08-23T01:23:00Z

procedure CopyGridRecordToJsn(pvDataSet: TcxGridDBTableView; pvValueJsn:
    ISuperObject);
var
  i, j: Integer;
  lvField: TcxGridDBColumn;
  lvItem: ISuperObject;
begin
  with pvDataSet, DataController do
  begin
    for i := 0 to Controller.SelectedRecordCount - 1 do
    begin
      lvItem := SO();
      try
        for j := 0 to pvDataSet.ColumnCount - 1 do
        begin
          lvField := pvDataSet.Columns[j];
          if lvField.DataBinding.ValueType <> 'Object' then
          begin
            lvItem.S[LowerCase(lvField.DataBinding.FieldName)] :=
                  VarToStrDef(GetValue(Controller.SelectedRecords[i].RecordIndex, j), '');
          end;
        end;
        pvValueJsn.O['select.value'] := lvItem;
        pvValueJsn.O['select.values[]'] := lvItem;
      finally
        lvItem := nil;
      end;
    end;
  end;
end;

本文链接

关联的效率

2011-08-11T03:40:00Z

1 --A段
2 ----------------------
3 select so_d.*,
4        c_bf.FApproveState
5   from sal_OrderList so_d
6   left join bas_Bom bom_m
7      on (so_d.FMaterialKey = bom_m.FMaterialKey
8         and so_d.FColorKey = bom_m.FColorKey)
9   inner join com_BillInfo c_bf
10      on (bom_m.FFormKey = c_bf.FFormKey)
11         and (c_bf.FApproveState = 1)
12
13 --B段
14 ----------------------
15 select so_d.*,
16        c_bf.FApproveState
17   from sal_OrderList so_d
18   left join bas_Bom bom_m
19   inner join com_BillInfo c_bf
20      on (bom_m.FFormKey = c_bf.FFormKey)
21         and (c_bf.FApproveState = 1)
22      on (so_d.FMaterialKey = bom_m.FMaterialKey
23         and so_d.FColorKey = bom_m.FColorKey)

两段脚本达到的效果是一样的

在查询分析器中显示计划的效果A段占用了70%的开销, B段占用30%开销，可见B段效率比A段高

1 --A
2 select wst.*
3   from com_MaterialWasteBook wst
4     left join B_Material b_m on wst.FMaterialKey = b_m.FKey
5     left join Color b_clr on wst.FColorKey = b_clr.FKey
6     left join bas_Items b_sz on wst.FSizeKey = b_sz.FKey
7   where b_m.FKey is not null
8
9 ---B
10 select wst.*
11   from com_MaterialWasteBook wst
12     inner join B_Material b_m on wst.FMaterialKey = b_m.FKey
13     inner join Color b_clr on wst.FColorKey = b_clr.FKey
14     inner join bas_Items b_sz on wst.FSizeKey = b_sz.FKey
15

上面两段

查询开销

A 占98%

B 占2%

但是实际执行时，在100多W的记录中A执行只需25秒左右，B需要50秒（结果执行多次)

本文链接

SQL Server2000中死锁经验总结 <转>

2011-07-28T08:31:00Z

虽然不能完全避免死锁，但可以使死锁的数量减至最少。将死锁减至最少可以增加事务的吞吐量并减少系统开销，因为只有很少的事务：

回滚，而回滚会取消事务执行的所有工作。
由于死锁时回滚而由应用程序重新提交。

下列方法有助于最大限度地降低死锁：

按同一顺序访问对象。
避免事务中的用户交互。
保持事务简短并在一个批处理中。
使用低隔离级别。
使用绑定连接。

按同一顺序访问对象

如果所有并发事务按同一顺序访问对象，则发生死锁的可能性会降低。例如，如果两个并发事务获得 Supplier 表上的锁，然后获得 Part 表上的锁，则在其中一个事务完成之前，另一个事务被阻塞在 Supplier 表上。第一个事务提交或回滚后，第二个事务继续进行。不发生死锁。将存储过程用于所有的数据修改可以标准化访问对象的顺序。

避免事务中的用户交互

避免编写包含用户交互的事务，因为运行没有用户交互的批处理的速度要远远快于用户手动响应查询的速度，例如答复应用程序请求参数的提示。例如，如果事务正在等待用户输入，而用户去吃午餐了或者甚至回家过周末了，则用户将此事务挂起使之不能完成。这样将降低系统的吞吐量，因为事务持有的任何锁只有在事务提交或回滚时才会释放。即使不出现死锁的情况，访问同一资源的其它事务也会被阻塞，等待该事务完成。

保持事务简短并在一个批处理中

在同一数据库中并发执行多个需要长时间运行的事务时通常发生死锁。事务运行时间越长，其持有排它锁或更新锁的时间也就越长，从而堵塞了其它活动并可能导致死锁。

保持事务在一个批处理中，可以最小化事务的网络通信往返量，减少完成事务可能的延迟并释放锁。

使用低隔离级别

确定事务是否能在更低的隔离级别上运行。执行提交读允许事务读取另一个事务已读取（未修改）的数据，而不必等待第一个事务完成。使用较低的隔离级别（例如提交读）而不使用较高的隔离级别（例如可串行读）可以缩短持有共享锁的时间，从而降低了锁定争夺。

使用绑定连接

使用绑定连接使同一应用程序所打开的两个或多个连接可以相互合作。次级连接所获得的任何锁可以象由主连接获得的锁那样持有，反之亦然，因此不会相互阻塞

检测死锁

如果发生死锁了，我们怎么去检测具体发生死锁的是哪条SQL语句或存储过程？

这时我们可以使用以下存储过程来检测，就可以查出引起死锁的进程和SQL语句。SQL Server自带的系统存储过程sp_who和sp_lock也可以用来查找阻塞和死锁, 但没有这里介绍的方法好用。

use master
go
create procedure sp_who_lock
as
begin
declare @spid int,@bl int,
@intTransactionCountOnEntry  int,
        @intRowcount    int,
        @intCountProperties   int,
        @intCounter    int

create table #tmp_lock_who (
id int identity(1,1),
spid smallint,
bl smallint)

IF @@ERROR<>0 RETURN @@ERROR

insert into #tmp_lock_who(spid,bl) select  0 ,blocked
   from (select * from sysprocesses where  blocked>0 ) a
   where not exists(select * from (select * from sysprocesses where  blocked>0 ) b
   where a.blocked=spid)
   union select spid,blocked from sysprocesses where  blocked>0

IF @@ERROR<>0 RETURN @@ERROR

-- 找到临时表的记录数
select  @intCountProperties = Count(*),@intCounter = 1
from #tmp_lock_who

IF @@ERROR<>0 RETURN @@ERROR

if @intCountProperties=0
  select '现在没有阻塞和死锁信息' as message

-- 循环开始
while @intCounter <= @intCountProperties
begin
-- 取第一条记录
  select  @spid = spid,@bl = bl
  from #tmp_lock_who where Id = @intCounter
begin
  if @spid =0
            select '引起数据库死锁的是: '+ CAST(@bl AS VARCHAR(10)) + '进程号,其执行的SQL语法如下'
else
            select '进程号SPID：'+ CAST(@spid AS VARCHAR(10))+ '被' + '进程号SPID：'+ CAST(@bl AS VARCHAR(10)) +'阻塞,其当前进程执行的SQL语法如下'
DBCC INPUTBUFFER (@bl )
end

-- 循环指针下移
set @intCounter = @intCounter + 1
end

drop table #tmp_lock_who

return 0
end

杀死锁和进程

如何去手动的杀死进程和锁？最简单的办法，重新启动服务。但是这里要介绍一个存储过程，通过显式的调用，可以杀死进程和锁。

use master
go

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_killspid]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_killspid]
GO

create proc p_killspid
@dbname varchar(200)    --要关闭进程的数据库名
as
    declare @sql  nvarchar(500)
    declare @spid nvarchar(20)

    declare #tb cursor for
        select spid=cast(spid as varchar(20)) from master..sysprocesses where dbid=db_id(@dbname)
    open #tb
    fetch next from #tb into @spid
    while @@fetch_status=0
    begin
        exec('kill '+@spid)
        fetch next from #tb into @spid
    end
    close #tb
    deallocate #tb
go

--用法
exec p_killspid  'newdbpy'

查看锁信息

如何查看系统中所有锁的详细信息？在企业管理管理器中，我们可以看到一些进程和锁的信息，这里介绍另外一种方法。

--查看锁信息
create table #t(req_spid int,obj_name sysname)

declare @s nvarchar(4000)
    ,@rid int,@dbname sysname,@id int,@objname sysname

declare tb cursor for
    select distinct req_spid,dbname=db_name(rsc_dbid),rsc_objid
    from master..syslockinfo where rsc_type in(4,5)
open tb
fetch next from tb into @rid,@dbname,@id
while @@fetch_status=0
begin
    set @s='select @objname=name from ['+@dbname+']..sysobjects where id=@id'
    exec sp_executesql @s,N'@objname sysname out,@id int',@objname out,@id
    insert into #t values(@rid,@objname)
    fetch next from tb into @rid,@dbname,@id
end
close tb
deallocate tb

select 进程id=a.req_spid
    ,数据库=db_name(rsc_dbid)
    ,类型=case rsc_type when 1 then 'NULL 资源（未使用）'
        when 2 then '数据库'
        when 3 then '文件'
        when 4 then '索引'
        when 5 then '表'
        when 6 then '页'
        when 7 then '键'
        when 8 then '扩展盘区'
        when 9 then 'RID（行 ID)'
        when 10 then '应用程序'
    end
    ,对象id=rsc_objid
    ,对象名=b.obj_name
    ,rsc_indid
from master..syslockinfo a left join #t b on a.req_spid=b.req_spid

go
drop table #t

本文链接

Word 2007～2010手动双面打印设置

2011-07-09T03:01:00Z

（类似于2003及之前版本中的背面逆序）

安装好word之后最需要设置的有：改写模式、打印选项、输入法控制处于活动状态。

在用word2003时，为了使手动双面打印的最终结果是正序的，而且打印背面时不用整理纸张次序，设置方法非常简单，只要打开对话框左下角的“选项…”。

如下图所示：

在弹出的对话框中选中“双面打印选项”中的“纸张背面”，点“确定”，这样打印偶数页的时候就可以实现自动逆序打印了。

以后，只需在“打印”对话框里选中“手动双面打印”即可。

使用Word 2007和Word 2010时，有点儿麻烦：需在Word窗口中，点“文件”——“选项”——“高级”——“打印”，同时勾选上“逆序打印页面”和“在纸张背面打印以进行双面打印”。

如下图所示：

设置好之后，打印时选中“手动双面打印”即可。

但是问题又出来了，就是在单面打印时，是逆页序的。

另一种方法是“逆页序打印页面”和“在纸张背面打印以进行双面打印”都不打勾，而在“打印在双面打印纸张的正面”打勾，用这种方法进行双面打印时，只需在打印结束后调整一次顺序。

所以，从事双面打印多的就用第一种方案，反之用第二种方案。

本文链接

superobject内存泄漏

2011-06-30T09:35:00Z

var

lvItem:ISuperObject;

begin

lvItem:=SO('""'); //""

lvItem.S['count'] := 0; //这里创建了一个superobject对象。但是没有关联在lvItem里面

lvItem := nil; //这里释放的时候lvItem中没有对象

end;

//关闭程序后内存泄漏.

本文链接