PC World 1999 October/PCWorld_1999-10_cd2.bin/Supreme/_SETUP.1/Contact.exe/0/RCDATA/TFORMUDALPROSTR/TFORMUDALPROSTR.txt

Text File | 1999-09-06 | 4KB | 176 lines

inherited FormUdalProstr: TFormUdalProstr
  Left = 362
  Top = 238
  Caption = 'FormUdalProstr'
  ClientHeight = 227
  ClientWidth = 330
  PixelsPerInch = 96
  TextHeight = 13
  object Frame1: TFrame [0]
    Left = 8
    Top = 4
    Width = 313
    Height = 181
  end
  object LabelPlus1: TLabelPlus [1]
    Left = 32
    Top = 28
    Width = 63
    Height = 13
    Caption = '&Prost�edek'
    FocusControl = EditProstr
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel [2]
    Left = 32
    Top = 76
    Width = 26
    Height = 13
    Caption = 'Popis'
  end
  object StaticPopis: TStatic [3]
    Left = 32
    Top = 92
    Width = 269
    Height = 21
  end
  object LabelPlus2: TLabelPlus [4]
    Left = 32
    Top = 128
    Width = 14
    Height = 13
    Caption = '&Od'
    FocusControl = EditOd
    Attached = True
  end
  object LabelPlus3: TLabelPlus [5]
    Left = 172
    Top = 128
    Width = 14
    Height = 13
    Caption = '&Do'
    FocusControl = EditDo
    Attached = True
  end
  object BrowserDataGrabber1: TBrowserDataGrabber [6]
    Left = 33
    Top = 165
    Width = 40
    Height = 19
    FieldNames.Strings = (
      'id_ukol')
    GroupIndex = 0
  end
  inherited BtnOk: TButton
    Left = 168
    Top = 192
    TabOrder = 3
  end
  inherited BtnCancel: TButton
    Left = 248
    Top = 192
    TabOrder = 4
  end
  object EditProstr: TBrowserLookupEdit [9]
    Left = 32
    Top = 44
    Width = 185
    Height = 21
    Separator = #0
    AllowNull = False
    AllVisible = False
    BrowserOnly = False
    ButtonHint = 'Vybrat z ��seln�ku'
    FieldName = 'id_prostredek'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    InputFilter = ifAlphaNumeric
    LookupDatabase = 'BRAIN_'
    LookupField = 'id'
    LookupSQL.Strings = (
      'SELECT id, popis'
      'FROM prostredky'
      'ORDER BY id')
    MaxLength = 25
    Params = <>
    ParentFont = False
    TabOrder = 0
    OnSetData = EditProstrSetData
  end
  object EditOd: TBrowserDateEdit [10]
    Left = 32
    Top = 144
    Width = 129
    Height = 21
    Separator = #0
    Duration = False
    MaxLength = 0
    TabOrder = 1
    DefaultCurrent = False
    FieldName = 'od'
    DataType = ttDateTime
  end
  object EditDo: TBrowserDateEdit [11]
    Left = 172
    Top = 144
    Width = 129
    Height = 21
    Separator = #0
    Duration = False
    MaxLength = 0
    TabOrder = 2
    DefaultCurrent = False
    FieldName = 'do'
    DataType = ttDateTime
  end
  inherited FormPos: TFormPos
    Top = 192
  end
  inherited Wallpaper: TWallpaper
    Top = 192
  end
  object BrowserValidator1: TBrowserValidator
    Active = True
    OnValidate = BrowserValidator1Validate
    Left = 64
    Top = 192
  end
  object QryCheckProstr: TQuery
    DatabaseName = 'BRAIN_'
    SQL.Strings = (
      'SELECT id_ukol, od, do'
      'FROM ukoly_prostr'

        'WHERE (id_prostredek = :prostr) and ((:od <= do) and (:do >= od)' +
        ')'
      ' ')
    Left = 92
    Top = 192
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'prostr'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'od'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'do'
        ParamType = ptUnknown
      end>
  end
end