富翁笔记 - Delphibbs.com Blogs

OCP必备知识

luoyanqing119 — 2009-1-5 17:16:01

Oracle数据库管理：
　　· Oracle 数据库体系结构
　　· 创建一个能正常运行的数据库，以及如何以有效和高效的方式来正确管理各种不同的结构，从而构造出一个设计良好、高效率运行的数据库
　　· 管理ORACLE的实例、日志文件、控制文件、表空间、用户、权限、角色、表、索引、回滚段
　　· 如何在多个数据库之间进行数据迁移

Oracle备份与恢复：
　　· 根据业务需求，制定与完善数据库的备份、恢复、和RECOVER等策略
　　· 执行数据库备份、恢复和RECOVER策略的计划与实施等关键任务，以及如何进行正确性的验证
　　· 根据实际数据库的十几种不同的损坏原因，采用不同的恢复和RECOVER方式
　　· 熟练掌握Recovery Manager工具来执行备份、恢复和RECOVER
　　· 介绍当今业界最流行的备份软件
　　· Oracle standby 数据库配置与管理

Oracle网络管理：
　　· 数据库的传输以及用来执行这些活动的实用程序
　　· 学习和熟悉网络概念和配置参数，以及如何解决一些常见的网络问题
　　· 了解各个Net组件并将学习配置简单的和复杂的Net环境
　　· 通过动手练习活动，练习配置网络参数，从而使数据库客户机和工具都能实现与Oracle 数据库服务器之间的通信；

Oracle性能调优：
　　· 学习与ORACLE数据库性能相关的各种知识
　　· 进行操作系统级调优
　　· 进行存储级调优
　　· 调整应用
　　· 调整CPU、内存、存储、以及应用等之间的关系
　　· 通过使用多种不同的工具，确认、分析、和解决Oracle 数据库在运行过程中所存在的瓶颈

和上司领导沟通必备8个黄金句转帖

Supermay — 2009-1-4 15:33:46

1、句型：我们似乎碰到一些状况
妙处：以最婉约的方式传递坏消息。
如果立刻冲到上司的办公室里报告这个坏消息，就算不干你的事，也只会让上司质疑你处理危机的能力。此时，你应该不带情绪起伏的声调，从容不迫地说出本句型，要让上司觉得事情并非无法解决，面我们听起来像是你将与上司站在同一阵线，并肩作战。

2、句型：我马上处理。
妙处：上司传唤时责无旁贷
冷静，迅速地做出这样的回答，会令上司直觉地认为你是名有效率的好部属；相反，犹豫不决的态度只会惹得责任本就繁重的上司不快。

3、句型：安琪的主意真不错。
妙处：表现出团队精神安琪想出了一条边上司都赞赏的绝妙好计，你恨不得你的脑筋动得比人家快；与其拉长脸孔，暗自不爽，不如偷沾他的光，会让上司觉得你富有团队精神，因而另眼看待。

4、句型：这个报告没有你不行啦！
妙处：说服同事帮忙
有件棘手的工作，你无法独立完成，怎么开口才能让那个以这方面工作最拿手的同事心甘情愿地助你一臂之力呢？送高帽，灌迷汤，而那们好心人为了不负自己在这方面的名声，通常会答应你的请求。

5、句型：让我再认真地想一想，3点以前给你答复好吗？
妙处：巧妙闪避你不知道的事上司问了你某个与业务有关的问题，而你不知该如何作答，千万不可以说不知道。本句型不仅暂时为你解危，也让上司认为在这件事情上头很用心。不过，事后可得做足功课，按时交出你的答复。

6、句型：我很想知道你对某件事情的看法
妙外：恰如其分的讨好
你与高层要人共处一室，这是一个让你能够赢得青睐的绝佳时机。但说些什么好呢？此时，最恰当的莫过一个跟公司前景有关，而又发人深省的话题。在他滔滔不绝地诉说心得的时候，你不仅获益良多，也会让他对你的求知上进之心刮目相看。

7、句型：是我一时失察，不过幸好……
妙处：承认疏失但不引起上司不满犯错在所难免，勇于承认自己的过失非常重要，不过这不表示你就得因此对每个人道歉，诀窍在于别让所有的矛头都指到自己身上，坦诚却谈化你的过失，转移众人的焦点。

8、句型：谢谢你告诉我，我会仔细考虑你的建议
妙处：面对批评表现冷静
自己的工作成果遭人修正或批评，的确是一件令人苦恼的事。不需要将不满的情绪写出在脸上，不卑不亢的表现令你年起来更有自信，更值得人敬重。

在线更新源代码

muhx — 2009-1-4 9:22:53

我做得一个在线更新的程序

在线更新源代码

IdTcpServer AThread

samsi — 2009-1-3 16:33:09

应该先取得你要发送至客户端的 TIdPeerThread

AThread:TIdPeerThread

获得TIdPeerThread方法很多，如果在IdTCPServerExecute事件中，IdTCPServerExecute会将其用参数方式带入，可以直接使用。
IdTCPServerExecute(AThread: TIdPeerThread);

如果要在其它地方引用，应当在IdTCPServerConnect(AThread: TIdPeerThread);事件中对上线的机器进行链表记录。
或者直接用:

Var
List : Tlist;

List := IdTCPServer.Threads.LockList;
TidPeerThread(List.Items[i]).Connection.Write(Cmd);

这个是发送命令到所有客户端的代码：

procedure SendCmdToAll(CMD:String);
var
List: TList;
I: Integer;
begin
List := IdTcpServer.Threads.LockList;
try
for I := 0 to List.Count - 1 do
begin
try
TIdPeerThread(List.Items[I]).Connection.Write(CMD);
except
on E: Exception do
begin
TIdPeerThread(List.Items[I]).Stop;
end;
end;
end;
finally
IdTcpServer.Threads.UnlockList;
end;
end;

//总之都是利用TIdPeerThread的方法，所以能得到TIdPeerThread的话就没有任何问题。
AThread.Connection.Write(Cmd);

TIdTCPServer控件

samsi — 2009-1-3 14:14:23

IdTCPServer
简介
该控件包含一个完整的、多线程TCP服务器。该控件使用一个或者多个线程监听（listen）客户机连接，使用

时与TIdThreadMgr联合使用，将每个线程分配给与客户机连接的连接上。

TIdTCPServer提供允许配置服务器监听线程的功能，包括：
DefaultPort
ListenQueue
OnListenException
ReuseSocket
MaxConnections
MaxConnectionReply
该控件也提供控制协议特殊功能的属性和方法，包括：
Greeting
ReplyExceptionCode
ReplyUnknownCommand
该控件用来实现两机之间的连接，支持以下事件：
OnConnect
OnExecute
OnDisconnect
OnException
该控件支持协议命令的控制，包括：
CommandHandlers
CommandHandlersEnabled
OnNoCommandHandler
OnAfterCommandHandler
OnBeforeCommandHandler

该控件是以下控件的父类：
TIdChargenServer, TIdDayTimeServer, TIdDICTServer, TIdEchoServer, TIdFingerServer,

TIdGopherServer, TIdHostNameServer, TIdHTTPServer, TIdIRCServer, TIdNNTPServer, TIdQUOTDServer,

TIdTelnetServer, TIdWhoisServer

一些重要的属性
property ListenQueue: integer;
允许排队未解决的最大监听连接数。

property ReuseSocket: TIdReuseSocket;
本地地址中被重新使用的监听线程。

property MaxConnections: Integer;
最大允许的连接数。

property MaxConnectionReply: TIdRFCReply;
到达最大连接后，返回给其它请求的连接的消息。

property ReplyExceptionCode: Integer;
在发生异常后，返回给连接的代码。

property ReplyTexts: TIdRFCReplies;
服务器实现的协议响应。

property ReplyUnknownCommand: TIdRFCReply;
对未知命令的响应。

property CommandHandlers: TIdCommandHandlers;
命令处理器集合。

property CommandHandlersEnabled: boolean;
在监听线程连接时是否使用命令处理器。

property Greeting: TIdRFCReply;
当监听线程连接成功后发送的标题信息。

DBGridEhToExcel快速类

longxh025 — 2009-1-3 13:41:17

作者　: chen_liang
标题　: DBGridEhToExcel快速类
关键字:
分类　: 个人专区
密级　: 公开
(评分: , 回复: 0, 阅读: 679) »»
unit DBGridEhToExcel;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ComCtrls, ExtCtrls, StdCtrls, Gauges, DBGridEh, ShellApi;

type
TTitleCell = array of array of String;

//分解DBGridEh的标题
TDBGridEhTitle = class
private
FDBGridEh: TDBGridEh; //对应DBGridEh
FColumnCount: integer; //DBGridEh列数(指visible为True的列数)
FRowCount: integer; //DBGridEh多表头层数(没有多表头则层数为1)
procedure SetDBGridEh(const Value: TDBGridEh);
function GetTitleRow: integer; //获取DBGridEh多表头层数
function GetTitleColumn: integer; //获取DBGridEh列数
public
//分解DBGridEh标题，由TitleCell二维动态数组返回
procedure GetTitleData(var TitleCell: TTitleCell);
published
property DBGridEh: TDBGridEh read FDBGridEh write SetDBGridEh;
property ColumnCount: integer read FColumnCount;
property RowCount: integer read FRowCount;
end;

