您正在查看: 编程语言 分类下的文章

调用COM对象创建数据库

-->



实例125 调用COM对象创建数据库

前面的实例介绍了利用DAO97单元来创建数据库,本实例演示如何利用DAOCOM对象创建一个Microsoft Jet数据库。

新建一个应用程序,然后在uses段中加入对comobj的引用,并且添加以下的程序代码:

procedure TForm1.FormCreate(Sender: TObject);

var

Engine:OLEVariant;

TestDB:OLEVariant;

TestTD:OLEVariant;

TestField:OLEVariant;

begin

Engine:=CreateOleObject('DAO.DBEngine.36');

TestDB:=Engine.CreateDatabase('test.mdb',

';LANGID=0x0804;CP=936;COUNTRY=0;',dbVersion30);

TestTD:=TestDB.CreateTableDef('Tabel1',0,'','');

TestField:=TestTD.CreateField('Field1',dbText,16);

TestTD.Fields.Append(TestField);

TestDB.TableDefs.Append(TestTD);

TestDB.Close();

end;

程序首先定义了一个OLEVariant类型的变量Engine,并且通过CreateDatabase函数创建一个新的数据库test.mdb。然后通过Append函数为该数据库添加一个表Table1,该表中有一个字段Field1

程序代码如下:

unit Unit1;

interface

uses

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

Dialogs, comobj;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

const

dbVersion10 = $00000001;

dbEncrypt = $00000002;

dbDecrypt = $00000004;

dbVersion11 = $00000008;

dbVersion20 = $00000010;

dbVersion30 = $00000020;

dbVersion40 = $00000040;

const

dbBoolean = $00000001;

dbByte = $00000002;

dbInteger = $00000003;

dbLong = $00000004;

dbCurrency = $00000005;

dbSingle = $00000006;

dbDouble = $00000007;

dbDate = $00000008;

dbBinary = $00000009;

dbText = $0000000A;

dbLongBinary = $0000000B;

dbMemo = $0000000C;

dbGUID = $0000000F;

dbBigInt = $00000010;

dbVarBinary = $00000011;

dbChar = $00000012;

dbNumeric = $00000013;

dbDecimal = $00000014;

dbFloat = $00000015;

dbTime = $00000016;

dbTimeStamp = $00000017;

procedure TForm1.FormCreate(Sender: TObject);

var

Engine:OLEVariant;

TestDB:OLEVariant;

TestTD:OLEVariant;

TestField:OLEVariant;

begin

Engine:=CreateOleObject('DAO.DBEngine.36');

TestDB:=Engine.CreateDatabase('test.mdb',

';LANGID=0x0804;CP=936;COUNTRY=0;',dbVersion30);

TestTD:=TestDB.CreateTableDef('Tabel1',0,'','');

TestField:=TestTD.CreateField('Field1',dbText,16);

TestTD.Fields.Append(TestField);

TestDB.TableDefs.Append(TestTD);

TestDB.Close();

end;

end.

保存文件,然后按F9键运行程序,程序就会自动创建一个数据库。


在TListView中显示数据库

-->



实例126 在TListView中显示数据库

本实例演示如何在TListView组件中显示数据库的内容。

首先创建一个新的项目,然后向窗体上添加一个TQuery组件和一个TListView组件。添加组件后的窗体如图7-21所示。

7-21 界面

设置TQuery组件的DatabaseName属性设置为DBDEMOSSQL属性设置为select * from countryActive属性设置为True。然后添加程序初始化代码如下:

procedure TForm1.FormCreate(Sender: TObject);

var

i:Integer;

TempColumn:TListColumn;

TempItem:TListItem;

begin

ListView1.ViewStyle:=vsReport;

for i:=0 to Query1.FieldCount-1 do

begin

TempColumn:=self.ListView1.Columns.Add;

TempColumn.Caption:=Query1.Fields[i].FieldName;

end;

Query1.First;

while not Query1.Eof do

begin

TempItem:=self.ListView1.Items.Add;

