Matthew的Blog

SQL语句导入导出大全

/*******  导出到excel
EXEC master..xp_cmdshell 'bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""'

/***********  导入Excel
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

SELECT cast(cast(科目编号 as numeric(10,2)) as nvarchar(255))+'　' 转换后的别名
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

/** 导入文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" in c:\DT.txt -c -Sservername -Usa -Ppassword'

/** 导出文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" out c:\DT.txt -c -Sservername -Usa -Ppassword'
或
EXEC master..xp_cmdshell 'bcp "Select * from dbname..tablename" queryout c:\DT.txt -c -Sservername -Usa -Ppassword'

导出到TXT文本，用逗号分开
exec master..xp_cmdshell 'bcp "库名..表名" out "d:\tt.txt" -c -t ,-U sa -P password'

BULK INSERT 库名..表名
FROM 'c:\test.txt'
WITH (
    FIELDTERMINATOR = ';',
    ROWTERMINATOR = '\n'
)

--/* dBase IV文件
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase IV;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料4.dbf]')
--*/

--/* dBase III文件
select * from
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'dBase III;HDR=NO;IMEX=2;DATABASE=C:\','select * from [客户资料3.dbf]')
--*/

--/* FoxPro 数据库
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
--*/

/**************导入DBF文件****************/
select * from openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;
SourceDB=e:\VFP98\data;
SourceType=DBF',
'select * from customer where country != "USA" order by country')
go
/***************** 导出到DBF ***************/
如果要导出数据到已经生成结构(即现存的)FOXPRO表中,可以直接用下面的SQL语句

insert into openrowset('MSDASQL',
'Driver=Microsoft Visual FoxPro Driver;SourceType=DBF;SourceDB=c:\',
'select * from [aa.DBF]')
select * from 表

说明:
SourceDB=c:\  指定foxpro表所在的文件夹
aa.DBF        指定foxpro表的文件名.

/*************导出到Access********************/
insert into openrowset('Microsoft.Jet.OLEDB.4.0',
   'x:\A.mdb';'admin';'',A表) select * from 数据库名..B表

/*************导入Access********************/
insert into B表 selet * from openrowset('Microsoft.Jet.OLEDB.4.0',
   'x:\A.mdb';'admin';'',A表)

*********************  导入 xml　文件

DECLARE @idoc int
DECLARE @doc varchar(1000)
--sample XML document
SET @doc ='
<root>
  <Customer cid= "C1" name="Janine" city="Issaquah">
      <Order oid="O1" date="1/20/1996" amount="3.5" />
      <Order oid="O2" date="4/30/1997" amount="13.4">Customer was very satisfied
      </Order>
   </Customer>
   <Customer cid="C2" name="Ursula" city="Oelde" >
      <Order oid="O3" date="7/14/1999" amount="100" note="Wrap it blue
             white red">
            <Urgency>Important</Urgency>
            Happy Customer.
      </Order>
      <Order oid="O4" date="1/20/1996" amount="10000"/>
   </Customer>
</root>
'
-- Create an internal representation of the XML document.
EXEC sp_xml_preparedocument @idoc OUTPUT, @doc

-- Execute a SELECT statement using OPENXML rowset provider.
SELECT *
FROM OPENXML (@idoc, '/root/Customer/Order', 1)
      WITH (oid     char(5),
            amount  float,
            comment ntext 'text()')
EXEC sp_xml_removedocument @idoc

/********************导整个数据库*********************************************/

用bcp实现的存储过程

/*
 实现数据导入/导出的存储过程
         根据不同的参数,可以实现导入/导出整个数据库/单个表
 调用示例:
--导出调用示例
----导出单个表
exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',1
----导出整个数据库
exec file2table 'zj','','','xzkh_sa','C:\docman',1

--导入调用示例
----导入单个表
exec file2table 'zj','','','xzkh_sa..地区资料','c:\zj.txt',0
----导入整个数据库
exec file2table 'zj','','','xzkh_sa','C:\docman',0

*/
if exists(select 1 from sysobjects where name='File2Table' and objectproperty(id,'IsProcedure')=1)
 drop procedure File2Table
go
create procedure File2Table
@servername varchar(200)  --服务器名
,@username varchar(200)   --用户名,如果用NT验证方式,则为空''
,@password varchar(200)   --密码
,@tbname varchar(500)   --数据库.dbo.表名,如果不指定:.dbo.表名,则导出数据库的所有用户表
,@filename varchar(1000)  --导入/导出路径/文件名,如果@tbname参数指明是导出整个数据库,则这个参数是文件存放路径,文件名自动用表名.txt
,@isout bit      --1为导出,0为导入
as
declare @sql varchar(8000)

if @tbname like '%.%.%' --如果指定了表名,则直接导出单个表
begin
 set @sql='bcp '+@tbname
  +case when @isout=1 then ' out ' else ' in ' end
  +' "'+@filename+'" /w'
  +' /S '+@servername
  +case when isnull(@username,'')='' then '' else ' /U '+@username end
  +' /P '+isnull(@password,'')
 exec master..xp_cmdshell @sql
end
else
begin --导出整个数据库,定义游标,取出所有的用户表
 declare @m_tbname varchar(250)
 if right(@filename,1)<>'\' set @filename=@filename+'\'

 set @m_tbname='declare #tb cursor for select name from '+@tbname+'..sysobjects where xtype=''U'''
 exec(@m_tbname)
 open #tb
 fetch next from #tb into @m_tbname
 while @@fetch_status=0
 begin
  set @sql='bcp '+@tbname+'..'+@m_tbname
   +case when @isout=1 then ' out ' else ' in ' end
   +' "'+@filename+@m_tbname+'.txt " /w'
   +' /S '+@servername
   +case when isnull(@username,'')='' then '' else ' /U '+@username end
   +' /P '+isnull(@password,'')
  exec master..xp_cmdshell @sql
  fetch next from #tb into @m_tbname
 end
 close #tb
 deallocate #tb 
