Unit1.dfm

   1 object DataModule1: TDataModule1
   2   OldCreateOrder = False
   3   Height = 226
   4   Width = 302
   5   object FDTable1: TFDTable
   6     IndexFieldNames = 'DBNUM'
   7     Connection = FDConnection1
   8     UpdateOptions.UpdateTableName = 'dbname'
   9     TableName = 'dbname'
  10     Left = 32
  11     Top = 88
  12     object FDTable1DBNUM: TIntegerField
  13       FieldName = 'DBNUM'
  14       Origin = 'DBNUM'
  15       Required = True
  16     end
  17     object FDTable1DATABASE: TWideStringField
  18       FieldName = 'DATABASE'
  19       Origin = 'DATABASE'
  20       Required = True
  21       Size = 80
  22     end
  23   end
  24   object FDConnection1: TFDConnection
  25     Params.Strings = (
  26       'ConnectionDef=test_server')
  27     Connected = True
  28     Left = 144
  29     Top = 24
  30   end
  31   object FDTable2: TFDTable
  32     IndexFieldNames = 'DBNUM;NUMBER'
  33     MasterSource = DataSource1
  34     MasterFields = 'DBNUM'
  35     Connection = FDConnection1
  36     FetchOptions.AssignedValues = [evLiveWindowParanoic]
  37     FetchOptions.LiveWindowParanoic = True
  38     UpdateOptions.UpdateTableName = 'article'
  39     TableName = 'article'
  40     Left = 96
  41     Top = 88
  42     object FDTable2DBNUM: TIntegerField
  43       FieldName = 'DBNUM'
  44       Origin = 'DBNUM'
  45       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  46       Required = True
  47     end
  48     object FDTable2NUMBER: TIntegerField
  49       FieldName = 'NUMBER'
  50       Origin = 'NUMBER'
  51       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  52       Required = True
  53     end
  54     object FDTable2TITLE: TWideStringField
  55       FieldName = 'TITLE'
  56       Origin = 'TITLE'
  57       Size = 160
  58     end
  59     object FDTable2NAME: TWideStringField
  60       FieldName = 'NAME'
  61       Origin = 'NAME'
  62       Size = 160
  63     end
  64     object FDTable2COMMENT: TWideMemoField
  65       FieldName = 'COMMENT'
  66       Origin = 'COMMENT'
  67       BlobType = ftWideMemo
  68     end
  69     object FDTable2RAW: TWideMemoField
  70       FieldName = 'RAW'
  71       Origin = 'RAW'
  72       BlobType = ftWideMemo
  73     end
  74     object FDTable2DATE: TDateField
  75       FieldName = 'DATE'
  76       Origin = 'DATE'
  77     end
  78     object FDTable2PASS: TWideStringField
  79       FieldName = 'PASS'
  80       Origin = 'PASS'
  81       FixedChar = True
  82       Size = 40
  83     end
  84   end
  85   object FDTable3: TFDTable
  86     Connection = FDConnection1
  87     UpdateOptions.UpdateTableName = 'setting'
  88     TableName = 'setting'
  89     Left = 160
  90     Top = 88
  91     object FDTable3TITLE: TWideStringField
  92       FieldName = 'TITLE'
  93       Origin = 'TITLE'
  94       Size = 160
  95     end
  96     object FDTable3TITLE2: TWideStringField
  97       FieldName = 'TITLE2'
  98       Origin = 'TITLE2'
  99       Size = 320
 100     end
 101     object FDTable3mente: TBooleanField
 102       FieldKind = fkCalculated
 103       FieldName = 'mente'
 104       Calculated = True
 105     end
 106     object FDTable3INFO: TIntegerField
 107       FieldName = 'INFO'
 108       Origin = 'INFO'
 109     end
 110     object FDTable3COUNT: TIntegerField
 111       FieldName = 'COUNT'
 112       Origin = 'COUNT'
 113     end
 114     object FDTable3password: TWideStringField
 115       FieldName = 'password'
 116       Size = 100
 117     end
 118     object FDTable3ng: TWideStringField
 119       FieldName = 'ng'
 120       Size = 300
 121     end
 122   end
 123   object DataSource1: TDataSource
 124     DataSet = FDTable1
 125     Left = 32
 126     Top = 152
 127   end
 128   object FDTable4: TFDTable
 129     IndexFieldNames = 'ID'
 130     Connection = FDConnection1
 131     UpdateOptions.UpdateTableName = 'req'
 132     TableName = 'req'
 133     Left = 224
 134     Top = 88
 135     object FDTable4ID: TIntegerField
 136       FieldName = 'ID'
 137       Origin = 'ID'
 138       Required = True
 139     end
 140     object FDTable4DBNAME: TIntegerField
 141       FieldName = 'DBNAME'
 142       Origin = 'DBNAME'
 143     end
 144     object FDTable4POSNUM: TIntegerField
 145       FieldName = 'POSNUM'
 146       Origin = 'POSNUM'
 147     end
 148     object FDTable4DATE: TDateField
 149       FieldName = 'DATE'
 150       Origin = 'DATE'
 151       Required = True
 152     end
 153     object FDTable4REQUEST: TWideMemoField
 154       FieldName = 'REQUEST'
 155       Origin = 'REQUEST'
 156       BlobType = ftWideMemo
 157     end
 158   end
 159   object FDQuery1: TFDQuery
 160     Connection = FDConnection1
 161     SQL.Strings = (
 162       'select dbnum,number,title from article'
 163       ' where number = 1;')
 164     Left = 136
 165     Top = 152
 166   end
 167   object FDTable5: TFDTable
 168     Active = True
 169     Connection = FDConnection1
 170     UpdateOptions.UpdateTableName = 'IMAGES'
 171     TableName = 'IMAGES'
 172     Left = 224
 173     Top = 152
 174   end
 175 end