Unit1.dfm

   1 object DataModule1: TDataModule1
   2   OldCreateOrder = False
   3   Height = 231
   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       Origin = 'PASSWORD'
 121       Required = True
 122       Size = 80
 123     end
 124   end
 125   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 126     Provider = 'Forms'
 127     Left = 48
 128     Top = 24
 129   end
 130   object DataSource1: TDataSource
 131     DataSet = FDTable1
 132     Left = 64
 133     Top = 152
 134   end
 135   object FDTable4: TFDTable
 136     Connection = FDConnection1
 137     UpdateOptions.UpdateTableName = 'req'
 138     TableName = 'req'
 139     Left = 224
 140     Top = 88
 141     object FDTable4ID: TIntegerField
 142       FieldName = 'ID'
 143       Origin = 'ID'
 144       Required = True
 145     end
 146     object FDTable4DBNAME: TIntegerField
 147       FieldName = 'DBNAME'
 148       Origin = 'DBNAME'
 149     end
 150     object FDTable4POSNUM: TIntegerField
 151       FieldName = 'POSNUM'
 152       Origin = 'POSNUM'
 153     end
 154     object FDTable4DATE: TDateField
 155       FieldName = 'DATE'
 156       Origin = 'DATE'
 157       Required = True
 158     end
 159     object FDTable4REQUEST: TWideMemoField
 160       FieldName = 'REQUEST'
 161       Origin = 'REQUEST'
 162       BlobType = ftWideMemo
 163     end
 164   end
 165   object FDTable5: TFDTable
 166     IndexFieldNames = 'ID'
 167     Connection = FDConnection1
 168     UpdateOptions.UpdateTableName = 'images'
 169     TableName = 'images'
 170     Left = 224
 171     Top = 144
 172     object FDTable5ID: TIntegerField
 173       FieldName = 'ID'
 174       Origin = 'ID'
 175       Required = True
 176     end
 177     object FDTable5NAME: TWideStringField
 178       FieldName = 'NAME'
 179       Origin = 'NAME'
 180       FixedChar = True
 181     end
 182     object FDTable5SOURCE: TBlobField
 183       FieldName = 'SOURCE'
 184       Origin = 'SOURCE'
 185     end
 186   end
 187   object FDQuery1: TFDQuery
 188     Connection = FDConnection1
 189     SQL.Strings = (
 190       'select dbnum,number,title,date from article'
 191       ' where number = 1 order by date;')
 192     Left = 160
 193     Top = 144
 194   end
 195 end