TDBGridEhToExcel = class(TComponent)
private
FCol: integer;
FRow: integer;
FProgressForm: TForm; {进度窗体}
FGauge: TGauge; {进度条}
Stream: TStream; {输出文件流}
FBookMark: TBookmark;
FShowProgress: Boolean; {是否显示进度窗体}
FDBGridEh: TDBGridEh;
FBeginDate: TCaption; {开始日期}
FTitleName: TCaption; {Excel文件标题}
FEndDate: TCaption; {结束日期}
FUserName: TCaption; {制表人}
FFileName: String; {保存文件名}
procedure SetShowProgress(const Value: Boolean);
procedure SetDBGridEh(const Value: TDBGridEh);
procedure SetBeginDate(const Value: TCaption);
procedure SetEndDate(const Value: TCaption);
procedure SetTitleName(const Value: TCaption);
procedure SetUserName(const Value: TCaption);
procedure SetFileName(const Value: String);

procedure IncColRow;
procedure WriteBlankCell; {写空单元格}
{写数字单元格}
procedure WriteFloatCell(const AValue: Double; const IncStatus: Boolean=True);
{写整型单元格}
procedure WriteIntegerCell(const AValue: Integer; const IncStatus: Boolean=True);
{写字符单元格}
procedure WriteStringCell(const AValue: string; const IncStatus: Boolean=True);
procedure WritePrefix;
procedure WriteSuffix;
procedure WriteHeader; {输出Excel标题}
procedure WriteTitle; {输出Excel列标题}
procedure WriteDataCell; {输出数据集内容}
procedure WriteFooter; {输出DBGridEh表脚}
procedure SaveStream(aStream: TStream);
procedure CreateProcessForm(AOwner: TComponent); {生成进度窗体}
{根据表格修改数据集字段顺序及字段中文标题}
procedure SetDataSetCrossIndexDBGridEh;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure ExportToExcel; {输出Excel文件}
published
property DBGridEh: TDBGridEh read FDBGridEh write SetDBGridEh;
property ShowProgress: Boolean read FShowProgress write SetShowProgress;
property TitleName: TCaption read FTitleName write SetTitleName;
property BeginDate: TCaption read FBeginDate write SetBeginDate;
property EndDate: TCaption read FEndDate write SetEndDate;
property UserName: TCaption read FUserName write SetUserName;
property FileName: String read FFileName write SetFileName;
end;

var
CXlsBof: array[0..5] of Word = ($809, 8, 0, $10, 0, 0);
CXlsEof: array[0..1] of Word = ($0A, 00);
CXlsLabel: array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
CXlsNumber: array[0..4] of Word = ($203, 14, 0, 0, 0);
CXlsRk: array[0..4] of Word = ($27E, 10, 0, 0, 0);
CXlsBlank: array[0..4] of Word = ($201, 6, 0, 0, $17);

implementation
{ TDBGridEhTitle }

function TDBGridEhTitle.GetTitleColumn: integer;
var
i, ColumnCount: integer;
begin
ColumnCount := 0;
for i := 0 to DBGridEh.Columns.Count - 1 do
begin
if DBGridEh.Columns[i].Visible then
Inc(ColumnCount);
end;

Result := ColumnCount;
end;

procedure TDBGridEhTitle.GetTitleData(var TitleCell: TTitleCell);
var
i, Row, Col: integer;
Caption: String;
begin
FColumnCount := GetTitleColumn;
FRowCount := GetTitleRow;
SetLength(TitleCell,FColumnCount,FRowCount);
Row := 0;
for i := 0 to DBGridEh.Columns.Count - 1 do
begin
if DBGridEh.Columns[i].Visible then
begin
Col := 0;
Caption := DBGridEh.Columns[i].Title.Caption;
while POS('|', Caption) > 0 do
begin
TitleCell[Row,Col] := Copy(Caption, 1, Pos('|',Caption)-1);
Caption := Copy(Caption,Pos('|', Caption)+1, Length(Caption));
Inc(Col);
end;
TitleCell[Row, Col] := Caption;
Inc(Row);
end;
end;
end;

function TDBGridEhTitle.GetTitleRow: integer;
var
i, j: integer;
MaxRow, Row: integer;
begin
MaxRow := 1;
for i := 0 to DBGridEh.Columns.Count - 1 do
begin
Row := 1;
for j := 0 to Length(DBGridEh.Columns[i].Title.Caption) do
begin
if DBGridEh.Columns[i].Title.Caption[j] = '|' then
Inc(Row);
end;

if MaxRow < Row then
MaxRow := Row;
end;

Result := MaxRow;
end;

procedure TDBGridEhTitle.SetDBGridEh(const Value: TDBGridEh);
begin
FDBGridEh := Value;
end;

{ TDBGridEhToExcel }

constructor TDBGridEhToExcel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FShowProgress := True;
end;

procedure TDBGridEhToExcel.SetShowProgress(const Value: Boolean);
begin
FShowProgress := Value;
end;

procedure TDBGridEhToExcel.SetDBGridEh(const Value: TDBGridEh);
begin
FDBGridEh := Value;
end;

procedure TDBGridEhToExcel.SetBeginDate(const Value: TCaption);
begin
FBeginDate := Value;
end;

procedure TDBGridEhToExcel.SetEndDate(const Value: TCaption);
begin
FEndDate := Value;
end;

procedure TDBGridEhToExcel.SetTitleName(const Value: TCaption);
begin
FTitleName := Value;
end;

procedure TDBGridEhToExcel.SetUserName(const Value: TCaption);
begin
FUserName := Value;
end;

procedure TDBGridEhToExcel.SetFileName(const Value: String);
begin
FFileName := Value;
end;

procedure TDBGridEhToExcel.IncColRow;
begin
if FCol = DBGridEh.DataSource.DataSet.FieldCount - 1 then
begin
Inc(FRow);
FCol := 0;
end
else
Inc(FCol);
end;

procedure TDBGridEhToExcel.WriteBlankCell;
begin
CXlsBlank[2] := FRow;
CXlsBlank[3] := FCol;
Stream.WriteBuffer(CXlsBlank, SizeOf(CXlsBlank));
IncColRow;
end;

procedure TDBGridEhToExcel.WriteFloatCell(const AValue: Double; const IncStatus: Boolean=True);
begin
CXlsNumber[2] := FRow;
CXlsNumber[3] := FCol;
Stream.WriteBuffer(CXlsNumber, SizeOf(CXlsNumber));
Stream.WriteBuffer(AValue, 8);

if IncStatus then
IncColRow;
end;

procedure TDBGridEhToExcel.WriteIntegerCell(const AValue: Integer; const IncStatus: Boolean=True);
var
V: Integer;
begin
CXlsRk[2] := FRow;
CXlsRk[3] := FCol;
Stream.WriteBuffer(CXlsRk, SizeOf(CXlsRk));
V := (AValue Shl 2) Or 2;
Stream.WriteBuffer(V, 4);

if IncStatus then
IncColRow;
end;

procedure TDBGridEhToExcel.WriteStringCell(const AValue: string; const IncStatus: Boolean=True);
var
L: integer;
begin
L := Length(AValue);
CXlsLabel[1] := 8 + L;
CXlsLabel[2] := FRow;
CXlsLabel[3] := FCol;
CXlsLabel[5] := L;
Stream.WriteBuffer(CXlsLabel, SizeOf(CXlsLabel));
Stream.WriteBuffer(Pointer(AValue)^, L);

if IncStatus then
IncColRow;
end;

procedure TDBGridEhToExcel.WritePrefix;
begin
Stream.WriteBuffer(CXlsBof, SizeOf(CXlsBof));
end;

procedure TDBGridEhToExcel.WriteSuffix;
begin
Stream.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
end;

procedure TDBGridEhToExcel.WriteHeader;
var
OpName, OpDate: String;
begin
//标题
FCol := 3;
WriteStringCell(TitleName,False);
FCol := 0;

Inc(FRow);

if Trim(BeginDate) <> '' then
begin
//开始日期
FCol := 0;
WriteStringCell(BeginDate,False);
FCol := 0
end;

if Trim(EndDate) <> '' then
begin
//结束日期
FCol := 5;
WriteStringCell(EndDate,False);
FCol := 0;
end;

if (Trim(BeginDate) <> '') or (Trim(EndDate) <> '') then
Inc(FRow);

//制表人
OpName := '制表人：' + UserName;
FCol := 0;
WriteStringCell(OpName,False);
FCol := 0;

//制表时间
OpDate := '制表时间：' + DateTimeToStr(Now);
FCol := 5;
WriteStringCell(OpDate,False);
FCol := 0;

Inc(FRow);
end;

procedure TDBGridEhToExcel.WriteTitle;
var
i, j: integer;
DBGridEhTitle: TDBGridEhTitle;
TitleCell: TTitleCell;
begin
DBGridEhTitle := TDBGridEhTitle.Create;
try
DBGridEhTitle.DBGridEh := FDBGridEh;
DBGridEhTitle.GetTitleData(TitleCell);

