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