chenyt的博客 http://blogger.org.cn/blog/blog.asp?name=chenyt 冷冰雨的博客 blogger.org.cn W3CHINA Blog webmaster@blogger.org.cn <![CDATA[单片机C语言教程【转】(一)]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=24533 chenyt 2007/5/6 20:21:08 　　学习单片机实在不是件易事，一来要购买高价格的编程器，仿真器，二来要学习编程语言，还有众多种类的单片机选择真是件让人头脑的事。在众多单片机中51架构的芯片风行很久，学习资料也相对很多，是初学的较好的选择之一。51的编程语言常用的有二种，一种是汇编语言，一种是C语言。汇编语言的机器代码生成效率很高但可读性却并不强，复杂一点的程序就更是难读懂，而C语言在大多数情况下其机器代码生成效率和汇编语言相当，但可读性和可移植性却远远超过汇编语言，而且C语言还可以嵌入汇编来解决高时效性的代码编写问题。对于开发周期来说，中大型的软件编写用C语言的开发周期通常要小于汇编语言很多。综合以上C语言的优点，我在学习时选择了C语言。以后的教程也只是我在学习过程中的一些学习笔记和随笔，在这里加以整理和修改，希望和大家一起分享，一起交流，一起学习，一起进步。

第一课　建立您的第一个C项目

    使用C语言肯定要使用到C编译器，以便把写好的C程序编译为机器码，这样单片机才能执行编写好的程序。KEIL uVISION2是众多单片机应用开发软件中优秀的软件之一，它支持众多不同公司的MCS51架构的芯片，它集编辑，编译，仿真等于一体，同时还支持，PLM，汇编和C语言的程序设计，它的界面和常用的微软VC++的界面相似，界面友好，易学易用，在调试程序，软件仿真方面也有很强大的功能。因此很多开发51应用的工程师或普通的单片机爱好者，都对它十分喜欢。
　　以上简单介绍了KEIL51软件，要使用KEIL51软件，必需先要安装它。KEIL51是一个商业的软件，对于我们这些普通爱好者可以到KEIL中国代理周立功公司的网站上下载一份能编译2K的DEMO版软件，基本可以满足一般的个人学习和小型应用的开发。（安装的方法和普通软件相当这里就不做介绍了）
　　安装好后，你是不是迫不及待的想建立自己的第一个C程序项目呢？下面就让我们一起来建立一个小程序项目吧。或许你手中还没有一块实验板，甚至没有一块单片机，不过没有关系我们可以通过KEIL软件仿真看到程序运行的结果。
　　首先当然是运行KEIL51软件。怎么打开？噢，天！那你要从头学电脑了。呵呵，开个玩笑，这个问题我想读者们也不会提的了：P。运行几秒后，出现如图1－1的屏幕。

图1－1　启动时的屏幕

接着按下面的步骤建立您的第一个项目：
　　（1）点击Project菜单，选择弹出的下拉式菜单中的New Project，如图1－2。接着弹出一个标准Windows文件对话窗口，如图1－3，这个东东想必大家是见了N次的了，用法技巧也不是这里要说的，以后的章节中出现类似情况将不再说明。在"文件名"中输入您的第一个C程序项目名称，这里我们用"test"，这是笔者惯用的名称，大家不必照搬就是了，只要符合Windows文件规则的文件名都行。"保存"后的文件扩展名为uv2，这是KEIL uVision2项目文件扩展名，以后我们可以直接点击此文件以打开先前做的项目。

图1－2　New Project菜单

 

图1－3　文件窗口

　（2）选择所要的单片机，这里我们选择常用的Ateml公司的AT89C51。此时屏幕如图1－4所示。AT89C51有什么功能、特点呢？不用急，看图中右边有简单的介绍，稍后的章节会作较详细的介绍。完成上面步骤后，我们就可以进行程序的编写了。
　　（3）首先我们要在项目中创建新的程序文件或加入旧程序文件。如果你没有现成的程序，那么就要新建一个程序文件。在KEIL中有一些程序的Demo，在这里我们还是以一个C程序为例介绍如何新建一个C程序和如何加到您的第一个项目中吧。点击图1－5中1的新建文件的快捷按钮，在2中出现一个新的文字编辑窗口，这个操作也可以通过菜单File－New或快捷键Ctrl+N来实现。好了，现在可以编写程序了，光标已出现在文本编辑窗口中，等待我们的输入了。第一程序嘛，写个简单明了的吧。下面是经典的一段程序，呵，如果你看过别的程序书也许也有类似的程序：

#include
#include

