Pdox不建立别名如何使用(100分)

  • 主题发起人 主题发起人 T18sc
  • 开始时间 开始时间
T

T18sc

Unregistered / Unconfirmed
GUEST, unregistred user!
Pdox中如不建立别名,如何使用,用目录吗?如何用。
很多商业软件都看不出用别名的痕迹,它们是如何作的呢。
 
忘了说了我要用TDatabase的事务功能.
 
设置TDatabase的属性
 
Pdox是指paradox吧
在DataModule中增加一个TDataBase控件,然后单击右键设置其属性
 
对于Paradox来说,它的别名可以用目录名来代替,
1、增加一个DataBase,将它的AliasName设为空,
DatabaseName = 'MyAliasName'
DriverName = 'STANDARD'
2、点DataBase->Params的...按钮
输入“Path=e:/Delphi5/Borland Shared/Data”//改为你的目径就是了!
3、加入一个Table,将DataBaseName设为MyAliasName。好,看看它的TableName属性的
下拉框吧!相关的表都在里面了。
完成!
这个路径可以在DataBase的BeforeConnect事件中设置。这部分比较简单:
代码:
procedure TForm1.Database1BeforeConnect(Sender: TObject);
Const
   pathstr='Path= %s';
var
  s:string;
begin
  s:=ExtractFilePath(application.ExeName)
      +'/Data';//假设数据库目录在程序安装目录的Data目录下
  DataBase1.Params.Add(format(pathstr,[s]));
  //如果数据库有密码可能还得加上相关的东西,自己动手吧!
end;

自己再改改就行了!
 
杜宝说的很正确。
开发时用固定的目录。设置TDatabase 的Connected为True;
另外,别忘了加 Database1.parms.Clear;
 
分配积分的名单上为何没有杜宝,真奇怪!杜宝的分只能给别人了。
 
后退
顶部