Unit1.dfm

   1 object DataModule1: TDataModule1
   2   OldCreateOrder = False
   3   Height = 230
   4   Width = 302
   5   object FDTable1: TFDTable
   6     Active = True
   7     IndexFieldNames = 'DBNUM'
   8     Connection = FDConnection1
   9     UpdateOptions.UpdateTableName = 'DBNAME'
  10     TableName = 'DBNAME'
  11     Left = 32
  12     Top = 88
  13     object FDTable1DBNUM: TIntegerField
  14       FieldName = 'DBNUM'
  15       Origin = 'DBNUM'
  16       Required = True
  17     end
  18     object FDTable1DATABASE: TWideStringField
  19       FieldName = 'DATABASE'
  20       Origin = '"DATABASE"'
  21       Required = True
  22       Size = 80
  23     end
  24   end
  25   object FDConnection1: TFDConnection
  26     Params.Strings = (
  27       'CharacterSet=UTF8'
  28       'OpenMode=OpenOrCreate'
  29       'Database=C:\Users\yamat\Documents\GitHub\newbbs\MYDATA.IB'
  30       'User_Name=sysdba'
  31       'Password=masterkey'
  32       'DriverID=IB')
  33     Connected = True
  34     Left = 144
  35     Top = 24
  36   end
  37   object FDTable2: TFDTable
  38     Active = True
  39     IndexFieldNames = 'DBNUM;NUMBER'
  40     MasterSource = DataSource1
  41     MasterFields = 'DBNUM'
  42     Connection = FDConnection1
  43     FetchOptions.AssignedValues = [evLiveWindowParanoic]
  44     FetchOptions.LiveWindowParanoic = True
  45     UpdateOptions.UpdateTableName = 'ARTICLE'
  46     TableName = 'ARTICLE'
  47     Left = 96
  48     Top = 88
  49     object FDTable2DBNUM: TIntegerField
  50       FieldName = 'DBNUM'
  51       Origin = 'DBNUM'
  52       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  53       Required = True
  54     end
  55     object FDTable2NUMBER: TIntegerField
  56       FieldName = 'NUMBER'
  57       Origin = 'NUMBER'
  58       ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
  59       Required = True
  60     end
  61     object FDTable2TITLE: TWideStringField
  62       FieldName = 'TITLE'
  63       Origin = 'TITLE'
  64       Size = 160
  65     end
  66     object FDTable2NAME: TWideStringField
  67       FieldName = 'NAME'
  68       Origin = 'NAME'
  69       Size = 160
  70     end
  71     object FDTable2COMMENT: TWideMemoField
  72       FieldName = 'COMMENT'
  73       Origin = 'COMMENT'
  74       BlobType = ftWideMemo
  75     end
  76     object FDTable2RAW: TWideMemoField
  77       FieldName = 'RAW'
  78       Origin = 'RAW'
  79       BlobType = ftWideMemo
  80     end
  81     object FDTable2DATE: TDateField
  82       FieldName = 'DATE'
  83       Origin = '"DATE"'
  84     end
  85     object FDTable2PASS: TStringField
  86       FieldName = 'PASS'
  87       Origin = 'PASS'
  88       Size = 40
  89     end
  90   end
  91   object FDTable3: TFDTable
  92     Active = True
  93     Connection = FDConnection1
  94     UpdateOptions.UpdateTableName = 'SETTING'
  95     TableName = 'SETTING'
  96     Left = 160
  97     Top = 88
  98     object FDTable3TITLE: TWideStringField
  99       FieldName = 'TITLE'
 100       Origin = 'TITLE'
 101       Size = 160
 102     end
 103     object FDTable3TITLE2: TWideStringField
 104       FieldName = 'TITLE2'
 105       Origin = 'TITLE2'
 106       Size = 320
 107     end
 108     object FDTable3MENTE: TBooleanField
 109       FieldName = 'MENTE'
 110       Origin = 'MENTE'
 111     end
 112     object FDTable3INFO: TIntegerField
 113       FieldName = 'INFO'
 114       Origin = 'INFO'
 115     end
 116     object FDTable3COUNT: TIntegerField
 117       FieldName = 'COUNT'
 118       Origin = '"COUNT"'
 119     end
 120     object FDTable3PASSWORD: TWideStringField
 121       FieldName = 'PASSWORD'
 122       Origin = '"PASSWORD"'
 123       Required = True
 124       Size = 80
 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 = 64
 135     Top = 152
 136   end
 137   object FDQuery1: TFDQuery
 138     Connection = FDConnection1
 139     Left = 160
 140     Top = 152
 141   end
 142   object FDTable4: TFDTable
 143     Active = True
 144     Connection = FDConnection1
 145     UpdateOptions.UpdateTableName = 'REQ'
 146     TableName = 'REQ'
 147     Left = 224
 148     Top = 88
 149     object FDTable4ID: TIntegerField
 150       FieldName = 'ID'
 151       Origin = 'ID'
 152       Required = True
 153     end
 154     object FDTable4DBNAME: TIntegerField
 155       FieldName = 'DBNAME'
 156       Origin = 'DBNAME'
 157     end
 158     object FDTable4POSNUM: TIntegerField
 159       FieldName = 'POSNUM'
 160       Origin = 'POSNUM'
 161     end
 162     object FDTable4DATE: TDateField
 163       FieldName = 'DATE'
 164       Origin = '"DATE"'
 165       Required = True
 166     end
 167     object FDTable4REQUEST: TWideMemoField
 168       FieldName = 'REQUEST'
 169       Origin = 'REQUEST'
 170       BlobType = ftWideMemo
 171     end
 172   end
 173 end