中间计量，草图，从String(255)扩容至Memo(60535)

DataModules/ZJJLDm.dfm

@@ -43,9 +43,10 @@ object ZJJLData: TZJJLData
       FieldName = 'FormulaMemo'
       BlobType = ftMemo
     end
-    object cdsZJJLRelaFile: TWideStringField
+    object cdsZJJLRelaFile: TMemoField
       FieldName = 'RelaFile'
-      Size = 200
+      BlobType = ftMemo
+      Size = 60535
     end
     object cdsZJJLType: TIntegerField
       FieldName = 'Type'
@@ -79,9 +80,10 @@ object ZJJLData: TZJJLData
       FieldName = 'FormulaMemo'
       BlobType = ftMemo
     end
-    object cdsZJJLViewRelaFile: TWideStringField
+    object cdsZJJLViewRelaFile: TMemoField
       FieldName = 'RelaFile'
-      Size = 200
+      BlobType = ftMemo
+      Size = 60535
     end
     object cdsZJJLViewType: TIntegerField
       FieldName = 'Type'

DataModules/ZJJLDm.pas

@@ -39,7 +39,6 @@ type
     cdsZJJLCertificateCode: TWideStringField;
     cdsZJJLBillsCode: TWideStringField;
     cdsZJJLFormulaMemo: TMemoField;
-    cdsZJJLRelaFile: TWideStringField;
     cdsZJJLType: TIntegerField;
 
     cdsZJJLView: TClientDataSet;
@@ -49,8 +48,9 @@ type
     cdsZJJLViewCertificateCode: TWideStringField;
     cdsZJJLViewBillsCode: TWideStringField;
     cdsZJJLViewFormulaMemo: TMemoField;
-    cdsZJJLViewRelaFile: TWideStringField;
     cdsZJJLViewType: TIntegerField;
+    cdsZJJLRelaFile: TMemoField;
+    cdsZJJLViewRelaFile: TMemoField;
     procedure cdsZJJLViewAfterScroll(DataSet: TDataSet);
   private
     FPhaseData: TObject;

Units/Connections.pas

@@ -8,7 +8,7 @@ uses
 const
   ProductName = 'Measure';
   EmptyFileVersion = '1.0.0.0';
-  FileVersion = '1.0.1.5';
+  FileVersion = '1.0.1.6';
   EncryptVersion = 'Auto1.0';
   SAdoConnectStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +
                    'User ID=Admin;Password='''';Persist Security Info=True';

Units/DataBaseTables.pas

@@ -907,7 +907,7 @@ const
     // 计算式说明
     (FieldName: 'FormulaMemo'; FieldType: ftMemo; Size: 60535; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // 草图
-    (FieldName: 'RelaFile'; FieldType: ftString; Size: 255; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
+    (FieldName: 'RelaFile'; FieldType: ftMemo; Size: 60535; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False),
     // Type -- 真的是有病！！！
     (FieldName: 'Type'; FieldType: ftInteger; Size: 0; Precision: 0; NotNull: False; PrimaryKey: False; ForceUpdate: False)
   );