Softdream

Convert(Char(8),Convert(DateTime,timefield),112)

1:开始-运行-oobe/msoobe /a,显示结果果,windows已经激活

　 2:开始-运行-regedit:把 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents下的 OOBETimer 清空      3:运行 oobe/msoobe /a，然后输入正确的序列号就可以重新激活了。

      4:选择”我要打电话给客户代表来启用WINDOWS”;

      5:点”更换产品密钥”;

作事如山，坚韧挺拔；为人如水，坦荡包容。

实则虚之，虚则实之

弯得下腰干才是成熟,放得下身段才是高手

利润 = 需求 – 设计

配置错误：未能使用提供程序“RsaProtectedConfigurationProvider”进行解密。提供程序返回错误信息为: 打不开 RSA 密钥容器。
源文件: C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Config\web.config。

 

我通过下面这句解决了遇到的同样的问题:

进dos运行：aspnet_regiis -pa “NetFrameworkConfigurationKey” “NT AUTHORITY\NETWORK SERVICE”

 

关于加密：

我们如果想对web.config的数据库连接字符串进行加密的话，那么这里提供了两个方法。

方法一、
    使用“DataProtectionConfigurationProvider”形式加密，创建test.aspx文件，代码如下：
需要添加引用
using System.Web.Configuration;
using System.IO;

//加密
protected void Button1_Click(object sender, EventArgs e)
    {
        Configuration config =  WebConfigurationManager.OpenWebConfiguration(Request.ApplicationPath);
        ConfigurationSection section = config.GetSection(“connectionStrings”);
       
        if (section != null && !section.SectionInformation.IsProtected)
        {
            section.SectionInformation.ProtectSection(“DataProtectionConfigurationProvider”);
            config.Save();
        }

    }
//解密
    protected void Button2_Click(object sender, EventArgs e)
    {
        Configuration config = WebConfigurationManager.OpenWebConfiguration(Request.ApplicationPath);
        ConfigurationSection section = config.GetSection(“connectionStrings”);

        if (section != null && section.SectionInformation.IsProtected)
        {
            section.SectionInformation.UnprotectSection();
            config.Save();
        }
    }


总结：此方法很方便，并且很简单，但安全性没有密钥加密高。

方法二、
使用“RSAProtectedConfigurationProvider”形式来加密
test.aspx程序文件基本如上，
把
section.SectionInformation.ProtectSection(“DataProtectionConfigurationProvider”);
改成
section.SectionInformation.ProtectSection(“RSAProtectedConfigurationProvider”);
但这个时候你访问网站的时候很有可能会出现

说明: 在处理向该请求提供服务所需的配置文件时出错。请检查下面的特定错误详细信息并适当地修改配置文件。
分析器错误信息: 未能使用提供程序“RsaProtectedConfigurationProvider”进行解密。提供程序返回错误信息为: 打不开 RSA 密钥容器。

这样的错误,解决方法是：
进dos运行：aspnet_regiis -pa “NetFrameworkConfigurationKey” “NT AUTHORITY\NETWORK SERVICE”
  如果运行出错，需要把目录 C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727 放入环境变量path中。
  此时就可以成功访问网站了。
  同样可以通过命令行来实现“RSAProtectedConfigurationProvider”加密
 
  注意：你也可以不运行 aspnet_regiis -pa “NetFrameworkConfigurationKey” “NT AUTHORITY\NETWORK SERVICE”命令来注册默认的 RsaProtectedConfigurationProvider 的RSA 密钥容器
        方法如下：
        １）创建一个可导出的rsa密钥容器，命名为Key

aspnet_regiis -pc “Key” -exp


２）在你要加密的信息前面指定密钥容器，如：

<configProtectedData>

        <providers>

            <clear />

            <add name=”KeyProvider”

　　　　　  type=”System.Configuration.RsaProtectedConfigurationProvider, System.Configuration, Version=2.0.0.0,Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL”

　　　　　  keyContainerName=”Key”

　　　　　  useMachineContainer=”true”/>

        </providers>

</configProtectedData>


<connectionStrings>

        <add name=”SQLConnString” connectionString=”Data Source=yourIP;Initial Catalog=test;User Id=yourID;Password=yourPassword;”

        providerName=”System.Data.SqlClient” />


</connectionStrings>

并且确保在configuration节的xmlns属性有如下值：

<configuration xmlns=”http://schemas.microsoft.com/.NetConfiguration/v2.0″>


３）对配置文件进行加密

