Unit1.dfm

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