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       'Database=C:\Users\yamat\Documents\GitHub\newbbs\MYDATA.IB'
  28       'CharacterSet=UTF8'
  29       'User_Name=sysdba'
  30       'Password=masterkey'
  31       'OpenMode=OpenOrCreate'
  32       'DriverID=IBLite')
  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: TIntegerField
  86       FieldName = 'PASS'
  87       Origin = 'PASS'
  88     end
  89   end
  90   object FDTable3: TFDTable
  91     Active = True
  92     Connection = FDConnection1
  93     UpdateOptions.UpdateTableName = 'SETTING'
  94     TableName = 'SETTING'
  95     Left = 160
  96     Top = 88
  97     object FDTable3TITLE: TWideStringField
  98       FieldName = 'TITLE'
  99       Origin = 'TITLE'
 100       Size = 160
 101     end
 102     object FDTable3TITLE2: TWideStringField
 103       FieldName = 'TITLE2'
 104       Origin = 'TITLE2'
 105       Size = 320
 106     end
 107     object FDTable3MENTE: TBooleanField
 108       FieldName = 'MENTE'
 109       Origin = 'MENTE'
 110     end
 111     object FDTable3INFO: TIntegerField
 112       FieldName = 'INFO'
 113       Origin = 'INFO'
 114     end
 115     object FDTable3COUNT: TIntegerField
 116       FieldName = 'COUNT'
 117       Origin = '"COUNT"'
 118     end
 119   end
 120   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 121     Provider = 'Forms'
 122     Left = 48
 123     Top = 24
 124   end
 125   object DataSource1: TDataSource
 126     DataSet = FDTable1
 127     Left = 64
 128     Top = 152
 129   end
 130   object FDQuery1: TFDQuery
 131     Connection = FDConnection1
 132     Left = 160
 133     Top = 152
 134   end
 135   object FDTable4: TFDTable
 136     Active = True
 137     Connection = FDConnection1
 138     UpdateOptions.UpdateTableName = 'REQ'
 139     TableName = 'REQ'
 140     Left = 224
 141     Top = 88
 142     object FDTable4DBNAME: TIntegerField
 143       FieldName = 'DBNAME'
 144       Origin = 'DBNAME'
 145     end
 146     object FDTable4POSNUM: TIntegerField
 147       FieldName = 'POSNUM'
 148       Origin = 'POSNUM'
 149     end
 150     object FDTable4DATE: TDateField
 151       FieldName = 'DATE'
 152       Origin = '"DATE"'
 153       Required = True
 154     end
 155     object FDTable4REQUEST: TWideMemoField
 156       FieldName = 'REQUEST'
 157       Origin = 'REQUEST'
 158       BlobType = ftWideMemo
 159     end
 160   end
 161 end