合同附件添加、查看、保存(在线等待,QQ:8815380)(300)

  • 主题发起人 主题发起人 lifu888
  • 开始时间 开始时间
L

lifu888

Unregistered / Unconfirmed
GUEST, unregistred user!
有个令我头疼又是比较急的问题,希望得到大家的帮助,做合同保存功能,希望在合同内容的基础上,添加excel附件,添加后可以双击浏览,OK后将合同各栏目内容及excel附件保存,在网上了解附件可以保存到数据库中,也可将附件上传到服务器的某个目录,数据库中保存目录及文件名,不知如何实现,请大家提供思路以及提供参考源码,谢谢各位!开发环境:delphi7+sql server 2000.
 
这个应该很简单实现啊,首先说打开EXCEL吧,需要uses ComObj:另外ExcelApp还有很多方法,属性,包括控制EXCEL,至于你说的保存就根据你说的情况做了,应该也很简单的procedure TForm1.BitBtn1Click(Sender: TObject);var ExcelApp: Variant;begin ExcelApp := CreateOleObject( 'Excel.Application' ); ExcelApp.Visible := True; ExcelApp.WorkBooks.Open( 'C:/Documents and Settings/dhszxh/桌面/word/资金项目.xls' );end;
 
打开excel是比较容易,关键是保存,假如我要将excel文件保存到服务器上某个目录,浏览时又能从服务器上某个目录读取对应的excel文件
 
访问服务器塞下在载塞,服务器上建个FTP服务,通过FTP协议访问
 
使用控件,服务器读取,然后直接保存服务器
 
后退
顶部