end
go

/**********************Excel导到Txt****************************************/
想用
select * into opendatasource(...) from opendatasource(...)
实现将一个Excel文件内容导入到一个文本文件

假设Excel中有两列，第一列为姓名，第二列为很行帐号(16位)
且银行帐号导出到文本文件后分两部分，前8位和后8位分开。

如果要用你上面的语句插入的话,文本文件必须存在,而且有一行:姓名,银行账号1,银行账号2
然后就可以用下面的语句进行插入
注意文件名和目录根据你的实际情况进行修改.

insert into
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Text;HDR=Yes;DATABASE=C:\'
)...[aa#txt]
--,aa#txt)
--*/
select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
from
opendatasource('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls'
--,Sheet1$)
)...[Sheet1$]

如果你想直接插入并生成文本文件,就要用bcp

declare @sql varchar(8000),@tbname varchar(50)

--首先将excel表内容导入到一个全局临时表
select @tbname='[##temp'+cast(newid() as varchar(40))+']'
 ,@sql='select 姓名,银行账号1=left(银行账号,8),银行账号2=right(银行账号,8)
into '+@tbname+' from
opendatasource(''MICROSOFT.JET.OLEDB.4.0''
,''Excel 5.0;HDR=YES;IMEX=2;DATABASE=c:\a.xls''
)...[Sheet1$]'
exec(@sql)

--然后用bcp从全局临时表导出到文本文件
set @sql='bcp "'+@tbname+'" out "c:\aa.txt" /S"(local)" /P"" /c'
exec master..xp_cmdshell @sql

--删除临时表
exec('drop table '+@tbname)

用bcp将文件导入导出到数据库的存储过程:

/*--bcp-二进制文件的导入导出

 支持image,text,ntext字段的导入/导出
 image适合于二进制文件;text,ntext适合于文本数据文件

 注意:导入时,将覆盖满足条件的所有行
  导出时,将把所有满足条件的行也出到指定文件中

 此存储过程仅用bcp实现
邹建 2003.08-----------------*/

/*--调用示例
--数据导出
 exec p_binaryIO 'zj','','','acc_演示数据..tb','img','c:\zj1.dat'

--数据导出
 exec p_binaryIO 'zj','','','acc_演示数据..tb','img','c:\zj1.dat','',0
--*/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_binaryIO]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_binaryIO]
GO

Create proc p_binaryIO
@servename varchar (30),--服务器名称
@username varchar (30), --用户名
@password varchar (30), --密码
@tbname varchar (500),  --数据库..表名
@fdname varchar (30),  --字段名
@fname varchar (1000), --目录+文件名,处理过程中要使用/覆盖:@filename+.bak
@tj varchar (1000)='',  --处理条件.对于数据导入,如果条件中包含@fdname,请指定表名前缀
@isout bit=1   --1导出((默认),0导入
AS
declare @fname_in varchar(1000) --bcp处理应答文件名
 ,@fsize varchar(20)   --要处理的文件的大小
 ,@m_tbname varchar(50)  --临时表名
 ,@sql varchar(8000)

--则取得导入文件的大小
if @isout=1
 set @fsize='0'
else
begin
 create table #tb(可选名 varchar(20),大小 int
  ,创建日期 varchar(10),创建时间 varchar(20)
  ,上次写操作日期 varchar(10),上次写操作时间 varchar(20)
  ,上次访问日期 varchar(10),上次访问时间 varchar(20),特性 int)
 insert into #tb
 exec master..xp_getfiledetails @fname
 select @fsize=大小 from #tb
 drop table #tb
 if @fsize is null
 begin
  print '文件未找到'
  return
 end

end

--生成数据处理应答文件
set @m_tbname='[##temp'+cast(newid() as varchar(40))+']'
set @sql='select * into '+@m_tbname+' from(
 select null as 类型
 union all select 0 as 前缀
 union all select '+@fsize+' as 长度
 union all select null as 结束
 union all select null as 格式
 ) a'
exec(@sql)
select @fname_in=@fname+'_temp'
 ,@sql='bcp "'+@m_tbname+'" out "'+@fname_in
 +'" /S"'+@servename
 +case when isnull(@username,'')='' then ''
  else '" /U"'+@username end
 +'" /P"'+isnull(@password,'')+'" /c'
exec master..xp_cmdshell @sql
--删除临时表
set @sql='drop table '+@m_tbname
exec(@sql)

if @isout=1
begin
 set @sql='bcp "select top 1 '+@fdname+' from '
  +@tbname+case isnull(@tj,'') when '' then ''
   else ' where '+@tj end
  +'" queryout "'+@fname
  +'" /S"'+@servename
  +case when isnull(@username,'')='' then ''
   else '" /U"'+@username end
  +'" /P"'+isnull(@password,'')
  +'" /i"'+@fname_in+'"'
 exec master..xp_cmdshell @sql
end
else
begin
 --为数据导入准备临时表
 set @sql='select top 0 '+@fdname+' into '
  +@m_tbname+' from ' +@tbname
 exec(@sql)

 --将数据导入到临时表
 set @sql='bcp "'+@m_tbname+'" in "'+@fname
  +'" /S"'+@servename
  +case when isnull(@username,'')='' then ''
   else '" /U"'+@username end
  +'" /P"'+isnull(@password,'')
  +'" /i"'+@fname_in+'"'
 exec master..xp_cmdshell @sql
 
 --将数据导入到正式表中
 set @sql='update '+@tbname
  +' set '+@fdname+'=b.'+@fdname
  +' from '+@tbname+' a,'
  +@m_tbname+' b'
  +case isnull(@tj,'') when '' then ''
   else ' where '+@tj end
 exec(@sql)

 --删除数据处理临时表
 set @sql='drop table '+@m_tbname
end

--删除数据处理应答文件
set @sql='del '+@fname_in
exec master..xp_cmdshell @sql