TempItem.Caption:=Query1.Fields[0].AsString;

for i:=1 to Query1.FieldCount-1 do

begin

TempItem.SubItems.Add(Query1.Fields[i].AsString);

end;

Query1.Next;

end;

end;

程序首先通过ListView1.ViewStyle:=vsReport语句设置TListView组件的ViewStyle属性值为vsReport。然后通过第1个循环中的TempColumn:=self.ListView1.Columns.AddTempColumn.Caption:=Query1.Fields[i].FieldName语句在TListView组件的标题行中显示数据库中字段的名称。最后通过一个循环逐行输出数据库的所有数据。

程序代码如下:

unit Unit1;

interface

uses

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

Dialogs, DB, ADODB, Grids, DBGrids, ComCtrls, DBTables;

type

TForm1 = class(TForm)

Query1: TQuery;

ListView1: TListView;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

i:Integer;

TempColumn:TListColumn;

TempItem:TListItem;

begin

ListView1.ViewStyle:=vsReport;

for i:=0 to Query1.FieldCount-1 do

begin

TempColumn:=self.ListView1.Columns.Add;

TempColumn.Caption:=Query1.Fields[i].FieldName;

end;

Query1.First;

while not Query1.Eof do

begin

TempItem:=self.ListView1.Items.Add;

TempItem.Caption:=Query1.Fields[0].AsString;

for i:=1 to Query1.FieldCount-1 do

begin

TempItem.SubItems.Add(Query1.Fields[i].AsString);

end;

Query1.Next;

end;

end;

end.

保存文件,然后按F9键运行程序,程序运行结果如图7-22所示。

7-22 程序运行结果


利用DAO创建数据库

-->



实例124 利用DAO创建数据库

本实例演示如何创建一个Microsoft Jet数据库,并且为这个数据库添加一个表。

调用CreateDatabase函数可以为Database对象创建新的Microsoft Jet数据库,它的声明如下:

function CreateDatabase(const Name: WideString; const Locale: WideString; Option: OleVariant): Database; safecall;

其中Name指明了待创建的数据库文件的名字;Locale指定了创建数据库时的排序规则;Option指定数据库版本号和是否加密,可以是以下几个常数值。

(1) dbEncrypt:创建加密的数据库。

(2) dbDecrypt:创建不加密的数据库。

(3) dbVersion10:创建Microsoft Jet 1.0版本的数据库。

(4) dbVersion11:创建Microsoft Jet 1.1版本的数据库。

(5) dbVersion20:创建Microsoft Jet 2.0版本的数据库。

(6) dbVersion30:创建Microsoft Jet 3.0版本的数据库。

CreateDatabase函数将初始化Database对象,并创建数据库文件及与其相关的DAO数据库对象。使用此函数只能创建Microsoft Jet数据库(.mdb),而不能创建ISAM数据库或ODBC数据库。调用CreateDatabase函数后,数据库对象已经打开,不需要再调用OpenDatabase函数。

新建一个应用程序,然后在uses段中加入对DAO97的引用,并且添加程序代码如下:

procedure TForm1.FormCreate(Sender: TObject);

var

Engine:DAO97.DBEngine;

TestDB:DAO97.Database;

TestTD:DAO97.TableDef;

TestField:DAO97.Field;

begin

Engine:=DAO97.CoDBEngine.Create();

TestDB:=Engine.CreateDatabase('test.mdb',

';LANGID=0x0804;CP=936;COUNTRY=0;',dbVersion30);

TestTD:=TestDB.CreateTableDef('Tabel1',0,'','');

TestField:=TestTD.CreateField('Field1',dbText,16);

TestTD.Fields.Append(TestField);

TestDB.TableDefs.Append(TestTD);

TestDB.Close();

end;

程序首先定义了一个DBEngine类型的变量Engine,并且通过CreateDatabase函数创建一个新的数据库test.mdb。然后通过Append函数为该数据库添加一个表Table1,该表中有一个字段Field1

程序代码如下:

