请高手帮忙!给我个思路,如何实现用Delphi做一个有关附件的程序? ( 积分: 200 )

我想做一个程序,功能如下:
1、可以将附件（WORD、EXCEL、TXT）上传，保存到SQL SERVER服务器。
2、程序中可以显示，最新上传的文件列表（文件名、上传日期等）。
3、双击显示的文件列表，可以打开文件浏览。

请问：关于附件上传与附件打开，有没有什么控件可以直接实现的啊？如果没有控件，那应该怎么设计啊

下面是使用代码实现

上传文件至SQL SERVER服务器。
——要求：数据表保存文件的字段为image类型
ADOQuery.Append;
ADOQuery.FieldByName(文件名字段).AsString := ExtractFileName(文件路径和文件名);
ADOQuery.FieldByName(日期字段).AsDateTime := Now;
TBlobField(ADOQuery.FieldByName(字段名)).LoadFromFile(文件路径和文件名);
ADOQuery.Post;

下载文件至本地。
TBlobField(ADOQuery.FieldByName(字段名)).SaveToFile(文件路径和文件名);

打开文件
——在uses中添加ShellAPI
ShellExecute(handle, 'open', 文件路径和文件名, nil,nil, SW_SHOWNORMAL);

建议将文件上载到server指定的目录中，然后在SQL中保留路径