aspnet_regiis -pef “connectionStrings” “E:\project\Test” -prov “KeyProvider”

参数分别为：需要加密的配置节、项目所在目录的物理路径、加密所使用的密钥容器名称

再看web.config文件，就会发现connectionStrings节已经被加密了，但是运行程序会发现程序仍然可以正确访问数据库。

此时，只需运行：

aspnet_regiis -pdf “connectionStrings” “E:\project\Test”

就可以对web.config文件进行解密。

（注意，如果还是有错误，那可能是您没有给生成的密匙文件足够的权限，去到 C:\Documents and Settings\All Users\Application Data\Microsoft\Crypto\RSA\MachineKeys 目录下，
  找到刚生成的密匙文件，把network service用户的读取权限赋予给它，就可以了，直接用命令的话也可以：命令如下 aspnet_regiis -pa “Key” “NT AUTHORITY\NETWORK SERVICE” ，可能需要重新启动iis）


４）把密钥容器导出为xml文件

aspnet_regiis -px “Key” “e:\Key.xml”

这个命令只导出公钥，因此以后只能用于加密，而无法解密。

aspnet_regiis -px “Key” “e:\Keys.xml” -pri

这个则连私钥一起导出了，所以我们要用这个。


５）把密钥容器删除

aspnet_regiis -pz “Key”

删除后再运行程序，会提示出错：

分析器错误信息: 未能使用提供程序“KeyProvider”进行解密。提供程序返回错误信息为: 打不开 RSA 密钥容器。

同理可以证明，在任何一台未安装正确的密钥容器Key的机器上，程序都无法对connectionStrings节进行解密，因此也就无法正常运行。


６）导入key.xml文件

aspnet_regiis -pi “Key” “e:\Keys.xml”

此时，再运行程序会发现又可以解密了。证明加密与解密机制运行正常。


最后说一下这个机制所提供的安全性保障可以运用在什么方面：

对winform程序的app.config进行加密实际意义并不大，因为无论如何，客户机都可以通过运行aspnet_regiis -pdf 来对配置文件进行解密，从而暴露敏感信息。

对于web.config进行加密的意义也仅限于，当web.config文件不小心泄露时，不会同时泄露敏感信息，如果恶意攻击者已经取得了在服务器上运行程序的权限，那么同app.config一样，可以很容易通过通过运行aspnet_regiis -pdf 获取明文了。


还有，通过aspnet_regiis -pa “Key” “NT AUTHORITY\NETWORK SERVICE”控制对不同用户对密钥容器的访问权限，应该还可以进一步获取一些安全性，比如可以控制某些用户即使登录到服务器上，也无法用 aspnet_regiis -pdf对配置文件进行解密。

引用地址：http://blog.csdn.net/shanliwa/archive/2008/03/13/2176640.aspx

 

近来安装了新版powerdesigner12.0 或12.5 版本中进行数据库反向工程时遇到 37000 的问题，迷惑了好久，在网上也没找到什么线索。

今天要写数据库文档的时候，想起来还是用它方便，这次人品比较好。找到了问题的答案，附录于下：

配置ODBC 时，在powerdesigner 的以往版本中，在连接到数据库以后，可以选择“更改默认的数据库为” 的选择框。  系统一切正常。在新版中，则不能选择此项。  否则就会有 SQL 37000 的问题抛出。

    去掉选择项后，可在反向工程时，再选择具体要反向的某个数据库。一切正常。

 

Fastreport使用经验(转) 在Delphi程序中访问报表对象
最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个

Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject(‘memo1′)).Text:=’jade’;

还可以用TfrxReportPage的FindBand方法，这个方法的参数是Band类，如报表抬头就可以直接使用这个方法，因为抬头一个页中只有一个，如

果有多个同样的类。则不能使用这种方法。如果要使用TfrxreportPage，一般可以用这样的代码
TfrxReportPage(frxReport1.Pages[0])。当然，如果你的这个页是对话框型的，则不行了。但一般都是报表型的。

******使用上下标
在Fastreport中使用上下标是很简单的，只要用一个Tfrxmemoview，把AllowHTMLTags属性设为真，就可以使用网页标签来实现上下标了，如

12²与24₃。就分别是2为上标，3为下标。