try
for i := 0 to DBGridEhTitle.RowCount - 1 do
begin
for j := 0 to DBGridEhTitle.ColumnCount - 1 do
begin
FCol := j;
WriteStringCell(TitleCell[j,i],False);
end;
Inc(FRow);
end;
FCol := 0;
except

end;
finally
DBGridEhTitle.Free;
end;
end;

procedure TDBGridEhToExcel.WriteDataCell;
var
i: integer;
begin
DBGridEh.DataSource.DataSet.DisableControls;
FBookMark := DBGridEh.DataSource.DataSet.GetBookmark;
try
DBGridEh.DataSource.DataSet.First;
while not DBGridEh.DataSource.DataSet.Eof do
begin
for i := 0 to DBGridEh.DataSource.DataSet.FieldCount - 1 do
begin
if DBGridEh.DataSource.DataSet.Fields[i].IsNull or (not DBGridEh.DataSource.DataSet.Fields[i].Visible) then
WriteBlankCell
else
begin
case DBGridEh.DataSource.DataSet.Fields[i].DataType of
ftSmallint, ftInteger, ftWord, ftAutoInc, ftBytes:
WriteIntegerCell(DBGridEh.DataSource.DataSet.Fields[i].AsInteger);
ftFloat, ftCurrency, ftBCD:
WriteFloatCell(DBGridEh.DataSource.DataSet.Fields[i].AsFloat);
else
if DBGridEh.DataSource.DataSet.Fields[i] Is TBlobfield then // 此类型的字段(图像等)暂无法读取显示
WriteStringCell('')
else
WriteStringCell(DBGridEh.DataSource.DataSet.Fields[i].AsString);
end;
end;
end;

//显示进度条进度过程
if ShowProgress then
begin
FGauge.Progress := DBGridEh.DataSource.DataSet.RecNo;
FGauge.Refresh;
end;

DBGridEh.DataSource.DataSet.Next;
end;

finally
if DBGridEh.DataSource.DataSet.BookmarkValid(FBookMark) then
DBGridEh.DataSource.DataSet.GotoBookmark(FBookMark);

DBGridEh.DataSource.DataSet.EnableControls;
end;
end;

procedure TDBGridEhToExcel.WriteFooter;
var
i, j: integer;
begin
if DBGridEh.FooterRowCount = 0 then exit;

FCol := 0;
if DBGridEh.FooterRowCount = 1 then
begin
for i := 0 to DBGridEh.Columns.Count - 1 do
begin
if DBGridEh.Columns[i].Visible then
begin
WriteStringCell(DBGridEh.Columns[i].Footer.Value,False);
Inc(FCol);
end;
end;
end
else if DBGridEh.FooterRowCount > 1 then
begin
for i := 0 to DBGridEh.Columns.Count - 1 do
begin
if DBGridEh.Columns[i].Visible then
begin
for j := 0 to DBGridEh.Columns[i].Footers.Count - 1 do
begin
WriteStringCell(DBGridEh.Columns[i].Footers[j].Value ,False);
Inc(FRow);
end;
Inc(FCol);
FRow := FRow - DBGridEh.Columns[i].Footers.Count;
end;
end;
end;
FCol := 0;
end;

procedure TDBGridEhToExcel.SaveStream(aStream: TStream);
begin
FCol := 0;
FRow := 0;
Stream := aStream;

//输出前缀
WritePrefix;

//输出表格标题
WriteHeader;

//输出列标题
WriteTitle;

//输出数据集内容
WriteDataCell;

//输出DBGridEh表脚
WriteFooter;

//输出后缀
WriteSuffix;
end;

procedure TDBGridEhToExcel.ExportToExcel;
var
FileStream: TFileStream;
Msg: String;
begin
//如果数据集为空或没有打开则退出
if (DBGridEh.DataSource.DataSet.IsEmpty) or (not DBGridEh.DataSource.DataSet.Active) then
exit;

//如果保存的文件名为空则退出
if Trim(FileName) = '' then
exit;

//根据表格修改数据集字段顺序及字段中文标题
SetDataSetCrossIndexDBGridEh;

Screen.Cursor := crHourGlass;
try
try
if FileExists(FileName) then
begin
Msg := '已存在文件（' + FileName + '），是否覆盖？';
if Application.MessageBox(PChar(Msg),'提示',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2) = IDYES then
begin
//删除文件
DeleteFile(FileName)
end
else
exit;
end;

//显示进度窗体
if ShowProgress then
CreateProcessForm(nil);

FileStream := TFileStream.Create(FileName, fmCreate);
try
//输出文件
SaveStream(FileStream);
finally
FileStream.Free;
end;

//打开Excel文件
ShellExecute(0, 'Open', PChar(FileName), nil, nil, SW_SHOW);
except

end;
finally
if ShowProgress then
FreeAndNil(FProgressForm);
Screen.Cursor := crDefault;
end;
end;

destructor TDBGridEhToExcel.Destroy;
begin
inherited Destroy;
end;

procedure TDBGridEhToExcel.CreateProcessForm(AOwner: TComponent);
var
Panel: TPanel;
Prompt: TLabel; {提示的标签}
begin
if Assigned(FProgressForm) then
exit;

FProgressForm := TForm.Create(AOwner);
with FProgressForm do
begin
try
Font.Name := '宋体'; {设置字体}
Font.Size := 9;
BorderStyle := bsNone;
Width := 300;
Height := 100;
BorderWidth := 1;
Color := clBlack;
Position := poScreenCenter;

Panel := TPanel.Create(FProgressForm);
with Panel do
begin
Parent := FProgressForm;
Align := alClient;
BevelInner := bvNone;
BevelOuter := bvRaised;
Caption := '';
end;

Prompt := TLabel.Create(Panel);
with Prompt do
begin
Parent := Panel;
AutoSize := True;
Left := 25;
Top := 25;
Caption := '正在导出数据，请稍候......';
Font.Style := [fsBold];
end;

FGauge := TGauge.Create(Panel);
with FGauge do
begin
Parent := Panel;
ForeColor := clBlue;
Left := 20;
Top := 50;
Height := 13;
Width := 260;
MinValue := 0;
MaxValue := DBGridEh.DataSource.DataSet.RecordCount;
end;
except

end;
end;

FProgressForm.Show;
FProgressForm.Update;
end;

procedure TDBGridEhToExcel.SetDataSetCrossIndexDBGridEh;
var
i: integer;
begin
for i := 0 to DBGridEh.Columns.Count - 1 do
begin
DBGridEh.DataSource.DataSet.FieldByName(DBGridEh.Columns.Items[i].FieldName).Index := i;
DBGridEh.DataSource.DataSet.FieldByName(DBGridEh.Columns.Items[i].FieldName).DisplayLabel
:= DBGridEh.Columns.Items[i].Title.Caption;
DBGridEh.DataSource.DataSet.FieldByName(DBGridEh.Columns.Items[i].FieldName).Visible :=
DBGridEh.Columns.Items[i].Visible;
end;

for i := 0 to DBGridEh.DataSource.DataSet.FieldCount - 1 do
begin
if POS('*****',DBGridEh.DataSource.DataSet.Fields[i].DisplayLabel) > 0 then
DBGridEh.DataSource.DataSet.Fields[i].Visible := False;
end;
end;

end.

/*****************************************************************/

调用的例子

var
DBGridEhToExcel: TDBGridEhToExcel;
begin
DBGridEhToExcel := TDBGridEhToExcel.Create(nil);
try
DBGridEhToExcel.TitleName := '测试测试测试测试测试测试测试';
DBGridEhToExcel.BeginDate := '开始日期：2005-07-01';
DBGridEhToExcel.EndDate := '结束日期：2005-07-18';
DBGridEhToExcel.UserName := '系统管理员';
DBGridEhToExcel.DBGridEh := DBGridEh1;
DBGridEhToExcel.ShowProgress := True;
DBGridEhToExcel.FileName := 'c:\123.xls';
DBGridEhToExcel.ExportToExcel;
finally
DBGridEhToExcel.Free;
end;

SQL日期转换

longxh025 — 2009-1-3 9:52:43

SQL日期转换
select CONVERT(varchar, getdate(), 120 )
2004-09-12 11:06:08

select replace(replace(replace(CONVERT(varchar, getdate(), 120 ),'-',''),' ',''),':','')
20040912110608

select CONVERT(varchar(12) , getdate(), 111 )
2004/09/12

select CONVERT(varchar(12) , getdate(), 112 )
20040912

select CONVERT(varchar(12) , getdate(), 102 )
2004.09.12

其它我不常用的日期格式转换方法:

select CONVERT(varchar(12) , getdate(), 101 )
09/12/2004

select CONVERT(varchar(12) , getdate(), 103 )
12/09/2004

select CONVERT(varchar(12) , getdate(), 104 )
12.09.2004

select CONVERT(varchar(12) , getdate(), 105 )
12-09-2004

select CONVERT(varchar(12) , getdate(), 106 )
12 09 2004

select CONVERT(varchar(12) , getdate(), 107 )
09 12, 2004

select CONVERT(varchar(12) , getdate(), 108 )
11:06:08

select CONVERT(varchar(12) , getdate(), 109 )
09 12 2004 1

select CONVERT(varchar(12) , getdate(), 110 )
09-12-2004

select CONVERT(varchar(12) , getdate(), 113 )
12 09 2004 1

