lazarus-ccr/components/zmsql/demo/project2/unit2.lfm

object Form1: TForm1
  Left = 455
  Height = 544
  Top = 301
  Width = 725
  Caption = 'CodeTyphon ZMSql demo2'
  ClientHeight = 544
  ClientWidth = 725
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.9.0.0'
  object DBGrid1: TDBGrid
    Left = 8
    Height = 120
    Top = 72
    Width = 704
    Anchors = [akTop, akLeft, akRight]
    AutoFillColumns = True
    Color = clWindow
    Columns = <    
      item
        Title.Caption = 'Product'
        Width = 335
        FieldName = 'Product'
      end    
      item
        Title.Caption = 'ProductDescription'
        Width = 336
        FieldName = 'ProductDescription'
      end>
    DataSource = Datasource1
    TabOrder = 0
  end
  object DBGrid2: TDBGrid
    Left = 8
    Height = 144
    Top = 232
    Width = 704
    Anchors = [akTop, akLeft, akRight]
    AutoFillColumns = True
    Color = clWindow
    Columns = <    
      item
        Title.Caption = 'ProductionOrder'
        Width = 167
        FieldName = 'ProductionOrder'
      end    
      item
        Title.Caption = 'Product'
        Width = 167
        FieldName = 'Product'
      end    
      item
        Title.Caption = 'ProductDescription'
        Width = 167
        FieldName = 'ProductDescription'
      end    
      item
        Title.Caption = 'Quantity'
        Width = 170
        FieldName = 'Quantity'
        DisplayFormat = '#,##0.00'
      end>
    DataSource = Datasource2
    TabOrder = 1
  end
  object Button1: TButton
    Left = 8
    Height = 25
    Top = 8
    Width = 275
    AutoSize = True
    Caption = '1. Products and Orders (Master/Detail example)'
    OnClick = Button1Click
    TabOrder = 2
  end
  object Button2: TButton
    Left = 296
    Height = 25
    Top = 8
    Width = 277
    AutoSize = True
    Caption = '2. Requirements (Parameterized query example)'
    OnClick = Button2Click
    TabOrder = 3
  end
  object DBNavigator1: TDBNavigator
    Left = 320
    Height = 25
    Top = 40
    Width = 241
    BevelOuter = bvNone
    ChildSizing.EnlargeHorizontal = crsScaleChilds
    ChildSizing.EnlargeVertical = crsScaleChilds
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 100
    ClientHeight = 25
    ClientWidth = 241
    DataSource = Datasource1
    Options = []
    TabOrder = 4
  end
  object DBNavigator2: TDBNavigator
    Left = 320
    Height = 25
    Top = 200
    Width = 241
    BevelOuter = bvNone
    ChildSizing.EnlargeHorizontal = crsScaleChilds
    ChildSizing.EnlargeVertical = crsScaleChilds
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 100
    ClientHeight = 25
    ClientWidth = 241
    DataSource = Datasource2
    Options = []
    TabOrder = 5
  end
  object DBGrid3: TDBGrid
    Left = 8
    Height = 152
    Top = 384
    Width = 704
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFillColumns = True
    Color = clWindow
    Columns = <>
    DataSource = Datasource3
    TabOrder = 6
  end
  object ZMConnection1: TZMConnection
    Connected = False
    FloatPrecision = 0
    left = 176
    top = 104
  end
  object ZMQueryDataSet1: TZMQueryDataSet
    FieldDefs = <    
      item
        Name = 'Product'
        DataType = ftString
        Precision = -1
        Size = 10
      end    
      item
        Name = 'ProductDescription'
        DataType = ftString
        Precision = -1
        Size = 20
      end>
    ZMConnection = ZMConnection1
    SQL.Strings = (
      'SELECT'
      '  Max(prdcts.prdct) AS Product,'
      '  Max(prdcts.prdct_dscr) AS ProductDescription'
      'FROM '
      '  prdcts, ordrs'
      'WHERE '
      '  prdcts.prdct=ordrs.prdct'
      'AND '
      '  ordrs.ORDR_TYPE=''LA'''
      'GROUP BY '
      '  Product, ProductDescription'
      'ORDER BY '
      '  Product    '
    )
    QueryExecuted = False
    TableLoaded = False
    TableSaved = False
    DynamicFieldsCreated = False
    PeristentFieldsCreated = False
    MemoryDataSetOpened = False
    PersistentSave = False
    Parameters = <>
    MasterDetailFiltration = False
    FilterOptions = []
    left = 304
    top = 104
  end
  object ZMQueryDataSet2: TZMQueryDataSet
    FieldDefs = <    
      item
        Name = 'ProductionOrder'
        DataType = ftString
        Precision = -1
        Size = 7
      end    
      item
        Name = 'Product'
        DataType = ftString
        Precision = -1
        Size = 10
      end    
      item
        Name = 'ProductDescription'
        DataType = ftString
        Precision = -1
        Size = 20
      end    
      item
        Name = 'Quantity'
        DataType = ftFloat
        Precision = -1
      end>
    Filtered = True
    ZMConnection = ZMConnection1
    SQL.Strings = (
      'SELECT '
      '  ordr AS ProductionOrder,'
      '  prdct AS Product, '
      '  prdct_dscr AS ProductDescription,'
      '  prdct_targ_qty AS Quantity'
      'FROM '
      '  ordrs'
      'WHERE '
      '  ORDR_TYPE=''LA'''
    )
    QueryExecuted = False
    TableLoaded = False
    TableSaved = False
    DynamicFieldsCreated = False
    PeristentFieldsCreated = False
    MemoryDataSetOpened = False
    PersistentSave = False
    Parameters = <>
    MasterFields.Strings = (
      'Product'
    )
    MasterSource = Datasource1
    MasterDetailFiltration = False
    FilterOptions = []
    left = 152
    top = 288
  end
  object Datasource1: TDataSource
    DataSet = ZMQueryDataSet1
    left = 56
    top = 104
  end
  object Datasource2: TDataSource
    DataSet = ZMQueryDataSet2
    left = 48
    top = 256
  end
  object Datasource3: TDataSource
    DataSet = ZMQueryDataSet3
    left = 40
    top = 416
  end
  object ZMQueryDataSet3: TZMQueryDataSet
    FieldDefs = <>
    ZMConnection = ZMConnection1
    SQL.Strings = (
      'SELECT CMPNT AS Component,'
      'CMPNT_DSCR AS ComponentDescription,'
      'CMPNT_RQRD AS Required,'
      'CMPNT_TOT_AVLB AS AvailableTotal,'
      'CMPNT_RQRD_UNT AS Units'
      'FROM rqrmts'
      'WHERE ORDR=:Order   '
    )
    QueryExecuted = False
    TableLoaded = False
    TableSaved = False
    DynamicFieldsCreated = False
    PeristentFieldsCreated = False
    MemoryDataSetOpened = False
    PersistentSave = False
    Parameters = <    
      item
        DataType = ftString
        Name = 'Order'
        ParamType = ptInput
      end>
    MasterDetailFiltration = False
    FilterOptions = []
    left = 144
    top = 416
  end
  object ZMReferentialKey1: TZMReferentialKey
    MasterDataSet = ZMQueryDataSet1
    SlaveDataSet = ZMQueryDataSet2
    ReferentialKind = [rkInsert, rkUpdate, rkDelete]
    JoinedFields.Strings = (
      'Product=Product'
      'ProductDescription=ProductDescription'
    )
    Enabled = True
    left = 288
    top = 264
  end
end