这几天清理资料，把以前学Delphi时的笔记翻出来了。大概是2005年时的吧,有些资料都没有什么价值了。以后再整理吧。

Delphi Note

1、触发器的使用。

源数据库：

名称：info

字段：idd、namee、age、sex、city、department、position

目标数据库：

名称：leave

字段：idd、namee、type

1、修改操作。（原代码）

CREATE TRIGGER test_upd oninfo

FOR UPDATE

if update(namee)

update leave

set leave.namee=i.namee

from inserted i

where leave.idd=i.idd

2、删除操作。（原代码）

CREATE TRIGGER test_del on[info]

FOR DELETE

declare @id char(10)

select @id= idd from deleted

delete from leave where idd=@id

3、插入操作。（原代码）

CREATE TRIGGER test_INS ON info

FOR INSERT

insert into leave

(idd,namee)

SELECT i.idd,i.namee FROM inserted i

2、ADO的认识

Microsoft的数据存取技术演变：

1、ODBC仅支持关系数据库，以及传统的数据库类型，无法符合日渐复杂的数据存取应用，也无法让脚本语言使用，。

2、DAO。Microsoft为能让程序员存取Access数据库，产生了DAO（Data Access Object），能够存取Xbase的数据库及Excel文件，并且结ODBC存取关系数据库。但去目的是存取Access数据库，因此只对Access数据库非常有效率，先已处于维护状态。

3、RDO。由于DAO在结合ODBC存取关系数据库时表现的不好，所以Microsoft推出了RDO，不过目前也逐渐被放弃了。

4、OLE－DB是很底层化的，使用复杂的，可以存取传统的关系数据库、Excel文件、Email或Internet/Intranet上的电子签名信息。

5、ADO成功的封装了OLE-DB的大部分功能，可以让应用程序或WEB应用程序存取各种不通的数据源。大大简化了数据存取工作。

3、Tdatabase、TUpdateSql组件的作用。

Tdatabase是BDE与Query和Table连接的中间通道。这样程序修改时，只要修改Datebase的属性就可以了。通过其Database的属性设定公用的别名。

TupdateSql是用来进行网络数据库数据的修改。Query1.Applyupdates;Query1.CommitUpdates;另外，被修改的Server端数据库表要有key。

4、开发Activex控件。

<一>转换ActiveX控件

第一步选择菜单File的New项，出现项目对话框，选择Activex页，选择ActiveX Control。

第二步在出现的向导对话框(ActiveX Control Wizard)中，从控件列表中选择转换的控件。

第三步注册ActiveX。选择菜单Run—Register ActiveX Server。即生成一个OCX文件，存储于当前路径。

第四步 Web配置选项。选择菜单Project—Web deployment—Option。设定路径。

第五步生成HTML文档。选择菜单Project—Web Deploy。然后，在HTML dir所指示的目录下，外面可以看到HTML文件已经生成。

<二>开发新的ActiveX控件

第一步建立一个ActiveX Form。选择菜单File—New，出现项目对话框，选择Activex页，选择ActiveForm。

第二步在ActiveForm Wizard对话框中输入各种名称。

第三步在ActiveX Wizard上，加入控件，譬如加入一个Button、一个Image组件，在button的OnClick事件中，有如下的处理：

Image1.Canvas.Ellipse(0,0,Image1.Width,Image1.Height);

第四步编译。按Ctrl+F9组合健，或选择Projiect—CompileFormProj1。

第五步注册ActiveX，生成OCX文件，选择菜单Run—Register ActiveX Server。

第六步 Web配置选项。选择菜单Project—Web Deploy。

第七步生成HTML文档。选择菜单Project—Web Deploy。

5、恢复SQL的.mdf及.log文件。

EXEC sp_attach_db @dbname = N'AAA',//AAA为要建立的数据库名

@filename1 = N'c:\ooo\aaa.mdf',

@filename2 = N'c:\ooo\aaa_log.ldf'

6、bmp及jpg的转换和数据库中bmp、jpg格式图形的存储。

Demo1：

