Unit1.dfm

   1 object DataModule1: TDataModule1
   2   OldCreateOrder = False
   3   Height = 231
   4   Width = 302
   5   object FDTable1: TFDTable
   6     Active = True
   7     IndexFieldNames = 'DBNUM'
   8     Connection = FDConnection1
   9     UpdateOptions.UpdateTableName = 'dbname'
  10     TableName = 'dbname'
  11     Left = 32
  12     Top = 88
  13     object FDTable1DBNUM: TIntegerField
  14       FieldName = 'DBNUM'
  15       Origin = 'DBNUM'
  16       Required = True
  17     end
  18     object FDTable1DATABASE: TWideStringField
  19       FieldName = 'DATABASE'
  20       Origin = 'DATABASE'
  21       Required = True
  22       Size = 80
  23     end
  24   end
  25   object FDConnection1: TFDConnection
  26     Params.Strings = (
  27       'Password=admin'
  28       'CharacterSet=utf8'
  29       'User_Name=kainushi'
  30       'Database=kainushi'
  31       'Server=localhost'
  32       'DriverID=MySQL')
  33     Connected = True
  34     Left = 144
  35     Top = 24
  36   end
  37   object FDTable2: TFDTable
  38     Active = True
  39     IndexFieldNames = 'DBNUM;NUMBER'
  40     MasterSource = DataSource1
  41     MasterFields = 'DBNUM'
  42     Connection = FDConnection1
  43     FetchOptions.AssignedValues = [evLiveWindowParanoic]
  44     FetchOptions.LiveWindowParanoic = True
  45     UpdateOptions.UpdateTableName = 'article'
  46     TableName = 'article'
  47     Left = 96
  48     Top = 88
  49     object FDTable2DBNUM: TIntegerField
  50       FieldName = 'DBNUM'
  51       Origin = 'DBNUM'
  52       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  53       Required = True
  54     end
  55     object FDTable2NUMBER: TIntegerField
  56       FieldName = 'NUMBER'
  57       Origin = 'NUMBER'
  58       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  59       Required = True
  60     end
  61     object FDTable2TITLE: TWideStringField
  62       FieldName = 'TITLE'
  63       Origin = 'TITLE'
  64       Size = 160
  65     end
  66     object FDTable2NAME: TWideStringField
  67       FieldName = 'NAME'
  68       Origin = 'NAME'
  69       Size = 160
  70     end
  71     object FDTable2COMMENT: TWideMemoField
  72       FieldName = 'COMMENT'
  73       Origin = 'COMMENT'
  74       BlobType = ftWideMemo
  75     end
  76     object FDTable2RAW: TWideMemoField
  77       FieldName = 'RAW'
  78       Origin = 'RAW'
  79       BlobType = ftWideMemo
  80     end
  81     object FDTable2DATE: TDateField
  82       FieldName = 'DATE'
  83       Origin = 'DATE'
  84     end
  85     object FDTable2PASS: TWideStringField
  86       FieldName = 'PASS'
  87       Origin = 'PASS'
  88       FixedChar = True
  89       Size = 40
  90     end
  91   end
  92   object FDTable3: TFDTable
  93     Active = True
  94     Connection = FDConnection1
  95     UpdateOptions.UpdateTableName = 'setting'
  96     TableName = 'setting'
  97     Left = 160
  98     Top = 88
  99     object FDTable3TITLE: TWideStringField
 100       FieldName = 'TITLE'
 101       Origin = 'TITLE'
 102       Size = 160
 103     end
 104     object FDTable3TITLE2: TWideStringField
 105       FieldName = 'TITLE2'
 106       Origin = 'TITLE2'
 107       Size = 320
 108     end
 109     object FDTable3MENTE: TBooleanField
 110       FieldName = 'MENTE'
 111       Origin = 'MENTE'
 112     end
 113     object FDTable3INFO: TIntegerField
 114       FieldName = 'INFO'
 115       Origin = 'INFO'
 116     end
 117     object FDTable3COUNT: TIntegerField
 118       FieldName = 'COUNT'
 119       Origin = 'COUNT'
 120     end
 121     object FDTable3PASSWORD: TWideStringField
 122       FieldName = 'PASSWORD'
 123       Origin = 'PASSWORD'
 124       Required = True
 125       Size = 80
 126     end
 127     object FDTable3TCNT: TIntegerField
 128       FieldName = 'TCNT'
 129       Origin = 'TCNT'
 130     end
 131   end
 132   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 133     Provider = 'Forms'
 134     Left = 48
 135     Top = 24
 136   end
 137   object DataSource1: TDataSource
 138     DataSet = FDTable1
 139     Left = 64
 140     Top = 152
 141   end
 142   object FDTable4: TFDTable
 143     Active = True
 144     Connection = FDConnection1
 145     UpdateOptions.UpdateTableName = 'req'
 146     TableName = 'req'
 147     Left = 224
 148     Top = 88
 149     object FDTable4ID: TIntegerField
 150       FieldName = 'ID'
 151       Origin = 'ID'
 152       Required = True
 153     end
 154     object FDTable4DBNAME: TIntegerField
 155       FieldName = 'DBNAME'
 156       Origin = 'DBNAME'
 157     end
 158     object FDTable4POSNUM: TIntegerField
 159       FieldName = 'POSNUM'
 160       Origin = 'POSNUM'
 161     end
 162     object FDTable4DATE: TDateField
 163       FieldName = 'DATE'
 164       Origin = 'DATE'
 165       Required = True
 166     end
 167     object FDTable4REQUEST: TWideMemoField
 168       FieldName = 'REQUEST'
 169       Origin = 'REQUEST'
 170       BlobType = ftWideMemo
 171     end
 172   end
 173   object FDTable5: TFDTable
 174     Active = True
 175     IndexFieldNames = 'ID'
 176     Connection = FDConnection1
 177     UpdateOptions.UpdateTableName = 'images'
 178     TableName = 'images'
 179     Left = 224
 180     Top = 144
 181     object FDTable5ID: TIntegerField
 182       FieldName = 'ID'
 183       Origin = 'ID'
 184       Required = True
 185     end
 186     object FDTable5NAME: TWideStringField
 187       FieldName = 'NAME'
 188       Origin = 'NAME'
 189       FixedChar = True
 190       Size = 400
 191     end
 192     object FDTable5SOURCE: TBlobField
 193       FieldName = 'SOURCE'
 194       Origin = 'SOURCE'
 195     end
 196   end
 197   object FDQuery1: TFDQuery
 198     Connection = FDConnection1
 199     SQL.Strings = (
 200       'select dbnum,number,title,date from article'
 201       ' where number = 1 order by date;')
 202     Left = 160
 203     Top = 144
 204   end
 205 end