dlgQualifyTimes.dfm

object QualifyTimes: TQualifyTimes
  Left = 0
  Top = 0
  BorderStyle = bsDialog
  Caption = 'Qualification Times...'
  ClientHeight = 768
  ClientWidth = 724
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poOwnerFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 21
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 724
    Height = 727
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    ExplicitWidth = 720
    ExplicitHeight = 726
    object TabSheet1: TTabSheet
      Caption = 'Setup'
      object DBGrid1: TDBGrid
        Left = 0
        Top = 130
        Width = 716
        Height = 561
        Align = alClient
        BorderStyle = bsNone
        DataSource = DSQualify
        Options = [dgEditing, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = 'Segoe UI'
        TitleFont.Style = []
      end
      object Panel1: TPanel
        Left = 0
        Top = 97
        Width = 716
        Height = 33
        Align = alTop
        BevelEdges = [beTop]
        BevelKind = bkFlat
        BevelOuter = bvNone
        BevelWidth = 4
        TabOrder = 1
        ExplicitWidth = 712
        DesignSize = (
          716
          31)
        object Label3: TLabel
          Left = 4
          Top = 8
          Width = 701
          Height = 19
          Alignment = taCenter
          Anchors = [akLeft, akTop, akRight]
          AutoSize = False
          Caption = 'Qualification Times for Short Course Events (SC)'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Tahoma'
          Font.Style = [fsBold]
          ParentFont = False
          ExplicitWidth = 381
        end
      end
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 716
        Height = 97
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        ExplicitWidth = 712
        object Label4: TLabel
          Left = 26
          Top = 7
          Width = 65
          Height = 84
          Alignment = taCenter
          Caption = 'The distance to QUALIFY.'
          WordWrap = True
        end
        object Label5: TLabel
          Left = 266
          Top = 26
          Width = 60
          Height = 63
          Alignment = taCenter
          Caption = 'The TRIAL distance.'
          WordWrap = True
        end
        object Label6: TLabel
          Left = 450
          Top = 26
          Width = 133
          Height = 63
          Alignment = taCenter
          Caption = 'The TIME the TRIAL distance must be completed in.'
          WordWrap = True
        end
        object Label7: TLabel
          Left = 112
          Top = 47
          Width = 75
          Height = 42
          Alignment = taCenter
          Caption = 'Swimming Stroke'
          WordWrap = True
        end
        object Label8: TLabel
          Left = 363
          Top = 68
          Width = 51
          Height = 21
          Alignment = taCenter
          Caption = 'Gender'
          WordWrap = True
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Reports'
      ImageIndex = 1
      object Label1: TLabel
        Left = 118
        Top = 112
        Width = 513
        Height = 42
        AutoSize = False
        Caption = 
          'Post-Session : Highlight qualified swimmers in the current sessi' +
          'on. Ordered by name.'
        WordWrap = True
      end
      object Label2: TLabel
        Left = 118
        Top = 219
        Width = 514
        Height = 39
        AutoSize = False
        Caption = 
          'Display a qualification report for each club member. Ordered by ' +
          #39'last name'#39'.'
        WordWrap = True
      end
      object Label10: TLabel
        Left = 118
        Top = 270
        Width = 514
        Height = 39
        AutoSize = False
        Caption = 
          'Display a summary of club members who have qualified. Ordered by' +
          ' distance and stroke.'
        WordWrap = True
      end
      object Label12: TLabel
        Left = 118
        Top = 329
        Width = 514
        Height = 26
        AutoSize = False
        Caption = 
          'Prepare a report of the qualification times table, ready for pri' +
          'nting.'
        WordWrap = True
      end
      object Label9: TLabel
        Left = 117
        Top = 43
        Width = 514
        Height = 44
        AutoSize = False
        Caption = 
          'List members who have nominated for events in the current sessio' +
          'n and have been given a lane but are not qualified to swim those' +
          ' events.'
        WordWrap = True
      end
      object Label11: TLabel
        Left = 11
        Top = 20
        Width = 224
        Height = 17
        Caption = 'REPORTS FOR THE CURRENT SESSION'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object Label13: TLabel
        Left = 11
        Top = 196
        Width = 156
        Height = 17
        Caption = 'OTHER GENERAL REPORTS'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Segoe UI'
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object btnSessionReport: TButton
        Left = 11
        Top = 112
        Width = 90
        Height = 35
        Caption = 'Session'
        TabOrder = 1
        OnClick = btnSessionReportClick
      end
      object btnMemberReport: TButton
        Left = 11
        Top = 219
        Width = 90
        Height = 35
        Caption = 'Member'
        TabOrder = 2
        OnClick = btnMemberReportClick
      end
      object btnDistStrokeReport: TButton
        Left = 11
        Top = 270
        Width = 90
        Height = 35
        Caption = 'Dist:Stroke'
        TabOrder = 3
        OnClick = btnDistStrokeReportClick
      end
      object btnTableReport: TButton
        Left = 11
        Top = 329
        Width = 90
        Height = 35
        Caption = 'Table'
        TabOrder = 4
        OnClick = btnTableReportClick
      end
      object btnNotQualifyReport: TButton
        Left = 11
        Top = 43
        Width = 90
        Height = 47
        Caption = 'Not Qualified'
        TabOrder = 0
        WordWrap = True
        OnClick = btnNotQualifyReportClick
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 727
    Width = 724
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    ExplicitTop = 726
    ExplicitWidth = 720
    DesignSize = (
      724
      41)
    object BtnClose: TButton
      Left = 606
      Top = 6
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = 'Close'
      TabOrder = 0
      OnClick = BtnCloseClick
      ExplicitLeft = 602
    end
  end
  object qryQualify: TFDQuery
    ActiveStoredUsage = [auDesignTime]
    Active = True
    IndexFieldNames = 'QualifyID'
    Connection = SCM.scmConnection
    UpdateOptions.UpdateTableName = 'SwimClubMeet..Qualify'
    UpdateOptions.KeyFields = 'QualifyID'
    SQL.Strings = (
      'SELECT'
      '  Qualify.TrialDistID,'
      '  Qualify.QualifyDistID,'
      '  Qualify.StrokeID,'
      '  Qualify.TrialTime,'
      '  Qualify.IsShortCourse,'
      '  Qualify.GenderID,'
      '  Qualify.QualifyID'
      'FROM'
      '  Qualify'
      'WHERE (Qualify.IsShortCourse = :ISSHORTCOURSE)')
    Left = 104
    Top = 496
    ParamData = <
      item
        Name = 'ISSHORTCOURSE'
        DataType = ftBoolean
        ParamType = ptInput
        Value = True
      end>
    object qryQualifyTrialDistID: TIntegerField
      FieldName = 'TrialDistID'
      Origin = 'TrialDistID'
      Visible = False
    end
    object qryQualifyQualifyDistID: TIntegerField
      FieldName = 'QualifyDistID'
      Origin = 'QualifyDistID'
      Visible = False
    end
    object qryQualifyStrokeID: TIntegerField
      FieldName = 'StrokeID'
      Origin = 'StrokeID'
      Visible = False
    end
    object qryQualifyIsShortCourse: TBooleanField
      FieldName = 'IsShortCourse'
      Origin = 'IsShortCourse'
      Visible = False
    end
    object qryQualifyGenderID: TIntegerField
      FieldName = 'GenderID'
      Origin = 'GenderID'
      Visible = False
    end
    object qryQualifyQualifyID: TFDAutoIncField
      FieldName = 'QualifyID'
      Origin = 'QualifyID'
      ProviderFlags = [pfInWhere, pfInKey]
      ReadOnly = True
      Visible = False
    end
    object qryQualifyluQDistance: TStringField
      Alignment = taRightJustify
      DisplayLabel = 'QDistance'
      DisplayWidth = 9
      FieldKind = fkLookup
      FieldName = 'luQDistance'
      LookupDataSet = qryQDistance
      LookupKeyFields = 'DistanceID'
      LookupResultField = 'Caption'
      KeyFields = 'QualifyDistID'
      Lookup = True
    end
    object qryQualifyluStroke: TStringField
      DisplayLabel = 'Stroke'
      DisplayWidth = 16
      FieldKind = fkLookup
      FieldName = 'luStroke'
      LookupDataSet = tblStroke
      LookupKeyFields = 'StrokeID'
      LookupResultField = 'Caption'
      KeyFields = 'StrokeID'
      Lookup = True
    end
    object qryQualifyluTDistance: TStringField
      Alignment = taRightJustify
      DisplayLabel = 'TDistance'
      DisplayWidth = 9
      FieldKind = fkLookup
      FieldName = 'luTDistance'
      LookupDataSet = qryTDistance
      LookupKeyFields = 'DistanceID'
      LookupResultField = 'Caption'
      KeyFields = 'TrialDistID'
      Lookup = True
    end
    object qryQualifyluGender: TStringField
      Alignment = taCenter
      DisplayLabel = 'Gender'
      DisplayWidth = 12
      FieldKind = fkLookup
      FieldName = 'luGender'
      LookupDataSet = tblGender
      LookupKeyFields = 'GenderID'
      LookupResultField = 'Caption'
      KeyFields = 'GenderID'
      Lookup = True
    end
    object qryQualifyTrialTime: TTimeField
      Alignment = taRightJustify
      DisplayLabel = 'TIME'
      FieldName = 'TrialTime'
      Origin = 'TrialTime'
      OnGetText = qryQualifyTrialTimeGetText
      OnSetText = qryQualifyTrialTimeSetText
      DisplayFormat = 'nn:ss.zzz'
      EditMask = '!00:00.000;1;0'
    end
  end
  object DSQualify: TDataSource
    DataSet = qryQualify
    Left = 168
    Top = 496
  end
  object tblStroke: TFDTable
    ActiveStoredUsage = [auDesignTime]
    Active = True
    IndexFieldNames = 'StrokeID'
    Connection = SCM.scmConnection
    UpdateOptions.UpdateTableName = 'SwimClubMeet..Stroke'
    TableName = 'SwimClubMeet..Stroke'
    Left = 368
    Top = 504
  end
  object tblGender: TFDTable
    ActiveStoredUsage = [auDesignTime]
    Active = True
    IndexFieldNames = 'GenderID'
    Connection = SCM.scmConnection
    UpdateOptions.UpdateTableName = 'SwimClubMeet..Gender'
    TableName = 'SwimClubMeet..Gender'
    Left = 368
    Top = 568
  end
  object qryQDistance: TFDQuery
    ActiveStoredUsage = [auDesignTime]
    Active = True
    IndexFieldNames = 'DistanceID'
    Connection = SCM.scmConnection
    UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
    UpdateOptions.EnableDelete = False
    UpdateOptions.EnableInsert = False
    UpdateOptions.EnableUpdate = False
    UpdateOptions.UpdateTableName = 'SwimClubMeet.dbo.Distance'
    UpdateOptions.KeyFields = 'DistanceID'
    SQL.Strings = (
      'USE SwimClubMeet'
      ';'
      'SELECT * FROM dbo.Distance WHERE [Distance].[EventTypeID] = 1;')
    Left = 288
    Top = 504
  end
  object qryTDistance: TFDQuery
    ActiveStoredUsage = [auDesignTime]
    Active = True
    IndexFieldNames = 'DistanceID'
    Connection = SCM.scmConnection
    UpdateOptions.AssignedValues = [uvEDelete, uvEInsert, uvEUpdate]
    UpdateOptions.EnableDelete = False
    UpdateOptions.EnableInsert = False
    UpdateOptions.EnableUpdate = False
    UpdateOptions.UpdateTableName = 'SwimClubMeet.dbo.Distance'
    UpdateOptions.KeyFields = 'DistanceID'
    SQL.Strings = (
      'USE SwimClubMeet'
      ';'
      'SELECT * FROM dbo.Distance WHERE [Distance].[EventTypeID] = 1;')
    Left = 288
    Top = 568
  end
end