关闭

附件功能

660人阅读 评论(0) 收藏 举报

一、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;

 

0
0
查看评论

附件下载功能

1、下载链接 <a href='<%=Request.ApplicationPath%>/CommonPages/RetrieveImageData.aspx?TableName=Knowledge&FieldName=Upload&RowGuid=<...
  • qq_31971935
  • qq_31971935
  • 2016-05-04 17:07
  • 237

十九. 增加一个项目协作留言板功能(五)----- 增加添加附件功能

在任务管理中,我们增加一个添加附件的功能,方便用户将相应的资料上传至服务器。Django提供了方便的upload方法,具体可参阅https://docs.djangoproject.com/en/1.9/topics/http/file-uploads/ 1. 建立上传附件的For...
  • alex_chen_16
  • alex_chen_16
  • 2016-06-18 12:57
  • 1645

【web】js添加附件功能(选择图片文件有预览功能)——添加附件-demo02

使用input元素添加附件(选择图片文件有预览功能) 备注:此项目没有实现上传附件的功能
  • michael_ouyang
  • michael_ouyang
  • 2016-09-20 16:35
  • 2319

ArcGIS10的附件功能

老是忘记怎么使用这个ArcGIS10的附件功能,这次就做个记录吧。 在项目应用过程中一般都有这样的需求,我针对每一个要素都有对该要素相关的文件,这些文件可能是一些扫描件、视频、音频等信息,用户往往采取有下面几种方法: 1:直接往要素类添加一个BLOB字段,来存储这些文件 2:专门使...
  • linghe301
  • linghe301
  • 2011-05-03 08:57
  • 4819

EBS Form开发中实现附件功能

EBS Form开发中实现附件功能(5) (版权声明,本人原创或者翻译的文章如需转载,如转载用于个人学习,请注明出处;否则请与本人联系,违者必究) 继续使用上次创建的form,并为其添加附件功能。在EBS Form开发中实现附件功能非常简单,不用编写任何代码就可以实现,基本步骤如下. ...
  • meunsina
  • meunsina
  • 2015-02-04 22:58
  • 583

HTML5开发必备jquery上传附件功能

据百度知道,jQuery强调的理念是写的少,做的多(write less, do more)。其独特的选择器、链式的DOM操作、事件处理机制和封装完善的Ajax都是其它JavaScript库望尘莫及的。通过使用jQuery可以让上传过程更加人性化,更好的用户体验,下面介绍几款的文件上传插件。 ...
  • u010001043
  • u010001043
  • 2016-10-23 00:57
  • 1476

EBS Form开发中实现附件功能(5)

EBS Form开发中实现附件功能(5)(版权声明,本人原创或者翻译的文章如需转载,如转载用于个人学习,请注明出处;否则请与本人联系,违者必究)继续使用上次创建的form,并为其添加附件功能。在EBS Form开发中实现附件功能非常简单,不用编写任何代码就可以实现,基本步骤如下.1. &#...
  • tavor
  • tavor
  • 2014-01-27 10:25
  • 4158

功能说明文档作为合同附件

很多软件项目都会有延期现象,比例相当高。延期的后果是相当严重的,其结果就是软件开发企业的利润急剧下降,甚至导致部分企业出现严重亏损。 可以说,绝大多数的软件项目,都是以需求文档为合同的附件,这个附件是项目验收的标准。以需求为验收标准,按道理来说,开发商只要满足了需求描述的内容就可以了。但实...
  • gnicky
  • gnicky
  • 2013-03-12 14:40
  • 759

网易邮箱添加附件功能原理浅析

网易邮箱添加附件功能原理浅析个人觉得网易邮箱的添加附件功能是比较酷的,这两天网上网下研究了下。有些心得写出来,免得遗忘。一切起源于type为file的input,这是没话可多说的(这个东西很神秘)。为什么网易页面上却没有看见这个东西?看下面: html>head> &...
  • whwqs
  • whwqs
  • 2008-05-19 15:59
  • 4422

web之HTML5----邮箱附件上传

HTML:        class="mail-to clearfix">         ...
  • ziyouzhiqiu
  • ziyouzhiqiu
  • 2015-02-09 11:20
  • 1140
    个人资料
    • 访问:1892017次
    • 积分:18434
    • 等级:
    • 排名:第602名
    • 原创:160篇
    • 转载:874篇
    • 译文:0篇
    • 评论:104条
    最新评论