unit Unit1;

interface

uses

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

Dialogs, comobj,DAO97;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

Engine:DAO97.DBEngine;

TestDB:DAO97.Database;

TestTD:DAO97.TableDef;

TestField:DAO97.Field;

begin

Engine:=DAO97.CoDBEngine.Create();

TestDB:=Engine.CreateDatabase('test.mdb',

';LANGID=0x0804;CP=936;COUNTRY=0;',dbVersion30);

TestTD:=TestDB.CreateTableDef('Tabel1',0,'','');

TestField:=TestTD.CreateField('Field1',dbText,16);

TestTD.Fields.Append(TestField);

TestDB.TableDefs.Append(TestTD);

TestDB.Close();

end;

end.

保存文件,然后按F9键运行程序,程序就会自动创建一个数据库。


存取Blob字段

-->



实例123 存取Blob字段

本实例演示如何在Paradox数据库中存取Blob字段。

向窗体上添加两个TTreeView组件、一个TButton组件和一个TTable组件,设计完成的主界面如图7-17所示。

7-17 界面

本系统中需要设计一个新的基于Paradox 7数据库Blob.db。图7-18所示为设计完成的Blob.db数据库。

7-18 设计完成的数据库

为了方便测试程序,Blob.db数据库存储在实例程序所在的路径下。

设置TTable组件的TableName属性为Blob.dbActive属性为True

在程序运行初期,首先会把TreeView1中的节点内容存储到内存流MS中,然后执行以下代码向Blob.db数据库中添加内存流MS的内容:

procedure TForm1.FormCreate(Sender: TObject);

var

MS: TMemoryStream;

begin

MS:=TMemoryStream.Create;

TreeView1.SaveToStream(MS);

Table1.Edit;

(Table1.FieldByName('Blob') as TBlobField).LoadFromStream(MS);

Table1.Post;

MS.free;

end;

如果在程序运行过程中单击Read按钮,就会通过以下代码把Blob.db数据库中存储的Blob内容读取到TreeView2中:

procedure TForm1.Button1Click(Sender: TObject);

var

MS: TMemoryStream;

begin

MS:=TMemoryStream.Create;

(Table1.FieldByName('Blob') as TBlobField).SaveToStream(MS);

MS.Position:=0;

TreeView2.LoadFromStream(MS);

MS.free;

end;

程序代码如下:

unit Unit1;

interface

uses

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

Dialogs, ImgList, ComCtrls, StdCtrls, DB, DBTables;

type

TForm1 = class(TForm)

TreeView1: TTreeView;

Button1: TButton;

TreeView2: TTreeView;

Table1: TTable;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

MS: TMemoryStream;

begin

MS:=TMemoryStream.Create;

TreeView1.SaveToStream(MS);

Table1.Edit;

(Table1.FieldByName('Blob') as TBlobField).LoadFromStream(MS);

Table1.Post;

MS.free;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

MS: TMemoryStream;

begin

MS:=TMemoryStream.Create;

(Table1.FieldByName('Blob') as TBlobField).SaveToStream(MS);

MS.Position:=0;

TreeView2.LoadFromStream(MS);

MS.free;

end;

end.

保存文件,然后按F9键运行程序,程序运行的初始画面如图7-19所示。

单击Read按钮,就会把Blob.db数据库中存储的Blob内容读取到TreeView2中,如图7-20所示。

7-19 程序运行的初始画面7-20 程序运行结果


在数据库中存取图像

-->



实例122 在数据库中存取图像

本实例演示如何在数据库中存取图像文件。

向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件,设计完成的主界面如图7-13所示。

7-13 界面

本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图7-14为设计完成的Image.db数据库。

7-14 设计完成的数据库

为了方便测试程序,Image.db数据库存储在实例程序所在的路径下。

设置TTable组件的TableName属性为Image.dbActive属性为True

在程序运行初期,首先会判断Image.db数据库中是否存在记录,如果没有记录存在,那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文件:

procedure TForm1.FormCreate(Sender: TObject);

