Measure/Units/ProjectCommands.pas

unit ProjectCommands;

interface

uses
  ProjectData, XMLDoc, XMLIntf, ProjectManagerDm, sdIDTree, sdDB,
  Connections;

type
  {1. 生成临时文件夹
   2. 打开项目
   3. 修改项目（上报、批复相应修改）
   4. 保存修改后项目的属性至xml文件
   5. 保存项目至临时文件夹中
   6. 压缩临时文件夹，得到上报、批复文件
   7. 复制粘贴结果文件得用户选择
   8. 删除临时文件夹}
  TReportBase = class
  private
    // 临时文件夹（生成的项目文件、xml属性文件）
    FTempFolder: string;
    FProjectName: string;
    FFileName: string;
    FProjectID: Integer;
    FProjectData: TProjectData;
    FFileType: string;
    // xml项目信息文件
    FXmlInfoFile: string;
    // 结果文件
    FResultFile: string;
    // 接收文件时是否需要升级文件
    FNeedUpdate: Boolean;

    procedure SaveProjectInfo(AXmlNode: IXMLNode);
    procedure SaveTenderProperty(AXmlNode: IXMLNode);
    procedure SaveInfoToXmlDocument(AXmlNode: IXMLNode);
    procedure ExportXmlInfo;
    function GetNewOutputFileName: string;
  protected
    procedure OpenProject; virtual;
    procedure SaveProject; virtual;
  public
    constructor Create(const AProjectName, AFileName: string; AProjectID: Integer);
    destructor Destroy; override;

    procedure Execute; virtual;
    procedure ExportTo(AFileName: string); virtual;
  end;

  TSubmitProject = class(TReportBase)
  protected
    procedure OpenProject; override;
    procedure SaveProject; override;
  public
    procedure Execute; override;
    procedure ExportTo(AFileName: string); override;
  end;

  TReplyProject = class(TReportBase)
  protected
    procedure OpenProject; override;
    procedure SaveProject; override;
  public
    procedure Execute; override;
    procedure ExportTo(AFileName: string); override;
  end;

  {1. 生成临时文件夹
   2. 解压选中文件至临时文件夹
   3. 读取xml信息文件中的数据
   4. 检查同名项目，存在则备份原项目，不存在则创建新节点
   5. 根据xml文件更新数据项目信息，标段属性
   6. 从临时文件夹中复制粘贴项目文件至新节点的数据文件
   7. 打开该数据文件，根据情况修改
   8. 保存该数据文件
   9. 删除临时文件夹}
  TReceiveProject = class
  private
    FTempFolder: string;
    FFileType: string;
    FCurNode: TsdIDTreeNode;
    FProjectName: string;
    FFileName: string;
    FSelect: TsdIDTreeNode;
    FProjectData: TProjectData;
    FStageCount: Integer;
    FReply: Boolean;
    FLostStageCount: Integer;
    // 控制是否需要升级更新文件
    FNeedUpdate: Boolean;
    FLock: Boolean;
    FMessageID: Integer;

    function CheckOpen: Boolean;
    function GetNewTender: TsdIDTreeNode;
    procedure GetCurNode;
    procedure LoadProjectInfo(AXmlNode: IXMLNode);
    procedure LoadTenderProperty(AXmlNode: IXMLNode);
    procedure LoadInfoFromXmlDocument(AXmlNode: IXMLNode);
    procedure LoadXmlInfo;
    procedure UpdateData(const AFileName: string);
  public
    constructor Create(ASelect: TsdIDTreeNode);
    destructor Destroy; override;

    function Receive(const AFileName: string): TsdIDTreeNode;
    procedure ReceiveForLost(const AFileName: string; AStageCount: Integer; AReply: Boolean);
    // 供网络版使用
    // 原报已提交，1审已审核并提交后，此时除了2审人以外的参与人接收数据时不可生成二审数据
    property Lock: Boolean read FLock write FLock;
    // 信息: 0[接收成功]
    //       1[接收失败，应接收节点打开状态]
    property MessageID: Integer read FMessageID;
  end;

  {1. 生成临时文件夹
   2. 保存标段的属性至xml文件
   3. 复制粘贴标段文件至临时文件夹
   4. 压缩临时文件夹，得到导出的标段文件（结果文件）
   5. 复制粘贴结果文件得用户选择
   6. 删除临时文件夹}
  TTenderExport = class
  private
    FIngore: Boolean;
    // 临时文件夹（生成的项目文件、xml属性文件）
    FTempFolder: string;
    FProjectName: string;
    FFileName: string;
    FProjectID: Integer;
    FFileType: string;
    // xml项目信息文件
    FXmlInfoFile: string;
    // 结果文件
    FResultFile: string;
    FAttachmentPath: string;

    procedure SaveProjectInfo(AXmlNode: IXMLNode);
    procedure SaveTenderProperty(AXmlNode: IXMLNode);
    procedure SaveInfoToXmlDocument(AXmlNode: IXMLNode);
    procedure ExportXmlInfo;
  public
    constructor Create(ARec: TsdDataRecord; const AFileName: string; AIngore: Boolean = False);
    destructor Destroy; override;
    // 参数AExportAttachment：是否导出附件
    procedure Execute(AExportAttachment: Boolean = False);
  end;

  TTenderImport = class
  private
    FTempFolder: string;
    FSelect: TsdIDTreeNode;
    FNewNode: TsdIDTreeNode;
    FProjectName: string;
    FFileName: string;
    FTenderFileName: string;

    procedure GetNewNode;

    procedure LoadProjectInfo(AXmlNode: IXMLNode);
    procedure LoadTenderProperty(AXmlNode: IXMLNode);
    procedure LoadInfoFromXmlDocument(AXmlNode: IXMLNode);
    procedure LoadXmlInfo;
  public
    constructor Create(ASelect: TsdIDTreeNode; const AProjectName, AFileName: string);
    destructor Destroy; override;

    procedure Execute;
    procedure ImportToSelect;
  end;

  {1. 生成临时文件夹
   2. 导出选中节点及其所有子节点信息
   3. 递归所有子节点，分类（Type = 0）则新建同名文件夹，标段（Type = 1）则导出该标段
   4. 压缩临时文件夹，得到导出的分类文件（结果文件）
   5. 复制粘贴结果文件得用户选择
   6. 删除临时文件夹}
  TProjectExport = class
  private
    // 临时文件夹（按层次结构生成所有项目文件）
    FTempFolder: string;
    // xml树结构文件
    FXmlInfoFile: string;
    // 结果文件
    FResultFile: string;
    FExportNode: TsdIDTreeNode;
    FTenderExportor: TTenderExport;
    FExportAttachment: Boolean;

    procedure SaveTreeNodeInfo(AXmlNode: IXMLNode; ANode: TsdIDTreeNode);
    procedure ExportXmlInfo;

    procedure ExportTender(ANode: TsdIDTreeNode; const AExportPath: string);
    procedure ExportNode(ANode: TsdIDTreeNode; const AExportPath: string);
  public
    constructor Create(ANode: TsdIDTreeNode; const AFileName: string; AExportAttachment: Boolean = False);
    destructor Destroy; override;

    procedure Execute;
  end;

  {1. 生成临时文件夹
   2. 解压选中文件至临时文件夹
   3. 根据用户选择新建子分类FNew
   3. 打开Xml树结构信息文件
   4. 根据Xml文件中结构，依次建立分类或导入标段文件
   5. 删除临时文件夹}
  TProjectImport = class
  private
    FTempFolder: string;
    FProjectName: string;
    FFileName: string;
    FSelect: TsdIDTreeNode;
    FNew: TsdIDTreeNode;

    function AddNewNode(AParentID, ANextID: Integer; const ANodeName: string): TsdIDTreeNode;
    procedure LoadTender(AXmlNode: IXMLNode;
      AParent: TsdIDTreeNode; const APath: string);
    procedure LoadChild(AXmlNode: IXMLNode;
      AParent: TsdIDTreeNode; const APath: string);
    procedure LoadChildrenFormXml;
  public
    constructor Create(ASelect: TsdIDTreeNode; const AProjectName, AFileName: string);
    destructor Destroy; override;

    procedure Execute;
  end;

  TTenderFileChecker = class
  private
    FTempFolder: string;
    FFileName: string;
    FPhaseCount: Integer;
    FAuditStatus: Integer;
    FProjectName: string;

    procedure LoadProjectInfo(AXmlNode: IXMLNode);
    procedure LoadInfoFromXmlDocument(AXmlNode: IXMLNode);
    procedure LoadInfoFromXml;
    procedure LoadInfo;
  public
    constructor Create(AFileName: string);
    destructor Destroy; override;

    property ProjectName: string read FProjectName;
    property PhaseCount: Integer read FPhaseCount;
    property AuditStatus: Integer read FAuditStatus;
  end;

