Unit1.dfm

   1 object DataModule1: TDataModule1
   2   OldCreateOrder = False
   3   Height = 150
   4   Width = 215
   5   object FDTable1: TFDTable
   6     Active = True
   7     IndexFieldNames = 'DATABASE'
   8     Connection = FDConnection1
   9     UpdateOptions.UpdateTableName = 'DBNAME'
  10     TableName = 'DBNAME'
  11     Left = 16
  12     Top = 88
  13     object FDTable1DATABASE: TWideStringField
  14       FieldName = 'DATABASE'
  15       Origin = '"DATABASE"'
  16       Required = True
  17       Size = 160
  18     end
  19   end
  20   object FDConnection1: TFDConnection
  21     Params.Strings = (
  22       'Database=C:\Users\yamat\Documents\GitHub\newbbs\MYDATA.IB'
  23       'CharacterSet=UTF8'
  24       'User_Name=sysdba'
  25       'Password=masterkey'
  26       'OpenMode=OpenOrCreate'
  27       'DriverID=IBLite')
  28     Connected = True
  29     Left = 144
  30     Top = 24
  31   end
  32   object FDTable2: TFDTable
  33     Active = True
  34     IndexFieldNames = 'NUMBER'
  35     Connection = FDConnection1
  36     UpdateOptions.UpdateTableName = 'ARTICLE'
  37     TableName = 'ARTICLE'
  38     Left = 80
  39     Top = 88
  40     object FDTable2NUMBER: TIntegerField
  41       FieldName = 'NUMBER'
  42       Origin = 'NUMBER'
  43       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  44       Required = True
  45     end
  46     object FDTable2TITLE: TStringField
  47       FieldName = 'TITLE'
  48       Origin = 'TITLE'
  49       Size = 40
  50     end
  51     object FDTable2NAME: TStringField
  52       FieldName = 'NAME'
  53       Origin = 'NAME'
  54     end
  55     object FDTable2COMMENT: TWideMemoField
  56       FieldName = 'COMMENT'
  57       Origin = 'COMMENT'
  58       BlobType = ftWideMemo
  59     end
  60     object FDTable2RAW: TWideMemoField
  61       FieldName = 'RAW'
  62       Origin = 'RAW'
  63       BlobType = ftWideMemo
  64     end
  65     object FDTable2DATE: TDateField
  66       FieldName = 'DATE'
  67       Origin = '"DATE"'
  68       Required = True
  69     end
  70   end
  71   object FDTable3: TFDTable
  72     Active = True
  73     Connection = FDConnection1
  74     UpdateOptions.UpdateTableName = 'SETTING'
  75     TableName = 'SETTING'
  76     Left = 144
  77     Top = 88
  78     object FDTable3TITLE: TStringField
  79       FieldName = 'TITLE'
  80       Origin = 'TITLE'
  81     end
  82     object FDTable3TITLE2: TStringField
  83       FieldName = 'TITLE2'
  84       Origin = 'TITLE2'
  85       Size = 80
  86     end
  87     object FDTable3MENTE: TBooleanField
  88       FieldName = 'MENTE'
  89       Origin = 'MENTE'
  90     end
  91   end
  92   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
  93     Provider = 'Forms'
  94     Left = 48
  95     Top = 24
  96   end
  97 end