提交遗漏

Forms/UpFileFrame.pas

@@ -322,7 +322,7 @@ procedure TUpFileView.btnOpenClick(Sender: TObject);
 var
   sDownFile: string;
 begin
-  sDownFile := TProjectData(FProjectData).AttachmentInfoData.GetAttachmentPath(Data.WebID);
+  sDownFile := TProjectData(FProjectData).AttachmentInfoData.GetAttachmentPath(Data.ID);
   if (sDownFile <> '') then
   begin
     if FileExists(sDownFile) then

Forms/UpFileManageFrame.pas

@@ -379,7 +379,7 @@ begin
         Selected.Data.Status := ufsNormal;
         sName := ExtractFileName(sFile);
         sPath := ExtractFilePath(sFile);
-        TProjectData(FProjectData).AttachmentInfoData.SaveAttachmentPath(Selected.Data.WebID, sFile);
+        TProjectData(FProjectData).AttachmentInfoData.SaveAttachmentPath(Selected.Data.ID, sFile);
         ShellExecute(Handle, 'open', pchar(sName), nil, pchar(sPath), SW_SHOWNORMAL);
       end
       else

Units/DataBaseTables.pas

@@ -809,8 +809,8 @@ const
 
   SAttachmentInfo = 'AttachmentInfo';
   tdAttachmentInfo: array [0..3] of TScFieldDef =(
-    (FieldName: 'WebID'; FieldType: ftInteger; Size: 0; Precision: 0; NotNull: True; PrimaryKey: True; ForceUpdate: False),
-    (FieldName: 'Mac'; FieldType: ftString; Size: 50; Precision: 0; NotNull: True; PrimaryKey: True; ForceUpdate: False),  
+    (FieldName: 'ID'; FieldType: ftInteger; Size: 0; Precision: 0; NotNull: True; PrimaryKey: True; ForceUpdate: False),
+    (FieldName: 'Mac'; FieldType: ftString; Size: 50; Precision: 0; NotNull: True; PrimaryKey: True; ForceUpdate: False),
     (FieldName: 'UserID'; FieldType: ftInteger; Size: 0; Precision: 0; NotNull: True; PrimaryKey: False; ForceUpdate: False),
     (FieldName: 'Path'; FieldType: ftString; Size: 255; Precision: 0; NotNull: True; PrimaryKey: False; ForceUpdate: False)
   );