******打印页码
打印页码是很简单的，只要加入一些常量即可，如打印第几页共几页就可以使用
第[Page#]页 共[TotalPages#]页
这里要注意的一点是如果想正确显示总页数，必须选中二次报表。

******动态建立变量及变量组
建立变量组名
frxreport1.Variables.Add.Name:=’ ‘+变量组名;
建立变量名
frxreport1.Variables.AddVariable(‘组名，如果为不存的组或空，则为默认组，这里不需要空格’,变量名,变量初始值);
例如要建立变量组Yuan,二个变量Yuan1,Yuan2，则为
frxreport1.Variables.Add.Name:=’ Yuan’;注意前面是空格
frxreport1.Variables.AddVariable(‘Yuan’,Yuan1,初始值)
frxreport1.Variables.AddVariable(‘Yuan’,Yuan2,初始值)

******共用TFrxreport及TfrxDBDataSet
一个程序中，不管多么大的程序，只要打印或预览时是模式的，则完全可以共用一个TFrxreport变量及几个TfrxDBDataSet。只不过，要注意完

成一个报表程序的步骤，主要是下面几步
1)清除报表，得到一个全新的报表内容。
Frxreport1.clear。
2)设置要使用的TfrxDBDataSet的别名，如果不需要可以省略这一步，但一般最好不同的报表用不同的别名。
注意这一步要在加载报表文件之前，因为一般设计报表文件时已经包含了别名信息。
frxDBDataSet1.UserName:=别名;
3)加载报表或动态建立一个TfrxReportPage。
Frxreport1.LoadFromFile(报表文件的完整文件名);
4)关联TfrxDBDataSet与TDataset，并设置要使用哪些TfrxDBDataSet。
Frxreport1.DataSets.Clear;//先清除原来的数据集
frxDBDataSet1.DataSet:=dataset1;//关联Fastreport的组件与TDataset数据集。
Frxreport1.DataSets.Add(frxDBDataSet1);//加载关联好的TfrxDBDataSet到报表中。
经过这几步后，就可以像单独使用一个Tfrxreport一样使用共用的报表组件了。

******加入自定义函数
Fastreport可以自己加入需要的函数，来实现特定的功能。过程就是：
1)添加函数到报表中。
frxreport1.AddFunction(‘完整的函数声明’);
如有一个自定义函数，为GetName(Old:String):String;这个函数通过数据集的一个字段，得到另一个返回值。
则语句为：frxreport1.AddFunction(‘Function GetName(Old:String):String;’);
2)脚本中使用函数。
在脚本中或报表中使用自定义函数，就像使用其它Fastreport内置函数一样。
3)程序中处理函数。
使用函数是通过frxreport1的OnUserFunction函数来实现的。
OnUserFunction的声明如下：Function(const MethodName: String;var Params: Variant): Variant;
比如上面的函数，首先要有一个函数，这个函数是GetName的实现部分。如有一个在程序中实现的函数。
function RealGetName(Old:String):String;这个函数名是无所谓的，也可以是GetName。
在OnUserFunction的事件处理中有如下代码即可完成自定义函数在报表中的使用。
if CompareText(MethodName,’GetName’)=0 then Result:=RealGetName(VarToStr(Params[0]));
我一般都是使用CompareText来比较函数名，因为我发现二个版本的Fastreport，一个是MethodName全部自动变成了小写，一个是全部自动变成

了大写，所以干脆用CompareText来比较，肯定不会出错。

如果有多个参数，则依次传递Params[0],Params[1]即可，要保持顺序一致。
这里要注意一点，如果参数为指针，则不能直接使用Pointer(Integer(Params[0]))。因为实际传递过来的是指针的整数值，可以使用Pointer

(StrToInt(VarToStr(Params[0])))。

******使用脚本，脚本中使用变量
很多时候，我们希望把对报表的控制放到报表的脚本中，通常我这样做有二个原因：
1)能够根据字段内容的变化而使用不同的设置，因为如果想在程序中实现这样功能，就不得不用自定义函数，函数的实现要放到程序中，函数

可能需要传递很多参数，效率低下。
2)把不同报表的控制放到脚本中，可以实现报表的模块化，程序只是简单的设置数据集的关系，并加载硬盘上的报表文件，不同报表的不同实

现方式，显示方式，均放到报表文件中，程序简洁，易维护，易升级。
当然，这样的缺点就是程序中加载报表时的数据集别名必须与设计报表时的别名一致。
脚本的使用与通常程序的使用并没有太多的区别，就是像正常的程序那样引用控件的名称即可。
但注意对变量的使用，需要把变量名或表达式用<>括起来。

