报表数据，审核人信息，审核意见，字段放长

Units/ProjectData.pas

@@ -1095,7 +1095,7 @@ procedure TProjectData.CopyPhaseData;
 
   procedure SaveCurPhaseCheckers;
   const
-    sCreateSql = 'Create Table P_Checkers (CheckerNo Integer NOT NULL, Name Text(50), Role Text(50), MemoStr Text(255), CheckedDateTime Text(20), Flag Integer,'+
+    sCreateSql = 'Create Table P_Checkers (CheckerNo Integer NOT NULL, Name Text(50), Role Text(50), MemoStr Memo, CheckedDateTime Text(20), Flag Integer,'+
                  '  CONSTRAINT PrimaryKey PRIMARY KEY (CheckerNo, Flag))';
     sInsertSql = 'Insert Into P_Checkers (CheckerNo, Name, Role, MemoStr, CheckedDateTime, Flag) Values (%d, ''%s'', ''%s'', ''%s'', ''%s'', %d)';
   var
@@ -1108,6 +1108,7 @@ procedure TProjectData.CopyPhaseData;
     for i := 0 to Checkers.Count - 1 do
     begin
       vChecker := Checkers.Item[i];
+      //TipMessage(vChecker.Memo + #13#10 + IntToStr(length(vChecker.Memo)));
       sSql := Format(sInsertSql, [vChecker.No, vChecker.Name, vChecker.Role, vChecker.Memo, vChecker.CheckedDateTime, 0]);
       ExecuteSql(sSql);
     end;