home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Supreme / _SETUP.1 / Contact.exe / 0 / RCDATA / TFORMUDALPROSTR / TFORMUDALPROSTR.txt
Encoding:
Text File  |  1999-09-06  |  3.5 KB  |  176 lines
  1. inherited FormUdalProstr: TFormUdalProstr
  2.   Left = 362
  3.   Top = 238
  4.   Caption = 'FormUdalProstr'
  5.   ClientHeight = 227
  6.   ClientWidth = 330
  7.   PixelsPerInch = 96
  8.   TextHeight = 13
  9.   object Frame1: TFrame [0]
  10.     Left = 8
  11.     Top = 4
  12.     Width = 313
  13.     Height = 181
  14.   end
  15.   object LabelPlus1: TLabelPlus [1]
  16.     Left = 32
  17.     Top = 28
  18.     Width = 63
  19.     Height = 13
  20.     Caption = '&Prost∩┐╜edek'
  21.     FocusControl = EditProstr
  22.     Attached = True
  23.     Font.Charset = DEFAULT_CHARSET
  24.     Font.Color = clWindowText
  25.     Font.Height = -11
  26.     Font.Name = 'MS Sans Serif'
  27.     Font.Style = [fsBold]
  28.     ParentFont = False
  29.   end
  30.   object Label1: TLabel [2]
  31.     Left = 32
  32.     Top = 76
  33.     Width = 26
  34.     Height = 13
  35.     Caption = 'Popis'
  36.   end
  37.   object StaticPopis: TStatic [3]
  38.     Left = 32
  39.     Top = 92
  40.     Width = 269
  41.     Height = 21
  42.   end
  43.   object LabelPlus2: TLabelPlus [4]
  44.     Left = 32
  45.     Top = 128
  46.     Width = 14
  47.     Height = 13
  48.     Caption = '&Od'
  49.     FocusControl = EditOd
  50.     Attached = True
  51.   end
  52.   object LabelPlus3: TLabelPlus [5]
  53.     Left = 172
  54.     Top = 128
  55.     Width = 14
  56.     Height = 13
  57.     Caption = '&Do'
  58.     FocusControl = EditDo
  59.     Attached = True
  60.   end
  61.   object BrowserDataGrabber1: TBrowserDataGrabber [6]
  62.     Left = 33
  63.     Top = 165
  64.     Width = 40
  65.     Height = 19
  66.     FieldNames.Strings = (
  67.       'id_ukol')
  68.     GroupIndex = 0
  69.   end
  70.   inherited BtnOk: TButton
  71.     Left = 168
  72.     Top = 192
  73.     TabOrder = 3
  74.   end
  75.   inherited BtnCancel: TButton
  76.     Left = 248
  77.     Top = 192
  78.     TabOrder = 4
  79.   end
  80.   object EditProstr: TBrowserLookupEdit [9]
  81.     Left = 32
  82.     Top = 44
  83.     Width = 185
  84.     Height = 21
  85.     Separator = #0
  86.     AllowNull = False
  87.     AllVisible = False
  88.     BrowserOnly = False
  89.     ButtonHint = 'Vybrat z ∩┐╜∩┐╜seln∩┐╜ku'
  90.     FieldName = 'id_prostredek'
  91.     Font.Charset = DEFAULT_CHARSET
  92.     Font.Color = clWindowText
  93.     Font.Height = -11
  94.     Font.Name = 'MS Sans Serif'
  95.     Font.Style = [fsBold]
  96.     InputFilter = ifAlphaNumeric
  97.     LookupDatabase = 'BRAIN_'
  98.     LookupField = 'id'
  99.     LookupSQL.Strings = (
  100.       'SELECT id, popis'
  101.       'FROM prostredky'
  102.       'ORDER BY id')
  103.     MaxLength = 25
  104.     Params = <>
  105.     ParentFont = False
  106.     TabOrder = 0
  107.     OnSetData = EditProstrSetData
  108.   end
  109.   object EditOd: TBrowserDateEdit [10]
  110.     Left = 32
  111.     Top = 144
  112.     Width = 129
  113.     Height = 21
  114.     Separator = #0
  115.     Duration = False
  116.     MaxLength = 0
  117.     TabOrder = 1
  118.     DefaultCurrent = False
  119.     FieldName = 'od'
  120.     DataType = ttDateTime
  121.   end
  122.   object EditDo: TBrowserDateEdit [11]
  123.     Left = 172
  124.     Top = 144
  125.     Width = 129
  126.     Height = 21
  127.     Separator = #0
  128.     Duration = False
  129.     MaxLength = 0
  130.     TabOrder = 2
  131.     DefaultCurrent = False
  132.     FieldName = 'do'
  133.     DataType = ttDateTime
  134.   end
  135.   inherited FormPos: TFormPos
  136.     Top = 192
  137.   end
  138.   inherited Wallpaper: TWallpaper
  139.     Top = 192
  140.   end
  141.   object BrowserValidator1: TBrowserValidator
  142.     Active = True
  143.     OnValidate = BrowserValidator1Validate
  144.     Left = 64
  145.     Top = 192
  146.   end
  147.   object QryCheckProstr: TQuery
  148.     DatabaseName = 'BRAIN_'
  149.     SQL.Strings = (
  150.       'SELECT id_ukol, od, do'
  151.       'FROM ukoly_prostr'
  152.       
  153.         'WHERE (id_prostredek = :prostr) and ((:od <= do) and (:do >= od)' +
  154.         ')'
  155.       ' ')
  156.     Left = 92
  157.     Top = 192
  158.     ParamData = <
  159.       item
  160.         DataType = ftUnknown
  161.         Name = 'prostr'
  162.         ParamType = ptUnknown
  163.       end
  164.       item
  165.         DataType = ftUnknown
  166.         Name = 'od'
  167.         ParamType = ptUnknown
  168.       end
  169.       item
  170.         DataType = ftUnknown
  171.         Name = 'do'
  172.         ParamType = ptUnknown
  173.       end>
  174.   end
  175. end
  176.