项目管理无项目时，获取NewID有错

DataModules/ProjectManagerDm.pas

@@ -408,8 +408,13 @@ function TProjectManagerData.NewID: Integer;
 var
   idxID: TsdIndex;
 begin
-  idxID := sddProjectsInfo.FindIndex('idxID');
-  Result := idxID.Records[idxID.RecordCount - 1].ValueByName('ID').AsInteger + 1;
+  if sddProjectsInfo.RecordCount > 0 then
+  begin
+    idxID := sddProjectsInfo.FindIndex('idxID');
+    Result := idxID.Records[idxID.RecordCount - 1].ValueByName('ID').AsInteger + 1;
+  end
+  else
+    Result := 1;
 end;
 
 procedure TProjectManagerData.RefreshSeedID;

TenderPartition/tpSelectTendersFrm.dfm

@@ -84,7 +84,7 @@ object SelectTendersForm: TSelectTendersForm
         Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
         OptionsEx = []
         ColCount = 3
-        RowCount = 2
+        RowCount = 1
         ShowGridLine = False
         DefaultColWidth = 35
         DefaultFixedColWidth = 25
@@ -228,7 +228,7 @@ object SelectTendersForm: TSelectTendersForm
     ParentFieldName = 'ParentID'
     NextSiblingFieldName = 'NextSiblingID'
     TopLevelBold = True
-    Left = 500
-    Top = 193
+    Left = 100
+    Top = 177
   end
 end