大家好，我用了一个Paradox表加密，但在程序中要经常打开，不懂怎样用DataBase等？(20分)

诸

诸葛不才

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #1

大家好，我用了一个Paradox表加密，但在程序中要经常打开，不懂怎样用DataBase等,我
试过用DataBase，但是没有用户名，并且将那个什么logop..设为false，也不行进不了，
用Seesion倒可以，但是因为在不同的表单要打开，并且关闭频繁，这有什么更好的解决
方案，在程序开始时打开所有表，然后让Seesion记录密码可以吗？看了以前的东东都没
回答清楚，那位仁兄能清楚点吗？
还有一个问题，在D中有AppPath这个东东吗？不然怎样找程序当前目录，不是
ExeName吧?

 

S

sundart

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #2

ExtractFileDir(application.ExeName)
ExtractFilePath(application.ExeName) + '/'

 

小

小花生

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #3

在database的params里输入password=xxx就可以了。

 

诸

诸葛不才

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #4

花生大哥，不行啊，我试过，有用过Session吗？

 

P

PLWang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #5

我的程序刚好也遇到这个问题 Paradox表 在DBD里table properties->Password Security里设置密码
然后加了一个Database部件loginprompt:=false str里设好密码 设好......
然后程序编译没问题 执行时密码框先出来.... 总也改不掉 我就搞不懂DBD菜单tools->passwords那一项是
干吗用的 哪位帮忙回一下 问题解决 我加50分

 

L

lollman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #6

很简单，不用DataBase，如下：

Table1.DBSession.AddPassWord('你的密码');
Table1.Open;

 

W

wmsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #7

procedure Tdatabase.databaseCreate(Sender: TObject);
begin
session.AddPassword('你的密码');
end;

 

L

lollman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-07

• #8

我想我刚才理解错了你的意思，其实你可以在 Table 的 BeforeOpen 里面加上密码

procedure TForm1.Table1BeforeOpen(DataSet: TDataSet);
begin
TTable(DataSet).DBSession.AddPassword('你的密码');
end;

然后指定所有的 Table 的 BeforeOpen 都指向这个过程就行。

 

诸

诸葛不才

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-08

• #9

接受答案了.