select CONVERT(varchar(12) , getdate(), 114 )
11:06:08.177

EXEC AUTOPC_P_GETDAYFROMWEEK '2009','01'

CREATE PROCEDURE AUTOPC_P_GETDAYFROMWEEK(@YEAR VARCHAR(10),@WEEK VARCHAR(10) ) AS

--DECLARE @INTYEAR INT ,@INTWEEK INT
DECLARE @DATEFIRSTDAYOFYEAR DATETIME
DECLARE @DATEFIRSTDAYOFWEEK DATETIME
DECLARE @DATELASTDAYOFWEEK DATETIME

SET @DATEFIRSTDAYOFYEAR=CONVERT(SMALLDATETIME,@YEAR + '-1-1')
SET @DATEFIRSTDAYOFWEEK= DATEADD(DAY,1-DATEPART(WEEKDAY,@DATEFIRSTDAYOFYEAR),DATEADD(WEEK,CONVERT(VARCHAR(2),@WEEK)-1,@DATEFIRSTDAYOFYEAR) )
SET @DATELASTDAYOFWEEK=DATEADD(DAY,6,@DATEFIRSTDAYOFWEEK)

SELECT
--CONVERT(VARCHAR(12),CONVERT(SMALLDATETIME,CONVERT(VARCHAR(4),@INTYEAR) + '-1-1'),111) AS DATEFIRSTDAYOFYEAR,
--CONVERT(VARCHAR(12),DATEADD(DAY,1-DATEPART(WEEKDAY,@DATEFIRSTDAYOFYEAR),DATEADD(WEEK,@INTWEEK-1,@DATEFIRSTDAYOFYEAR)),111) AS DATEFIRSTDAYOFWEEK,
--CONVERT(VARCHAR(12),DATEADD(DAY,6,@DATEFIRSTDAYOFWEEK),111) AS DATELASTDAYOFWEEK,

CONVERT(VARCHAR(10),@YEAR) AS YEA,

MONTH (DATEADD(DAY,0,@DATEFIRSTDAYOFWEEK)) AS MON1,
MONTH (DATEADD(DAY,1,@DATEFIRSTDAYOFWEEK)) AS MON2,
MONTH (DATEADD(DAY,2,@DATEFIRSTDAYOFWEEK)) AS MON3,
MONTH (DATEADD(DAY,3,@DATEFIRSTDAYOFWEEK)) AS MON4,

---------------------
MONTH (DATEADD(DAY,0,@DATEFIRSTDAYOFWEEK)) AS SMON1,
MONTH (DATEADD(DAY,1,@DATEFIRSTDAYOFWEEK)) AS SMON2,
MONTH (DATEADD(DAY,2,@DATEFIRSTDAYOFWEEK)) AS SMON3,
MONTH (DATEADD(DAY,3,@DATEFIRSTDAYOFWEEK)) AS SMON4,
MONTH (DATEADD(DAY,4,@DATEFIRSTDAYOFWEEK)) AS SMON5,
MONTH (DATEADD(DAY,5,@DATEFIRSTDAYOFWEEK)) AS SMON6,
MONTH (DATEADD(DAY,6,@DATEFIRSTDAYOFWEEK)) AS SMON7,
MONTH (DATEADD(DAY,7,@DATEFIRSTDAYOFWEEK)) AS SMON8,
--------
DAY(DATEADD(DAY,0,@DATEFIRSTDAYOFWEEK)) AS DAY1,
DAY(DATEADD(DAY,1,@DATEFIRSTDAYOFWEEK)) AS DAY2,
DAY(DATEADD(DAY,2,@DATEFIRSTDAYOFWEEK)) AS DAY3,
DAY(DATEADD(DAY,3,@DATEFIRSTDAYOFWEEK)) AS DAY4,
DAY(DATEADD(DAY,4,@DATEFIRSTDAYOFWEEK)) AS DAY5,
DAY(DATEADD(DAY,5,@DATEFIRSTDAYOFWEEK)) AS DAY6,
DAY(DATEADD(DAY,6,@DATEFIRSTDAYOFWEEK)) AS DAY7,
DAY(DATEADD(DAY,7,@DATEFIRSTDAYOFWEEK)) AS DAY8

经络养生

creation-zy — 2009-1-3 8:34:21

我们能直接看到的世界不过是真实世界的很小一部分，而决定世界的运转的恰恰是那些看不见的绝大部分。
人体也是如此——经络，做为用解剖手段无法检测到、只能用电阻测试乃至同位素示踪等高科技手段才能观察到的元气循行路径，是我们人体色身中一个神秘的组成部分。《黄帝内经》云：经脉者，所以能决生死、处百病、调虚实，不可不通。

考虑到不少人对经络等中医理论存在不解或偏见，在此向大家推荐曲黎敏教授的《黄帝内经》讲座视频，我敢断言，能认真看的人，必将终身受用：

http://www.tudou.com/playlist/id/2836163/

下面，我将自己对经脉的学习心得整理成口诀，分期贴出，希望能达到抛砖引玉的作用:)

面部选取

睢志强 — 2009-1-2 7:44:20

一个小的图片工具

'ARITHABORT'錯誤

longxh025 — 2008-12-30 17:04:07

在SQL Server 2005中使用了计算列之后，执行查询时出现错误:

“INSERT failed because the following SET options have incorrect settings: 'ARITHABORT'. Verify that SET options are correct for use with indexed views and/or indexes on computed columns and/or query notifications and/or xml data type methods.”

解决方法：
将该数据库的兼容级别改为: SQL Server 2005(90)
原来设置的是: SQL Server 2000(80)

新年到了，也发布一款日历日记软件。

白日依山黄河入海 — 2008-12-30 14:31:31

1、翻页效果，模拟真实日记本；
2、纯绿色软件，功能强大，内容丰富，大小仅一兆多，无需安装，解压即可使用；
3、2009年运势预测、属相运势预测；
4、2009年黄道吉日查询
5、二万多条成语查询；
6、近七千条、四十多种分类名人名言字典；
7、每年法定节日查询；
8、一百五十年万年历查询、节日查询、公历、农历转换；
9、搜集本机中所有常用软件快捷方式，提供快速打开软件、查找软件位置等功能；
10、网址大全：提供最热门上千个网址；
11、每日备忘记录，备忘全文检索功能；
12、日记功能、日记全文检索功能；
13、天干地支查询；
14、文本格式化功能；
15、皮肤自定义功能；
16、背景自定义功能；
17、四季分明的界面主题；
18、近百种背景图的漂亮“迷你窗”、“迷你”日历、“迷你”日期时间提示。
19、界面操作简单、明了，主要功能都在主菜单、右键菜单、按钮上体现。
20、系统资源占用少。

新年到了，也发布一款日历日记软件。

共享我的藏书----delphi书籍和光盘源码

啊啊啊啊啊 — 2008-12-28 19:23:44

1999-2000年接触delphi至今，本事没学到多少，delphi的书买了不少。在手头的都列出来，有需要随书带的源码的，可以和我联系:)

1。delphi5学习教程北京大学出版社 1999年
2。delphi5开发人员指南机械工业出版社 2000年
3。delphi5编程指南人民邮电出版社 2000年
4。delphi5.x ado/mts/com+高级程序设计篇机械工业出版社 2000年
5。delphi多媒体特效制作百例中国电力出版社 2001年
6。delphi串口通信编程人民邮电出版社 2001年
7。delphi5.0多媒体时尚编程百例机械工业出版社 2001年
8。delphi5.0时尚编程百例机械工业出版社 2001年
9。internet与tcp/ip程序设计之delphi高手清华大学出版社 2001年
10。delphi6.0数据库实例编程中国水利水电出版社 2002年
11。delphi6.0网络及数据库时尚编程百例机械工业出版社 2002年
12。delphi深度编程及其项目应用开发中国水利水电出版社 2002年
13。delphi数字图像处理及高级应用科学出版社 2003年
14。delphi6开发人员指南机械工业出版社 2003年
15。delphi面向对象编程思想机械工业出版社 2003年
16。delphi算法与数据结构中国电力出版社 2003年
17。delphi企业经营管理系统开发实例导航人民邮电出版社 2003年
18。delphi住宿餐饮管理系统开发实例导航人民邮电出版社 2003年
19。delphi7下intraweb应用开发详解电子工业出版社 2003年
20。delphi7 web开发与应用机械工业出版社 2003年
21。delphi下深入windows核心编程电子工业出版社 2003年
22。计算机地图制图科学出版社 2004年（再版）
23。delphi win32核心api参考中国电力出版社 2004年
24。80例上手delphi7编程山东电子音像出版社 2004年
25。分形算法与程序设计-delphi实现科学出版社 2004年
26。运筹学算法与编程实践-delphi实现清华大学出版社 2004年
27。delphi模式编程机械工业出版社 2004年
28。delphi源代码分析电子工业出版社 2004年
29。delphi类库查询辞典中国铁道出版社 2004年
30。delphi经典游戏程序设计40例中国铁道出版社 2004年
31。面向对象开发实践之路-delphi版电子工业出版社 2005年
32。delphi2006高效数据库程序设计-dbexpress篇电子工业出版社 2006年
33。多媒体视频程序设计-使用delphi 中国铁道出版社 2006年
34。delphi数据库系统开发案例精选人民邮电出版社 2006年
35。基于delphi的数字图像处理工程软件设计北京水利水电出版社 2006年
36。数字图像模式识别工程软件设计北京水利水电出版社 2008年

