svn/view/Unit4.dfm

object DataModule1: TDataModule1
  OldCreateOrder = False
  Height = 228
  Width = 215
  object FDTable1: TFDTable
    Active = True
    IndexFieldNames = 'NUMBER'
    Connection = FDConnection1
    UpdateOptions.UpdateTableName = 'USER_DATA'
    TableName = 'USER_DATA'
    Left = 87
    Top = 6
    object FDTable1NAME: TWideStringField
      FieldName = 'NAME'
      Origin = 'NAME'
      Required = True
      Size = 80
    end
    object FDTable1EMAIL: TWideStringField
      FieldName = 'EMAIL'
      Origin = 'EMAIL'
      Size = 80
    end
    object FDTable1BIRTH: TDateField
      FieldName = 'BIRTH'
      Origin = 'BIRTH'
    end
    object FDTable1ADDRESS: TWideStringField
      FieldName = 'ADDRESS'
      Origin = 'ADDRESS'
      Size = 480
    end
    object FDTable1PASSWORD: TWideStringField
      FieldName = 'PASSWORD'
      Origin = '"PASSWORD"'
      Size = 80
    end
    object FDTable1NUMBER: TIntegerField
      FieldName = 'NUMBER'
      Origin = 'NUMBER'
      ReadOnly = True
    end
  end
  object FDTable2: TFDTable
    Active = True
    IndexFieldNames = 'SERIAL'
    Connection = FDConnection1
    UpdateOptions.UpdateTableName = 'ITEM_DATA'
    TableName = 'ITEM_DATA'
    Left = 15
    Top = 5
    object FDTable2NAME: TWideStringField
      FieldName = 'NAME'
      Origin = 'NAME'
      Required = True
      Size = 480
    end
    object FDTable2MAKER: TWideStringField
      FieldName = 'MAKER'
      Origin = 'MAKER'
      Size = 480
    end
    object FDTable2STOCK: TIntegerField
      FieldName = 'STOCK'
      Origin = 'STOCK'
    end
    object FDTable2WEIGHT: TIntegerField
      FieldName = 'WEIGHT'
      Origin = 'WEIGHT'
    end
    object FDTable2DATE: TDateField
      FieldName = 'DATE'
      Origin = '"DATE"'
    end
    object FDTable2COMMENT: TMemoField
      FieldName = 'COMMENT'
      Origin = 'COMMENT'
      BlobType = ftMemo
    end
    object FDTable2CATEGORY: TWideStringField
      FieldName = 'CATEGORY'
      Origin = 'CATEGORY'
      Size = 80
    end
    object FDTable2IMAGE: TBlobField
      FieldName = 'IMAGE'
      Origin = 'IMAGE'
    end
    object FDTable2PRICE: TIntegerField
      FieldName = 'PRICE'
      Origin = 'PRICE'
      Required = True
    end
    object FDTable2THUMBNAIL: TBlobField
      FieldName = 'THUMBNAIL'
      Origin = 'THUMBNAIL'
    end
    object FDTable2SERIAL: TIntegerField
      FieldName = 'SERIAL'
      Origin = 'SERIAL'
    end
  end
  object item: TDataSource
    DataSet = FDTable2
    Left = 24
    Top = 77
  end
  object user: TDataSource
    DataSet = FDTable1
    Left = 87
    Top = 62
  end
  object FDConnection1: TFDConnection
    Params.Strings = (
      'User_Name=sysdba'
      'Password=masterkey'
      'CharacterSet=UTF8'
      
        'Database=E:\fuke masasi\My App\zencart_clone\Win64\Release\wwwro' +
        'ot\db\MYCART.GDB'
      'DriverID=IB')
    Connected = True
    LoginPrompt = False
    Left = 152
    Top = 78
  end
  object FDTable3: TFDTable
    Active = True
    Connection = FDConnection1
    UpdateOptions.UpdateTableName = 'FORM_DATA'
    TableName = 'FORM_DATA'
    Left = 24
    Top = 128
    object FDTable3NAME: TWideStringField
      FieldName = 'NAME'
      Origin = 'NAME'
      Size = 80
    end
    object FDTable3BGCOLOR: TIntegerField
      FieldName = 'BGCOLOR'
      Origin = 'BGCOLOR'
    end
  end
  object form: TDataSource
    DataSet = FDTable3
    Left = 96
    Top = 128
  end
  object FDQuery1: TFDQuery
    Connection = FDConnection1
    SQL.Strings = (
      'select name,maker,image,volume,price'
      ' from cart_data join item_data'
      ' on (cart_data.serial = item_data.serial)'
      ' where number = :num;')
    Left = 96
    Top = 176
    ParamData = <
      item
        Name = 'NUM'
        DataType = ftInteger
        ParamType = ptInput
        Value = 0
      end>
  end
  object cart: TDataSource
    DataSet = FDQuery1
    Left = 152
    Top = 176
  end
end