http://www.chinabyte.net/20010212/158877.shtml delphi 最吸引人的特点之一就是它的强大的数据库访问能力,通过database desktop 工具可方便的建立、编辑数据库。由于实际原因我们往往需要在程序运行状态下动态建立某个数据库。 如果你让用户用database desktop 工具手工建立数据表那么你写的程序将会打大折扣,不过你不用担心delphi完全可以用语言来完成此功能,为我们提供方便。我在学习和实践中总结出两种方法,我叫做table法和sql法。下面通过简单的实例来描述动态数据库建立的过程。 一、 Table方法: 1、(以建立paradox数据表为例假设库名为ljh.db)。新建一工程文件zhoudf.dpr.在unit1中的uses语句中加入db,dbtables单元。 2、在面板上选取button元件置于form1表中,双击button1输入如下代码。 Procedure Tform1.Button2Click(Sender: Tobject); var table1:ttable; begin table1:=ttable.create(self); with table1 do begin active:=false; tablename:='ljh.db'; tabletype:=ttparadox; with fielddefs do {此方法为ljh.db增加字段} begin clear; add('yj',ftdate,0,false); add('zp', ftstring,10,false); {增加具体的字段名、类型} add('zdm',ftinteger,0,false); end; With indexdefs do {此方法为ljh.db增加索引字段} Begin Clear; Add('yjindex','yj',[ixprimary]); end; createtable; end; end; 二、sql方法: 在面板上选取button元件置于form1表中,双击button2输入如下代码。 Procedure Tform1.Button2Click(Sender: Tobject); var table2:tquery; begin table2:=tquery.create(self); with table2 do begin with sql do begin clear; add('create table "ljh.db"'); add('(yj date,'); {注意引号中的‘(’} add('zp char(10),'); add('zdm int)'); {注意引号中的 ')'} end; execsql; sql.clear; sql.add('create index yj on "ljh.db" (yj)'); {此sql语句为ljh.db增加索引字段} execsql; end; end; * 编译此程序即可。 * 需要注意的是用sql方法建库如果库已存在会产生错误提示,用table方法则不需考虑。
建立一个工程项目,在Form1Uses中加入ComObj、ADOX_TLB、JRO_TLB,添加三个按钮:btnCreateDB和btnCompactDB,用于实现创建数据库、创建数据表和压缩数据库功能。 1.创建数据库、数据表和索引。 procedure TForm1.btnCreateDBClick(Sender:TObject); var Catalog:_Catalog;//定义为_Catalog的接口类型 Table:_Table; Index:_Index; strCon:string;//定义连接字符串 begin Catalog:=CreateComObject(Class-Catalog) as _Catalog; //建立Catalog实例,也可以用 Catalog:=CoCatalog.Create; strCon:='Provider=Microsoft.Jet.OleDB.4.0;' //通过Jet OleDb直接操作Access数据库 +'Data Source=d:\ComTest\myDb.mdb;' //数据库位置 +'Jet OLEDB:Engine Type=5;' //Jet 4.x格式,如为4,则Jet 3.x格式 +'Locale Identifier=0x0804;' //支持简体中文(一定要有) +'Jet OLEDB:Database Password=mypwd'; //加入密码 Catalog.Create(strCon); //建立数据库 {建立数据表和索引} catalog._Set_ActiveConnection(strCon); //连接到数据库 with Catalog do begin //建立数据表 Table:=Create Com Object(Class-Table) as _Table; //建立Table实例 with Table do begin Name:='Tel'; Columns.Append('Name',adVarWChar,8); //数据类型详见MDAC SDK Columns.Append('Phone',adVarWchar,20); Index:=CreateComObject(Class_Index) as _Index; //建立索引 with Index do begin Name:='MyIndex'; Columns.Append('Name',adVarWchar,8); end; Indexes.Append(Index,EmptyParam); end; Tables.Append(Table); end; end; 2.通过JRO压缩数据库 procedure TForm1.btnCompactDBClick(Sender:TObject); var JetEngine:IJetEngine; strTagCon:string;//目标数据库连接字符串 strSourceCon:string;//源数据库连接字符串 begin JetEngine:=CoJetEngine.Create; strSourceCon:= 'Provider=Microsoft.Jet.OleDB.4.0;' +'Data Source=d:\ComTest\myDb.mdb;' +'Jet OLEDB:Engine Type=5;' +'Locale Identifier=0x0804;' +'Jet OLEDB:Database Password=mypwd'; strTagCon:= 'Provider=Microsoft.Jet.OleDB.4.0;' +'Data Source=d:\ComTest\myDb1.mdb;' +'Jet OLEDB:Engine Type=5;' +'Locale Identifier=0x0804;' +'Jet OLEDB:Database Password=mypwd'; //可以以此改变数据库密码 JetEngine.Compact Database(str Source Con,str TagCon); end;
to zhuangbx220(星) : 谢谢,这个办法很好,我是新手能有示例程序吗? 我的mail: [email protected]
1.创建数据库、数据表和索引。
procedure TForm1.btnCreateDBClick(Sender:TObject);
var
Catalog:_Catalog;//定义为_Catalog的接口类型
Table:_Table;
Index:_Index;
strCon:string;//定义连接字符串
begin
Catalog:=CreateComObject(Class-Catalog) as _Catalog;
//建立Catalog实例,也可以用 Catalog:=CoCatalog.Create;
strCon:='Provider=Microsoft.Jet.OleDB.4.0;'
//通过Jet OleDb直接操作Access数据库
+'Data Source=d:\ComTest\myDb.mdb;'
//数据库位置
+'Jet OLEDB:Engine Type=5;'
//Jet 4.x格式,如为4,则Jet 3.x格式
+'Locale Identifier=0x0804;'
//支持简体中文(一定要有)
+'Jet OLEDB:Database Password=mypwd';
//加入密码
Catalog.Create(strCon); //建立数据库
{建立数据表和索引}
catalog._Set_ActiveConnection(strCon);
//连接到数据库
with Catalog do
begin //建立数据表
Table:=Create Com Object(Class-Table) as _Table; //建立Table实例
with Table do
begin
Name:='Tel';
Columns.Append('Name',adVarWChar,8);
//数据类型详见MDAC SDK
Columns.Append('Phone',adVarWchar,20);
Index:=CreateComObject(Class_Index) as _Index; //建立索引
with Index do
begin
Name:='MyIndex';
Columns.Append('Name',adVarWchar,8);
end;
Indexes.Append(Index,EmptyParam);
end;
Tables.Append(Table);
end;
end;
2.通过JRO压缩数据库
procedure TForm1.btnCompactDBClick(Sender:TObject);
var
JetEngine:IJetEngine;
strTagCon:string;//目标数据库连接字符串
strSourceCon:string;//源数据库连接字符串
begin
JetEngine:=CoJetEngine.Create;
strSourceCon:=
'Provider=Microsoft.Jet.OleDB.4.0;'
+'Data Source=d:\ComTest\myDb.mdb;'
+'Jet OLEDB:Engine Type=5;'
+'Locale Identifier=0x0804;'
+'Jet OLEDB:Database Password=mypwd';
strTagCon:=
'Provider=Microsoft.Jet.OleDB.4.0;'
+'Data Source=d:\ComTest\myDb1.mdb;'
+'Jet OLEDB:Engine Type=5;'
+'Locale Identifier=0x0804;'
+'Jet OLEDB:Database Password=mypwd';
//可以以此改变数据库密码
JetEngine.Compact Database(str Source Con,str TagCon);
end;
我的mail: [email protected]
陈经韬
(一)初级应用篇:
资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE(一般位于\Delphi\BIN目录下),我们完全可以做出跟VC一样效果的文件来。
资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要临时调用一幅图片,一般作法是把图片放在某一路径下(通常是主程序所在路径),但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
资源文件的使用步骤为:
1.编写rc脚本文本
用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如:mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myAVI AVI EPOEN.AVI //加入视频
myIco ICON CJT.ICO //加入图标格式分别为在资源文件中的名称->类型->实际文件名称,例如上面第一行定义一个名为mycur的光标,实际名称为加入光标move.cur.
2.将rc文件编译成res资源文件
将脚本文件和实际文件拷到Brcc32.EXE所在目录,执行DOS命令。格式为:Brcc32 脚本文件(回车),例如有一名为myfirst.rc的脚本文件,则执行 Brcc32 myfirst.rc(回车)即可。如果你是懒人,也可新建一批处理文件,内容只有一行:Brcc32 mufist.rc.(因为Delphi安装后一般会在自动批处理文件中指明搜索路径的。)如果编译成功,则会生成一个结尾为res的文件,这个文件就是我们需要的资源文件。
3.在Delphi单元中加入资源文件
将生成的res资源文件拷贝到你所编程序的路径下,在单元文件{$R *DFM}后加上一句{$R mufirst.res},则将res文件加入去,编译后资 源文件即已包含在可执行文件中了。若你有多个资源文件,也按上法依次加入。
4.在Delphi程序中调用资源文件
资源文件在Delphi中的关键字为hinstance.下面给出具体用法.
<1>光标的调用
首先在程序中定义一个值大于0的常量,因为Delphi本身用0-负16来索引默认的光标,所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件中添加以下代码:
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
其中35为大于1的常量,mycur为光标在资源文件中的名字。如果希望在其他控件上使用定制光标,例如Panel控件,只需在程序的适当处加入以下代码:
Panel1.cursor:=35;
<2>位图的调用
新建一项工程,添加一Timage控件,在需要显示的地方写以下代码:
Var mymap:Hbitmap;
begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap;
end;
其中"mypic"为位图资源文件中的名称。
〈3〉AVI文件的调用
新建一工程,添加一Animate控件,在需要的地方加入:
animater1.resname:='myAVI';
animater1.Active:=true;
其中myAVI为视频文件在资源文件中的名称。
〈4〉调用WAV文件
在uses中加入mmsystm单元,以便在程序中播放WAV文件。播放时Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);其中mywav为声音文件在资源中的名称。
〈5〉加入光标
加入光标比较容易,只要将res文件加入单元文件中即可。但需注意,名称最好取"W"."WW"等,使第一个字母尽量靠后,以免与主程序的图标顺序颠倒。这样一来,别人在使用你的程序时如果想选择其它图标就有很多选择了。
补充:
1.资源类型除上述类型外,还可以字体文件,字符串文件等。
2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。
下面我们来试验一下:
新建一工程,将唯一的一个Form删除,然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此,我们就可和Turbo PASCAL下编程序一样,且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下:
writeln('演示程序,按任意键开始!');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束!');
运行程序,将弹出一个标准DOS窗口,按任意键播放声音文件。是不是很COOL呢!我曾下载过一个播放器,在其安装目录下我发现有一"DOS程序",用鼠标双击它便弹出一个DOS窗口,显示DOS时代特有的画图,并有背景音乐!可能就是用这个方法做的。
3.Delphi本身自带了一个叫Image Editor的工具,同样可以编辑资源文本,但和本文的方法比较,可得出下表:**************************************
Image Editor Brcc32BMP 只支持16位色 任意色光标 黑白两色 任意色ICO 只支持16位色 任意色AVI 不支持 支持WAV 不支持 支持字体
字符串 不支持 支持
其他
****************************************上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你的程序携带其它文件,要用的时候释放出来。
例如: myexe exefile 'ha1.exe'//脚本文件
下面是自定义释放函数ExtractRes,本例中使用如下:
ExtractRes('exefile','myexe','c:\new.exe');
就把ha1.exe以new.exe为名字保存到C盘根目录下了. function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
end;
end;