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