implementation

uses
  UtilMethods, ZhAPI, Globals, SysUtils, SupportUnit, NewProjectFrm,
  PhaseData, ConfigDoc, ConstUnit, PHPWebDm;

{ TSubmitProject }

procedure TSubmitProject.Execute;
begin
  FFileType := '.rmf';
  FNeedUpdate := True;
  FProjectData.LockedDataForSubmit;
  inherited;
end;

procedure TSubmitProject.ExportTo(AFileName: string);
begin
  FNeedUpdate := True;
  FProjectData.LockedDataForSubmit;
  inherited;
end;

procedure TSubmitProject.OpenProject;
begin
  FProjectData.OpenForSubmit(FFileName);
end;

procedure TSubmitProject.SaveProject;
begin
  FProjectData.SaveAsForSubmit(FTempFolder + '\' + ExtractSimpleFileName(FFileName));
end;

{ TReportBase }

constructor TReportBase.Create(const AProjectName, AFileName: string;
  AProjectID: Integer);
begin
  FProjectName := AProjectName;
  FFileName := AFileName;
  FProjectID := AProjectID;
  FProjectData := TProjectData.Create;
  FFileType := '.dat';
  FTempFolder := GenerateTempFolder(GetTempFilePath);
  FXmlInfoFile := FTempFolder + '\Info.xml';
  FResultFile := GetTempFileName;
  FNeedUpdate := False;
  OpenProject;
end;

destructor TReportBase.Destroy;
begin
  DeleteFileOrFolder(FTempFolder);
  DeleteFileOrFolder(FResultFile);
  FProjectData.Free;
  inherited;
end;

procedure TReportBase.Execute;
var
  sFileName: string;
begin
  ExportXmlInfo;
  SaveProject;
  ZipFolder(FTempFolder, FResultFile);
  sFileName := GetNewOutputFileName;
  if SaveFile(sFileName, FFileType) then
    CopyFileOrFolder(FResultFile, sFileName);
end;

procedure TReportBase.ExportTo(AFileName: string);
begin
  ExportXmlInfo;
  FProjectData.SimpleSaveAs(FTempFolder + '\' + ExtractSimpleFileName(FFileName));
  ZipFolder(FTempFolder, FResultFile);
  CopyFileOrFolder(FResultFile, AFileName);
end;

procedure TReportBase.ExportXmlInfo;
var
  FXmlDocument: IXMLDocument;
begin
  FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  try
    FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAttrNull,doAutoPrefix,doNamespaceDecl];
    FXmlDocument.Active := True;
    FXmlDocument.Encoding := 'GB2312';
    FXmlDocument.AddChild('ProjectMangerInfo');
    SaveInfoToXmlDocument(FXmlDocument.DocumentElement);
    FXmlDocument.SaveToFile(FXmlInfoFile);
  finally
    FXmlDocument := nil;
  end;
end;

function TReportBase.GetNewOutputFileName: string;
begin
  Result := SupportManager.ConfigInfo.AuditPath + FProjectName
      + Format('-第%d期', [FProjectData.ProjProperties.PhaseCount]);
  if FProjectData.ProjProperties.AuditCompany <> '' then
    Result := Result + '-' + FProjectData.ProjProperties.AuditCompany;
  Result := Result + Format('-%s-', [FProjectData.ProjProperties.AuditStatusStr])
      + FormatDateTime('yyyy-mm-dd', Date) + FFileType;
end;

procedure TReportBase.OpenProject;
begin
  FProjectData.SimpleOpen(FFileName);
end;

procedure TReportBase.SaveProject;
begin
  FProjectData.SimpleSaveAs(FTempFolder + '\' + ExtractSimpleFileName(FFileName));
end;

procedure TReportBase.SaveInfoToXmlDocument(AXmlNode: IXMLNode);
begin
  SaveProjectInfo(AXmlNode);
  SaveTenderProperty(AXmlNode);
end;

procedure TReportBase.SaveProjectInfo(AXmlNode: IXMLNode);
var
  vInfo: IXMLNode;
  InfoRec: TsdDataRecord;
begin
  vInfo := AXmlNode.AddChild('ProjectInfo');
  InfoRec := ProjectManager.sddProjectsInfo.FindKey('idxID', FProjectID);
  vInfo.Attributes['ProjectName'] := FProjectName;
  vInfo.Attributes['NeedUpdate'] := FNeedUpdate;
  vInfo.Attributes['DealTotalPrice'] := InfoRec.ValueByName('DealTotalPrice').AsFloat;
  vInfo.Attributes['PhaseTotalPrice'] := InfoRec.ValueByName('PhaseTotalPrice').AsFloat;
  vInfo.Attributes['EndDealTotalPrice'] := InfoRec.ValueByName('EndDealTotalPrice').AsFloat;
  vInfo.Attributes['EndChangeTotalPrice'] := InfoRec.ValueByName('EndChangeTotalPrice').AsFloat;
  vInfo.Attributes['EndTotalPrice'] := InfoRec.ValueByName('EndTotalPrice').AsFloat;
  vInfo.Attributes['PreTotalPrice'] := InfoRec.ValueByName('PreTotalPrice').AsFloat;
  vInfo.Attributes['PhasePay'] := InfoRec.ValueByName('PhasePay').AsFloat;
  vInfo.Attributes['Deal_BGLTotalPrice'] := InfoRec.ValueByName('Deal_BGLTotalPrice').AsFloat;
  vInfo.Attributes['PhaseCount'] := FProjectData.ProjProperties.PhaseCount;
  vInfo.Attributes['AuditStatus'] := FProjectData.ProjProperties.AuditStatus;
  vInfo.Attributes['FileName'] := ExtractSimpleFileName(FFileName);

  if G_IsCloud then
  begin
    vInfo.Attributes['WebID'] := InfoRec.ValueByName('WebID').AsInteger;
    vInfo.Attributes['WebOwnerID'] := InfoRec.ValueByName('WebOwnerID').AsInteger;
    vInfo.Attributes['WebAuthorID'] := InfoRec.ValueByName('WebAuthorID').AsInteger;
  end;
end;

procedure TReportBase.SaveTenderProperty(AXmlNode: IXMLNode);
var
  vProp: IXMLNode;
begin
  vProp := AXmlNode.AddChild('TenderProperty');
end;

{ TReplyProject }

procedure TReplyProject.Execute;
begin
  FFileType := '.arf';
  FProjectData.LockedDataForReply;
  inherited;
end;

procedure TReplyProject.ExportTo(AFileName: string);
begin
  FProjectData.LockedDataForReply;
  inherited;
end;

procedure TReplyProject.OpenProject;
begin
  FProjectData.OpenForReply(FFileName);
end;

procedure TReplyProject.SaveProject;
begin
  FProjectData.SaveForReply(FTempFolder + '\' + ExtractSimpleFileName(FFileName));
end;

{ TReceiveProject }

function TReceiveProject.CheckOpen: Boolean;
begin
  Result := OpenProjectManager.ProjectIndex(FCurNode.ID) <> -1;
  if Result then
    FMessageID := 1;
end;

constructor TReceiveProject.Create(ASelect: TsdIDTreeNode);
begin
  FSelect := ASelect;
  FTempFolder := GenerateTempFolder(GetTempFilePath);
  FStageCount := -1;
  FReply := False;
  FLock := False;
  FMessageID := 0;
end;

destructor TReceiveProject.Destroy;
begin
  DeleteFileOrFolder(FTempFolder);
  inherited;
end;

procedure TReceiveProject.GetCurNode;
var
  I: Integer;
begin
  if FSelect.Rec.ValueByName('Type').AsInteger = 0 then
    FCurNode := FSelect.FirstChild
  else
    FCurNode := FSelect.Parent.FirstChild;
  while Assigned(FCurNode) and (FCurNode.Rec.ValueByName('Name').AsString <> FProjectName) do
    FCurNode := FCurNode.NextSibling;
  if not Assigned(FCurNode) then
    FCurNode := GetNewTender
  else if CheckOpen then Abort;
end;

function TReceiveProject.GetNewTender: TsdIDTreeNode;
begin
  if FSelect.Rec.ValueByName('Type').AsInteger = 0 then
    Result := ProjectManager.ProjectsTree.Add(FSelect.ID, -1)
  else
    Result := ProjectManager.ProjectsTree.Add(FSelect.ParentID, FSelect.NextSiblingID);
  Result.Rec.ValueByName('Name').AsString := FProjectName;
  Result.Rec.ValueByName('Type').AsInteger := 1;
  Result.Rec.ValueByName('FileName').AsString := ExtractSimpleFileName(GetNewGUIDFileName(GetMyProjectsFilePath));
end;

procedure TReceiveProject.LoadInfoFromXmlDocument(AXmlNode: IXMLNode);
var
  ChildNodes: IXMLNodeList;
  vProjInfo: IXMLNode;
begin
  ChildNodes := AXmlNode.ChildNodes;
  vProjInfo := ChildNodes.FindNode('ProjectInfo');
  FProjectName := vProjInfo.Attributes['ProjectName'];
  FFileName := vProjInfo.Attributes['FileName'];
  GetCurNode;
  // 备份旧文件
  // 备份须放在这里的原因是，需要打开xml文件后，才能确认是否要备份文件以及应备份哪个文件
  // 但是又不能再导入xml数据以后，导入xml数据后，项目的属性会变掉
  ProjectManager.RestoreTender(FCurNode.ID);
  LoadProjectInfo(ChildNodes.FindNode('ProjectInfo'));
  LoadTenderProperty(ChildNodes.FindNode('TenderProperty'));
end;

procedure TReceiveProject.LoadProjectInfo(AXmlNode: IXMLNode);

  function GetCurAuditStatus: Integer;
  begin
    if FStageCount > 0 then
      FLostStageCount := FStageCount - (AXmlNode.Attributes['AuditStatus'] + 1) - 1;
    if FNeedUpdate then
    begin
      if FReply then
        Result := -1
      else if FStageCount > 0 then
        Result := FStageCount - 1
      else
        Result := AXmlNode.Attributes['AuditStatus'] + 1
    end
    else
      Result := AXmlNode.Attributes['AuditStatus'];
  end;

begin
  if not FLock then
    FNeedUpdate := AXmlNode.Attributes['NeedUpdate'];

  FCurNode.Rec.ValueByName('DealTotalPrice').AsFloat := AXmlNode.Attributes['DealTotalPrice'];
  FCurNode.Rec.ValueByName('PhaseTotalPrice').AsFloat := AXmlNode.Attributes['PhaseTotalPrice'];
  FCurNode.Rec.ValueByName('EndDealTotalPrice').AsFloat := AXmlNode.Attributes['EndDealTotalPrice'];
  FCurNode.Rec.ValueByName('EndChangeTotalPrice').AsFloat := AXmlNode.Attributes['EndChangeTotalPrice'];
  FCurNode.Rec.ValueByName('EndTotalPrice').AsFloat := AXmlNode.Attributes['EndTotalPrice'];
  FCurNode.Rec.ValueByName('PreTotalPrice').AsFloat := AXmlNode.Attributes['PreTotalPrice'];
  FCurNode.Rec.ValueByName('PhasePay').AsFloat := AXmlNode.Attributes['PhasePay'];
  if AXmlNode.HasAttribute('Deal_BGLTotalPrice') then
    FCurNode.Rec.ValueByName('Deal_BGLTotalPrice').AsFloat := AXmlNode.Attributes['Deal_BGLTotalPrice'];
  FCurNode.Rec.ValueByName('PhaseCount').AsInteger := AXmlNode.Attributes['PhaseCount'];
  FCurNode.Rec.ValueByName('AuditStatus').AsInteger := GetCurAuditStatus;
  FCurNode.Rec.ValueByName('CreateDate').AsString := FormatDateTime('yyyy-mm-dd', Date);

  if G_IsCloud then
  begin
    FCurNode.Rec.ValueByName('WebID').AsInteger := AXmlNode.Attributes['WebID'];
    FCurNode.Rec.ValueByName('WebOwnerID').AsInteger := AXmlNode.Attributes['WebOwnerID'];
    FCurNode.Rec.ValueByName('WebAuthorID').AsInteger := AXmlNode.Attributes['WebAuthorID'];
  end;
end;

procedure TReceiveProject.LoadTenderProperty(AXmlNode: IXMLNode);
begin
  // ToDo
end;

procedure TReceiveProject.LoadXmlInfo;
var
  FXmlDocument: IXMLDocument;
  XmlNode: IXMLNode;
  FRootList: IXMLNodeList;
begin
  FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  try
    FXmlDocument.LoadFromFile(FTempFolder + '\Info.xml');
    FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAutoPrefix,doNamespaceDecl];
    XmlNode := FXmlDocument.DocumentElement;
    LoadInfoFromXmlDocument(XmlNode);
  finally
    FRootList := nil;
    FXmlDocument := nil;
  end;
end;

function TReceiveProject.Receive(const AFileName: string): TsdIDTreeNode;
begin
  FFileType := ExtractFileExt(AFileName);
  UnZipFile(AFileName, FTempFolder);
  LoadXmlInfo;
  CopyFileOrFolder(FTempFolder + '\' + FFileName,
    GetMyProjectsFilePath + FCurNode.Rec.ValueByName('FileName').AsString);
  UpdateData(GetMyProjectsFilePath + FCurNode.Rec.ValueByName('FileName').AsString);
  Result := FCurNode;
end;

procedure TReceiveProject.ReceiveForLost(const AFileName: string;
  AStageCount: Integer; AReply: Boolean);
begin
  FStageCount := AStageCount;
  FReply := AReply;
  Receive(AFileName);
end;

procedure TReceiveProject.UpdateData(const AFileName: string);
var
  I: Integer;
begin
  if FNeedUpdate then
  begin
    FProjectData := TProjectData.Create;
    try
      FProjectData.OpenForReceive(AFileName);
      FProjectData.UpdateDataForReceive;
      for I := 1 to FLostStageCount do
      begin
        FProjectData.LockedDataForSubmit;
        FProjectData.UpdateDataForReceive;
      end;
      if FReply then
        FProjectData.LockedDataForReply;
      FProjectData.SaveForReceive(AFileName);
    finally
      FProjectData.Free;
    end;
  end;
end;

{ TTenderExport }

constructor TTenderExport.Create(ARec: TsdDataRecord;
  const AFileName: string; AIngore: Boolean = False);
begin
  FIngore := AIngore;
  FProjectName := ARec.ValueByName('Name').AsString;
  FFileName := GetMyProjectsFilePath +  ARec.ValueByName('FileName').AsString;
  if not G_IsCloud then
    FAttachmentPath := GetMyProjectsFilePath + 'Attachment\' + ARec.ValueByName('FileName').AsString + '\';
  FProjectID := ARec.ValueByName('ID').AsInteger;
  FTempFolder := GenerateTempFolder(GetTempFilePath);
  FXmlInfoFile := FTempFolder + '\Info.xml';
  FResultFile := AFileName;
end;

destructor TTenderExport.Destroy;
begin
  DeleteFileOrFolder(FTempFolder);
  inherited;
end;

procedure TTenderExport.Execute(AExportAttachment: Boolean);
var
  sFileName: string;
begin
  ExportXmlInfo;
  sFileName := ExtractSimpleFileName(FResultFile);
  CopyFileOrFolder(FFileName, FTempFolder + '\' + sFileName);

  if not G_IsCloud then   // 云版不导出附件,云版的运作机制是从网上下载
    if AExportAttachment then
      CopyFolder(FAttachmentPath, FTempFolder + '\' + sFileName + '[附件包]');

  if FIngore or (not FileExists(FResultFile) or
      QuestMessage(Format('存在同名文件“%s”，是否替换？', [ExtractFileName(FResultFile)]))) then
    ZipFolder(FTempFolder, FResultFile);
end;

procedure TTenderExport.ExportXmlInfo;
var
  FXmlDocument: IXMLDocument;
begin
  FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  try
    FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAttrNull,doAutoPrefix,doNamespaceDecl];
    FXmlDocument.Active := True;
    FXmlDocument.Encoding := 'GB2312';
    FXmlDocument.AddChild('ProjectMangerInfo');
    SaveInfoToXmlDocument(FXmlDocument.DocumentElement);
    FXmlDocument.SaveToFile(FXmlInfoFile);
  finally
    FXmlDocument := nil;
  end;
end;

procedure TTenderExport.SaveInfoToXmlDocument(AXmlNode: IXMLNode);
begin
  SaveProjectInfo(AXmlNode);
  SaveTenderProperty(AXmlNode);
end;

procedure TTenderExport.SaveProjectInfo(AXmlNode: IXMLNode);
var
  vInfo: IXMLNode;
  InfoRec: TsdDataRecord;
begin
  vInfo := AXmlNode.AddChild('ProjectInfo');
  InfoRec := ProjectManager.sddProjectsInfo.FindKey('idxID', FProjectID);
  vInfo.Attributes['ProjectName'] := FProjectName;
  vInfo.Attributes['DealTotalPrice'] := InfoRec.ValueByName('DealTotalPrice').AsFloat;
  vInfo.Attributes['PhaseTotalPrice'] := InfoRec.ValueByName('PhaseTotalPrice').AsFloat;
  vInfo.Attributes['EndDealTotalPrice'] := InfoRec.ValueByName('EndDealTotalPrice').AsFloat;
  vInfo.Attributes['EndChangeTotalPrice'] := InfoRec.ValueByName('EndChangeTotalPrice').AsFloat;
  vInfo.Attributes['EndTotalPrice'] := InfoRec.ValueByName('EndTotalPrice').AsFloat;
  vInfo.Attributes['PreTotalPrice'] := InfoRec.ValueByName('PreTotalPrice').AsFloat;
  vInfo.Attributes['PhasePay'] := InfoRec.ValueByName('PhasePay').AsFloat;
  vInfo.Attributes['Deal_BGLTotalPrice'] := InfoRec.ValueByName('Deal_BGLTotalPrice').AsFloat;  
  vInfo.Attributes['PhaseCount'] := InfoRec.ValueByName('PhaseCount').AsInteger;
  vInfo.Attributes['AuditStatus'] := InfoRec.ValueByName('AuditStatus').AsInteger;
  vInfo.Attributes['FileName'] := ExtractSimpleFileName(FResultFile);

  if G_IsCloud then
  begin
    vInfo.Attributes['WebID'] := InfoRec.ValueByName('WebID').AsInteger;
    vInfo.Attributes['WebOwnerID'] := InfoRec.ValueByName('WebOwnerID').AsInteger;
    vInfo.Attributes['WebAuthorID'] := InfoRec.ValueByName('WebAuthorID').AsInteger;
  end;
end;

procedure TTenderExport.SaveTenderProperty(AXmlNode: IXMLNode);
var
  vProp: IXMLNode;
begin
  vProp := AXmlNode.AddChild('TenderProperty');
end;

{ TProjectExport }

constructor TProjectExport.Create(ANode: TsdIDTreeNode; const AFileName: string; AExportAttachment: Boolean);
begin
  FTempFolder := GenerateTempFolder(GetTempFilePath);
  FExportNode := ANode;
  FResultFile := AFileName;
  FExportAttachment := AExportAttachment;
  FXmlInfoFile := FTempFolder + '\TreeInfo.xml';
end;

destructor TProjectExport.Destroy;
begin
  DeleteFileOrFolder(FTempFolder);
  inherited;
end;

procedure TProjectExport.Execute;
begin
  ExportXmlInfo;
  ExportNode(FExportNode.FirstChild, FTempFolder + '\');
  if not FileExists(FResultFile) or QuestMessage('存在同名文件，是否替换？') then
    ZipFolder(FTempFolder, FResultFile);
end;

procedure TProjectExport.ExportNode(ANode: TsdIDTreeNode;
  const AExportPath: string);
var
  ACurPath: string;
begin
  if not Assigned(ANode) then Exit;
  if ANode.HasChildren or (ANode.Rec.ValueByName('Type').AsInteger = 0) then
  begin
    ACurPath := AExportPath + ANode.Rec.ValueByName('Name').AsString + '\';
    CreateDirectoryInDeep(ACurPath);
    ExportNode(ANode.FirstChild, ACurPath);
  end
  else
    ExportTender(ANode, AExportPath);
  ExportNode(ANode.NextSibling, AExportPath);
end;

procedure TProjectExport.ExportTender(ANode: TsdIDTreeNode;
  const AExportPath: string);
begin
  FTenderExportor := TTenderExport.Create(ANode.Rec,
    AExportPath + ANode.Rec.ValueByName('Name').AsString, True);
  try
    FTenderExportor.Execute(FExportAttachment);
  finally
    FTenderExportor.Free;
  end;
end;

procedure TProjectExport.ExportXmlInfo;
var
  FXmlDocument: IXMLDocument;
begin
  FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  try
    FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAttrNull,doAutoPrefix,doNamespaceDecl];
    FXmlDocument.Active := True;
    FXmlDocument.Encoding := 'GB2312';
    FXmlDocument.AddChild('ProjectTreeInfo');
    SaveTreeNodeInfo(FXmlDocument.DocumentElement, FExportNode.FirstChild);
    FXmlDocument.SaveToFile(FXmlInfoFile);
  finally
    FXmlDocument := nil;
  end;
end;

procedure TProjectExport.SaveTreeNodeInfo(AXmlNode: IXMLNode;
  ANode: TsdIDTreeNode);
var
  CurNode: IXMLNode;
begin
  if not Assigned(ANode) then Exit;
  CurNode := AXmlNode.AddChild('TreeNode');
  CurNode.Attributes['Name'] := ANode.Rec.ValueByName('Name').AsString;
  CurNode.Attributes['Type'] := ANode.Rec.ValueByName('Type').AsInteger;
  if ANode.HasChildren then
    SaveTreeNodeInfo(CurNode, ANode.FirstChild);
  SaveTreeNodeInfo(AXmlNode, ANode.NextSibling);
end;

{ TProjectImport }

function TProjectImport.AddNewNode(AParentID, ANextID: Integer;
  const ANodeName: string): TsdIDTreeNode;
begin
  with ProjectManager.ProjectsTree do
    Result := Add(AParentID, ANextID);
  Result.Rec.ValueByName('Name').AsString := ANodeName;
  Result.Rec.ValueByName('Type').AsInteger := 0;
end;

constructor TProjectImport.Create(ASelect: TsdIDTreeNode;
  const AProjectName, AFileName: string);
begin
  FSelect := ASelect;
  FProjectName := AProjectName;
  FFileName := AFileName;
  FTempFolder := GenerateTempFolder(GetTempFilePath);
end;

destructor TProjectImport.Destroy;
begin
  DeleteFileOrFolder(FTempFolder);
  inherited;
end;

procedure TProjectImport.Execute;
begin
  UnZipFile(FFileName, FTempFolder);
  // ID 188 需求变更，一直作为后兄弟节点导入
  {if FSelect.Rec.ValueByName('Type').AsInteger = 1 then
    FNew := AddNewNode(FSelect.ParentID, FSelect.NextSiblingID, FProjectName)
  else
    FNew := AddNewNode(FSelect.ID, -1, FProjectName);}
  FNew := AddNewNode(FSelect.ParentID, FSelect.NextSiblingID, FProjectName);
  LoadChildrenFormXml;
end;

procedure TProjectImport.LoadChild(AXmlNode: IXMLNode;
  AParent: TsdIDTreeNode; const APath: string);
var
  I, iType: Integer;
  XmlNode: IXMLNode;
  stnNewNode: TsdIDTreeNode;
begin
  for I := 0 to AXmlNode.ChildNodes.Count - 1 do
  begin
    XmlNode := AXmlNode.ChildNodes.Get(I);
    iType := XmlNode.Attributes['Type'];
    if iType = 0 then
    begin
      stnNewNode := AddNewNode(AParent.ID, -1, XmlNode.Attributes['Name']);
      if XmlNode.HasChildNodes then
        LoadChild(XmlNode, stnNewNode, APath + XmlNode.Attributes['Name'] + '\');
    end
    else
      LoadTender(XmlNode, AParent, APath);
  end;
end;

procedure TProjectImport.LoadChildrenFormXml;
var
  FXmlDocument: IXMLDocument;
  XmlNode: IXMLNode;
  FRootList: IXMLNodeList;
begin
  FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  try
    FXmlDocument.LoadFromFile(FTempFolder + '\TreeInfo.xml');
    FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAutoPrefix,doNamespaceDecl];
    XmlNode := FXmlDocument.DocumentElement;
    LoadChild(XmlNode, FNew, FTempFolder + '\');
  finally
    FRootList := nil;
    FXmlDocument := nil;
  end;
end;

procedure TProjectImport.LoadTender(AXmlNode: IXMLNode;
  AParent: TsdIDTreeNode; const APath: string);
var
  TenderImportor: TTenderImport;
begin
  TenderImportor := TTenderImport.Create(AParent,
    AXmlNode.Attributes['Name'], APath + AXmlNode.Attributes['Name']);
  try
    TenderImportor.Execute;
  finally
    TenderImportor.Free;
  end;
end;

{ TTenderImport }

constructor TTenderImport.Create(ASelect: TsdIDTreeNode;
  const AProjectName, AFileName: string);
begin
  FSelect := ASelect;
  FProjectName := AProjectName;
  FFileName := AFileName;
  FTempFolder := GenerateTempFolder(GetTempFilePath);
end;

destructor TTenderImport.Destroy;
begin
  DeleteFileOrFolder(FTempFolder);
  inherited;
end;

procedure TTenderImport.Execute;
var
  sFile, sFJ: string;
begin
  UnZipFile(FFileName, FTempFolder);
  GetNewNode;
  LoadXmlInfo;
  sFile := FTempFolder + '\' + FTenderFileName;
  sFJ := sFile + '[附件包]';
  CopyFileOrFolder(sFile, GetMyProjectsFilePath + FNewNode.Rec.ValueByName('FileName').AsString);
  if not G_IsCloud then          // 云版附件从服务器获取，不导入。
    if DirectoryExists(sFJ) then
      CopyFolder(sFJ, GetMyProjectsFilePath + 'Attachment\' + FNewNode.Rec.ValueByName('FileName').AsString);
end;

procedure TTenderImport.GetNewNode;
begin
  if FSelect.Rec.ValueByName('Type').AsInteger = 1 then
    FNewNode := ProjectManager.ProjectsTree.Add(FSelect.ParentID, FSelect.NextSiblingID)
  else
    FNewNode := ProjectManager.ProjectsTree.Add(FSelect.ID, -1);
  FNewNode.Rec.ValueByName('Name').AsString := FProjectName;
  FNewNode.Rec.ValueByName('Type').AsInteger := 1;
  FNewNode.Rec.ValueByName('FileName').AsString := ExtractSimpleFileName(GetNewGUIDFileName(GetMyProjectsFilePath));
end;

procedure TTenderImport.ImportToSelect;
begin
  UnZipFile(FFileName, FTempFolder);
  FNewNode := FSelect;
  LoadXmlInfo;
  CopyFileOrFolder(FTempFolder + '\' + FTenderFileName,
    GetMyProjectsFilePath + FNewNode.Rec.ValueByName('FileName').AsString);
end;

procedure TTenderImport.LoadInfoFromXmlDocument(AXmlNode: IXMLNode);
var
  ChildNodes: IXMLNodeList;
begin
  ChildNodes := AXmlNode.ChildNodes;
  LoadProjectInfo(ChildNodes.FindNode('ProjectInfo'));
  LoadTenderProperty(ChildNodes.FindNode('TenderProperty'));
end;

procedure TTenderImport.LoadProjectInfo(AXmlNode: IXMLNode);
begin
  FTenderFileName := AXmlNode.Attributes['FileName'];
  FNewNode.Rec.ValueByName('DealTotalPrice').AsFloat := AXmlNode.Attributes['DealTotalPrice'];
  FNewNode.Rec.ValueByName('PhaseTotalPrice').AsFloat := AXmlNode.Attributes['PhaseTotalPrice'];
  FNewNode.Rec.ValueByName('EndDealTotalPrice').AsFloat := AXmlNode.Attributes['EndDealTotalPrice'];
  FNewNode.Rec.ValueByName('EndChangeTotalPrice').AsFloat := AXmlNode.Attributes['EndChangeTotalPrice'];
  FNewNode.Rec.ValueByName('EndTotalPrice').AsFloat := AXmlNode.Attributes['EndTotalPrice'];
  FNewNode.Rec.ValueByName('PreTotalPrice').AsFloat := AXmlNode.Attributes['PreTotalPrice'];
  FNewNode.Rec.ValueByName('PhasePay').AsFloat := AXmlNode.Attributes['PhasePay'];
  if AXmlNode.HasAttribute('Deal_BGLTotalPrice') then
    FNewNode.Rec.ValueByName('Deal_BGLTotalPrice').AsFloat := AXmlNode.Attributes['Deal_BGLTotalPrice'];
  FNewNode.Rec.ValueByName('PhaseCount').AsInteger := AXmlNode.Attributes['PhaseCount'];
  FNewNode.Rec.ValueByName('AuditStatus').AsInteger := AXmlNode.Attributes['AuditStatus'];
  FNewNode.Rec.ValueByName('CreateDate').AsString := FormatDateTime('yyyy-mm-dd', Date);

  if G_IsCloud then
  begin
    FNewNode.Rec.ValueByName('WebID').AsInteger := AXmlNode.Attributes['WebID'];
    FNewNode.Rec.ValueByName('WebOwnerID').AsInteger := AXmlNode.Attributes['WebOwnerID'];
    FNewNode.Rec.ValueByName('WebAuthorID').AsInteger := AXmlNode.Attributes['WebAuthorID'];
  end;
end;

procedure TTenderImport.LoadTenderProperty(AXmlNode: IXMLNode);
begin
  // TODO
end;

procedure TTenderImport.LoadXmlInfo;
var
  FXmlDocument: IXMLDocument;
  XmlNode: IXMLNode;
  FRootList: IXMLNodeList;
begin
  FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  try
    FXmlDocument.LoadFromFile(FTempFolder + '\Info.xml');
    FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAutoPrefix,doNamespaceDecl];
    XmlNode := FXmlDocument.DocumentElement;
    LoadInfoFromXmlDocument(XmlNode);
  finally
    FRootList := nil;
    FXmlDocument := nil;
  end;
end;

{ TTenderFileChecker }

constructor TTenderFileChecker.Create(AFileName: string);
begin
  FFileName := AFileName;
  FTempFolder := GenerateTempFolder(GetTempFilePath);
  UnZipFile(FFileName, FTempFolder);
  LoadInfo;
end;

destructor TTenderFileChecker.Destroy;
begin
  DeleteFileOrFolder(FTempFolder);
  inherited;
end;

procedure TTenderFileChecker.LoadInfo;
begin
  LoadInfoFromXml;
end;

procedure TTenderFileChecker.LoadInfoFromXml;
var
  FXmlDocument: IXMLDocument;
  XmlNode: IXMLNode;
  FRootList: IXMLNodeList;
begin
  FXmlDocument := TXMLDocument.Create(nil) as IXMLDocument;
  try
    FXmlDocument.LoadFromFile(FTempFolder + '\Info.xml');
    FXmlDocument.Options := [doNodeAutoCreate,doNodeAutoIndent,doAutoPrefix,doNamespaceDecl];
    XmlNode := FXmlDocument.DocumentElement;
    LoadInfoFromXmlDocument(XmlNode);
  finally
    FRootList := nil;
    FXmlDocument := nil;
  end;
end;

procedure TTenderFileChecker.LoadInfoFromXmlDocument(AXmlNode: IXMLNode);
var
  ChildNodes: IXMLNodeList;
begin
  ChildNodes := AXmlNode.ChildNodes;
  LoadProjectInfo(ChildNodes.FindNode('ProjectInfo'));
end;

procedure TTenderFileChecker.LoadProjectInfo(AXmlNode: IXMLNode);
begin
  FProjectName := AXmlNode.Attributes['ProjectName'];
  FPhaseCount := AXmlNode.Attributes['PhaseCount'];
  FAuditStatus := AXmlNode.Attributes['AuditStatus'];
end;

end.