关闭

附件功能

标签: dataset
620人阅读 评论(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

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1503542次
    • 积分:15012
    • 等级:
    • 排名:第744名
    • 原创:148篇
    • 转载:833篇
    • 译文:0篇
    • 评论:91条
    最新评论