******在脚本中根据字段名改变Tfrxmemoview的内容
假设有数据表“用户”，字段ID为用户标识，Name为用户名，打印时要求，如果用户名为空，则打印“无用户名”，否则打印出“用户名：实

际的用户”，则可以在ID的Tfrxmemoview控件的OnAfterData事件中写如下脚本。
if =” then
Memo2.Text:=’无用户名’
else
Memo2.Text:=’用户名：[frxDBDataSet1."Name"]‘
Memo2是放置用户名称数据的Tfrxmemoview控件。
这里注意，要在脚本中访问变量需要把变量用<>包括起来。

******实现连续打印
很多人认为Fr不能实现连续打印，以为只能通过自己写函数调用打印函数来实现连续打印，实际上，Fr可以轻易的实现连续打印，同时，实现

时又是非常简单，你甚至可以在你的程序的打印设置中简单的让客户选择是否连续打印，其它都可以保持不变。

function PelsTomm(Pels:Extended):Extended;
begin
Result:=Pels/Screen.PixelsPerInch*25.4;
end;

procedure PrintSerial(Frx:TFrxReport;SequencePage:Byte=0);
var
P:TfrxReportPage;
R,R1:Extended;
begin
{必须是二遍报表，否则无法计算总页数。
下面的方法只适用于没有页脚的情况，因为如果有页脚的话
FreeSpace就始终为0了。可以用报表脚来代替。
因为是连续打印，也可以看作只有一页，报表脚也就相当于页脚了}
if not Frx.Engine.DoublePass then Exit;
//SequencePage指要连续打印的页面，普通报表就是0
P:=TfrxReportPage(Frx.Pages[SequencePage]);
R1:=P.TopMargin+P.BottomMargin;
while Frx.PrepareReport do
begin
if (Frx.Engine.TotalPages<=1) then Break;
R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P:=TfrxReportPage(Frx.Pages[SequencePage]);
P.PaperHeight:=R;
end;
{必须用上面的循环代码来得到准确的空白区域
不能用通过计算总页数减去各页的页边距的方法来获得空白区域
因为如果碰到一条记录过宽的情况导致换页，就不准确了。}
R:=Pelstomm(Frx.Engine.TotalPages*Frx.Engine.PageHeight-
Frx.Engine.FreeSpace)+R1;
P:=TfrxReportPage(Frx.Pages[SequencePage]);
P.PaperHeight:=R;
end;

在预览或打印前先调用PrintSerial即可。

也谈为Delphi中数据库报表加网格开发者在线 Builder.com.cn 更新时间:2007-11-02作者：佚名 来源:中国计算机报社
本文关键词： delphi 数据库 报表 网格
看了贵报第63期《为Delphi 3.0中数据库报表加上网格线》一文，笔者发现原文中的程序在不同分辨率的打印机（如180dpi的针式打印机和

600dpi的激光打印机）上打印表格，效果会完全不同。如作者以针打作为他的输出打印机设计的程序，在激光打印机上输出，就会发现表格和

文字错位，而且表格会打印得很小。而且原文中打印坐标的确定，必须靠反复的试验才能达到比较满意的效果。

　　针对原目标，笔者设计了一段程序。首先在窗体上添加一个DBGrid来显示我们所要打印的数据，在这里，DBGrid不只是起到显示数据的作

用，而且用户对DBGrid作的调整，例如改变了各字段的排列顺序，各字段的显示宽度等，都将直接反映到打印结果中去，也就是说，我们实际

上就是要把DBGrid的内容直接输出到打印机。以下程序在Win 98+Delphi 4下编译通过，代码如下：

procedure TForm1.Button2Click(Sender: TObject);
const
　　 LeftBlank=1; //定义页边距，单位厘米
　　 RightBlank=1;
　　 TopBlank=1;
　　 BottomBlank=1;
var
　　 PointX,PointY:integer;
　　 PointScale,PrintStep:integer;
　　 s:string;
　　 x,y:integer;
　　 i:integer;
begin //获取当前打印机的分辨率
PointX:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);
　　PointY:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);

　　//根据打印机和屏幕的分辨率计算出从屏幕转换到打印机的比例　
PointScale:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)
/Screen.PixelsPerInch+0.5); //横向打印
　 printer.Orientation:=poLandscape;

　　 //打印的字体和大小
　　printer.Canvas.Font.Name:=′宋体′;
　　printer.canvas.Font.Size:=10;