var blobstream:tblobstream; filestream:tfilestream; begin table1.insert; blobstream:=table1.createblobstream(table1.fieldbyname('picture'),bmreadwrite); filestream:=tfilestream.create('d:\picture.jpg',fmread); blobstream.copyfrom(filestream,filestream.size); table1.post; 要是想保存 var blobstream:tblobstream; filestream:tfilestream; begin blobstream:=table1.createblobstream(table1.fieldbyname('picture'),bmread); filestream:=tfilestream.create('d:\picture.jpg',fmcreate or fmwrite); filestream.copyfrom(filestream,filestream.size); 就可以了,加分吧

demo2：

var bs: TBlobStream; begin bs:=Table1.FieldByName('c1').CreateBlobStream( Table1.FieldByName('c1'), bmWrite); Graphic.SaveToStream(bs); end;

7、控制EXCEL

全面控制 Excel 首先创建 Excel对象，使用ComObj: var ExcelID: Variant; ExcelID := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelID.Visible := True; 2) 更改Excel标题栏： ExcelID.Caption := '应用程序调用Microsoft Excel'; 3) 添加新工作簿： ExcelID.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 5) 设置第2个工作表为活动工作表： ExcelID.WorkSheets[2].Activate; 或 ExcelID.WorksSheets[ 'Sheet2' ].Activate; 6) 给单元格赋值： ExcelID.Cells[1,4].Value := '第一行第四列'; 7) 设置指定列的宽度（单位：字符个数），以第一列为例： ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5; 8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米 9) 在第8行之前插入分页符： ExcelID.WorkSheets[1].Rows[8].PageBreak := 1; 10) 在第8列之前删除分页符： ExcelID.ActiveSheet.Columns[4].PageBreak := 0; 11) 指定边框线宽度： ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3; 1-左2-右3-顶4-底5-斜( \ ) 6-斜( / ) 12) 清除第一行第四列单元格公式： ExcelID.ActiveSheet.Cells[1,4].ClearContents; 13) 设置第一行字体属性： ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书'; ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue; ExcelID.ActiveSheet.Rows[1].Font.Bold := True; ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True; 14) 进行页面设置： a.页眉： ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示'; b.页脚： ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页'; c.页眉到顶端边距2cm： ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.页脚到底端边距3cm： ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.顶边距2cm： ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035; f.底边距2cm： ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左边距2cm： ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035; h.右边距2cm： ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035; i.页面水平居中： ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.页面垂直居中： ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印单元格网线： ExcelID.ActiveSheet.PageSetup.PrintGridLines := True; 15) 拷贝操作： a.拷贝整个工作表： ExcelID.ActiveSheet.Used.Range.Copy; b.拷贝指定区域： ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy; c.从A1位置开始粘贴： ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial; d.从文件尾部开始粘贴： ExcelID.ActiveSheet.Range.PasteSpecial; 16) 插入一行或一列： a. ExcelID.ActiveSheet.Rows[2].Insert; b. ExcelID.ActiveSheet.Columns[1].Insert; 17) 删除一行或一列： a. ExcelID.ActiveSheet.Rows[2].Delete; b. ExcelID.ActiveSheet.Columns[1].Delete; 18) 打印预览工作表： ExcelID.ActiveSheet.PrintPreview; 19) 打印输出工作表： ExcelID.ActiveSheet.PrintOut; 20) 工作表保存： if not ExcelID.ActiveWorkBook.Saved then ExcelID.ActiveSheet.PrintPreview; 21) 工作表另存为： ExcelID.SaveAs( 'C:\Excel\Demo1.xls' ); 22) 放弃存盘： ExcelID.ActiveWorkBook.Saved := True; 23) 关闭工作簿： ExcelID.WorkBooks.Close; 24) 退出Excel： ExcelID.Quit;

8、将EXCEL表中的数据导入到库中

程序中实现的办法：如何将Excel文件中的数据倒入Delphi本地库(Paradox)?[2000-04-26] label PH; var msexcel: olevariant; wbook, wsheet : olevariant; i,j : integer; temp : string; ... begin MsExcel := CreateOleObject('Excel.Application'); WBook := MsExcel.Application; WBook.Visible := False; wbook.workbooks.Open('c:\xxxx.xls');//打开Excel文档 WSheet := WBook.ActiveSheet; for i := 1 to WSheet.Rows.count - 1 do begin Table1.Append; //Paradox表,其它表当然也可以了 for j := 1 to WSheet.Columns.Count do begin temp := wsheet.cells[i, j].value; if Trim(temp) = '' then //如果为空则跳出循环,当然， // 也可以是其它条件 goto PH; Table1.Fields[j - 1].AsString := temp; end; PH: if Trim(wsheet.cells[i, 1].Value) = '' then break;//跳出循环 end; ... WBook.SaveAs('c:\xxxx.xls'); MsExcel.quit; end; 注意:Tabel1的字段数要大于要倒入的Excel文档的列数

