如何在程序中修改密码！(100分)

我在编写一个数据库程序，
考虑到安全问题，将一些数据表格设置了密码
（用Database Desktop），请问如何在程序中修改
密码，添加其他密码以及设置相应的权限！

能否详细些? 如什么数据库?

又有人问，查查以前的不是很好么，嘿嘿，送分么？
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=123687
http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=132010

真可惜！
我确实查了一下，可是使用中文！
没想到那篇标题却是英文的！
看来分是白给你了！

见着有份！！！！！

对了！
好像上面没有提到如何设置每个密码对某一字段
的权限问题！
不知各位有何高见，
既然出分，就不能太花我精力，
我还是要现成的！

数据库可以定义如下:
用户名 口令 等级 ...
其中等级可以作为权限设置的依据,如:1---管理员,2---高级用户,3---一般用户,4---只能浏览
,....,这里还可以细化,确定字段的被访问权限。

我不是用来设计数据库表格，
而是指给某一数据表格设置密码时，
同时可以设置对某一字段的访问权限
（Database Desktop)可以！

再就是用idapi中的头文件不知谁有，
Delphi中的Pascal实现文件不知谁有？
请发给我：snowhouse@netease.com

if you use Paradox and Dbase ,please input in the Delphi help with
'sessions' then choice the 'using sessions ' key word , in that page
there is a 'Working with password-protected Paradox and dBase tables'
link ,click the link, perhaps it would help you.

我知道是uses DBE单元即可，

在Delphi程序运行中 改变已设定密码的数据库文件的密码
interface
uses bde;
procedure _AddNewPassword(dbname:string;Password:String='700203');
const
RESTRUCTURE_TRUE = WordBool(1);
var
TblDesc: CRTblDesc;
hDb: hDBIDb;
temptable:ttable;
begin
temptable:=Ttable.Create(application);
temptable.DatabaseName:='DBDEMOS';
temptable.TableType:=ttParadox;
temptable.TableName:=dbname;
temptable.Exclusive:=true;
temptable.open;
FillChar(TblDesc,SizeOf(CRTblDesc),0);
with TblDesc do
begin
StrPCopy(szTblName, temptable.tableName);
StrCopy(szTblType, szPARADOX);
StrPCopy(szPassword, Password);

bProtected := RESTRUCTURE_TRUE;
end;

Check(DbiGetObjFromObj(hDBIObj(temptable.Handle), objDATABASE, hDBIObj(hDb)));

temptable.Close;
temptable.free;

Check(DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, FALSE));
Session.AddPassword(Password);
end;

谢谢大家！
不要再写同样的话了！
如何添加和修改密码我基本上知道，
当然要实现还是挺烦的，至于如何设置
某一字段的权限Delphi帮助上虽然没有详细
说明，但是基本上我可以想出来。这里最重要的是
我知道要uses那个单元了，在当时我虽然知道可以用
那些函数，可是我却没法在delphi中使用，现在总算好了！

谢谢大家，分数马上我将送出！！

多人接受答案了。