2009年1月4日整理，未完待续......

各位需要代码的请耐心等待，等我整理完书目和光盘后，一并送上:)

偶像-Anders Hejlsberg

delhpi — 2008-12-27 18:42:54

Anders Hejlsberg

FastReport问题集

XCC — 2008-12-27 11:30:05

---------------- 使用自定义函数 ----------------------------------------

Q: 我怎样添加我的自定义函数?
A: 使用 TfrReport.OnUserFunction 事件. 这里有一个简单的例子:

procedure TForm1.frReport1UserFunction(const Name: String;
p1, p2, p3: Variant; var val: Variant);
begin
if AnsiCompareText(‘SUMTOSTR‘, Name) = 0 then
val := My_Convertion_Routine(frParser.Calc(p1));
end;

然后，你就可以在报表（任何表达式或脚本）的任何地方使用 SumToStr 函数了。

Q: 但是它仅仅能工作在一个TfrReport组件中。可我想在任何地方（在所有的TfrReport组件中）使用的我的自定义函数？
A: 使 OnUserFunction event 句柄作为所有组件的公用句柄。如果你不能做到这一点，你需要创建函数库：

type
TMyFunctionLibrary = class(TfrFunctionLibrary)
public
constructor Create; override;
procedure DoFunction(Fno: Integer; p1, p2, p3: Variant;
var val: Variant); override;
end;

constructor TMyFunctionLibrary.Create;
begin
inherited Create;
with List do
begin
Add(‘DATETOSTR‘);
Add(‘SUMTOSTR‘);
end;
end;

procedure TMyFunctionLibrary.DoFunction(Fno: Integer; p1, p2, p3: Variant;
var val: Variant);
begin
val := 0;
case Fno of
0: val := My_DateConvertion_Routine(frParser.Calc(p1));
1: val := My_SumConvertion_Routine(frParser.Calc(p1));
end;
end;

要注册函数库，调用
frRegisterFunctionLibrary(TMyFunctionLibrary);
要卸载函数库，调用
frUnRegisterFunctionLibrary(TMyFunctionLibrary);

Q: 我怎样将我的函数添加到函数列表中 (用表达式生成器)?
A: 使用 frAddFunctionDesc 过程 (在FR_Class 单元中):

frAddFunctionDesc(FuncLib, ‘SUMTOSTR‘, ‘My functions‘,
‘SUMTOSTR()/Converts number to its verbal presentation.‘);

注意: "/" 符号是必须的! 它从它的描述中分隔函数语法。
FuncLib 被声明为你自己的函数库 (如果你不使用函数库可以将其设置为nil). 当函数库未注册时，所有它的函数将自动从函数列表中删除。

---------------- 使用变量 -------------------------------------

Q: 我怎样编程实现填充变量列表（在数据词典中）?

A: 数据词典中的所有变量及分类都被存储在 TfrReport.Dictionary.Variables 中.

with frReport1.Dictionary do
begin
// 创建分类(名称用空白)
Variables[‘ New category‘] := ‘‘;
// 创建变量
Variables[‘New Variable‘] := ‘CustomerData.Customers."CustNo"‘;
Variables[‘Another Variable‘] := ‘Page#‘;
end;

Q: 我定义了字符串变量:

with frReport1.Dictionary do
Variables[‘Month‘] := ‘March‘;

但是当我运行报表是，出现了错误，为什么?

A: 因为 FastReport 假定数据词典中的字符串变量值是一个表达式，它需要分析、计算它。
可以使用其它的方法:

with frReport1.Dictionary do
Variables[‘Month‘] := ‘‘‘‘ + ‘March‘ + ‘‘‘‘;

或者, 使用 frVariables 来传输固定数据到报表。

Q: 我不想在数据词典中显示某些数据集？

A: 使用 TfrReport.Dictionary.DisabledDatasets:

with frReport1.Dictionary do
begin
// 关闭该数据集
DisabledDatasets.Add(‘CustomerData.Bio‘);
// 或者, 关闭整个数据模块/窗体
DisabledDatasets.Add(‘CustomerData*‘);
end;

Q: 我怎样将数据传送到报表?

A: 有几个方法可以实现它. 第一是使用全局对象 frVariables (在 FR_Class 单元中被定义):

frVariables[‘My variable‘] := 10;

这段代码创建了一个名称为“My variable”，值为 10 的变量。这是最好的传输固定数据的报表的方法。

第二种方法是使用 TfrReport.OnGetValue 事件. 这可以使用这个方法来传送动态数据、记录等。

procedure TForm1.frReport1GetValue(ParName: String; var ParValue: Variant);
begin
if ParName = ‘MyField‘ then
ParValue := Table1MyField.Value;
end;

最后, 第三种方法是通过编程在数据词典中定义变量（可以参考以前的问题）:

with frReport1.Dictionary do
begin
Variables[‘MyVariable‘] := ‘CustomerData.Customers."CustNo"‘;
Variables[‘Another Variable‘] := ‘10‘;
end;

Q: 我能在报表和程序间传送数据吗?
A: 使用 frVariables 对象. 如果你在报表的任何对象的脚本中写入以下代码：

MyVariable := 10

那么，在你的程序中，你可以使用以下代码来获取 MyVariable 的值:
v := frVariables[‘MyVariable‘];

---------------- 脚本 (FastReport Pascal) ---------------------------------

Q: Band 中是否可以使用脚本?

A: 当然. 选择 band ，然后按 Ctrl+Enter 或在对象浏览器中选择 "OnBeforePrint" 属性。

Q: 报表页中是否可以使用脚本?

A: 当然. 选择页 (在空白处单击) ，然后在对象浏览器中选择 "OnBeforePrint" 属性。如果该页是一个对话框窗体，那么这个属性就是 "OnActivate".

Q: 我有两个对象: Memo1 和 Memo2. 我能否在 Memo1 的脚本中调用 Memo2 的属性和方法？

A: 当然，例如，你可以这样做：对象名.属性名.

Q: 在脚本中，我可以使用对象的哪些属性?

A: 几乎所有你能在对象浏览器中看到的属性。例如，可以使用 Font.Name, Font.Size等来存取字体属性。

---------------- 其它问题 --------------------------------------------

Q: 怎样改变多页报表中某一页的顺序?

A: 拖动页标签到目的位置。

Q: 我想查看所有的字段及变量，我想在报表中使用列表来实现它？

A: 设置 TfrReport.MixVariablesAndDBFields := True.现在，所有的数据字段及变量可在“插入数据字段”对话框中可存取了。

Q: 我不想显示导入选项对话框？

A: 在导入组件（比如，TfrTextExport)中设置所有必需的选项，然后通过设置ShowDialog属性为False来关闭此对话框。

Q: 为什么 TotalPages 变量不起作用? 它总是返回 0.

A: 在你的报表中设置 Two-pass 选项. 要设置它，你需要在报表设计器的“文件”菜单中，打开“报表选项”对话框。

Q: 我用BLOB字段来存储我的报表。当我运行报表设计器时，它显示我的报表未命名？

A: 在运行报表设计器前，这样做:

frReport1.FileName := ‘Name of my report‘;

Q: 我想在重新定义报表设计器中的“打开”及“保存”按钮的功能？

A: 查看 TfrDesigner 组件. 它有几个必需的事件: OnLoadReport 和
OnSaveReport. 这里有一小段代码例子:

procedure TForm1.frDesigner1LoadReport(Report: TfrReport;
var ReportName: String; var Opened: Boolean);
begin
with MyOpenDialog do
begin
Opened := ShowModal = mrOk;
if Opened then
begin
Report.LoadFromBlobField(…);
ReportName := …;
end;
end;
end;

procedure TForm1.frDesigner1SaveReport(Report: TfrReport;
var ReportName: String; SaveAs: Boolean; var Saved: Boolean);
begin
if SaveAs then
with MySaveDialog do
begin
Saved := ShowModal = mrOk;
if Saved then
begin
Report.SaveToBlobField(…);
ReportName := …;
end;
end
else
Report.SaveToBlobField(…);
end;

Q: 在 QR 中, 我可以写这样的代码： QRLabel1.Caption := ‘Some text‘. 我可以用FR这样做吗？

A: FR 对象并不是一个组件 (这并不像 QR, RB). 但使用 TfrReport.FindObject 方法可以通过对象名称找到该对象。

var
t: TfrMemoView;
begin
t := TfrMemoView(frReport1.FindObject(‘Memo1‘));
if t <> nil then
t.Memo.Text := ‘FastReport‘;
end;

Q: 我想在用户预览（TfrPreview组件）中自定义热键？

A: 这个组件有个窗口: Tform 属性. 将自定义句柄指定到 Window.OnKeyDown 属性.

Q: Fast Report 2.4 不能装载 FreeReport 2.21 文件？

A: 这仅需要使用16进制数改变报表文件的第一字节，然后在源代码中修改下面的部分。在这些修改之后，装载报表并保存它. 最后，返回到源代码处.

FR_Class:

function ReadString(Stream: Tstream): String;
begin
{ if frVersion >= 23 then}
Result := frReadString(Stream) {else
Result := frReadString22(Stream);}
end;

procedure ReadMemo(Stream: Tstream; Memo: Tstrings);
begin
{ if frVersion >= 23 then}
frReadMemo(Stream, Memo){ else
frReadMemo22(Stream, Memo);}
end;

FR_Utils:

procedure frReadMemo(Stream: Tstream; l: Tstrings);
var
s: String;
b: Byte;
n: Word;
begin
l.Clear;
l.Text := frReadString(Stream); exit;
Stream.Read(n, 2);
if n > 0 then
repeat
Stream.Read(n, 2);
SetLength(s, n);
Stream.Read(s[1], n);
l.Add(s);
Stream.Read(b, 1);
until b = 0
else
Stream.Read(b, 1);
end;

function frReadString(Stream: Tstream): String;
var
s: String;
n: Integer;
b: Byte;
begin
Stream.Read(n, 4);
SetLength(s, n);
Stream.Read(s[1], n);
if (n > 0) and (s[n] = #$0A) then
SetLength(s, n - 2);
// Stream.Read(b, 1);
Result := s;
end;

Q: 怎样不在打印预览中打印报表？
A: 这里有一段代码:

frReport1.PrepareReport;
frReport1.PrintPreparedReport(‘‘, 1, True, frAll);
或
frReport1.PrintPreparedReportDlg;

Q: 我想在报表中旋转图片。问题是这张图片是由我的应用程序生成的。是否有方法可以在打印前将这幅图片装载到报表中？

A: 使用 TfrReport.OnBeforePrint 事件:

if View.Name = ‘Picture1‘ then
TfrPictureView(View).Picture.LoadFromFile(…) 或
.Assign 或
.你所想要做的任何事情

资料引用:http://www.knowsky.com/336300.html

DBGridEh和dbgrid导出

XCC — 2008-12-26 14:44:10

uses ComObj
如果你用DBGrid把数据显示出来，不管你用什么数据库，都可以导出到Excel表里！

uses ComObj;

procedure TSearchinforfrm.Button11Click(Sender: TObject);
var
eclApp,WorkBook:olevariant;
xlsFileName:string;
i,j:integer;
begin

if SaveDialog1.Execute then
xlsFileName:=SaveDialog1.FileName;

try
eclApp:=CreateOleObject('Excel.Application');
WorkBook:=CreateOleObject('Excel.Sheet');
except
Application.MessageBox('系统没有安装Microsoft Excel','Microsoft Excel',MB_OK+MB_ICONWarning);
Exit;
end;

try
WorkBook:=eclApp.workbooks.Add;
for i:=0 to DBGrid1.Columns.Count-1 do
begin
//这里可以更改列名，用if ... then进行判断和指定列名
eclApp.Cells(1,i+1):=DBGrid1.Columns[i].FieldName;
end;

DBGrid1.DataSource.DataSet.First;
j:=2;
while not DBGrid1.DataSource.DataSet.Eof do
begin
for i:=0 to DBGrid1.DataSource.DataSet.FieldCount-1 do
begin
eclApp.Cells(j,i+1):=DBGrid1.DataSource.DataSet.Fields[i].Value;
end;
DBGrid1.DataSource.DataSet.Next;
inc(j);
end;

WorkBook.SaveAS(xlsFileName);
WorkBook.close;
except
ShowMessage('文件导出失败！');
Exit;
end;
Application.MessageBox('保存成功!','恭喜',MB_OK + MB_ICONINFORMATION);
end;

各种数据库的ado连接字符串

XCC — 2008-12-26 14:21:41

作者: wqch88
标题: 各种数据库的ado连接字符串
关键字: 连接字符串
分类: 开发技巧
密级: 公开
(评分: , 回复: 0, 阅读: 2886) »»
1.Oracle:
a>先设置好Oracle本地服务名配置,如:USER_DB
b>配置ODBC引擎:ODBC_DB,该引擎的服务器指向Oracle的本地服务名,即:USER_DB
c>配置联接字符串,如:Provider=MSDASQL.1;Password=user;Persist Security Info=True;User ID=user;Data Source=ODBC_DB;Extended Properties="DSN=ODBC_DB;UID=user;PWD=user;SERVER=USER_DB;"
2.Access
联接字符串:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\aa.mdb;Jet OLEDB:Database password=123
3.DBF(Dbase数据库)
联接字符串:Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=D:\DBF\;Mode=Share Deny None;Extended Properties=DBase 5.0
4.Excel
联接字符串:Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=F:\Excel\demo.xls;Mode=Share Deny None;Extended Properties=Excel 8.0;
5.TEXT
联接字符串:Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source=D:\txt;Mode=Share Deny None;Extended Properties="text;HDR=YES;FMT=Delimited"
6.DBF(Visual Foxpro数据库)
联接字符串:Provider=MSDASQL;Persist Security Info=False;Extended Properties="DSN=Visual FoxPro Tables;UID=;SourceDB=D:\DBF\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
7.db(Paradox7.0)
联接字符串:Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Borland\Borland Shared\Data;Mode=Share Deny None;Extended Properties=paradox 7.x

DevExpress部分使用技巧

XCC — 2008-12-26 14:12:01

本文由轻舞肥羊发表于大富翁论坛
转载请标明出处,谢谢

声明:以下代码请看懂再使用,本人水平有限,发现bug希望提出,让我们共同改进

2004-1-10 17:06:00
发表评语»»»

2004-1-10 17:08:06 1.扩展cxLookupComboBox,使其支持多列查询的cxLookupComboBoxEx //==============================================================================
// Unit Name: cxLookupComboBoxEx
// Author : ysai
// Date : 2003
// Purpose : 扩展cxLookupComboBox,cxDBLookupComboBox,使其支持多列过滤
// History :
// 2003-05-28大数据量改进
// 2003-07-07可操作性改进
// 2003-08-20效率改进
// 2003-08-29加入过滤延时
// 注意:
// 限制1,不能再使用Properties.OnChange事件
// 限制2,不能再使用Properties.ListSource.DataSet.OnFilterRecord事件
// 限制3,不能再使用Properties.ListSource.DataSet.Filtered属性
// 其它,最好在设计期设好一切属性,运行期再设置属性可能引发求知错误
//==============================================================================

unit cxLookupComboBoxEx;

interface

uses
SysUtils, Classes, Controls, Windows, Messages,DB,StrUtils,
cxControls, cxContainer, cxEdit, cxTextEdit,
cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox;

type
TcxLookupComboBoxEx = class(TcxLookupComboBox)
private
//保存要过滤的字段列表
FFieldList : TList;
FFindText : String;

//过滤事件
procedure _OnFilterRecord(DataSet: TDataSet; var Accept: Boolean);
//编辑框文字改变事件
procedure _OnChange(Sender : TObject);
procedure GetFieldList;
//延时过滤消息
procedure WMTimer (var Message: TMessage); message WM_TIMER;
protected
//下拉表格收回时
procedure CloseUp(AAccept: Boolean); override;
//过滤过程
procedure _FilterListSource;
//初始化下拉表格事件
procedure DoInitPopup; override;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
//更新要过滤的字段列表
procedure UpdateFilterFields;
published
end;

TcxDBLookupComboBoxEx = class(TcxDBLookupComboBox)
private
//保存要过滤的字段列表
FFieldList : TList;
FFindText : String;

//过滤事件
procedure _OnFilterRecord(DataSet: TDataSet; var Accept: Boolean);
//编辑框文字改变事件
procedure _OnChange(Sender : TObject);
//取得要过滤的字段列表
procedure GetFieldList;
//延时过滤消息
procedure WMTimer (var Message: TMessage); message WM_TIMER;
protected
//下拉表格收回时
procedure CloseUp(AAccept: Boolean); override;
//过滤过程
procedure _FilterListSource;
//初始化下拉表格事件
procedure DoInitPopup; override;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
//更新要过滤的字段列表
procedure UpdateFilterFields;
published
end;

procedure Register;

implementation

const
UM_TIMER_FILTER = WM_USER + $101; //自定义延时消息ID
FILTERTIMER = 500; //延时时间
DROPDOWN_ROWS = 12;

procedure Register;
begin
RegisterComponents('Dev Express', [TcxLookupComboBoxEx,TcxDBLookupComboBoxEx]);
end;

{ TcxLookupComboBoxEx }

procedure TcxLookupComboBoxEx.CloseUp(AAccept: Boolean);
begin
inherited;
//收起下拉后取消过滤
if Assigned(Properties.ListSource) then
if Assigned(Properties.ListSource.DataSet) then
Properties.ListSource.DataSet.Filtered := False;
end;

constructor TcxLookupComboBoxEx.Create(AOwner: TComponent);
begin
inherited;
//默认值
Properties.AutoSelect := False;
Properties.DropDownAutoSize := True;
Properties.DropDownListStyle := lsEditList;
Properties.DropDownRows := DROPDOWN_ROWS;
Properties.DropDownSizeable := True;
Properties.IncrementalFiltering := False;
Properties.Revertable := True;
Properties.OnChange := _OnChange;
Properties.UseLeftAlignmentOnEditing := False;
end;

destructor TcxLookupComboBoxEx.Destroy;
begin
//释放过滤字段列表
if Assigned(FFieldList) then FFieldList.Free;
inherited;
end;

procedure TcxLookupComboBoxEx.DoInitPopup;
begin
//取得过滤字段
if Assigned(Properties.ListSource) then
if Assigned(Properties.ListSource.DataSet) then
begin
GetFieldList;
Properties.ListSource.DataSet.Filtered := False;
end;
inherited DoInitPopup;
end;

procedure TcxLookupComboBoxEx._FilterListSource;
//过滤字段
begin
if Assigned(Properties.ListSource)
and Assigned(Properties.ListSource.DataSet) then
try
Properties.ListSource.DataSet.DisableControls;
Properties.ListSource.DataSet.Filtered := False;
Properties.ListSource.DataSet.OnFilterRecord := _OnFilterRecord;
if Text <> '' then
begin
FFindText := Text;
if SelLength > 0 then
FFindText := LeftStr(Text,SelStart);
Properties.ListSource.DataSet.Filtered := FFindText <> '';
end;
Changed;
finally
Properties.ListSource.DataSet.EnableControls;
end;
end;

procedure TcxLookupComboBoxEx.GetFieldList;
//取得过滤字段列表
var
i : Integer;
sFieldName : String;
fdTemp : TField;
begin
if not Assigned(FFieldList) then
begin
FFieldList := TList.Create;
for i:=0 to Properties.ListColumns.Count -1 do
begin
sFieldName := Properties.ListColumns.Items[i].FieldName;
if sFieldName = '' then Continue;
fdTemp := Properties.ListSource.DataSet.FindField(sFieldName);
if Assigned(fdTemp) then
FFieldList.Add(Pointer(fdTemp));
end;
end;
end;

procedure TcxLookupComboBoxEx._OnChange(Sender: TObject);
//设置延时
begin
if Focused and DroppedDown then
begin
KillTimer(Handle,UM_TIMER_FILTER);
SetTimer(Handle,UM_TIMER_FILTER,FILTERTIMER,nil);
end;
end;

procedure TcxLookupComboBoxEx._OnFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
//过滤事件
var
s : String;
i : Integer;
begin
s := LowerCase(FFindText);
if (s <> '') and (Properties.ListColumns.Count > 0) then
begin
Accept := False;
for i := 0 to FFieldList.Count -1 do
begin
Accept := Pos(s,LowerCase(TField(FFieldList[i]).AsString))>0;
if Accept then Exit;
end;
end
else
Accept := True;
end;

procedure TcxLookupComboBoxEx.WMTimer(var Message: TMessage);
//延时更新消息
begin
KillTimer(Handle,UM_TIMER_FILTER);
if Focused and DroppedDown then _FilterListSource;
end;

procedure TcxLookupComboBoxEx.UpdateFilterFields;
//更新要过滤的字段列表
begin
if Assigned(FFieldList) then
begin
FFieldList.Free;
FFieldList := nil;
end;
GetFieldList;
end;

{ TcxDBLookupComboBoxEx }

procedure TcxDBLookupComboBoxEx.CloseUp(AAccept: Boolean);
begin
inherited;
//收起下拉后取消过滤
if Assigned(Properties.ListSource) then
if Assigned(Properties.ListSource.DataSet) then
Properties.ListSource.DataSet.Filtered := False;
end;

constructor TcxDBLookupComboBoxEx.Create(AOwner: TComponent);
begin
inherited;
//默认值
Properties.AutoSelect := False;
Properties.DropDownListStyle := lsEditList;
Properties.DropDownRows := DROPDOWN_ROWS;
Properties.DropDownSizeable := True;
Properties.IncrementalFiltering := False;
Properties.Revertable := True;
Properties.OnChange := _OnChange;
Properties.UseLeftAlignmentOnEditing := False;
end;

destructor TcxDBLookupComboBoxEx.Destroy;
begin
//释放过滤字段列表
if Assigned(FFieldList) then FFieldList.Free;
inherited;
end;

procedure TcxDBLookupComboBoxEx.DoInitPopup;
begin
//取得过滤字段
if Assigned(Properties.ListSource) then
if Assigned(Properties.ListSource.DataSet) then
begin
GetFieldList;
Properties.ListSource.DataSet.Filtered := False;
end;
inherited DoInitPopup;
end;

procedure TcxDBLookupComboBoxEx._FilterListSource;
//过滤字段
begin
if Assigned(Properties.ListSource)
and Assigned(Properties.ListSource.DataSet) then
try
Properties.ListSource.DataSet.DisableControls;
Properties.ListSource.DataSet.Filtered := False;
Properties.ListSource.DataSet.OnFilterRecord := _OnFilterRecord;
if Text <> '' then
begin
FFindText := Text;
if SelLength > 0 then
FFindText := LeftStr(Text,SelStart);
Properties.ListSource.DataSet.Filtered := FFindText <> '';
end;
Changed;
finally
Properties.ListSource.DataSet.EnableControls;
end;
end;

procedure TcxDBLookupComboBoxEx.GetFieldList;
//取得过滤字段列表
var
i : Integer;
sFieldName : String;
fdTemp : TField;
begin
if not Assigned(FFieldList) then
begin
FFieldList := TList.Create;
for i:=0 to Properties.ListColumns.Count -1 do
begin
sFieldName := Properties.ListColumns.Items[i].FieldName;
if sFieldName = '' then Continue;
fdTemp := Properties.ListSource.DataSet.FindField(sFieldName);
if Assigned(fdTemp) then
FFieldList.Add(Pointer(fdTemp));
end;
end;
end;

procedure TcxDBLookupComboBoxEx._OnChange(Sender: TObject);
//设置延时
begin
if Focused and DroppedDown then
begin
KillTimer(Handle,UM_TIMER_FILTER);
SetTimer(Handle,UM_TIMER_FILTER,FILTERTIMER,nil);
end;
end;

procedure TcxDBLookupComboBoxEx._OnFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
//过滤事件
var
s : String;
i : Integer;
begin
s := LowerCase(FFindText);
if (s <> '') and (Properties.ListColumns.Count > 0) then
begin
Accept := False;
for i := 0 to FFieldList.Count -1 do
begin
Accept := Pos(s,LowerCase(TField(FFieldList[i]).AsString))>0;
if Accept then Exit;
end;
end
else
Accept := True;
end;

procedure TcxDBLookupComboBoxEx.WMTimer(var Message: TMessage);
//延时更新消息
begin
KillTimer(Handle,UM_TIMER_FILTER);
if Focused and DroppedDown then _FilterListSource;
end;

procedure TcxDBLookupComboBoxEx.UpdateFilterFields;
//更新要过滤的字段列表
begin
if Assigned(FFieldList) then
begin
FFieldList.Free;
FFieldList := nil;
end;
GetFieldList;
end;

end.

2004-1-10 17:14:06 2.动态生成TcxGridDBTableView的列及页脚的合计栏 var
i : Integer;
cl : TcxGridDBColumn;
begin
Screen.Cursor := crHourGlass;
cxtvMaster.BeginUpdate;
try
cxtvMaster.ClearItems;
cxtvMaster.DataController.Summary.FooterSummaryItems.Clear;
for i := 0 to cxtvMaster.DataController.DataSet.FieldCount - 1 do
begin
cl := cxtvMaster.CreateColumn;
cl.DataBinding.FieldName :=
cxtvMaster.DataController.DataSet.Fields[i].FieldName;
if cxtvMaster.DataController.DataSet.Fields[i] is TNumericField then
begin
TNumericField(cxtvMaster.DataController.DataSet.Fields[i])
.DisplayFormat := '#,##0.00';
cl.Width := 80;
with TcxGridDBTableSummaryItem(
cxtvMaster.DataController.Summary.FooterSummaryItems.Add) do
begin
Column := cl;
FieldName := cl.DataBinding.FieldName;
Format := '#,##0.00';
Kind := skSum;
end;
end
else if cxtvMaster.DataController.DataSet.Fields[i] is TStringField then
cl.Width := 100
else
cl.Width := 80;
cl.HeaderAlignmentHorz := taCenter;
end; //if
finally
cxtvMaster.EndUpdate;
Screen.Cursor := crDefault;
end;
end;

2004-1-10 17:24:32 3.动态生成TcxGridDBBandedTableView的列及页脚的合计栏如果存储过程或SQL返回如下结果集

员工 1月$ 1月￥ 2月$ 2月￥合计$ 合计￥
-------------------------------------------
测试员A 200 1658 300 2487 500 4145

将生成如下样式的Grid(页脚没有画出,麻烦,另外设置了显示格式,金额将以#,##0.00的方式显示)
_________________________________________________
| 员工 | 1月 | 2月 | 合计 |
|-----------------------------------------------|
| 员工 | ＄ | ￥ | ＄ | ￥ | ＄ | ￥ |
|-----------------------------------------------|
|测试员A | 200 | 1658 | 300 | 2487 | 500 | 4145 |
-------------------------------------------------

var
i : Integer;
cl : TcxGridDBBandedColumn;
begin
Screen.Cursor := crHourGlass;
cxbtvMaster.BeginUpdate;
try
cxbtvMaster.ClearItems;
cxbtvMaster.Bands.Clear;
cxbtvMaster.DataController.Summary.FooterSummaryItems.Clear;
for i := 0 to cxbtvMaster.DataController.DataSet.FieldCount - 1 do
begin
if i = 0 then
with cxbtvMaster.Bands.Add do
begin
Options.HoldOwnColumnsOnly := True;
Caption := cxbtvMaster.DataController.DataSet.Fields[i].FieldName;
end;
if RightStr(
cxbtvMaster.DataController.DataSet.Fields[i].FieldName,
1) = '$' then
with cxbtvMaster.Bands.Add do
begin
Options.HoldOwnColumnsOnly := True;
Caption := Copy(
cxbtvMaster.DataController.DataSet.Fields[i].FieldName, 1,
Length(cxbtvMaster.DataController.DataSet.Fields[i].FieldName)
- 1);
cxbtvMaster.DataController.DataSet.Fields[i].DisplayLabel := '＄';
end;
if RightStr(
cxbtvMaster.DataController.DataSet.Fields[i].FieldName,
1) = '￥' then
cxbtvMaster.DataController.DataSet.Fields[i].DisplayLabel := '￥';

cl := cxbtvMaster.CreateColumn;
cl.HeaderAlignmentHorz := taCenter;
cl.Position.BandIndex := cxbtvMaster.Bands.Count - 1;
cl.DataBinding.FieldName :=
cxbtvMaster.DataController.DataSet.Fields[i].FieldName;
if cxbtvMaster.DataController.DataSet.Fields[i] is TNumericField then
begin
TNumericField(cxbtvMaster.DataController.DataSet.Fields[i])
.DisplayFormat := '#,##0.00';
cl.Width := 80;
with TcxGridDBBandedTableSummaryItem(
cxbtvMaster.DataController.Summary.FooterSummaryItems.Add) do
begin
Column := cl;
FieldName := cl.DataBinding.FieldName;
Format := '#,##0.00';
Kind := skSum;
end;
end
else if cxbtvMaster.DataController.DataSet.Fields[i] is TStringField then
cl.Width := 100
else
cl.Width := 80;
end; //if
finally
cxbtvMaster.EndUpdate;
Screen.Cursor := crDefault;
end;
end;

2004-1-31 22:36:25 4.自动调整列宽的方法要注意的地方可以用ApplyBestFit实现自动列宽;
不能在BeginUpdate和EndUpdate之间调用这个方法,否则会产生下标越界错误;
在BeginUpdate和EndUpdate中清除/建立列不会产生屏幕闪烁,其它需要长时间更新cxGrid数据的操作最好放在BeginUpdate和EndUpdate执行,并用try包起来.

2004-2-8 15:32:30 DevExpress Bar的动态菜单没有什么说明,细心点应该知道表结构及数据的内容形式
对比了一下代码,用dxBar比用ToolBar+PopupMenu生成动态菜单要简单,只用了一个递归过程

type
//菜单项
PMenuItemInfo = ^TMenuItemInfo;
TMenuItemInfo = record
ID : string;
ParentID : string;
Caption : string;
Hint : string;
LibraryName : string;
ProcedureName : string;
wParam : Integer;
lParam : Integer;
end;

procedure TmgMainForm.BuildMenu;
//生成菜单

procedure SetMenuItemInfo(
const ADataSet : TDataSet;
const AItem : PMenuItemInfo
);
begin
AItem.ID := ADataSet.FieldByName('ID').AsString;
AItem.ParentID := ADataSet.FieldByName('ParentID').AsString;
AItem.Caption := ADataSet.FieldByName('Caption').AsString;
AItem.Hint := ADataSet.FieldByName('Hint').AsString;
AItem.LibraryName := ADataSet.FieldByName('LibraryName').AsString;
AItem.ProcedureName := ADataSet.FieldByName('ProcedureName').AsString;
AItem.wParam := ADataSet.FieldByName('wParam').AsInteger;
AItem.lParam := ADataSet.FieldByName('lParam').AsInteger;
end;

procedure CreateItemList(
const ADataSet : TDataSet;
const AList : TList;
const AText : string
);
//根据父节点建立子项目列表
var
m : PMenuItemInfo;
i : Integer;
begin
ADataSet.First;
for i := 0 to ADataSet.RecordCount - 1 do
begin
if ADataSet.FieldByName('ParentID').AsString = AText then
begin
New(m);
SetMenuItemInfo(ADataSet,m);
AList.Add(m);
ADataSet.Delete;
end else
ADataSet.Next;
end; //for
end;

procedure CreateMenuItems(
const ADataSet : TDataSet;
const AKeyValue : string;
const AItemLinks : TdxBarItemLinks;
const AIndex : Integer
);
//建立菜单项
var
db : TdxBarButton;
dbs : TdxBarSubItem;
l : TList;
i : Integer;
j : Integer;
bg : Boolean;
begin
bg := False;
j := AIndex;
l := TList.Create;
try
CreateItemList(ADataSet, l, AKeyValue);
for i := 0 to l.Count - 1 do
begin
if ADataSet.Locate('ParentID', PMenuItemInfo(l[i]).ID, []) then
begin
//有子项
dbs := TdxBarSubItem.Create(dxBar);
dbs.Caption := PMenuItemInfo(l[i]).Caption;
dbs.Hint := PMenuItemInfo(l[i]).Hint;
dbs.Tag := Integer(l[i]);
if AIndex > 0 then
dbs.ImageIndex := 0;
with AItemLinks.Add do
begin
Item := dbs;
Index := j;
BeginGroup := bg;
end; //with
bg := False;
CreateMenuItems(ADataSet, PMenuItemInfo(l[i]).ID, dbs.ItemLinks, 0);
if dbs.ItemLinks.Count = 0 then
dbs.Free
else
Inc(j);
end
else begin
//无子项
if not (PMenuItemInfo(l[i]).Caption = '-') then
begin
db := TdxBarButton.Create(dxBar);
db.Caption := PMenuItemInfo(l[i]).Caption;
db.Hint := PMenuItemInfo(l[i]).Hint;
db.Tag := Integer(l[i]);
db.OnClick := MenuItemClick;
if AIndex > 0 then
db.ImageIndex := 0;
with AItemLinks.Add do
begin
Item := db;
Index := j;
BeginGroup := bg;
end;
bg := False;
Inc(j);
end
else begin
bg := True;
end; //if bg
end; //if Locate
end; //for
finally
l.Free;
end;
end;

var
rsMenus : TDataSet;
begin
rsMenus := mgDMMain.GetMenus; //取得数据集
if Assigned(rsMenus) then
try
CreateMenuItems(rsMenus, '', dxBar.Bars[0].ItemLinks, 1);
//一定要刷新一下,否则不更改样式会出错
dxBar.Bars[0].ItemLinks[0].Visible := False;
dxBar.Bars[0].ItemLinks[0].Visible := True;
finally
rsMenus.Free;
end;
end;

2005-1-4 16:34:35 取得TcxLookupComboBox下拉列表中各项的内容 Properties.DataController.Values包含了所有内容,如果要取得当前选择行的内容,用以下代码
//cmb:TcxLookupComboBox;
with cmb.Properties.DataController do
ShowMessage(Values[FindRecordIndexByKey(cmb.EditValue),0]);
//0代表显示的第一列,以Properties.ListColumns为准,可以从这个集合中查找对应的字段名

文件保存到数据库(blob类型）

luoyanqing119 — 2008-12-24 11:35:14

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Word2000, OleServer;

type
TForm1 = class(TForm)
WordApplication1: TWordApplication;
Button1: TButton;
Button2: TButton;
OpenDialog1: TOpenDialog;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
m_File:TMemoryStream;
begin
if OpenDialog1.Execute then
begin
m_File:=TMemoryStream.Create;
m_File.LoadFromFile(OpenDialog1.FileName);
ADOQuery1.Append;
TBlobField(ADOQuery1.FieldByName('文件')).LoadFromStream(m_File);
try
ADOQuery1.Post;
finally
m_File.Free;
end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
Template : OleVariant;
NewTemplate : OleVariant;
DocuType : OleVariant;
Visible : OleVariant;
begin
if ADOQuery1.IsEmpty then
begin
ShowMessage('当前数据库为空！');
end
else
begin
TBlobField(ADOQuery1.FieldByName('文件')).SaveToFile('C:\temp.doc');
WordApplication1.Connect;
WordApplication1.Visible:=True;
Template:='C:\temp.doc';
NewTemplate:=False;
DocuType:=0;
Visible:=True;
try
//WordApp.Documents.Add(Template:='C:\Doc1.dot',NewTemplate:=False,DocuType,Visible);
WordApplication1.Documents.Add(Template,NewTemplate,DocuType,Visible);
except
showmessage('打开文档失败！');
end;
end;
end;

注：//存入数据库
TBlobField(adotable1.FieldByName('doc')).LoadFromFile('FileName')；
//存出数据库
TBlobField(adotable1.FieldByName('doc')).SavetoFile('FileName');

重入Delphi

delYang — 2008-12-23 22:24:21

2008年12月23,今天我又注册了大富翁,想想几年的编程经历,真是一肚子的水!....

又想要进Delphi世界了

zjting — 2008-12-22 20:41:42

今天下载了delphi2009,开始玩玩看。