9、取得字段的属性

找了一些以前写过的代码 : var fType :TfieldType; strType :String; Adotable1.Fields[0].DataSize 得到宽度! fType :=AdoTable1.Fields[0].Dataset 用于得到field的类型，这个结果不是string，你要自己去转换: Case fType of ftWideString : strType:='Text'; ftDate: strType :='Date'; ftString :strType :='Text'; ftBoolean:strType :='Boolean'; ftMemo :strType :='memo'; ftSmallint :strType:='Integer' ; ftUnknown :strType:='Unknown'; end; 另外还有一种 : var i:Integer; FieldType:String; case varastype(ADOTable1.Fields[i].DataType,varInteger) of 24: FieldType:='字符型'; 16: FieldType:='备注型'; 3 : FieldType:='数值型'; 11: FieldType:='日期时间型'; 8 : FieldType:='货币型'; 14: FieldType:='自动编号型'; 5 : FieldType:='逻辑型'; 15: FieldType:='OLE对象型'; end;

10、在query中检索记录

if query1.Locate('ID','A001',[loCaseInsensitive])then begin

showmessage('有重复记录。');

注意：lacate执行后会将Query的属性置回到readonly状态。

所以query1.Edit要放在locate后。

11、把程序加进windows的“启动”中

procedure TFrmAbout.WriteRegAutoRun(FileName:string);

var

Regf:TRegistry;

begin

Regf:=TRegistry.Create;

Regf.RootKey:=HKEY_LOCAL_MACHINE;

if Length(FileName)>0 then

try

RegF.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);

RegF.WriteString('YourProgram',FileName);

except

end;

RegF.CloseKey;

RegF.Free;

end;

十二、控制Word

启动Word时用如下代码： begin try Wordapplication.Connect; except MessageDlg('Word may not be installed', mtError, [mbOk], 0); Abort; end; Wordapplication.Visible := True; WordApplication.Caption := 'Delphi automation'; end; 让Word打开一个指定的文件，需要先放置OpenDialog，然后调用WordApplication.Documents.Open： var ItemIndex :OleVariant; FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format: OleVariant; begin if not dlgOpen.Execute then Exit; {Open document} FileName := dlgOpen.FileName; ConfirmConversions := False; ReadOnly := False; AddToRecentFiles := False; PasswordDocument := ''; PasswordTemplate := ''; Revert := True; WritePasswordDocument := ''; WritePasswordTemplate := ''; Format := wdOpenFormatDocument; WordApplication.Documents.Open( FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format ); {Assign WordDocument component} ItemIndex := 1; WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex)); {Turn Spell checking of because it takes a long time if enabled and slows down Winword} WordApplication.Options.CheckSpellingAsYouType := False; WordApplication.Options.CheckGrammarAsYouType := False; end;

判断Word是否运行

先在Form上添加一个Server组件中的WordApplication,命名为WordApplication1,然后在"关闭WORD"按扭中输入如下代码： var SaveChanges, OriginalFormat, RouteDocument: OleVariant; begin SaveChanges := WdDoNotSaveChanges; OriginalFormat := UnAssigned; RouteDocument := UnAssigned; try WordApplication1.Quit(SaveChanges, OriginalFormat, RouteDocument); WordApplication1.Disconnect; except on E: Exception do begin Showmessage(E.Message); WordApplication1.Disconnect; end; end; end; 准成，当然了，请按实际情况修改 SaveChanges, OriginalFormat, RouteDocument的内容.

如何输出到Word