void main(void)
{
　SCON = 0x50; //串口方式1,允许接收
　

我们经常要在程序的人机交互中用到模态窗口，但在B/S开发中，这一切变得不容易了，虽然也可以用window.showModalDialog函数实现（见http://dotnet.aspx.cc/ShowDetail.aspx?id=49ML4AO8-5PB3-4KNY-NJZD-LJOIOXV4M1X4），但多数用起来麻烦，还要为了回传值用Frameset建立2个无用的窗口。不爽！

我发现可以尝试在初始页面中嵌入一个IFRAME，然后用IFRAME来显示一个页面，并将IFRAME设定为按绝对位置摆放，Z-Index设置为最高的9999，这样就可以将这个页面覆盖在初始界面上，当需要显示模态窗口时，就显示这个IFRAME，可以将IFRAME的尺寸扩大到能覆盖住初始窗口，也可以盖住关键项，目的就是不让后面的窗口有什么变化的可能。在IFRAME显示的窗口需要关闭时只要对它的parent的IFRAME隐藏就可以了。实际试验时发现IFRAME的diaplay不能在子窗口被改变，所以，我们还需要将IFRAME放到一个DIV中，控制DIV的显示就可以控制窗口的出现或隐藏。但为什么不直接用DIV来显示窗口呢，原因有两个：1.DIV不能遮挡它后面的Dropdownlist控件，而IFRAME能。2.不容易将窗口内的内容放置到一个单独的网页中，复用性差。

以下是代码，显示隐藏使用了客户端和服务端代码两种写法：

WebForm1.aspx

 <%@ Page language="c#" Codebehind="WebForm1.aspx.cs" AutoEventWireup="false" Inherits="WSGUI1.WebForm1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
 <HEAD>
  <title>WebForm1</title>
  <meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
  <meta name="CODE_LANGUAGE" Content="C#">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
  <script language="javascript">
   function ShowLayer()
   {
    document.all.MyFormLayer.style.display='';
    return false;
   }
   function SetURL(url)
   {
    document.all.IFRAME1.src=url;
   }
  </script>
 </HEAD>
 <body MS_POSITIONING="GridLayout">
  <form id="Form1" method="post" runat="server">
   <FONT face="宋体">
    <asp:DropDownList id="DropDownList1" style="Z-INDEX: 101; LEFT: 40px; POSITION: absolute; TOP: 208px"
     runat="server" Width="184px">
     <asp:ListItem Value="TEST1">q</asp:ListItem>
     <asp:ListItem Value="TEST2">w</asp:ListItem>
     <asp:ListItem Value="TEST3">e</asp:ListItem>
     <asp:ListItem Value="TEST4">r</asp:ListItem>
    </asp:DropDownList></FONT> <input type="button" name="MyButton" value="TEST" id="MyButton" onclick="ShowLayer();SetURL('WebForm2.aspx')" style="Z-INDEX: 102; LEFT: 360px; POSITION: absolute; TOP: 336px">
   <div id="MyFormLayer" style="DISPLAY: none;Z-INDEX: 103;LEFT: 16px;WIDTH: 408px;POSITION: absolute;TOP: 24px;HEIGHT: 304px">
    <iframe scrolling="no" frameborder="0" width="100%" height="100%" id="IFRAME1" runat="server">
    </iframe>
   </div>
   <asp:Button id="Button2" style="Z-INDEX: 104; LEFT: 256px; POSITION: absolute; TOP: 336px" runat="server"
    Text="ASPXTest"></asp:Button>
  </form>
 </body>
</HTML>

WebForm1.aspx.cs

....

 public class WebForm1 : System.Web.UI.Page
 {
  protected System.Web.UI.WebControls.DropDownList DropDownList1;
  protected System.Web.UI.HtmlControls.HtmlGenericControl IFRAME1;
  protected System.Web.UI.WebControls.Button Button2;
 
  private void Page_Load(object sender, System.EventArgs e)
  {
   // 在此处放置用户代码以初始化页面
   if(!IsPostBack)
   {
    
   }
  }
  public static void CreateScript(System.Web.UI.Page mypage,string strScript,string ID)
  {
   string strscript="<script language='javascript'>";
   strscript += strScript;
   strscript += "</script>";
   if(!mypage.IsStartupScriptRegistered(ID))
    mypage.RegisterStartupScript(ID, strscript);
  }
  private void Button2_Click(object sender, System.EventArgs e)
  {
   IFRAME1.Attributes.Add("src","WebForm2.aspx?NAME='中国'");
   CreateScript(Page,"ShowLayer();","SHOW");
  }
 }

WebForm2.aspx

 <%@ Page language="c#" Codebehind="WebForm2.aspx.cs" AutoEventWireup="false" Inherits="WSGUI1.WebForm2" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
 <HEAD>
  <title>WebForm2</title>
  <meta name="GENERATOR" Content="Microsoft Visual Studio .NET 7.1">
  <meta name="CODE_LANGUAGE" Content="C#">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
  <script language="javascript">
  function hide()
  {
   parent.MyFormLayer.style.display = "none";
  }
  </script>
 </HEAD>
 <body MS_POSITIONING="GridLayout">
  <form id="Form2" method="post" runat="server">
   <table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#6887bb" height="100%"
    id="table1" style="BORDER-TOP-STYLE: outset; BORDER-RIGHT-STYLE: outset; BORDER-LEFT-STYLE: outset; BORDER-BOTTOM-STYLE: outset">
    <tr>
     <td>
     </td>
     <td>
     </td>
     <td>
     </td>
    </tr>
    <tr>
     <td>
     </td>
     <td>
      <p align="center"><font color="#ffffff">模仿模态窗口效果</font></p>
      <p align="center"><input type="button" onclick="hide()" style="WIDTH: 80px" value="点击关闭">
       <asp:Button id="Button1" runat="server" Text="ASPXTest"></asp:Button></p>
     </td>
     <td>
     </td>
    </tr>
    <tr>
     <td>
     </td>
     <td>
     </td>
     <td>
     </td>
    </tr>
   </table>
  </form>
 </body>
</HTML>

WebFom2.aspx.cs

 namespace WSGUI1
{
 /// <summary>
 /// WebForm2 的摘要说明。
 /// </summary>
 public class WebForm2 : System.Web.UI.Page
 {
  protected System.Web.UI.WebControls.Button Button1;
 
  private void Page_Load(object sender, System.EventArgs e)
  {
   // 在此处放置用户代码以初始化页面
   if(!IsPostBack)
   {
    Button1.Attributes.Add("onclick","hide()");
   }
  }

 }

]]> <![CDATA[制作一个类似XP的Explorer菜单]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=4607 chenyt 2005/4/6 17:17:27 制作一个类似XP的Explorer菜单，效果图如下：

htm文件源码如下：如需要增加菜单，可简单复制，但需要修改红色的地方

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>一个类Explorer菜单</title>
<style type="text/css">
<!--
.Group {
 font-family: "宋体";
 font-size: 12px;
 background-image: url(images/center.gif);
 height: 22px;
}
.GroupLeft {
 background-image: url(images/left.gif);
 height: 22px;
 width:6px;
}
.GroupRight {
 background-image: url(images/right.gif);
 height: 22px;
 width:6px;
}
.MenuItem {
 font-family: "宋体";
 font-size: 12px; 
 cursor:hand;
}
-->
</style>
<script language="javascript">
var popUpWin=0;
function popUpWindow(URLStr, left, top, width, height)
{
  if(popUpWin)
  {
    if(!popUpWin.closed) popUpWin.close();
  }
  popUpWin = open(URLStr, 'popUpWin', 'toolbar=no,location=no,directories=no,status=no,menub ar=no,scrollbar=no,resizable=no,copyhistory=yes,width='+width+',height='+height+',left='+left+', top='+top+',screenX='+left+',screenY='+top+'');
}
function messageWindow(title, msg)
{
  var width="300", height="125";
  var left = (screen.width/2) - width/2;
  var top = (screen.height/2) - height/2;
  var styleStr = 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbar=no,resizable=no,copyhistory=yes,width='+width+',height='+height+',left='+left+',top='+top+',screenX='+left+',screenY='+top;
  var msgWindow = window.open("","msgWindow", styleStr);
  var head = '<head><title>'+title+'</title></head>';
  var body = '<center>'+msg+'<br><p><form><input type="button" value="   Done   " onClick="self.close()"></form>';
  msgWindow.document.write(head + body);
}
function OpenMenu(MenuID)
{ 
 var obj = document.getElementById('Menu'+MenuID);
 var grpobj=document.getElementById('Group'+MenuID);
 current = (obj.style.display == 'none') ? '' : 'none';
 if(current=='none')
 {
   grpobj.src ='images/downarrows_white.gif';
 }
 else
   grpobj.src ='images/uparrows_white.gif';
 obj.style.display = current; 
}
</script>
</head>

<body>
<table width="150" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td class="GroupLeft">　</td>
    <td width="138" class="Group"> <table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="85%" height="21">资料查询</td>
        <td width="15%"><img src="images/uparrows_white.gif" width="16" height="16" id="Group1" onClick="OpenMenu('1')" style="cursor:hand"></td>
      </tr>
    </table></td>
    <td class="GroupRight">　</td>
  </tr >
  <tr id="Menu1" bgcolor="#F0F0F0">
    <td>　</td>
    <td><div class="MenuItem">
  <li onMouseOver="this.style.color='#FF9933'" onMouseOut="this.style.color =''" onClick="messageWindow('Hello','Are you OK?')">查询用户</li>
        <li onMouseOver="this.style.color='#FF9933'" onMouseOut="this.style.color =''" onClick="popUpWindow('index.htm',0,0,800,600)">合同查询</li>
        <li onMouseOver="this.style.color='#FF9933'" onMouseOut="this.style.color =''">预付款查询</li>
        <li onMouseOver="this.style.color='#FF9933'" onMouseOut="this.style.color =''">发展人查询</li>
        </div>
 </td>
    <td>　</td>
  </tr>
  <tr>
    <td>　</td>
    <td>　</td>
    <td>　</td>
  </tr>
</table>
</body>
</html>

]]> <![CDATA[SQL语句导入导出大全]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=4019 chenyt 2005/3/21 14:14:37 SQL语句导入导出大全

SQL语句导入导出大全    txlicenhe（原作）
 
关键字     导入导出 DTS
 


/*******  导出到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

/*动态文件名
declare @fn varchar(20),@s varchar(1000)
set @fn = 'c:\test.xls'
set @s ='''Microsoft.Jet.OLEDB.4.0'',
''Data Source="'+@fn+'";User ID=Admin;Password=;Extended properties=Excel 5.0'''
set @s = 'SELECT * FROM OpenDataSource ('+@s+')...sheet1$'
exec(@s)
*/

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

/********************** EXCEL导到远程SQL
insert OPENDATASOURCE(
         'SQLOLEDB',
         'Data Source=远程ip;User ID=sa;Password=密码'
         ).库名.dbo.表名 (列名1,列名2)
SELECT 列名1,列名2
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表)

文件名为参数
declare @fname varchar(20)
set @fname = 'd:\test.mdb'
exec('SELECT a.* FROM opendatasource(''Microsoft.Jet.OLEDB.4.0'',
    '''+@fname+''';''admin'';'''', topics) as a ')

SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="f:\northwind.mdb";Jet OLEDB:Database Password=123;User ID=Admin;Password=;')...产品

*********************  导入 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
继续：
/**********************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实现的存储过程


/*
 实现数据导入/导出的存储过程
         根据不同的参数,可以实现导入/导出整个数据库/单个表
 调用示例:
--导出调用示例
----导出单个表
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


/************* Oracle **************/
EXEC sp_addlinkedserver 'OracleSvr',
   'Oracle 7.3',
   'MSDAORA',
   'ORCLDB'
GO

delete from openquery(mailser,'select *  from yulin')

select *  from openquery(mailser,'select *  from yulin')

update openquery(mailser,'select * from  yulin where id=15')set disorder=555,catago=888

insert into openquery(mailser,'select disorder,catago from  yulin')values(333,777)

 

补充：

对于用bcp导出,是没有字段名的.

用openrowset导出,需要事先建好表.

用openrowset导入,除ACCESS及EXCEL外,均不支持非本机数据导入

]]> <![CDATA[世界上最美丽的爱情文字]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=4018 chenyt 2005/3/21 14:12:58 世界上最美丽的爱情文字

 

（1) I love you not because of who you are, but because of who I am when I am with you.
　　 我爱你，不是因为你是一个怎样的人，而是因为我喜欢与你在一起时的感觉。


