倾家荡产跪求 有关AutoCAD文件的根据权限的保存浏览问题 以后一定补上 ( 积分: 7 )

现在通过用以下这种方法保存到了SqlServer2000数据库中
var
sfile,sfilename:string;
function BlobContentTostring(const Filename:string):string;
begin
with Tfilestream.Create(filename,fmopenread) do
try
setlength(result,size);
read(pointer(result)^,size);
finally
free;
end;
end;
begin
opendialog1.Filter:='CAI文档(*.dwg)|*.dwg';
if opendialog1.Execute then
begin
sfile:=opendialog1.FileName;
sfilename:=extractfilename(opendialog1.FileName);
end;
adoquery1.Append ;
ADOQuery1.Edit;
adoquery1.FieldByName('wenjianming').AsString :=sfilename;
ADOQuery1.FieldByName('wenjian').AsString:=blobcontenttostring(sfile);
ADOQuery1.Post;
showmessage('文件已经保存到远程数据库！');

现在想实现一个功能：有用户A和用户B
A可以在线浏览AutoCAD文件，并且可以下载下来进行修改保存
B只能在线浏览AutoCAd文件，不可以下载，也不能保存，防止文件丢失
或者是B可以下载文件，但是呢不能在AutoCAD中进行修改保存

另外 应该如何做这个AUTOCAD文件如何实现在程序中在线浏览啊

现在通过用以下这种方法保存到了SqlServer2000数据库中
var
sfile,sfilename:string;
function BlobContentTostring(const Filename:string):string;
begin
with Tfilestream.Create(filename,fmopenread) do
try
setlength(result,size);
read(pointer(result)^,size);
finally
free;
end;
end;
begin
opendialog1.Filter:='CAI文档(*.dwg)|*.dwg';
if opendialog1.Execute then
begin
sfile:=opendialog1.FileName;
sfilename:=extractfilename(opendialog1.FileName);
end;
adoquery1.Append ;
ADOQuery1.Edit;
adoquery1.FieldByName('wenjianming').AsString :=sfilename;
ADOQuery1.FieldByName('wenjian').AsString:=blobcontenttostring(sfile);
ADOQuery1.Post;
showmessage('文件已经保存到远程数据库！');

现在想实现一个功能：有用户A和用户B
A可以在线浏览AutoCAD文件，并且可以下载下来进行修改保存
B只能在线浏览AutoCAd文件，不可以下载，也不能保存，防止文件丢失
或者是B可以下载文件，但是呢不能在AutoCAD中进行修改保存

另外 应该如何做这个AUTOCAD文件如何实现在程序中在线浏览啊