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 = 160
  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     UpdateOptions.UpdateTableName = 'ARTICLE'
  44     TableName = 'ARTICLE'
  45     Left = 96
  46     Top = 88
  47     object FDTable2DBNUM: TIntegerField
  48       FieldName = 'DBNUM'
  49       Origin = 'DBNUM'
  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: TStringField
  59       FieldName = 'TITLE'
  60       Origin = 'TITLE'
  61       Size = 40
  62     end
  63     object FDTable2NAME: TStringField
  64       FieldName = 'NAME'
  65       Origin = 'NAME'
  66     end
  67     object FDTable2COMMENT: TWideMemoField
  68       FieldName = 'COMMENT'
  69       Origin = 'COMMENT'
  70       BlobType = ftWideMemo
  71     end
  72     object FDTable2RAW: TWideMemoField
  73       FieldName = 'RAW'
  74       Origin = 'RAW'
  75       BlobType = ftWideMemo
  76     end
  77     object FDTable2DATE: TDateField
  78       FieldName = 'DATE'
  79       Origin = '"DATE"'
  80       Required = True
  81     end
  82   end
  83   object FDTable3: TFDTable
  84     Active = True
  85     Connection = FDConnection1
  86     UpdateOptions.UpdateTableName = 'SETTING'
  87     TableName = 'SETTING'
  88     Left = 160
  89     Top = 88
  90     object FDTable3TITLE: TWideStringField
  91       FieldName = 'TITLE'
  92       Origin = 'TITLE'
  93       Size = 80
  94     end
  95     object FDTable3TITLE2: TWideStringField
  96       FieldName = 'TITLE2'
  97       Origin = 'TITLE2'
  98       Size = 320
  99     end
 100     object FDTable3MENTE: TBooleanField
 101       FieldName = 'MENTE'
 102       Origin = 'MENTE'
 103     end
 104     object FDTable3INFO: TIntegerField
 105       FieldName = 'INFO'
 106       Origin = 'INFO'
 107     end
 108     object FDTable3COUNT: TIntegerField
 109       FieldName = 'COUNT'
 110       Origin = '"COUNT"'
 111     end
 112   end
 113   object FDGUIxWaitCursor1: TFDGUIxWaitCursor
 114     Provider = 'Forms'
 115     Left = 48
 116     Top = 24
 117   end
 118   object DataSource1: TDataSource
 119     DataSet = FDTable1
 120     Left = 64
 121     Top = 152
 122   end
 123   object FDQuery1: TFDQuery
 124     Connection = FDConnection1
 125     Left = 160
 126     Top = 152
 127   end
 128   object FDTable4: TFDTable
 129     Active = True
 130     Connection = FDConnection1
 131     UpdateOptions.UpdateTableName = 'REQ'
 132     TableName = 'REQ'
 133     Left = 224
 134     Top = 88
 135     object FDTable4DBNAME: TIntegerField
 136       FieldName = 'DBNAME'
 137       Origin = 'DBNAME'
 138     end
 139     object FDTable4POSNUM: TIntegerField
 140       FieldName = 'POSNUM'
 141       Origin = 'POSNUM'
 142     end
 143     object FDTable4DATE: TDateField
 144       FieldName = 'DATE'
 145       Origin = '"DATE"'
 146       Required = True
 147     end
 148     object FDTable4REQUEST: TWideMemoField
 149       FieldName = 'REQUEST'
 150       Origin = 'REQUEST'
 151       BlobType = ftWideMemo
 152     end
 153   end
 154 end