ZJJL-RelaFile扩容成Memo(60535)

解决中间计量-计算草图几何尺寸乱码、长度不够的问题

DataModules/ZJJLDm.dfm

@@ -39,9 +39,9 @@ object ZJJLData: TZJJLData
       FieldName = 'BillsCode'
       Size = 50
     end
-    object cdsZJJLFormulaMemo: TWideStringField
+    object cdsZJJLFormulaMemo: TMemoField
       FieldName = 'FormulaMemo'
-      Size = 255
+      BlobType = ftMemo
     end
     object cdsZJJLRelaFile: TWideStringField
       FieldName = 'RelaFile'
@@ -75,9 +75,9 @@ object ZJJLData: TZJJLData
       FieldName = 'BillsCode'
       Size = 50
     end
-    object cdsZJJLViewFormulaMemo: TWideStringField
+    object cdsZJJLViewFormulaMemo: TMemoField
       FieldName = 'FormulaMemo'
-      Size = 255
+      BlobType = ftMemo
     end
     object cdsZJJLViewRelaFile: TWideStringField
       FieldName = 'RelaFile'

DataModules/ZJJLDm.pas

@@ -33,20 +33,21 @@ type
     cdsZJJL: TClientDataSet;
     cdsZJJLID: TIntegerField;
     cdsZJJLBillsID: TIntegerField;
+    cdsZJJLCode: TWideStringField;
+    cdsZJJLCertificateCode: TWideStringField;
+    cdsZJJLBillsCode: TWideStringField;
+    cdsZJJLFormulaMemo: TMemoField;
     cdsZJJLRelaFile: TWideStringField;
-    cdsZJJLFormulaMemo: TWideStringField;
+    cdsZJJLType: TIntegerField;
+
     cdsZJJLView: TClientDataSet;
     cdsZJJLViewID: TIntegerField;
     cdsZJJLViewBillsID: TIntegerField;
-    cdsZJJLViewFormulaMemo: TWideStringField;
-    cdsZJJLViewRelaFile: TWideStringField;
-    cdsZJJLCode: TWideStringField;
-    cdsZJJLCertificateCode: TWideStringField;
-    cdsZJJLBillsCode: TWideStringField;
     cdsZJJLViewCode: TWideStringField;
     cdsZJJLViewCertificateCode: TWideStringField;
     cdsZJJLViewBillsCode: TWideStringField;
-    cdsZJJLType: TIntegerField;
+    cdsZJJLViewFormulaMemo: TMemoField;
+    cdsZJJLViewRelaFile: TWideStringField;
     cdsZJJLViewType: TIntegerField;
     procedure cdsZJJLViewAfterScroll(DataSet: TDataSet);
   private

Units/DataBaseTables.pas

@@ -628,7 +628,7 @@ const
     // 所属项目节
     (FieldName: 'BillsCode'; FieldType: ftString; Size: 50; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // 计算式说明
-    (FieldName: 'FormulaMemo'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False; ForceUpdate: False),
+    (FieldName: 'FormulaMemo'; FieldType: ftMemo; Size: 60535; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // 草图
     (FieldName: 'RelaFile'; FieldType: ftString; Size: 255; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // Type -- 真的是有病！！！