　　 //根据字体的大小确定每行的高度
　　s:=′漳州市刑警支队′;
　　PrintStep:=printer.canvas.TextHeight(s)+16;

　　 //打印的起点位置
　　x:=PointX*LeftBlank;
　　y:=PointY*TopBlank;

　　 //DataSource1是DBGrid1所连接的数据源

　　if ((DataSource1.DataSet).Active=true) and ((DataSource1.DataSet).RecordCount〉0) then
　　begin
　　printer.BeginDoc;
　　(DataSo e1.DataSet).First;
　　while not (DataSource1.DataSet).Eof do
　　begin //打印DBGrid中的所有列
　　 for i:=0 to DBGrid1.FieldCount－1 do
　　 begin
　　//假如所要打印的列超出了打印范围，则忽略该列
　　if (x+DBGrid1.Columns.Items[i].Width*PointScale)〈=(Printer.PageWidth－PointX*RightBlank) then
　　 begin //画表格线
//每页的第一行打印表头
　 Printer.Canvas.Rectangle(x,y,x+DBGrid1.Columns.
Items[i].Width*PointScale,y+PrintStep);
　 if y=PointY*TopBlank then
　　 Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Columns[i].Title.Caption)
　　 else
　　 Printer.Canvas.TextOut(x+8,y+8,DBGrid1.Fields[i].asString);
　　end; //计算下一列的横坐标

　　 x:=x+DBGrid1.Columns.Items[i].Width*PointScale;
　　end;

　 if not (y=PointY*TopBlank) then
(DataSource1.DataSet).next;

　　 x:=PointX*LeftBlank;
　 y:=y+PrintStep; //换页
　 if (y+PrintStep)〉(Printer.PageHeight－PointY*BottomBlank) then
　 begin
　　 Printer.NewPage;
　　 y:=PointY*TopBlank;
　　 end;
　 end;

　 printer.EndDoc;
　　 (DataSource1.DataSet).First;
　　 Application.MessageBox(′打印完成′,′打印′,32);
　　end;
end;

终于见到了程序员美女，哦，这么多年了，头一回啊。头一回。

只是跟男生一样，不太注意形象……
男的么，感觉正常，女的么，感觉是这种工作不适合她。

一、一个中心：一切以健康为中心。
二、两个基本点：
遇事潇洒一点，看世糊涂一点。
三、三个忘记：
忘记年龄，忘记过去，忘记恩怨。
四、四个拥有：
无论你有多弱或多强，一定要拥有真正爱你的人，拥有知心朋友，拥有向上的事业，拥有温暖的住所。
五、五个要：
要唱，要跳，要俏，要笑，要苗条。
六、六个不能：
不能饿了才吃，不能渴了才喝，不能困了才睡，不能累了才歇，不能病了才检查，不能老了再后悔！

有两种方式构建软件设计：一种是把软件做得很简单以至于明显找不到缺陷；另一种是把它做得很复杂以至于找不到明显的缺陷。

记得中学时代曾经过看一部新加坡的片子，名字叫《浮沉》。
看的时候，处于懵懂时期，只是跟着看个热闹；而没有去品味。现在想来，世事皆如此；总会随着时间起起落落，最终老去。

莫非偶已看破红尘？真的可以六根清净了？出家当和尚去。

呵呵，话归正题。

在我们个人金融投资的时候，总有那么些不如意：股市大跌，被深度套牢；基金玩家的净值也会随着基金公司股票市值的缩水而痛苦……
这是正常现象。而我们要做的，就是把握股市大节奏，在自己掌握的最大程度上为自己减少损失就可以了。
一、不管股民还是基民，首先要克服的，就是贪心。
利益的诱惑是赤裸裸的，能够做到平静地面对它，不是件容易的事儿。
二、见好就收。
当N多人都在叫嚣到“顶”的时候，往往还没有顶的出现。当大家都在挣的欢儿的时候，顶就是这么突然地出现了。
三、该出手时就出手。
有些经验的人知道在逢跌补仓。可是何是介入是个问题。究竟什么时候是个底呢？外界面N多评论看得人两眼发花也理不出个头绪出来。
其实可以这样操作：前提是，对后市看好的情况下，可以分时、分段补仓。这样可以把风险相对控制的较小，同时又可以获得相对可观的收益。不要计较一点一滴地得与失。

结尾：在全面通胀时代到来的背景下，我等小民就是被待宰的羔羊，看着手中的人民币不断的缩水却无可奈何……那就尽自己最大努力博一下下吧。

各位好运！