如果用的是MICROSOFT旗下的数据库管理系统生成的表例如*.DBF等，可以通过OLE技术直接在WORD文档中显示完整的数据表。如果用PARADOX表，可以用下面的方法： var msword:variant; begin try msword:=createoleobject('word.basic'); msword.filenew; msword.appshow; table1.disablecontrols; try bookmark:=table1.getbookmark; try msword.bold; msword.insert('报表标题'#13#10); msword.insert('字段名1'+#9+....+'字段名n'#13#10); table1.first; while not table1.eof do begin msword.insert(table1.fieldbyname(字段名1).asstring+#9+.....+table1.fieldbyname(字段名n).asstring+#13#10); msword.next; end; finally table1.gotobookmark(bookmark); table1.freebookmark(bookmark); end; finally table1.enablecontrols; end; except showmessage('没有发现WORD，请安装！'); end; end; //在OLE服务器WORD启动后自动写了一个制表文件，此时只要选择全部数据（除标题），然后选插入表格即可作出WORD报表。 //如果有其他好方法请与我联系。 //我想解决的是在程序中自动画出表格。

控制Word

var tbl : Table; i,j:integer; un_Var,ex_Var,cnt_Var:OleVariant; row_num,col_num:integer; st:string; begin // 在Word中新建一个文档，并添加文本，然后设置粗体和字体大小 WordApplication1.Connect; WordApplication1.Visible := True; WordApplication1.Documents.Add(EmptyParam,EmptyParam); WordDocument1.Connect; WordApplication1.ActiveWindow.View.Type_:= wdNormalView; WordApplication1.Selection.Font.Name :='黑体'; WordApplication1.Selection.Font.Size := 16; WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter; WordApplication1.Selection.TypeText('昆明市土地信息系统表格输出'); WordApplication1.Selection.TypeParagraph; WordApplication1.Selection.TypeParagraph; WordApplication1.Selection.Font.Name := '宋体'; WordApplication1.Selection.Font.Size :=12; WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphRight; WordApplication1.Selection.TypeText('日期'+formatdatetime('yyyy"年"mm"月"dd"日"',now)); WordApplication1.Selection.TypeParagraph; WordApplication1.Selection.TypeParagraph;//回车 WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphLeft; row_num:=table1.RecordCount; col_num:=table1.Fields.Count; tbl := WordApplication1.ActiveDocument.Tables.Add(WordApplication1.Selection.Range,row_num+1,Col_num); un_Var:=wdCharacter; cnt_Var:=1; ex_Var:=wdMove; table1.First; for j := 0 to Col_num-1 do //标题 begin st:=table1.Fields.Fields[j].FieldName; WordApplication1.Selection.TypeText(st); WordApplication1.Selection.MoveRight(un_Var,cnt_Var,ex_Var); end; for i := 0 to row_num-1 do // 行 begin for j := 0 to Col_num-1 do // 列 begin st:=table1.Fields.Fields[j].AsString; WordApplication1.Selection.TypeText(st); WordApplication1.Selection.MoveRight(un_Var,cnt_Var,ex_Var); end; WordApplication1.Selection.MoveRight(un_Var,cnt_Var,ex_Var); table1.next; end; WordApplication1.Selection.TypeText('制表人:阎磊'); WordApplication1.Selection.TypeParagraph; end;

可以参考以下代码：

procedure PrintReport4(DSR, AJXZ, CFSJ, JBAQ: PChar); stdcall;

var

Word, Doc, Fields:OleVariant;

begin

Word:=CreateOleObject('Word.Application');

Word.Visible:=True;

Word.Documents.Add('C:\Customs\案件呈报表');

Doc := Word.ActiveDocument;

Fields := Doc.FormFields;

Fields.Item('DSR').Result := String(DSR);

Fields.Item('AJXZ').Result := String(AJXZ);

Fields.Item('CFSJ').Result := String(CFSJ);

Fields.Item('JBAQ').Result := String(JBAQ);

end;

其中案件呈报表就是word模版文件。

打开WORD文档的一段程序

uses ComObj ;

procedure TForm1.Button1Click(Sender: TObject);

var

vWord,vDoc,vRange : Variant ;

sText,sReplace : string ;

lReturn : Boolean ;

begin

sText := 'ABCDEFG' ; //原文字串

sReplace := 'GFEDCBA' ; //新字串

vWord := CreateOleObject('Word.Application') ;//创建Word线程

try

//打开要操作的文件

vDoc := vWord.Documents.Open('C:\My Documents\AAAc.Doc');

vDoc.Select ; //选取中整个文档

vRange := vDoc.Range ; //替换范围

lReturn := True ;

while lReturn do

begin //找到并替代成功则返回 True共11个参数

lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;

end ;

finally

vDoc.Close(True) ; //关闭文并保存

vWord.Quit(False) ; //退出Word

end ;

end;

Delphi 3 下通过。

控制WORD文档的一段程序

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls,OleCtnrs,ComObj;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

ED_WenHao: TEdit;

ED_BiaoTi: TEdit;

ED_ShouWenDanWei: TEdit;

ED_ZhenWen: TMemo;

ED_FaWenDanWei: TEdit;

Btn_PrintToWord: TButton;

Btn_Quit: TButton;

procedure Btn_PrintToWordClick(Sender: TObject);

procedure Btn_QuitClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

//开始：数据发送到 word事件

procedure TForm1.Btn_PrintToWordClick(Sender: TObject);

vAR

VarWord: Variant;// 创建 WORD时所用

begin

try

// 1. 建立 OleObject，连接 word97

VarWord:=CreateOleObject('word.basic');

// 2. 建立 Word97的新文件

VarWord.FileNew;

// 3. 设置 Word97的基本状态

VarWord.ViewZoom75; //设置显示比例为 75%

VarWord.ViewPage; //改为页面显示方式

// 4. 将当前数据控件上的信息发送至 Word97

// 4.1 发送文号数据

VarWord.CenterPara; //居中

Varword.font('宋体 '); //设置字体

VarWord.FontSize(14); //设置字号

varword.insert(#13+#13+ ED_WenHao.Text+#13+#13+#13);

// 4.2 发送标题数据

VarWord.font('黑体 ');

VarWord.Fontsize(16);

VarWord.insert( ED_BiaoTi.text+#13);

// 4.3 发送收文单位数据

VarWord.LeftPara; //左对齐

VarWord.Font('宋体 ');

VarWord.fontSize(14);

VarWord.Insert(#13+ ED_ShouWenDanWei.Text+'： '+#13);

// 4.5 发送正文数据

VarWord.fontSize(14);

VarWord.Insert( ED_ZhenWen.Text+#13);

// 4.6 发送发文单位数据

VarWord.RightPara; //右对齐

VarWord.fontSize(14);

VarWord.Insert( ED_FaWenDanWei.Text+#13);

// 5 最后设置

VarWord.StartOfdocument; //到文首

VarWord.AppMaxiMize; //设置窗口最大化

VarWord.AppShow; //显示应用程序

except

showmessage('运行 Microsoft Word 失败！ ');

end; //end of try

end;

//end：数据发送到 word事件

//开始：窗口关闭事件

procedure TForm1.Btn_QuitClick(Sender: TObject);

begin

close;

end;

//End：窗口关闭事件

end.

// 这是主程序的尾部

！我保证你们看到以下的用法一定爽歪歪了！！！

这可是我三天工作的结果。唔。。。

---看最后终结者office。

--------------------------------

如果你们用的office97的server控件，那么用office2000时就要把server上的控件换掉。

做法：

1。在Componet里打开Install Packages.....

2.去掉borland sample automation server components

3.在project中点input type Library....

4.点add加入office2000的类库。（在Microsoft Office/office目录下的）

5。反正是什么Excel9.olb , Msword9.olb 和那些*.olb的东东，有excel的，word的，等。。。

6。palette page:改为servers(因为以前的office的控件完完了）

7。点install就好了。

这样office2000的问题我想应解决了。（如果你用的是什么word.application或excel.application 的控件的话）。

-----------

我的建议：

先用上面一的方法，再用comobj对象。

use comobj, excel_tlb; //excel_tlb 是新excel控件的pas文件，你把新控件放在窗体上看它用的哪个.pas就好了，当然下面要把这个控件去掉。因为comobj不用这个控件。只用这个.pas如excel_tlb中的函数。

var xl:variant;

在事件里写：

xl:=createoleobject('Excel.Application');

然后打开excel或word录一个宏命令，并打开宏命令考入代码。

----以下是宏录下来的宏。

workbooks.add

Range("C5:D7").Select

Sheets("Sheet2").Select

ActiveWindow.SelectedSheets.Delete

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("A1")

ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"

-------

现在把它改为以下：

xl.workbooks.add;

xl.workbooks.add('d:\test.xls');

xl.Range['C5:D7'].Select;

xl.Sheets['Sheet2'].Select;

xl.ActiveWindow.SelectedSheets.Delete;

xl.Charts.Add;

xl.ActiveChart.ChartType := xlColumnClustered;

xl.ActiveChart.Location(xlLocationAsObject,'Sheet3');

现在运行一下，我保证你们爽歪歪!

看到规律了吗？

前面加上对象名，（）改[]，= 改:=,有参数时直接用，后加;。哈哈，满意了吧，

用office的宏命令可是不用你去想编程的，全是手动。这样少写了一大堆代码。

bbcoll如有不明白的朋友讨论可：bbcoll@china.com

、存入

procedure TForm1.Button1Click(Sender: TObject);

var

CurST:TStringStream;

Filename:string;

begin

if OpenDialog1.Execute then

begin

Filename:=OpenDialog1.FileName;

wordOleContainer.CreateObjectFromFile(FileName, False);

CurST := tstringstream.create('');

wordOleContainer.savetostream(CurST);

ADOTable1.Append;

ADOTable1.FieldByName('doc').AsVariant:=CurST.datastring;

ADOTable1.Post;

CurST.free;

wordOleContainer.DestroyObject;

end; }

end;

//读出

procedure TForm1.BitBtn1Click(Sender: TObject);

var

CurItemStream:TStringStream;

CurItem:Variant;

begin

CurItem:=aDOTable1.FieldByName('doc').AsVariant;

CurItemStream:= TStringstream.create(CurItem);

CurItemStream.position:=0;

wordOleContainer.loadfromstream(CurItemStream);

CurItemStream.free;

wordOleContainer.SaveAsDocument('temp.rtf');

wordOleContainer.DestroyObject;

sleep(5000);

richedit1.lines.loadfromfile('temp.rtf');//此处读出rtf可能是乱码，请查看delphi

//richedit demo

end;

sql server中用image或是text字段都行，可以保存任何文件类型，读出时还可以改名

procedure TForm1.Button1Click(Sender: TObject);//保存文件

var str:Tmemorystream;

begin

str:=Tmemorystream.Create;

str.LoadFromFile('f:\page.doc');

str.Position:=0;

adoquery1.Append;

Tblobfield(adoquery1.FieldByName('tt')).loadfromstream(str);

try

adoquery1.Post;

finally

str.Free;

end;

procedure TForm1.Button2Click(Sender: TObject);//读取文件

var str:Tmemorystream;

begin

str:=Tmemorystream.Create;

str.Position:=0;

Tblobfield(adoquery1.FieldByName('tt')).savetostream(str);

str.SaveToFile('F:\page.doc');

str.Free;

end;

将WORD中制定字符替换成数据库中数据时报错(积分：50,回复：

to lq123:

while not Query1.eof do

begin

i:=i+1;

FindText1 := '<Name'+inttostr(i)+'>';

FindText2 := '<pm'+inttostr(i)+'>';

FindText3 := '<fcon'+inttostr(i)+'>';

FindText4 := '<pcon'+inttostr(i)+'>';

FindText5 := '<rem'+inttostr(i)+'>';

ReplaceWith1 := Query1.fieldbyname('project_name').asstring;

ReplaceWith2 := Query1.fieldbyname('name').asstring;

ReplaceWith3 := Query1.fieldbyname('fcontent').asstring;

ReplaceWith5 := Query1.fieldbyname('remark').asstring;

Query2.Close ;

Query2.ParamByName ('MProject_id2').asstring:=Query1.fieldbyname('project_id2').asstring;

Query2.ParamByName ('M_date').asstring:=FormatDateTime('yyyy"/"mm"/"dd',DateTimePicker2.date);

Query2.Open ;

ReplaceWith4 := Query2.fieldbyname('pcontent').asstring;

Qstaff.Close ;

Qstaff.ParamByName ('MProject_id2').asstring:=Query1.fieldbyname('project_id2').asstring;

Qstaff.ParamByName ('M_serial').asstring:=Query1.fieldbyname('serial').asstring;

Qstaff.Open ;

j:=0;

if Qstaff.RecordCount <>0 then

while not Qstaff.Eof do

begin

j:=j+1;

find1:='<n'+inttostr(i)+inttostr(j)+'>';

find2:='<t'+inttostr(i)+inttostr(j)+'>';

rep1:=Qstaff.fieldbyname('name').asstring;

rep2:=Qstaff.fieldbyname('opinion').asstring;

WordDocument1.Range.Find.Execute( Find1, MatchCase, MatchWholeWord,