begin
if opendialog.Execute then
begin
name:= 'C:' +
CLDataSetBroker.DataSet.FieldByName('FWQQB_BH').AsString + '_服务' +Business.System.SysUtils.ExtractFileName(opendialog.FileName);
FileCopy(opendialog.FileName, name);
DOCRELEVANCYINFO2.TRelevancyGrid(DocView3.doc).NewDocFromLocal(name);
dialogs.ShowMessage('上传成功。。。。');
end;