附件功能

原创 2012年03月27日 12:32:41

一、DataModule部份, 处理记录删除后将对应的附件信息(文件和记录)删除
1.定义变量
  private
      FMyDelID: Variant;

2.BeforeDelete事件, 记下被删除的记录ID
  procedure TDataPI.PIBeforeDelete(DataSet: TDataSet);
  begin
    FMyDelID := DataSet.FieldByName('ID').AsVariant;
  end;

3.AfterDelete事件, 删除对应的附件信息(文件和记录)
  procedure TDataPI.PIAfterDelete(DataSet: TDataSet);
  begin
    TfrmAttachmentEditor.DelMyAttachment(TSmartDataSet(DataSet).TableName, FMyDelID);
  end;

二、Browse页面调用方法(建议:aAattachment.GroupIndex设为“永远有效”不考虑权限问题)
  procedure TfrmPI.aAttachmentExecute(Sender: TObject);
  var
    bCanModify: Boolean;
  begin
    if Self.MasterDataSet.IsEmpty then
      Exit;
    bCanModify := not MasterDataSet.FieldByName('Confirmed').AsBoolean and aModify.Enabled;
    TfrmAttachmentEditor.CallAttachment(MasterDataSet, 'PINo', bCanModify);
  end;

三、Editor页面调用方法(建议:aAattachment.GroupIndex设为“永远有效”不考虑权限问题)
  procedure TfrmPIBill.aAttachmentExecute(Sender: TObject);
  var
    bCanModify: Boolean;
  begin
    if Self.Processor.State in [psInsert, psEdit] then
    begin
      WarnMyMsg('系统提示','进行附件操作前请先保存!');
      Exit;
    end;
    bCanModify := not MasterDataSet.FieldByName('Confirmed').AsBoolean and aModify.Enabled;
    TfrmAttachmentEditor.CallAttachment(MasterDataSet, 'PINo', bCanModify);
  end;

 

javaMail邮件发送功能(多收件人,多抄送人,多密送人,多附件)

先看源码,再来理解,可以直接使用! JavaMailWithAttachment.java: private MimeMessage message; private Session...

javaemail功能齐全的发送邮件类【能上传附件哦】

从网上找了一个些资料,再原本的基础上增加的发送附件功能,附件上传的最大容量 默认20M 需要导入一个包mail.jar,随便下一个吧 package common;  /**  * 发送邮...

silverlight上传附件功能

  • 2013年11月07日 15:18
  • 156KB
  • 下载

ArcGIS10的附件功能

老是忘记怎么使用这个ArcGIS10的附件功能,这次就做个记录吧。 在项目应用过程中一般都有这样的需求,我针对每一个要素都有对该要素相关的文件,这些文件可能是一些扫描件、视频、音频等信息,...

邮件功能可以发附件

  • 2014年05月28日 10:58
  • 2KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:附件功能
举报原因:
原因补充:

(最多只允许输入30个字)