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: 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   end
 121   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 122     Provider = 'Forms'
 123     Left = 48
 124     Top = 24
 125   end
 126   object DataSource1: TDataSource
 127     DataSet = FDTable1
 128     Left = 64
 129     Top = 152
 130   end
 131   object FDQuery1: TFDQuery
 132     Connection = FDConnection1
 133     Left = 160
 134     Top = 152
 135   end
 136   object FDTable4: TFDTable
 137     Active = True
 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 end