go

/** 导入文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" in c:\DT.txt -c -Sservername -Usa -Ppassword'

改为如下，不需引号
EXEC master..xp_cmdshell 'bcp dbname..tablename in c:\DT.txt -c -Sservername -Usa -Ppassword'

/** 导出文本文件
EXEC master..xp_cmdshell 'bcp "dbname..tablename" out c:\DT.txt -c -Sservername -Usa -Ppassword'
此句需加引号  

通常，你需要获得当前日期和计算一些其他的日期，例如，你的程序可能需要判断一个月的第一天或者最后一天。你们大部分人大概都知道怎样把日期进行分割（年、月、日等），然后仅仅用分割出来的年、月、日等放在几个函数中计算出自己所需要的日期！在这篇文章里，我将告诉你如何使用DATEADD和DATEDIFF函数来计算出在你的程序中可能你要用到的一些不同日期。  
      在使用本文中的例子之前，你必须注意以下的问题。大部分可能不是所有例子在不同的机器上执行的结果可能不一样，这完全由哪一天是一个星期的第一天这个设置决定。第一天（DATEFIRST）设定决定了你的系统使用哪一天作为一周的第一天。所有以下的例子都是以星期天作为一周的第一天来建立，也就是第一天设置为7。假如你的第一天设置不一样，你可能需要调整这些例子，使它和不同的第一天设置相符合。你可以通过@@DATEFIRST函数来检查第一天设置。  

      为了理解这些例子，我们先复习一下DATEDIFF和DATEADD函数。DATEDIFF函数计算两个日期之间的小时、天、周、月、年等时间间隔总数。DATEADD函数计算一个日期通过给时间间隔加减来获得一个新的日期。要了解更多的DATEDIFF和DATEADD函数以及时间间隔可以阅读微软联机帮助。  

      使用DATEDIFF和DATEADD函数来计算日期，和本来从当前日期转换到你需要的日期的考虑方法有点不同。你必须从时间间隔这个方面来考虑。比如，从当前日期到你要得到的日期之间有多少时间间隔，或者，从今天到某一天（比如1900-1-1）之间有多少时间间隔，等等。理解怎样着眼于时间间隔有助于你轻松的理解我的不同的日期计算例子。  

一个月的第一天  

      第一个例子，我将告诉你如何从当前日期去这个月的最后一天。请注意：这个例子以及这篇文章中的其他例子都将只使用DATEDIFF和DATEADD函数来计算我们想要的日期。每一个例子都将通过计算但前的时间间隔，然后进行加减来得到想要计算的日期。  

      这是计算一个月第一天的SQL  脚本：  
      SELECT  DATEADD(mm,  DATEDIFF(mm,0,getdate()),  0)  

      我们把这个语句分开来看看它是如何工作的。最核心的函数是getdate()，大部分人都知道这个是返回当前的日期和时间的函数。下一个执行的函数DATEDIFF(mm,0,getdate())是计算当前日期和"1900-01-01  00:00:00.000"这个日期之间的月数。记住：时期和时间变量和毫秒一样是从"1900-01-01  00:00:00.000"开始计算的。这就是为什么你可以在DATEDIFF函数中指定第一个时间表达式为"0"。下一个函数是DATEADD，增加当前日期到"1900-01-01"的月数。通过增加预定义的日期"1900-01-01"和当前日期的月数，我们可以获得这个月的第一天。另外，计算出来的日期的时间部分将会是"00:00:00.000"。  

      这个计算的技巧是先计算当前日期到"1900-01-01"的时间间隔数，然后把它加到"1900-01-01"上来获得特殊的日期，这个技巧可以用来计算很多不同的日期。下一个例子也是用这个技巧从当前日期来产生不同的日期。  

  
本周的星期一  

      这里我是用周(wk)的时间间隔来计算哪一天是本周的星期一。  

      SELECT  DATEADD(wk,  DATEDIFF(wk,0,getdate()),  0)  

一年的第一天  

      现在用年(yy)的时间间隔来显示这一年的第一天。  

      SELECT  DATEADD(yy,  DATEDIFF(yy,0,getdate()),  0)  

季度的第一天  

      假如你要计算这个季度的第一天，这个例子告诉你该如何做。  

      SELECT  DATEADD(qq,  DATEDIFF(qq,0,getdate()),  0)  

当天的半夜  

      曾经需要通过getdate()函数为了返回时间值截掉时间部分，就会考虑到当前日期是不是在半夜。假如这样，这个例子使用DATEDIFF和DATEADD函数来获得半夜的时间点。  

      SELECT  DATEADD(dd,  DATEDIFF(dd,0,getdate()),  0)  

深入DATEDIFF和DATEADD函数计算  

      你可以明白，通过使用简单的DATEDIFF和DATEADD函数计算，你可以发现很多不同的可能有意义的日期。  

      目前为止的所有例子只是仅仅计算当前的时间和"1900-01-01"之间的时间间隔数量，然后把它加到"1900-01-01"的时间间隔上来计算出日期。假定你修改时间间隔的数量，或者使用不同的时间间隔来调用DATEADD函数，或者减去时间间隔而不是增加，那么通过这些小的调整你可以发现和多不同的日期。  

      这里有四个例子使用另外一个DATEADD函数来计算最后一天来分别替换DATEADD函数前后两个时间间隔。  

上个月的最后一天  

      这是一个计算上个月最后一天的例子。它通过从一个月的最后一天这个例子上减去3毫秒来获得。有一点要记住，在Sql  Server中时间是精确到3毫秒。这就是为什么我需要减去3毫秒来获得我要的日期和时间。  

      SELECT  dateadd(ms,-3,DATEADD(mm,  DATEDIFF(mm,0,getdate()),  0))  

      计算出来的日期的时间部分包含了一个Sql  Server可以记录的一天的最后时刻("23:59:59:997")的时间。  

去年的最后一天  

      连接上面的例子，为了要得到去年的最后一天，你需要在今年的第一天上减去3毫秒。  

      SELECT  dateadd(ms,-3,DATEADD(yy,  DATEDIFF(yy,0,getdate()),  0))  

本月的最后一天  

      现在，为了获得本月的最后一天，我需要稍微修改一下获得上个月的最后一天的语句。修改需要给用DATEDIFF比较当前日期和"1900-01-01"返回的时间间隔上加1。通过加1个月，我计算出下个月的第一天，然后减去3毫秒，这样就计算出了这个月的最后一天。这是计算本月最后一天的SQL脚本。  

      SELECT  dateadd(ms,-3,DATEADD(mm,  DATEDIFF(m,0,getdate())+1,  0))  

本年的最后一天  

      你现在应该掌握这个的做法，这是计算本年最后一天脚本  

      SELECT  dateadd(ms,-3,DATEADD(yy,  DATEDIFF(yy,0,getdate())+1,  0))。  

本月的第一个星期一  

      好了，现在是最后一个例子。这里我要计算这个月的第一个星期一。这是计算的脚本。  

        select  DATEADD(wk,  DATEDIFF(wk,0,                                                          
                              dateadd(dd,6-datepart(day,getdate()),getdate())        
                                                                                                ),  0)                          

      在这个例子里，我使用了"本周的星期一"的脚本，并作了一点点修改。修改的部分是把原来脚本中"getdate()"部分替换成计算本月的第6天，在计算中用本月的第6天来替换当前日期使得计算可以获得这个月的第一个星期一。  

总结  

      我希望这些例子可以在你用DATEADD和DATEDIFF函数计算日期时给你一点启发。通过使用这个计算日期的时间间隔的数学方法，我发现为了显示两个日期之间间隔的有用历法是有价值的。注意，这只是计算出这些日期的一种方法。要牢记，还有很多方法可以得到相同的计算结果。假如你有其他的方法，那很不错，要是你没有，我希望这些例子可以给你一些启发，当你要用DATEADD和DATEDIFF函数计算你程序可能要用到的日期时。  

---------------------------------------------------------------  
附录，其他日期处理方法  

1)去掉时分秒  
declare  @  datetime  
set  @  =  getdate()  --'2003-7-1  10:00:00'  
SELECT  @,DATEADD(day,  DATEDIFF(day,0,@),  0)  

2）显示星期几  
select  datename(weekday,getdate())    

3）如何取得某个月的天数  
declare  @m  int  
set  @m=2  --月份  
select    datediff(day,'2003-'+cast(@m  as  varchar)+'-15'  ,'2003-'+cast(@m+1    as  varchar)+'-15')  
另外，取得本月天数  
select    datediff(day,cast(month(GetDate())  as  varchar)+'-'+cast(month(GetDate())  as  varchar)+'-15'  ,cast(month(GetDate())  as  varchar)+'-'+cast(month(GetDate())+1    as  varchar)+'-15')  
或者使用计算本月的最后一天的脚本，然后用DAY函数区最后一天  
SELECT  Day(dateadd(ms,-3,DATEADD(mm,  DATEDIFF(m,0,getdate())+1,  0)))  

4）判断是否闰年：  
SELECT  case  day(dateadd(mm,  2,  dateadd(ms,-3,DATEADD(yy,  DATEDIFF(yy,0,getdate()),  0))))  when  28  then  '平年'  else  '闰年'  end  
或者  
select  case  datediff(day,datename(year,getdate())+'-02-01',dateadd(mm,1,datename(year,getdate())+'-02-01'))  
when  28  then  '平年'  else  '闰年'  end  

5）一个季度多少天  
declare  @m  tinyint,@time  smalldatetime  
select  @m=month(getdate())  
select  @m=case  when  @m  between  1  and  3  then  1  
                      when  @m  between  4  and  6  then  4  
                      when  @m  between  7  and  9  then  7  
                      else  10  end  
select  @time=datename(year,getdate())+'-'+convert(varchar(10),@m)+'-01'  
select  datediff(day,@time,dateadd(mm,3,@time))

---- microsoft agent是微软公司于1997年9月发布的一项代理软件开发技术，而后被集成到internet explorer 4.0 plus及更高版本中，目前版本为2.0，支持简体中文。作为一种软件代理工具，agent以其强大的交互功能、鲜明的人性特点、优美的操作界面和简便统一的编程方法，对由菜单、按钮、提示框等组成的传统人机交互方式产生了很大影响，在多媒体创作、web应用、教育软件、软件帮助系统和辅助工具制作等方面，具有广阔的应用前景。

一、 microsoft agent技术简介

---- agent一词的中文意思是“代理”，故名思意，这类代理软件的主要作用是提供一种易于理解和使用的操作界面，接受用户的指令、代替用户完成某些复杂繁琐的工作、或为用户提供帮助。科学研究表明：从人机工程的角度考虑，赋予电脑或程序更多人性化色彩，如支持语音合成输出信息、语音识别输入指令、智能提示、动画等，能够充分提高人机交互的有效性和易用性。

---- 我们知道，在office 97帮助系统中有一种叫作office助手的代理软件，其中幽默风趣的动画人物，如“大眼夹”，能够根据用户的操作步骤“智能化”地提出一些建议或帮助信息。与office助手相比，agent功能更加丰富强大，表现在：

office助手沿用传统的不透明矩形窗口，窗口后面的背景被完全挡住；agent动画人物本身是一个“alwaysontop”窗口，只有人物身体部分挡住背景，其余部分透明。

office助手只允许office 97的各个组件调用，agent动画人物可由任何windows程序调用；

agent支持文字气球和输入提示条，在输出语音的同时把文字输出至一个卡通式文字气球中。如果电脑系统中安装有agent语音识别引擎，当用户按住输入键，如scroll lock键，在agent人物下方出现一个输入命令窗口，表示它正在“聆听”用户的语音命令。

agent提供genie、merlin、bobby和peedy等动画人物，不仅具有优美诙谐的动作，而且可以通过声卡、麦克风与用户交谈。
二、 microsoft agent安装方法
---- agent是一种activex控件，其服务器程序（c:\windows\msagent\agentsvr.exe）运行在win95/98/nt操作平台上，为其它调用agent的客户程序提供服务。客户程序可以是利用vb、c++、delphi、vfp、pb等开发的应用软件，也可以是html文件中的visual script、java script脚本语言代码。

安装agent核心组件msagent.exe。

安装lernout & hauspie truvoice text-to-speech engine（完成从文字合成语音的工作，目前版本只支持英语）cgram.exe。

安装microsoft command and control speech engine（提供语音识别功能，目前版本只支持英语）actcnc.exe。

agent动画人物人物数据文件。agent支持单结构角色文件（.acs，角色数据与动画数据存于同一个文件），也支持分离结构角色文件（.acf，角色数据存于.acf中，动画数据存于.aca中）。基于本地硬盘和网络的应用程序可采用.acs文件，基于web页面的html文件在浏览器中访问时会自动调用，习惯上多使用.acs文件。
---- 上述文件可从 http://www.microsoft.com//workshop/imedia/agent/default.asp下载。
三、 microsoft agent编程要点

---- 1、 在delphi中添加agent控件

---- 在delphi ide中选择菜单component，import activex control——在import activex下的列表框中选择microsoft agent control 2.0（version 2.0），点击按钮install——在install对话框中点击按钮ok——在confirm对话框中点击按钮yes——在对话框中点击按钮ok。至此，agent控件被添加到delphi组件板activex页上。

---- 2、 在delphi中调用agent控件

---- ⑴、在delphi ide 中新建project1（包含form1），在form1上放置agent1（name属性为myagent）、button1。

---- ⑵、定义变量。

var
  peedy: iagentctlcharacterex;
  request1,request2: iagentctlrequest;

---- ⑶agent主要属性、方法、事件。

---- ①characters属性与load、unload方法：初始化agent，加载动画数据，卸载动画人物

---- request1 := myagent.characters.load( 'peedy', 'c:\windows\system\peedy.acs' );
---- peedy := myagent.characters.character( 'peedy' );
---- myagent.characters.unload('peedy');

---- ②show与hide方法：显示、隐藏agent动画人物。参数fast表示动画人物显示、隐藏的速度。fast为0表示agent飞入、飞出，fast为1表示agent直接出现、消失，没有动画过程。

---- peedy.show(0);
---- peedy.hide(1);

---- ③stopall、stop方法：停止所有动作。
---- peedy.stopall('');
---- peedy.stop(request);

---- ④connected属性：agent是否与microsoft agent服务器连接。
---- myagent.connected := true;

---- ⑤get_height、get_width、set_height、set_width方法：获得、设置agent动画人物的高度、宽度。

agenthight := peedy.get_height;
agentwidth := peedy.get_width;
peedy.set_height( round(agentheight / 2 ));
peedy.set_width( round( agentwidth / 2 ));

---- ⑥moveto方法：参数x，y表示agent动画人物移动到的坐标，参数speed表示移动的速度。

---- peedy.moveto( (screen.width-peedy.get_width) div 2, (screen.height-peedy.get_height) div 2, 2 );

---- ⑦interrupt方法：中断指定角色的动画。在几十种动画动作中，有一类后缀名为“ing” 的动作比较特殊，如“processing”、“searching”、“reading”、“writing”，一旦执行就必须通过调用另外一个动画人物的interrupt方法才能中断 。角色不能中断自身的动作，否则会导致异常。

request1 := robby.play('reading');
peedy.interrupt(request1);

---- ⑧wait方法：在多个不同动画人物之间协调动画动作，如等待srobby的当前动作执行完毕后，peedy做另外一个动作。

request1 := robby.play('read');
peedy.wait(request1);
peedy.play('search');

---- ⑨play方法：执行指定的动画动作，参数animation为一常量，表示动画类型。agent提供了几十种预定义动作，开发软件时只需直接调用这些常量即可。下面简要介绍其中常用的一些常量仅供编程参考。

---- 动作类型 中文含意 动作类型 中文含意 动作类型 中文含意

acknowledge    承认    lookdown    向下看        sad        悲伤
alert        警告    lookdownblink    向下看眨眼    search        寻找
announce    声明    lookup        向上看        startlistening    开始聆听
blink        眨眼    lookupblink    向下看眨眼    stoplistening    停止聆听
confused    迷惑    lookleft    向左看        suggest        建议
congratulate    祝贺    lookleftblink    向左看眨眼    surprised    吃惊
decline        拒绝    lookright    向右看        think        思考
dontrecognize    不承认    lookrightblink    向右看眨眼    wave        挥动
explain        解释    movedown    向下移动    write        书写
gesturedown    向下姿势    moveup    向上移动    processing    计算……
gestureup    向上姿势    moveright    向右移动    reading    阅读……
gestureleft    向左姿势    moveleft    向左移动    searching    寻找……
gestureright    向右姿势    pleased    高兴        writing    书写……
getattention    获得注意    read    阅读        greet
          问候    restpose    恢复初始状态
request := peedy.play('search');

---- ⑩speak方法：agent通过调用语音合成引擎，支持英语的语音合成输出功能，只需输入英文字符串，agent就能通过声卡、音箱“说话”。agent的当前版本尚不具备支持中文语音合成功能，所以只能以.wav文件的形式播放中文。使用时可以将想要说的中文句子预先录好，以.wav形式存储，在程序中调用即可。参数text表示文字气球中显示的文字，参数url表示.wav文件的路径。

---- peedy.speak('嗨，朋友们，你们好，现在由我为您提供帮助！','c:\新建文件夹\help.wav');

---- peedy.speak( 'do you like my help? if so, please send me an email! thank you!', '' );

---- ⑾commands.add方法：在button1click事件中为agent添加自定义语音识别命令，参数const name表示语音命令的标识，参数caption表示该命令在输入命令窗口中的显示标题，参数voice表示该命令对应的语句。当用户通过麦克风向动画人物发出语音命令时，触发agent的command事件，因此我们可以另外编写一个过程完成语音识别功能。

procedure tform1.button1click(sender: tobject);
begin
  peedy.commands.add('delphi','run
  delphi','delphi',true,true);
  peedy.commands.add('visual basic','
  run vb','vb',true,true);
  peedy.show(0);
  peedy.speak('what can i do for you, sir?','');
end;

---- ⑷、按f9运行程序。以上程序在delphi3.0/4.0、windows95/98/nt简体中文版环境下调试通过。

TShockwaveFlash主要属性如下：
ReadyState：读一个flash文件时的状态，其中包括0=Loading、1=Uninitialized、2=Loaded、3=Interactive　　和4=Complete；
　　TotalFrames：总帧数，只有当ReadyState = 4时才能访问该属性；
　　FrameNum：当前播放的帧；
　　Playing：播放或暂停一个flash；
　　Quality：指定当前渲染的质量，包括0=Low, 1=High、2=AutoLow、3=AutoHigh；
　　ScaleMode：缩放模式，0=ShowAll、1= NoBorder、2 = ExactFit；
　　AlignMode：对齐模式，Left=+1、Right=+2、Top=+4、Bottom=+8；
　　BackgroundColor：背景色，-1为默认颜色；
　　Loop：是否循环；
　　Movie：指定播放的flash文件路径，可以为一个URL。

TShockwaveFlash主要方法如下：
Play()：开始播放动画；
　　Stop()；停止播放动画；
　　Back()；播放前一帧动画；
　　Forward()：播放后一帧动画；
　　Rewind()：播放第一帧动画；
　　SetZoomRect(int left, int top, int right, int bottom)：设置缩放的区域；
　　Zoom(int percent)：按百分比缩放；
　　Pan(int x, int y, int mode)：缩放播放面板，其中模式0为按像数、1为按窗口百分比。

TShockwaveFlash主要事件如下：
OnProgress(int percent)：读取一个flash时触发；
　　OnReadyStateChange(int state)：状态改变时触发。states的值可以为0=Loading、1=Uninitialized、　　2=Loaded、3=Interactive和4=Complete。

使用cxGrid有一些时间了，在这里总结一下使用cxGrid的一些方法，希望给刚开始接触cxGrid的人一些帮助。

1.简单介绍：cxGrid右下方的cxGrid1Level1是表示Grid表的层，cxGrid可以有多层，这相当于集合了PageControl的

功能,而cxGrid1Level1右边的cxGrid1DBTableView1相当于DBGrid一样。右击cxGrid1可以添加cxGrid1Level2，右击

cxGrid1Level2，可以选择Create View , Add level 或者Delete Level。Add level可以增加子Level，Create View

里面可以选择很多不同总类的View。其中
   1)DB Table可以和数据库连接的View，更一般的DBGrid类似，它比DBGrid多了比如鼠标中键可以用，可以统计，

查询，等等功能；
   2)DB Banded Table 则可以实现比如：
                     ---------------------------------
                     |     说明1     |     说明2     |
                     ---------------------------------
                     | 字段1 | 字段2 | 字段3 | 字段4 |
等类似的功能；
   3)DB Card View 则提供了卡片方式的显示数据的功能，这个用在比如人事档案管理比较不错；
   4)其它不一一赘述。
 
2.一些使用方法：
   1)有图片和MEMO的例子：
     拖入一个cxGrid1，Table1，DataSource1。 Table1的DatabaseName设为DBDEMOS，TableName设为biolife.db，

    Active设为True;DataSource1的DataSet设为Table1；cxGrid1DBTableView1的DataController中的DataSource  

    设为DataSource1;右击cxGrid1DBTableView1选择Create All Columns；双击cxGrid1，在弹出的窗口中找到    

   cxGrid1DBTableView1Notes和cxGrid1DBTableView1Graphic，将它们的Properties属性设为BlobEdit；运行看看 

   结果。再将cxGrid1DBTableView1Graphic的Properties属性设为Image，再将Properties下的Stretch设为True， 

   将cxGrid1DBTableView1->optionsview->CellAutoHeight 设为True，看看结果。

   2)如何让“Drag a column here to group by that column”不显示
     解决：点击cxGrid1上的cxGrid1DBTableView1
     在cxGrid1DBTableView1->optionsview->groupbybox:=false即可 
     注：OptionsView里面有很多属性可能经常要用，比如：ColumnAutoWith,Navigator等等，慢慢琢磨吧:)
    
   3)GroupPanel上面的英文[Drag a column header to group by that column]怎么可以改成中文？
     解决：最简单的方法是 TcxGridTableView.OnCustomDrawPartBackground ，也可用 OnCustomDrawGroupCell：

     procedure TForm1.cxGrid1DBTableView1CustomDrawPartBackground(
                Sender: TcxGridTableView; ACanvas: TcxCanvas;
               AViewInfo: TcxCustomGridCellViewInfo; var ADone: Boolean);
     begin
       AViewInfo.Text:='动态设置 GroupBox 的显示内容';
       ACanvas.FillRect(AViewInfo.Bounds);
     end;

   4)如何实现如下功能：
            +财务部
            +原材料仓库
            +成品库
            +冲压车间
            +软件开发部
     这个是部门的名称,点击加号就可以将本部门的人员情况显示出来。
     解决：其实这是一个主从表关系，1：填好主表的keyfieldnames
                                   2：填好从表的keyfieldnames
                                   3：填好从表的　detaikeyfieldNames与masterkeyfieldnames
                                   4: 从表的数据源一定要按与主表关联的字段排序
    注：其它地方设置了主从表结构那样就显示不出来，比如设置了从表的Table或者Query的mastersource和
    asterfield就会不能显示数据！如果是两个cxGrid的主从关系，这样设置就很OK了。

  
  5)统计功能
    解决：cxGrid1DBTableView1->optionsview->Footer 设为True
          cxGrid1DBTableView1->DataController->Summary设置FooterSummaryItems即可 

  6)类似PageControl显示
    解决：增加一个Level,将cxGrid1->RootLevelOptions->DetailTabsPosition设为dtpTop，然后相应的设置cxGrid1Level1,和cxGrid1Level2的Caption值。

   未完待续。。。。。。。。。 

2003-10-29 20:46:00   
 发表评语???    

 2003-10-30 20:55:11    问题7，8，9 7)如何设定左边几列，不能滚动?
    解决：使用DB Banded Table才可以实现，
          在cxGrid1DBBandedTableView里建立Band0,Band1
          Band0的Fixed=tfLeft
          Band1的Fixed=tfnone
          设置要锁定的字段的BandIndex=0,其它为1，就OK了。  
 
  8)怎样实现如EXCEL一样的，当前格=G14+G15+G16 这样的功能
    解决：举一个简单的例子：label1.Caption := cxGrid1DBTableView1.DataController.Values[2,

3]+cxGrid1DBTableView2.DataController.Values[1, 1]+cxGrid1DBTableView3.DataController.Values[1, 1];
所以不同cxGrid1DBTableView中的数据都可以给当前格，这样就做到了EXCEL中的当前格=G14+G15+G16 类似的功能。
 
  9)鼠标右击cxGrid1DBBandedTableView1菜单里的Edit Layout什么用，怎么使用？
    解决：可以拖动字段，并列的可以拖成有层次感（一层层）， 拖动时会显示箭头的，就是说可以拖一个字段放

到最上面，就可以使记录按此字段进行分组。点击其中一个字段，上面还会出现一个上升或者下降的小三角形，这个

小三角形的作用是在运行阶段，数据就会按照这个字段上升或者下降排序。
     还有一个Set as Default的作用是保持当前TableView的参数，下此产生新的TableView的时候就会可以和上次保持的参数一样。这个还没有做过试验。
 

 2003-11-2 21:45:37    问题1010）怎样将cxGrid里的数据导入到EXCEL，HTML，XML和TEXT
   解决：这个问题在用了cxGrid以后变得异常简单，
uses
  cxExportGrid4Link;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ExportGrid4ToEXCEL('d:\wang.xsl',cxGrid1,True,True);
  ExportGrid4ToTEXT('d:\wang.txt',cxGrid1,True,True);
  ExportGrid4ToXML('d:\wang.xml',cxGrid1,True,True);
  ExportGrid4ToHTML('d:\wang.html',cxGrid1,True,True);
end;

 2003-11-2 21:54:10    问题1111)如何使满足条件的数据显示不同的颜色？
解决：
var
 AYellowStyle: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //行颜色
 AYellowStyle := TcxStyle.Create(Self);
 AYellowStyle.Color := $0080FFFF;
 AYellowStyle.TextColor := clMaroon;
end;

procedure TForm1.cxGrid1DBBandedTableView1StylesGetContentStyle(
 Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
 AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
begin
 if ARecord.Values[cxGrid1DBBandedTableView1Lengthcm.Index] < 81 then
   AStyle := AYellowStyle;
end;

这里cxGrid1DBBandedTableView1Lengthcm.Index小于81时就显示黄色
 

 2003-11-2 21:59:39    问题1212）如何从外边的TXT文件导入到cxGrid？
 解决：    procedure CustomizeColumns;
           procedure LoadData;

procedure TForm1.CustomizeColumns;
const
  cDistance = 1;
  cRadius = 5;
  cPeriod = 4;
  cPstring = 0;
var
  I: Integer;
begin
  DecimalSeparator := '.';
  with cxGrid1TableView2 do
  for I := 0 to ColumnCount - 1 do
    if I in [cDistance, cRadius] then
      Columns[I].DataBinding.ValueTypeClass := TcxIntegerValueType//1，5列为Integer
    else
      if I in [cPstring,cPeriod] then
      Columns[I].DataBinding.ValueTypeClass := TcxStringValueType//0，4列为String
      else
       Columns[I].DataBinding.ValueTypeClass := TcxFloatValueType;//其他为Float
end;

procedure TForm1.LoadData;
const
  AFileName = '资产负债表.txt';
  AHeaderLineCount = 2;

var
  ARecords, AValues: TStringList;
  I: Integer;

  procedure InitRecord(const Str: string);
  var
    J: Integer;
    V: Variant;
  begin
    AValues.CommaText := Str;
    for J := 0 to AValues.Count - 1 do
     if AValues.Strings[J] <> '-' then
     begin
      V := AValues.Strings[J];
      if not VarIsNull(V) then
        cxGrid1TableView2.DataController.Values[I, J] := V;
     end;
  end;

begin
  if not FileExists(AFileName) then
    raise Exception.Create('Data file not found');

  ARecords := TStringList.Create;
  AValues := TStringList.Create;

  with ARecords do
  try
    LoadFromFile(AFileName);
    cxGrid1TableView2.BeginUpdate;
    cxGrid1TableView2.DataController.RecordCount := Count - AHeaderLineCount;
    for I := 0 to Count - (AHeaderLineCount + 1) do
      InitRecord(Strings[I + AHeaderLineCount]);
  finally
    cxGrid1TableView2.EndUpdate;
    ARecords.Free;
    AValues.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CustomizeColumns;
  LoadData_Zcfz;
end;

 2003-11-3 13:18:58    附件其中“资产负债表.txt”中的数据如下：

资        产  行次  年  初  数  期  末  数  负债及所有者权益  行次  年  初  数  期  末  数
---------       ----    -----           --------        ----------             ----     --------        ---------
流动资产：  1  0.00          0.00          流动负债：          2  0.00          0.00 

 2003-11-3 20:09:25    问题1313）如何改变列的颜色？
var
  AFirstColumnStyle: TcxStyle;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //列颜色
  AFirstColumnStyle := TcxStyle.Create(Self);
  AFirstColumnStyle.Color := clAqua;
  AFirstColumnStyle.TextColor := clBlue;
  cxGrid1TableView1.Columns[1].Styles.Content := AFirstColumnStyle;
end;

 2003-11-3 20:46:42    问题1414）Set as default的用法？
  解决：Set as default的用法是为了解决设置参数的方便而做的，比如：
        连好数据库以后，更改cxGrid1DBBandedTableView1->OptionsCustomize->ColumnFiltering 设为False。（这个设置可以将字段名的下拉单给去掉）更改cxGrid1DBBandedTableView1->OptionsView->Navigator 设置为True。然后右击cxGrid1DBBandedTableView1，在弹出的菜单栏里面点击Set as default。
   OK，下次你再产生一个新的cxGrid1DBBandedTableView1时这些设置和刚才的一样了。如果需要设置的参数很多的时候，这个Set as default很有用！

 2003-11-3 20:58:27    问题1515）怎样使鼠标移动时，相应的单元里的文字变色？
   解决：
var
  FTrackItem: TcxCustomGridTableItem;
  FTrackRec: TcxCustomGridRecord;

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if (AViewInfo.GridRecord = FTrackRec) and (AViewInfo.Item = FTrackItem) then
  begin
    ACanvas.Font.Color := clred;   //红色字体
    ACanvas.Font.Style := [fsUnderline];//带下划线
  end;
end;

procedure TForm1.cxGrid1DBTableView1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  AHitTest: TcxCustomGridHitTest;
  ATrackItem: TcxCustomGridTableItem;
  ATrackRec: TcxCustomGridRecord;
begin
  ATrackItem := FTrackItem;
  ATrackRec := FTrackRec;

  AHitTest := (Sender as TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);
  if AHitTest is TcxGridRecordCellHitTest then
  begin
    FTrackItem := TcxGridRecordCellHitTest(AHitTest).Item;
    FTrackRec := TcxGridRecordCellHitTest(AHitTest).GridRecord;
  end
  else
  begin
    FTrackItem := nil;
    FTrackRec := nil;
  end;

  if (ATrackItem <> FTrackItem) or (ATrackRec <> FTrackRec) then
  begin
    // Invalidate old cell
    if ATrackRec <> nil then
      ATrackRec.Invalidate(ATrackItem);
    // Invalidate new cell
    if FTrackRec <> nil then
      FTrackRec.Invalidate(FTrackItem);
  end;
end;

 2003-11-5 11:26:19    问题1616)ExpressQuantumGrid 3.2.2中的dxdbgrid和4.2版本中的cxgrid有什么区别?
有很大的区别，基本上相当于是两个控件一样。
cxgrid是在dxdbgrid基础上完全重写的，所以cxgrid不支持dxdbgrid
所以cxgrid里面特意提供了一个将dxdbgrid导入到cxgrid的功能。
 

 2003-11-5 16:31:07    问题1717）怎样设计多表头的cxGrid？
   解决：cxGrid可以解决如下的表头：
                    ---------------------------------
                    |     说明1     |     说明2     |
                    ---------------------------------
                    | 字段1 | 字段2 | 字段3 | 字段4 |
                    |      字段5    |     字段6     |
                    |      字段7    | 字段8 | 字段9 |
实现这个很简单，你可以直接在上面拖动字段名，拖动时会显示箭头的，放入你想显示的位置就OK了。或者在鼠标右击cxGrid1DBBandedTableView1菜单里的Edit Layout里也可以拖放。

但是cxGrid不能实现如下的多表头形式：
                    ---------------------------------
                    |     说明1     |     说明2     |
                    ---------------------------------
                    | 说明3 | 说明4 | 说明5 | 说明6 |
                    |      字段1    |     字段2     |
                    |      字段3    | 字段4 | 字段5 |
不知道有谁能实现这样的多表头？

 2003-11-5 21:51:02    问题1818）在主从表结构时，当点开“+”时怎样将焦点聚在相应主表的记录上？
解决：
var
  HitTest: TcxCustomGridHitTest;

procedure TColumnsShareDemoMainForm.tvProjectsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  // Note that the Sender parameter is a Site
  HitTest := (Sender as TcxGridSite).GridView.ViewInfo.GetHitTest(X, Y);
  // The point belongs to the [+]/[-] button area
  if HitTest is TcxGridExpandButtonHitTest then
    // Move focus to the record
    TcxGridExpandButtonHitTest(HitTest).GridRecord.Focused := True;
end;

 2003-11-17 14:16:25    问题1919)CXGrid4如何展开全部节点
  解决：GridDBTableView1.DataController.Groups.FullExpand;

 2003-12-12 17:07:30    问题2020）cxGrid如何动态创建Items的Editor的项?
    cxGrid的列有一个属性,它的编辑框可以指定combobox,spinedit等.在设计时,可以为
    combobox的items添加项目.请问是否可以动态创建?(run-time时由程序加入)

解决：
var
   A:TDataSource:
   B:TcxlookupcomboboxProperties;
       begin
   A:=TDataSource.create(self);
   B:=tcxlookupcomboboxproperties.create(self);
   A.Dataset:=Dic_ry_xb;//此处指定数据源。
   b.listdource:=a;//此处指明字段的listsource属性。
   b.keyfieldnames:='a';    //此处指明字段的关键字段
   b.listfieldnames:='b';   //此处指明字段的返回值。
   b.listcolumns.items[0].caption:='x;  //此处默认是会建立一个字段，但是显示的表头是name，所以此处让它显示为自己想要的中午显示。
         cxGrid1DBTableView1c1_sex_code.Properties:=b;  //此处指明是那个字段。
 end;  //这个是初始化的代码，