（2) No man or woman is worth your tears, and the one who is, won‘t make you cry.
　　 没有人值得你流泪，值得让你这么做的人不会让你哭泣。
　　
　　


（3) The worst way to miss someone is to be sitting right beside them knowing you can‘t have them.
　　 失去某人，最糟糕的莫过于，他近在身旁，却犹如远在天边。
　　


（4) Never frown, even when you are sad, because you never know who is falling in love with your smile.
　　 纵然伤心，也不要愁眉不展，因为你不知是谁会爱上你的笑容。


（5) To the world you may be one person, but to one person you may be the world.
　　 对于世界而言，你是一个人；但是对于某个人，你是他的整个世界。
　　


（6) Don‘t waste your time on a man/woman, who isn‘t willing to waste their time on you.
　　 不要为那些不愿在你身上花费时间的人而浪费你的时间。
　　


（7) Just because someone doesn‘t love you the way you want them to, doesn‘t mean they don‘t love you with all they have.
　　 爱你的人如果没有按你所希望的方式来爱你，那并不代表他们没有全心全意地爱你。


（8) Don‘t try so hard, the best things come when you least expect them to.
　　 不要着急，最好的总会在最不经意的时候出现。


（9) Maybe God wants us to meet a few wrong people before meeting the right one, so that when we finally meet the person, we will know how to be grateful.
　　 在遇到梦中人之前，上天也许会安排我们先遇到别的人；在我们终于遇见心仪的人时，便应当心存感激。