var

mem:TMemoryStream;

begin

if Table1.Eof and Table1.Bof then

begin

with Table1 do

begin

Insert;

FieldByName('Name').AsString:='';

mem:=TMemoryStream.Create();

mem.LoadFromFile('.bmp');

TBlobField(FieldByName('Data')).LoadFromStream(mem);

Post;

end;

end;

end;

然后按照相同的方式顺序向Image.db数据库中添加“样品.wav”、“叶子.wav”和“荷花”图像文件。

最后通过下面的代码把Image.db数据库中存储的文件名字添加到窗体的TListBox组件中:

with Table1 do

begin

First;

while not Eof do

begin

ListBox1.Items.Add(FieldByName('Name').AsString);

Next;

end;

end;

在程序运行过程中,如果用户在窗体的TListBox组件中选择了图像文件,程序会通过TTable组件的First方法把数据表中的第1条记录作为当前记录,然后通过一个循环来遍历数据库中的记录。如果某条记录中Name字段的内容和用户的选择相同,那么就把该记录中Data字段中的图像信息读取出来,并且把图像显示在窗体上的TImage组件上。代码如下:

procedure TForm1.ListBox1Click(Sender: TObject);

var

mem:TStream;

bmp:TBitmap;

begin

with Table1 do

begin

First;

while not Eof do

begin

if FieldByName('Name').AsString=ListBox1.Items[ListBox1.ItemIndex] then

break;

Next;

end;

bmp:=TBitmap.Create;

mem:=CreateBlobStream(FieldByName('Data'),bmRead);

mem.Position:=0;

bmp.LoadFromStream(mem);

self.Image1.Picture.Assign(bmp);

bmp.Free;

mem.Free;

end;

end;

程序代码如下:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, DB, DBTables,mmsystem, ExtCtrls;

type

TForm1 = class(TForm)

ListBox1: TListBox;

Table1: TTable;

Image1: TImage;

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

mem:TMemoryStream;

begin

if Table1.Eof and Table1.Bof then

begin

with Table1 do

begin

Insert;

FieldByName('Name').AsString:='';

mem:=TMemoryStream.Create();

mem.LoadFromFile('.bmp');

TBlobField(FieldByName('Data')).LoadFromStream(mem);

Post;

Insert;

FieldByName('Name').AsString:='样品';

mem:=TMemoryStream.Create();

mem.LoadFromFile('样品.bmp');

TBlobField(FieldByName('Data')).LoadFromStream(mem);

Post;

Insert;

FieldByName('Name').AsString:='叶子';

mem:=TMemoryStream.Create();

mem.LoadFromFile('叶子.bmp');

TBlobField(FieldByName('Data')).LoadFromStream(mem);

Post;

Insert;

FieldByName('Name').AsString:='荷花';

mem:=TMemoryStream.Create();

mem.LoadFromFile('荷花.bmp');

TBlobField(FieldByName('Data')).LoadFromStream(mem);

Post;

mem.Free;

end;

end;

with Table1 do

begin

First;

while not Eof do

begin

ListBox1.Items.Add(FieldByName('Name').AsString);

Next;

end;

end;

end;

procedure TForm1.ListBox1Click(Sender: TObject);

var

mem:TStream;

bmp:TBitmap;

begin

with Table1 do

begin

First;

while not Eof do

begin

if FieldByName('Name').AsString=ListBox1.Items[ListBox1.ItemIndex] then

break;

Next;

end;

bmp:=TBitmap.Create;

mem:=CreateBlobStream(FieldByName('Data'),bmRead);

mem.Position:=0;

bmp.LoadFromStream(mem);

self.Image1.Picture.Assign(bmp);

bmp.Free;

mem.Free;

end;

end;

end.

保存文件,然后按F9键运行程序,程序运行的初始画面如图7-15所示。

TListBox组件中选中一项后,就会显示相对应的图像文件,如图7-16所示。

7-15 程序运行的初始画面7-16 程序运行结果