ucarico.lfm

object frmCarico: TfrmCarico
  Left = 331
  Height = 222
  Top = 144
  Width = 305
  BorderStyle = bsDialog
  Caption = 'Carico'
  ClientHeight = 222
  ClientWidth = 305
  KeyPreview = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  LCLVersion = '2.0.2.0'
  object txID: TDBText
    Left = 232
    Height = 15
    Top = 36
    Width = 48
    AutoSize = False
    DataField = 'ID'
    DataSource = dsOrig
    ParentColor = False
  end
  object Label1: TLabel
    Left = 24
    Height = 15
    Top = 15
    Width = 46
    Caption = 'Farmaco'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 24
    Height = 30
    Top = 72
    Width = 35
    Caption = 'Carico'#13#10'(conf.)'
    ParentColor = False
    OnClick = Label2Click
  end
  object cmdSave: TButton
    Left = 104
    Height = 25
    Top = 122
    Width = 75
    Caption = '&Salva'
    Default = True
    OnClick = cmdSaveClick
    TabOrder = 3
  end
  object Label3: TLabel
    Left = 232
    Height = 15
    Top = 16
    Width = 32
    Caption = 'Indice'
    ParentColor = False
  end
  object tQtaCar: TEdit
    Left = 24
    Height = 23
    Top = 104
    Width = 48
    OnKeyPress = tQtaCarKeyPress
    TabOrder = 1
    Text = '2'
  end
  object cmdCanc: TButton
    Left = 205
    Height = 25
    Top = 122
    Width = 75
    Cancel = True
    Caption = 'A&nnulla'
    OnClick = cmdCancClick
    TabOrder = 4
  end
  object cbCaricaFarmaco: TDBLookupComboBox
    Left = 24
    Height = 23
    Top = 32
    Width = 184
    DataField = 'ID'
    KeyField = 'ID'
    ListField = 'item'
    ListFieldIndex = 1
    ListSource = dsOrig
    LookupCache = False
    OnChange = cbCaricaFarmacoChange
    OnKeyDown = cbCaricaFarmacoKeyDown
    OnSelect = cbCaricaFarmacoChange
    ScrollListDataset = True
    Sorted = True
    Style = csDropDownList
    TabOrder = 0
  end
  object Label4: TLabel
    Left = 24
    Height = 30
    Top = 136
    Width = 38
    Caption = 'Scarico'#13#10'(unità)'
    ParentColor = False
    OnClick = Label2Click
  end
  object tQtaScar: TEdit
    Left = 24
    Height = 23
    Top = 168
    Width = 48
    OnKeyPress = tQtaCarKeyPress
    TabOrder = 2
  end
  object dsOrig: TDataSource
    DataSet = DM1.SvcQry
    OnDataChange = dsOrigDataChange
    left = 104
    top = 40
  end
end