（10) Don‘t cry because it is over, smile because it happened.
　　 不要因为结束而哭泣，微笑吧，为你的曾经拥有。]]> <![CDATA[用JavaScript实现的日期选择框]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=3776 chenyt 2005/3/16 18:09:17 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Canlender--JavaScript</title>
<style>
td {
 font-family: Arial, Helvetica, sans-serif;
 font-size: 12px;
}

</style>

</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="180">
<tr><td id=cc>
</td></tr></table>
</body>
<script language="JavaScript">
function RunNian(The_Year)
{
 if ((The_Year%400==0) || ((The_Year%4==0) && (The_Year%100!=0)))
  return true;
 else
  return false;
}
function GetWeekday(The_Year,The_Month)
{
 
 var Allday;
 Allday = 0;
 if (The_Year>2000)
 {
 
  for (i=2000 ;i<The_Year; i++)
   if (RunNian(i))
    Allday += 366;
   else
    Allday += 365;
  for (i=2; i<=The_Month; i++)
  {
   switch (i)
   {
    case 2 :
     if (RunNian(The_Year))
      Allday += 29;
     else
      Allday += 28;
     break;
    case 3 : Allday += 31; break;
    case 4 : Allday += 30; break;
    case 5 : Allday += 31; break;
    case 6 : Allday += 30; break;
    case 7 : Allday += 31; break;
    case 8 : Allday += 31; break;
    case 9 : Allday += 30; break;
    case 10 : Allday += 31; break;
    case 11 : Allday += 30; break;
    case 12 :  Allday += 31; break;
   
   }
  
  }
 }
 
 return (Allday+6)%7;
 

}

function chooseday(The_Year,The_Month,The_Day)
{
 var Firstday;
 var completely_date;
 if (The_Day!=0)
  completely_date = The_Year + "-" + The_Month + "-" + The_Day;
 else
  completely_date = "No Choose";
 //showdate 只是一个为了显示而采用的东西，
 //如果外部想引用这里的时间，可以通过使用 completely_date引用完整日期
 //也可以通过The_Year,The_Month,The_Day分别引用年，月，日
 //当进行月份和年份的选择时，认为没有选择完整的日期
 showdate.innerText = completely_date;
 Firstday = GetWeekday(The_Year,The_Month);
 ShowCalender(The_Year,The_Month,The_Day,Firstday);
 
}

function nextmonth(The_Year,The_Month)
{
 if (The_Month==12)
  chooseday(The_Year+1,1,0);
 else
  chooseday(The_Year,The_Month+1,0);
}

function prevmonth(The_Year,The_Month)
{
 if (The_Month==1)
  chooseday(The_Year-1,12,0);
 else
  chooseday(The_Year,The_Month-1,0);
}

function prevyear(The_Year,The_Month)
{
 chooseday(The_Year-1,The_Month,0);
}

function nextyear(The_Year,The_Month)
{
 chooseday(The_Year+1,The_Month,0);
}

 

 

function ShowCalender(The_Year,The_Month,The_Day,Firstday)
{

 var showstr;
 var Month_Day;
 var ShowMonth;
 var today;
 today = new Date();
 
 
 
 switch (The_Month)
 {
  case 1 : ShowMonth = "January"; Month_Day = 31; break;
  case 2 :
   ShowMonth = "February";
   if (RunNian(The_Year))
    Month_Day = 29;
   else
    Month_Day = 28;
   break;
  case 3 : ShowMonth = "March"; Month_Day = 31; break;
  case 4 : ShowMonth = "April"; Month_Day = 30; break;
  case 5 : ShowMonth = "May"; Month_Day = 31; break;
  case 6 : ShowMonth = "June"; Month_Day = 30; break;
  case 7 : ShowMonth = "July"; Month_Day = 31; break;
  case 8 : ShowMonth = "August"; Month_Day = 31; break;
  case 9 : ShowMonth = "September"; Month_Day = 30; break;
  case 10 : ShowMonth = "October"; Month_Day = 31; break;
  case 11 : ShowMonth = "November"; Month_Day = 30; break;
  case 12 : ShowMonth = "December"; Month_Day = 31; break;
  
 }
 
 
 showstr = "";
 showstr = "<Table cellpadding=0 cellspacing=0 border=1 bordercolor=#999999 width=95% align=center valign=top>";
 showstr +=  "<tr><td width=0 style='cursor:hand' onclick=prevyear("+The_Year+"," + The_Month + ")>&lt;&lt;</td><td width=0>&nbsp;" + The_Year + "&nbsp;</td><td width=0 onclick=nextyear("+The_Year+","+The_Month+")  style='cursor:hand'>&gt;&gt;</td><td width=0 style='cursor:hand' onclick=prevmonth("+The_Year+","+The_Month+")>&lt;&lt;</td><td width=100 align=center>" + ShowMonth + "</td><td width=0 onclick=nextmonth("+The_Year+","+The_Month+")  style='cursor:hand'>&gt;&gt;</td></tr>";
 showstr +=  "<tr><td align=center width=100% colspan=6>";
 showstr +=  "<table cellpadding=0 cellspacing=0 border=1 bordercolor=#999999 width=100%>";
 showstr += "<Tr align=center bgcolor=#999999> ";
    showstr += "<td><strong><font color=#0000CC>日</font></strong></td>";
    showstr += "<td><strong><font color=#0000CC>一</font></strong></td>";
    showstr += "<td><strong><font color=#0000CC>二</font></strong></td>";
    showstr += "<td><strong><font color=#0000CC>三</font></strong></td>";
    showstr += "<td><strong><font color=#0000CC>四</font></strong></td>";
    showstr += "<td><strong><font color=#0000CC>五</font></strong></td>";
    showstr += "<td><strong><font color=#0000CC>六</font></strong></td>";
 showstr += "</Tr><tr>";
 
 for (i=1; i<=Firstday; i++)
  showstr += "<Td align=center bgcolor=#CCCCCC>&nbsp;</Td>";
 
 for (i=1; i<=Month_Day; i++)
 {
  if ((The_Year==today.getYear()) && (The_Month==today.getMonth()+1) && (i==today.getDate()))
   bgColor = "#FFCCCC";
  else
   bgColor = "#CCCCCC";
 
  if (The_Day==i) bgColor = "#FFFFCC";
  showstr += "<td align=center bgcolor=" + bgColor + " style='cursor:hand' onclick=chooseday(" + The_Year + "," + The_Month + "," + i + ")>" + i + "</td>";
  Firstday = (Firstday + 1)%7;
  if ((Firstday==0) && (i!=Month_Day)) showstr += "</tr><tr>";
 }
 if (Firstday!=0)
 {
  for (i=Firstday; i<7; i++)
   showstr += "<td align=center bgcolor=#CCCCCC>&nbsp;</td>";
  showstr += "</tr>";
 }
 
 showstr += "</tr></table></td></tr></table>";
 cc.innerHTML = showstr; 
 

}


</script>

<script language="JavaScript">

 var The_Year,The_Day,The_Month;
 var today;
 var Firstday;
 today = new Date();
 The_Year = today.getYear();
 The_Month = today.getMonth() + 1;
 The_Day = today.getDate();
 Firstday = GetWeekday(The_Year,The_Month);
 ShowCalender(The_Year,The_Month,The_Day,Firstday);
</script>
<div id=showdate></div>
</html>

 

]]> <![CDATA[使用 ADO.NET 访问Oracle 9i存储过程]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=3740 chenyt 2005/3/16 10:21:45

http://www.microsoft.com/china/MSDN/library/data/dataAccess/DMSDNorsps.mspx

]]> <![CDATA[使用Javascript创建XML文件]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=3667 chenyt 2005/3/14 15:12:26

在客户端创建XML文件可以使用FileSystemObject (FSO) 对象或直接使用XML Document Object Model (DOM)。若使用FSO则客户端必须安装 Window Script 5.5，使用XML DOM则需要在客户端安装有Microsoft® XML Core Services。安全性方面需要在IE的安全设置中启用ActiveX控件。

1、使用FSO创建XML文件

使用FSO对象的GetSpecialFolder方法获得要创建文件所在目录，（GetSpecialFolder方法参数的设置可参见Window 脚本技术文档），然后使用CreateTextFile方法创建一个文本文件并获得一个指向该文件的对象引用，调用文本文件对象的WriteLine方法向文件中写内容，最后关闭对象。

值得注意的是在使用CreateTextFile创建文件时，最后一个指示文件创建方式的参数应该设置为true以表示以Unicode方式创建，并将XML文件的编码设置为UTF-16，这样创建的XML文件才能正常使用。

<script language=javascript>

function CreateXML(){

    var fso, tempfolder, xmlfile, schar;

    fso = new ActiveXObject("Scripting.FileSystemObject");

    tempfolder = fso.GetSpecialFolder(0);

    xmlfile = fso.CreateTextFile(tempfolder+"XML.XML",true,true);

    schar = '\r';

    xmlfile.WriteLine('<?xml version="1.0" encoding="UTF-16" ?>'+schar);

    xmlfile.WriteLine('<document title="information">'+schar);

    for(var i=0;i<10;i++){

        xmlfile.WriteLine('<xmlnode type="node" name="node'+i+'" />'+schar);

    }

    xmlfile.WriteLine('</document>');

    xmlfile.Close();

}

</script>

2、使用XML DOM创建XML文件

首先创建一个DOMDocument对象，调用其load方法加载一个本地文件，在加载过程中如果文件不存在将会创建一个新文件，然后构造文档内容字符串，构造完后调用loadXML方法加载XML内容，最后调用save方法写文件。

使用XML DOM创建XML 文件需要非常小心内容格式是否正确，否则创建的文件中是不会有任何内容的，因为XMLDOC在写文件时已经判断了格式，如果不正确则save方法会失败。

<script language=javascript>

function CreateXML(){

      var xmldoc, xmlnode;

    xmldoc = new ActiveXObject("Msxml2.DOMDocument.4.0");

    xmldoc.load("C:\\XML.xml");

    schar = '\r';

    xmlhead = '<?xml version="1.0" encoding="UTF-16" ?>'+schar;

    xmltitle = '<documenttitle="information">'+schar;

    xmlnode = '';

    for(var i=0;i<10;i++){

        xmlnode = xmlnode + '<xmlnode type="node" name="node'+i+'" />'+schar;

    }

    xmlfoot = '</document>';

    strXML = xmlhead+xmltitle+xmlnode+xmlfoot;

    xmldoc.loadXML(strXML);

    xmldoc.save("C:\\XML.xml");

}

</script>

]]> <![CDATA[在DataGrid页眉上添加全选的CheckBox控件]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=3665 chenyt 2005/3/14 14:30:47 很简单的方法,就是用js实现:

页面:

  <asp:datagrid id="dgUserList" runat="server" Width="640px" BorderColor="White" PagerStyle-HorizontalAlign="Right"
                 AllowPaging="True" AllowSorting="True" AutoGenerateColumns="False">
                 <AlternatingItemStyle BackColor="#F5F5F5"></AlternatingItemStyle>
                 <ItemStyle HorizontalAlign="Center"></ItemStyle>
                 <HeaderStyle HorizontalAlign="Center" ForeColor="White" BackColor="#4A95FD" Height="8"></HeaderStyle>
                 <PagerStyle HorizontalAlign="Right" Mode="NumericPages"></PagerStyle>
                 <Columns>
                  <asp:TemplateColumn>
                   <HeaderTemplate>
                    <asp:CheckBox id="chkAll" runat="server"></asp:CheckBox>
                   </HeaderTemplate>
                   <ItemTemplate>
                    <asp:CheckBox id="chkItem" runat="server"></asp:CheckBox>
                   </ItemTemplate>
                  </asp:TemplateColumn>
                  <asp:BoundColumn DataField="id" HeaderText="序号"></asp:BoundColumn>
                  <asp:BoundColumn DataField="username" HeaderText="用户名"></asp:BoundColumn>
                  <asp:BoundColumn DataField="workno" HeaderText="工号"></asp:BoundColumn>
                  <asp:BoundColumn DataField="dept" HeaderText="部门"></asp:BoundColumn>
                 </Columns>
                 <PagerStyle Visible="False" HorizontalAlign="Right" Mode="NumericPages"></PagerStyle>
                </asp:datagrid>

 

 

后台代码:

 private void dgUserList_PreRender(object sender, System.EventArgs e)
  {
   foreach (DataGridItem item in dgUserList.Controls[0].Controls)
   {
    if (item.ItemType == ListItemType.Header)
    {
     CheckBox chkAll=(CheckBox)item.FindControl("chkAll");
     System.Text.StringBuilder strScript = new System.Text.StringBuilder("<script language='javascript'> \n");
     strScript.Append("    function checkStatus() { \n");
     strScript.Append("        var bAll = true; \n");
     strScript.Append("        bAll = document.all('" + chkAll.ClientID + "').checked; \n");

     for(int i=0; i<dgUserList.Items.Count ; i++)
     {
      strScript.Append("        document.all('" + dgUserList.Items[i].Cells[0].FindControl("chkItem").ClientID + "').checked = bAll; \n");
     }
     strScript.Append("    } \n");
     strScript.Append("</script> \n");

     if(!Page.IsClientScriptBlockRegistered("checkStatus"))
      Page.RegisterClientScriptBlock("checkStatus",strScript.ToString());

     chkAll.Attributes.Add("onclick","checkStatus()");
     return;
    }
   }

]]> <![CDATA[.NET环境下水晶报表使用总结]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=3664 chenyt 2005/3/14 14:28:55 .NET环境下水晶报表使用总结

水晶报表是一个优秀的报表开发工具，本人在开发通用管理系统的时候，所有报表都使用水晶报表，其简单、易用和强大的功能令笔者倍加喜爱，现将水晶报表使用手记呈现给大家。

 

一、在使用自带的水晶报表时，请注册，否则只能使用30次

水晶报表注册码
注册号:6707437608
密码:AAP5GKS0000GDE100DS

 

二、使用CrystalReportViewer进行预览

CrystalReportViewer控件允许在应用程序中查看 Crystal Report。ReportSource 属性用于设置要查看哪个报表。该属性设置之后，报表显示在查看器中。报表源可以是ReportDocument、报表文件的路径，也可以是强类型报表。

1.      打开“工具箱”，并将一个 CrystalReportViewer 拖到窗体上，我们命名为rptVew。

2.      通过拖放操作将 Windows 窗体查看器调整到希望的大小并将其移动到所需位置。

3.      当运行应用程序时，报表将显示在查看器中。

三、创建新报表

1.      指向“添加”，单击“添加新项”。

2.      在“添加新项”对话框中，从“模板”区域选择 Crystal Report，将报表命名为rptClient，单击“打开”。

3.      在 Crystal Report 库中，选择下列选项之一：

·         使用报表专家 — 指导您完成报表的创建过程，并将您的选择添加到 Crystal Report Designer。

·         作为空白报表 — 打开 Crystal Report Designer。

·         来自于现有的报表 — 创建新报表，它与指定的另一报表设计相同。

注意   Crystal Report 库包含许多专家，可以指导您完成数个特定类型报表的创建工作。您可能希望使用专家来创建最初的报表，以确定哪种报表构造方法适合您的需要。

4.      单击“确定”按钮。

如果选择使用“报表专家”，便会出现“报表专家”对话框，并带有数据资源管理器。为每个文件夹选择所需数据，完成“报表专家”选项卡界面上的操作，然后单击“完成”来访问 Crystal Report Designer 和您的报表

四、是否需要动态设置数据源？

Crystal Reports 通过数据库驱动程序与数据库连接。每个驱动程序都被编写为可处理特定数据库类型或数据库访问技术。

拉和推模型

为了向开发人员提供最灵活的数据访问方法，Crystal Reports 数据库驱动程序被设计为可同时提供数据访问的拉模型和推模型。

拉模型

在拉模型中，驱动程序将连接到数据库并根据需要将数据“拉”进来。使用这种模型时，与数据库的连接和为了获取数据而执行的 SQL 命令都同时由 Crystal Reports 本身处理，不需要开发人员编写代码。如果在运行时无须编写任何特殊代码，则使用拉模型。

推模型

相反，推模型需要开发人员编写代码以连接到数据库，执行 SQL 命令以创建与报表中的字段匹配的记录集或数据集，并且将该对象传递给报表。该方法使您可以将连接共享置入应用程序中，并在 Crystal Reports 收到数据之前先将数据筛选出来。

四、从 ADO.NET 数据集制作报表

从数据库创建数据集对象

1.      在项目中新建一个架构文件：

a.      在解决方案资源管理器中，右击项目名，指向“添加”，然后单击“添加新项”。

b.      在“添加新项”对话框的“类别”区域，展开文件夹，然后选择“数据”。

c.      在“模板”区域选择“数据集”。

d.      接受默认名称 Dataset1.xsd。

这就创建了一个新的架构文件 (Dataset1.xsd)，以后将用它来生成强类型数据集。该架构文件将显示在 ADO.NET 数据集设计器中。

2.      指定数据库位置：

a.      在服务器资源管理器中，右击“数据连接”并选择“添加连接”。

b.      在“数据链接属性”对话框中，单击“提供程序”选项卡，然后选择一个提供程序（例如 Microsoft OLE DB Provider for SQL Server）。

c.      单击“连接”选项卡，然后指定您的数据库所在位置。在所需位置输入服务器和登录信息。

d.      单击“确定”按钮。

此时，您的数据库及其表和字段就出现在服务器资源管理器的“数据连接”节点下面。

3.      在解决方案资源管理器中，双击 Dataset1.xsd （如果它尚不是活动视图）。

Dataset1.xsd 现在应显示在“数据集”选项卡中。

4.      若要为数据集建立架构，请将需要的表从服务器资源管理器中拖动到 Dataset1.xsd 的“数据集”选项卡上。

5.      单击“保存 Dataset1.xsd”来保存“Dataset1.xsd”文件。

6.      在“生成”菜单上，单击“生成”为项目生成数据集对象。

ADO.NET 数据集对象提供数据的描述，从它可以向 Crystal report 添加表。使用 Crystal Report Designer 中的“数据库专家”从 ADO.NET 数据集对象添加表。

请在使用“报表专家”创建新报表时调用“数据库专家”。或者，要从一个已经使用 ADO.NET 建立好的报表中访问“数据库专家”，请在 Report Designer 中右击，指向“数据库”，然后单击“添加/删除数据库”。

将报表连接到 ADO.NET 数据集对象

1.      在“数据库专家”中，展开“项目数据”文件夹。

2.      展开“ADO.NET 数据集”文件夹。

3.      选择所需数据集对象。

例如，如果当时使用的是从项目“WindowsApplication1”的架构文件“Dataset1.xsd”中生成的数据集对象，则应该选择“WindowsApplication1.Dataset1”。

4.      选择要向报表中添加的表，和使用其他数据源一样。

 

 

 

 

 

 

 

 

 

 

五、动态改变数据源的代码

 

               Dim dsdataSet As New DataSet()

                Dim oRpt As New rptClient()   '已建立的报表rptClient

                请读者自行填充数据集dsdataSet

                '使用“报表引擎”对象模型将填充的数据集,传递给报表

                oRpt.SetDataSource(dsdataSet.Tables(0))

                ' 将带有数据的报表对象绑定到 Windows 窗体查看器，rptVew（CrystalReportViewer控件）

                rptVew.ReportSource = oRpt

注意   FillDataSet 方法可连接到指定的数据库，提取数据，然后断开数据库连接。如果您希望将数据库中的多个表添加到报表中，请使用 SQL JOIN 语句将这些表联接在一起；然后在 FillDataSet 方法中指定一个结果表

六、创建主从报表

在报表中，有许多报表是主从表结构，比如订单与订单商品明细，订单是一个表中的一条记录，而分录是另一个表中的多条记录，两个表通过一个字段关联起来，这种报表可利用其分组功能实现，

1.      新建一个工程

2.      往FORM1中添加一个CrystalReportViewer控件

3.      在服务噐资源管理器中连接到SQL SERVER 2000上的Northwind数据库

4.      添加一个数据集Dataset1,将服务器资源管理器中的Orders和 Order Details加入到数据集中。

5.      添加一个水晶报表，使用报表专家，在项目数据中选择“ADO.NET数据集”，插入表Orders和 Order Details，“链接”中是关联字段的链接，在“字段”中选择要显示的主表和明细表的字段，组中选择分组依据为Orders表OrdersID字段，总计，图表，选择（可进行筛选），样式（可设置报表标题），可自行设置。设置完后，点击完成。

6.      在报表设计器中调整需要显示的字段的位置、宽度等。

7.      在窗口中添加代码。

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim oRpt As New CrystalReport1()

        Dim dsdataSet As New Dataset1()

 

        Dim CN As New Data.SqlClient.SqlConnection("data source=PMSERVER;initial catalog=Northwind;user id=sa;password=sa")

        CN.Open()

        Dim daOrders As New Data.SqlClient.SqlDataAdapter("select * from orders", CN)

        daOrders.Fill(dsdataSet, "orders")

 

        Dim daDetails As New Data.SqlClient.SqlDataAdapter("select * from [Order Details]", CN)

        daDetails.Fill(dsdataSet, "Order Details")

 

        '使用“报表引擎”对象模型将填充的数据集,传递给报表

        oRpt.SetDataSource(dsdataSet)

        CrystalReportViewer1.ReportSource = oRpt

    End Sub

8、运行程序

 

七、用程序改变报表中text的文本

代码如下：

                Dim GetTextObject As TextObject

                ' 按名称获取 ReportObject，将其转换为 TextObject，并返回此对象。

                GetTextObject = orpt.ReportDefinition.ReportObjects.Item("text13")

                GetTextObject.Text = "XXXX系统"

 

总结：水晶报表具有非常强大的功能，还可进行导出WORD、EXCEL、RTF等文件，还可生成复杂、漂亮图表，是进行WEB和WINDOWS报表开发的利器。

 

(此文部分资料来自MSDN)

]]> <![CDATA[弹出窗口大全]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=3663 chenyt 2005/3/14 14:25:09

【1、最基本的弹出窗口代码】 

其实代码非常简单： 

<SCRIPT LANGUAGE="javascript"> 
<!-- 
window.open ('page.html') 
--> 
</SCRIPT> 
因为着是一段javascripts代码，所以它们应该放在<SCRIPT LANGUAGE="javascript">标签和</script>之间。<!-- 和 -->是对一些版本低的浏览器起作用，在这些老浏览器中不会将标签中的代码作为文本显示出来。要养成这个好习惯啊。 
window.open ('page.html') 用于控制弹出新的窗口page.html，如果page.html不与主窗口在同一路径下，前面应写明路径，绝对路径(http://)/和相对路径(../)均可。用单引号和双引号都可以，只是不要混用。 
这一段代码可以加入HTML的任意位置，<head>和</head>之间可以，<body>间</body>也可以，越前越早执行，尤其是页面代码长，又想使页面早点弹出就尽量往前放。 


【2、经过设置后的弹出窗口】 

下面再说一说弹出窗口的设置。只要再往上面的代码中加一点东西就可以了。 
我们来定制这个弹出的窗口的外观，尺寸大小，弹出的位置以适应该页面的具体情况。 
<SCRIPT LANGUAGE="javascript"> 
<!-- 
window.open ('page.html', 'newwindow', 'height=100, width=400, top=0,left=0, toolbar=no, menubar=no, scrollbars=no, resizable=no,location=no, status=no') 
file://写/成一行 
--> 
</SCRIPT> 
参数解释： 
<SCRIPT LANGUAGE="javascript"> js脚本开始； 
window.open 弹出新窗口的命令； 
'page.html' 弹出窗口的文件名； 
'newwindow' 弹出窗口的名字（不是文件名），非必须，可用空''代替； 
height=100 窗口高度； 
width=400 窗口宽度； 
top=0 窗口距离屏幕上方的象素值； 
left=0 窗口距离屏幕左侧的象素值； 
toolbar=no 是否显示工具栏，yes为显示； 
menubar，scrollbars 表示菜单栏和滚动栏。 
resizable=no 是否允许改变窗口大小，yes为允许； 
location=no 是否显示地址栏，yes为允许； 
status=no 是否显示状态栏内的信息（通常是文件已经打开），yes为允许； 
</SCRIPT> js脚本结束 


【3、用函数控制弹出窗口】 

下面是一个完整的代码。 
<html> 
<head> 
<script LANGUAGE="JavaScript"> 
<!-- 
function openwin() { window.open ("page.html", "newwindow", "height=100, width=400, toolbar= 
no, menubar=no, scrollbars=no, resizable=no, location=no, status=no") 
file://写/成一行 
} 
file://--/> 
</script> 
</head> 
<body onload="openwin()"> 
...任意的页面内容... 
</body> 
</html> 
这里定义了一个函数openwin(),函数内容就是打开一个窗口。在调用它之前没有任何用途。 
怎么调用呢？ 
方法一：<body onload="openwin()"> 浏览器读页面时弹出窗口； 
方法二：<body onunload="openwin()"> 浏览器离开页面时弹出窗口； 
方法三：用一个连接调用： 
<a href="#" onclick="openwin( target=_blank target=_blank)">打开一个窗口</a> 
注意：使用的“#”是虚连接。 
方法四：用一个按钮调用： 
<input type="button" onclick="openwin()" value="打开窗口"> 

【4、同时弹出2个窗口】 

对源代码稍微改动一下： 
<script LANGUAGE="JavaScript"> 
<!-- 
function openwin() 
{ window.open ("page.html", "newwindow", "height=100, width=100, top=0,left=0,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no") 
file://写/成一行 
window.open ("page2.html", "newwindow2", "height=100, width=100, top=100, left=100,toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no") 
file://写/成一行 
} 
file://--/> 
</script> 
为避免弹出的2个窗口覆盖，用top和left控制一下弹出的位置不要相互覆盖即可。最后用上面说过的四种方法调用即可。 

注意：2个窗口的name(newwindows和newwindow2)不要相同，或者干脆全部为空。OK？ 

【5、主窗口打开文件1.htm，同时弹出小窗口page.html】 

如下代码加入主窗口<head>区： 
<script language="javascript"> 
<!-- 
function openwin() 
{window.open("page.html","","width=200,height=200") 
} 
file://--/> 
</script> 
加入<body>区： 
<a href="1.htm" onclick="openwin( target=_blank target=_blank)">open</a>即可。 

【6、弹出的窗口之定时关闭控制】 

下面我们再对弹出的窗口进行一些控制，效果就更好了。如果我们再将一小段代码加入弹出的页面(注意是加入到page.html的HTML中，可不是主页面中，否则...)，让它10秒后自动关闭是不是更酷了？ 

首先，将如下代码加入page.html文件的<head>区： 
<script language="JavaScript"> 
function closeit() 
{setTimeout("self.close()",10000) file://毫/秒} 
</script> 
然后，再用<body onload="closeit()"> 这一句话代替page.html中原有的<BODY>这一句就可以了。(这一句话千万不要忘记写啊！这一句的作用是调用关闭窗口的代码，10秒钟后就自行关闭该窗口。) 

【7、在弹出窗口中加上一个关闭按钮】 

<FORM> 
<INPUT TYPE='BUTTON' VALUE='关闭' onClick='window.close()'> 
</FORM> 
呵呵，现在更加完美了！ 

【8、内包含的弹出窗口-一个页面两个窗口】 

上面的例子都包含两个窗口，一个是主窗口，另一个是弹出的小窗口。 

通过下面的例子，你可以在一个页面内完成上面的效果。 
<html> 
<head> 
<SCRIPT LANGUAGE="JavaScript"> 
function openwin() 
{OpenWindow=window.open("", "newwin", "height=250, width=250,toolbar=no,scrollbars="+scroll+",menubar=no"); 
file://写/成一行 
OpenWindow.document.write("<TITLE>例子</TITLE>") 
OpenWindow.document.write("<BODY BGCOLOR=#ffffff>") 
OpenWindow.document.write("<h1>Hello!</h1>") 
OpenWindow.document.write("New window opened!") 
OpenWindow.document.write("</BODY>") 
OpenWindow.document.write("</HTML>") 
OpenWindow.document.close()} 
</SCRIPT> 
</head> 
<body> 
<a href="#" onclick="openwin( target=_blank target=_blank)">打开一个窗口</a> 
<input type="button" onclick="openwin()" value="打开窗口"> 
</body> 
</html> 
看看 OpenWindow.document.write()里面的代码不就是标准的HTML吗？只要按照格式写更多的行即可。千万注意多一个标签或少一个标签就会出现错误。记得用OpenWindow.document.close()结束啊。 

【9、终极应用--弹出的窗口之Cookie控制】 

回想一下，上面的弹出窗口虽然酷，但是有一点小毛病(沉浸在喜悦之中，一定没有发现吧？)比如你将上面的脚本放在一个需要频繁经过的页面里(例如首页)，那么每次刷新这个页面，窗口都会弹出一次，是不是非常烦人？:-(有解决的办法吗？Yes! ;-) Follow me. 

我们使用cookie来控制一下就可以了。 

首先，将如下代码加入主页面HTML的<HEAD>区： 
<script> 
function openwin() 
{window.open("page.html","","width=200,height=200")} 
function get_cookie(Name) 
{var search = Name + "=" 
var returnvalue = ""; 
if (document.cookie.length > 0) { 
offset = document.cookie.indexOf(search) 
if (offset != -1) { 
offset += search.length 
end = document.cookie.indexOf(";", offset); 
if (end == -1) 
end = document.cookie.length; 
returnvalue=unescape(document.cookie.substring(offset,end)) 
} 
} 
return returnvalue; 
} 
function loadpopup(){ 
if (get_cookie('popped')==''){ 
openwin() 
document.cookie="popped=yes" 
} 
} 
</script> 
然后，用<body onload="loadpopup()">（注意不是openwin而是loadpop啊！）替换主页面中原有的<BODY>这一句即可。你可以试着刷新一下这个页面或重新进入该页面，窗口再也不会弹出了。真正的Pop-Only-Once！

]]> <![CDATA[利用XML实现通用WEB报表打印]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=2076 chenyt 2005/1/19 11:42:20 利用XML实现通用WEB报表打印
卢彦
方案适用性
.
1. 远程数据打印。需要打印的数据并不在本地，必须进行远程读取。
2. 需要精确控制打印效果，包括页面格式，分页，附加条目，表格等。
3. 出于安全性考虑，不能直接连接到数据库。
方案原理
其实原理很简单，通过XML强大的自定义功能，我们便能方便的自定义出我们所有需要的格式控制标签，在服务器端进行动态编码后通过WEB服务器传到客户端，然后在客户端进行格式解析，根据服务器端定义的打印格式从客户端直接控制打印机打印出我们需要的报表。
技术选择
由 于报表打印比较复杂，为了能够精确控制打印格式，不能采用WEB浏览器页面打印的方式进行报表打印工作，只能采取自编程控制客户端的打印工作。由于. NET framework的winform可以直接嵌入到网页中，我们在这里选用了该技术，但是请注意，我这么做并不代表.NET winform是唯一的选择，其实您可以采用任何客户端代替它，例如Java Applet或者ActiveX，甚至是一个普通的应用程序都能行。
不 允许直接连接到数据库，因此只能采用XML文件进行中间数据交换格式，通过普通WEB服务器的默认80端口进行数据传输。事实上，我简直找不到其它更理想 的方案了，当然，web service也许能算是一种，但是它采用的是SOAP传输数据，从原理上看，应该和我们采用的XML属于同种类技术。
再补充说明一下我为什么要采用.NET编写的受控组件，优点在于：
1. 它不需要进行客户端注册。相对于ActiveX的一个大优点。
2. 比ActiveX安全性高。在.NET Common Language Runtime的控制之下运行
3. 编写方便。我喜欢C#和Visual Studio .NET。
4. 有很强大的打印控制功能。利用.NET framework类库。
5. 直接支持XML技术。
6. 和IE兼容性高。同为Microsoft公司产品。
另外，需要注意一点就是，在.NET framework sp1和sp2中默认的安全级别是不能直接运行受控组件的，但是在.NET framework 1.1 beta中又改了回来，可以直接运行了。
服务器端您则可以采用现有的服务器系统和数据库，不需要新添加任何新硬件设备和新的.NET服务器管理人员，他们往往是些要求拿高薪的家伙。 ：）
服务器的工作流程为：
1. 接受客户端的标准XML模版查询。
2. 需要根据查询要求将数据库数据格式转换成标准的XML数据格式。
3. 将XML数据通过80端口发送出去。
可行性分析
由于现在的大部分数据库都支持XML格式的数据查询和转换，如SQL Server 2000，Oracle 9i，IBM DB2等大型关系型数据库。只需要通过简单的设置就能直接进行XML数据转换工作。如果数据库不能支持直接XML数据转换，也可以籍由一些服务器端脚本程 序进行脚本转换工作，比如JSP，ASP，PHP等等。
客户端也不需要任何特殊的设置工作，仅需要安装一个大小为21M的.NET framework分发包，然后直接打开网页就可以进行工作。也没有操作系统限制，从windows 98到windows xp都能很好的支持。
伸缩性和安全性
伸缩性
由于采用的是XML标准数据格式作为中间数据交换，因此本解决方案具有非常好伸缩性，例如，客户端的.NET控件可以采用JAVA APPLET、ACTIVX或者是VB，VC等编写的客户端应用程序直接替换。服务器也可以任意选择采用IIS或APACHE等WEB服务器。数据库也可 以采用任意一种数据库。包括SQL Server，Oracle或者是Access等。这点上文已经谈到过，因为文章的长一点并不会使送给我的T恤大一号，这里再强调一遍只是为了加深读者对 XML的跨平台性的认识。 ：）
安全性
由于采用的是普通WEB服务器传送数据，因此可以直接采用SSL安全套接字等已经成熟的WEB加密技术。同时还可以对XML进行数据算法加密，在客户端再进行解密，保证了传输的安全性。
由于采用的是80端口，不需要再另外新增加专用端口，减少了安全漏洞的可能性，同时还能方便的穿过双方的的网络防火墙等保护设备。
方案设计图
格式定义
为了能自己控制打印的格式，我们定义了下列的格式标签，其中在命名上参考了HTML的命名办法，所以基本上熟悉HTML的都能一看就能明白标签的具体含义。如果您觉得这些标签的表达能力还不够强，您还可以自己定义一些更多更精确的格式标签。
主要标签说明：
text：文本字符串
属性：
x：打印输出的X坐标
y：打印输出的Y坐标
fontname：字体
fontsize：字体大小
fontcolor：颜色
b：是否为粗体
i：是否为斜体
u：是否有下划线
table：表
属性：
x：打印输出的x坐标
y：打印输出的y坐标
border：边框粗细
bordercolor：边框颜色
maxlines：每页最大行数
tr：行
属性：
height：高度
td：列
属性：
width：宽度
align：对齐方式
fontname：字体
fontsize：字体大小
fontcolor：字体颜色
b：是否粗体
i：是否斜体
u：是否下划线
bgcolor:背景颜色
next：下一页
tablehead：表头
tablebody：表项
tablefoot：表底
page：页设置
PrintWard：横/纵向打印
PageType：纸张类型
PageLeft：左边距
PageRight：右边距
PageTop：上边距
PageBottom：下边距
标签应用示例：
<root>
<pagesetting>
<Landscape>true</Landscape>
<paperkind>A4</paperkind>
<paperwidth>210</paperwidth>
<paperheight>297</paperheight>
<pageleft>0</pageleft>
<pageright>0</pageright>
<pagetop>0</pagetop>
<pagebottom>0</pagebottom>
</pagesetting>
<reporttable>
<text x="450" y="40" fontname="黑体" fontsize="24" fontcolor="Black" 
	b="true" i="false" u="true">最新成交合同信息</text>
<text x="70" y="100" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="true">制表时间：2002年0月10日</text>
<text x="910" y="100" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="true">单位：元</text>
<table x="65" y="130" border ="1" bordercolor="Black" maxlines="28">
<tablehead>
<tr height="25">
<td width="90" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">合同号</td>
<td width="90" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">产品名称</td>
<td width="50" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">成交量</td>
<td width="50" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">成交价</td>
<td width="50" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">成交金额</td>
<td width="50" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">挂单量</td>	
<td width="50" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">起始价</td>
<td width="330" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">卖方</td>
<td width="330" align="center" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">买方</td>
</tr>
</tablehead>
<tablebody>

<tr height="25">
<td width="100" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">20021010015</td>
<td width="100" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">CNR</td>
<td width="70" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">93</td>
<td width="70" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">6680</td>
<td width="70" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">621240</td>
<td width="70" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">93</td>
<td width="70" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">6680</td>
<td width="200" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">湖北省国营新星拖拉机厂</td>
<td width="200" align="left" fontname="宋体" fontsize="12" fontcolor="Black" 
	b="true" i="false" u="false" bgcolor="White">中化国际贸易股份有限公司</td>
</tr>
……….
</tablebody>
<tablefoot>
</tablefoot>
</table>
</reporttable>
</root>
注意事项：
a) 如果采用服务器脚本动态生成XML文档时，发送内容类型应该设置为text/xml（普通html页面为text/html），字符编码应该为UTF-8，否则会出现编码错误问题。
b) 应该严格按照XML规定的格式来生成文件，否则XML解析器将不会予以解析。
2. 客户端
可 以采用任意应用程序来读取服务器端生成的XML文件，如果采用VB、DELPHI等桌面应用软件开发工具，则可以使用MSXML的COM解析器。推荐采 用.NET，内部已经集成了XML解析器，直接就可以通过使用.NET类库调用。既可以做成桌面应用程序形式，通过远程调用；也可以嵌入到IE浏览器中， 直接在网页中运行。
效果示例图
打印预览
注意事项：
1. 如果采用.NET，客户端必须先安装.NET framework1.0运行环境，下载地址为：http://download.microsoft.com/download/.NETframesdk/Redist/1.0/W98NT42KMeXP/EN-US/dotnetredist.exe
2. 如果采用嵌入到网页中的形式，那么本程序需要编译成一个控件形式（一个扩展名为dll的文件），然后在网页中插入以下标记：
<object id="print" classid="http:print.dll#Print.UserControl1" Width="728" Height="460"></object>
将控件嵌入到一个静态或动态网页中。然后将该控件文件拷贝到和该网页相同的目录中（标记中Print.dll为生成的控件文件名，Print.UserControl1为该控件的命名空间NAMESPACE）。
总结
好 了，文章到这里基本上就算完了。也许有人会觉得奇怪，你还没有讲清楚如何写具体的打印代码呢。其实，本文只是提出了一个关于WEB报表打印的解决方案，正 如上文所说，如何去实现客户端的打印其实有很多种选择，再深入下去的话就超过了本文讨论的范围了。我希望本文能起到一个抛砖引玉的作用，能为大家提供一个 问题的解决办法。当然，如果希望获得本文源码的朋友请与我联系：nluyan@163.net，谢谢。
]]> <![CDATA[ASP.NET中模板列绑定两个参数]]> http://blogger.org.cn/blog/more.asp?name=chenyt&id=1792 chenyt 2005/1/12 7:55:17 <asp:datagrid id="Datagrid3" runat="server" AutoGenerateColumns="False" BorderColor="black"  HeaderStyle-CssClass="tableHeader" ItemStyle-CssClass= "tableItem">
  <Columns>
      <asp:TemplateColumn HeaderText="操作">
           <ItemTemplate>
               <asp:Hyperlink runat="server" Text='<%#DataBinder.Eval(Container.DataItem,"EmployeeName")%' 
                   NavigateUrl='<%# "SafetyView.aspx?InsuranceId=" + DataBinder.Eval (Container.DataItem,"InsuranceId") + 
                   "&EmployeeNO="+ DataBinder.Eval(Container.DataItem,"EmployeeNO")%>' ID="EmployeeName"/>
           </ItemTemplate>
      </asp:TemplateColumn>                                    

</Columns>
</asp:datagrid>


 

]]>