Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/pantheon.exe/0/RCDATA/TEDITORZAKAZNIKUFORM/TEDITORZAKAZNIKUFORM.txt

Text File | 1999-04-22 | 14.7 KB | 588 lines

object EditorZakaznikuForm: TEditorZakaznikuForm
  Left = 262
  Top = 117
  BorderStyle = bsDialog
  ClientHeight = 345
  ClientWidth = 451
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 27
    Height = 13
    Caption = '&Ulice:'
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 8
    Top = 104
    Width = 22
    Height = 13
    Caption = 'St�t:'
    FocusControl = DBEdit8
  end
  object Label13: TLabel
    Left = 8
    Top = 8
    Width = 23
    Height = 13
    Caption = '&Titul:'
    FocusControl = TitulPredCB
  end
  object Label4: TLabel
    Left = 160
    Top = 56
    Width = 29
    Height = 13
    Caption = '&Obec:'
    FocusControl = DBEdit6
  end
  object Label5: TLabel
    Left = 328
    Top = 56
    Width = 24
    Height = 13
    Caption = '&PS�:'
    FocusControl = PSCDBEdit
  end
  object Label12: TLabel
    Left = 96
    Top = 104
    Width = 53
    Height = 13
    Caption = 'Po&zn�mka:'
    FocusControl = DBMemo1
  end
  object Label17: TLabel
    Left = 80
    Top = 8
    Width = 176
    Height = 13
    Caption = 'P��jmen� a j&m�no (n�zev spole�nosti):'
    FocusControl = JmenoDBEdit
  end
  object Label18: TLabel
    Left = 392
    Top = 8
    Width = 23
    Height = 13
    Caption = 'Titul:'
  end
  object PSCSBtn: TSpeedButton
    Left = 384
    Top = 72
    Width = 57
    Height = 21
    Caption = 'P&S�'
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333333333333333333333300000000000000330FFFFFFFFFF
      FF0330FFFCCCCCCFFF0330FFFFFFFFFFFF0330FFFCCCCCCFFF0330FFFFFFFFFF
      FF0330FFFFFFFFF9970330FCCCFFFFF9970330FFFFFFFFF77703300000000000
      0003333333333333333333333333333333333333333333333333}
    OnClick = PSCSBtnClick
  end
  object OKBtn: TBitBtn
    Left = 288
    Top = 312
    Width = 75
    Height = 25
    Caption = 'Zapsat'
    TabOrder = 9
    OnClick = OKBtnClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EE0000000000
      000EEE8777777777770EEE8FFFFFFFFFF70EEE8FFFF0FFFFF70EEE8FFF660FFF
      F70EEE8FF66A60FFF70EEE8F6666A60FF70EEE8F66FF6A60F70EEE8FFFFFF6A6
      070EEE8FFFFFFF6A670EEE8FFFFFFFF6670EEE8FFFFFFFFFF70EEE8FFFFFFFF0
      000EEE8FFFFFFFF7F8EEEE8FFFFFFFF78EEEEE8888888888EEEE}
  end
  object CancelBtn: TBitBtn
    Left = 368
    Top = 312
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Zav��t'
    ModalResult = 2
    TabOrder = 10
    OnClick = CancelBtnClick
    NumGlyphs = 2
  end
  object JmenoDBEdit: TDBEdit
    Left = 80
    Top = 24
    Width = 305
    Height = 21
    Ctl3D = True
    DataField = 'Jmeno'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxLength = 100
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    OnChange = AllDataAwareEditsOnChange
  end
  object DBEdit4: TDBEdit
    Left = 392
    Top = 24
    Width = 49
    Height = 21
    DataField = 'TitulZa'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    MaxLength = 20
    TabOrder = 2
    OnChange = AllDataAwareEditsOnChange
  end
  object DBEdit5: TDBEdit
    Left = 8
    Top = 72
    Width = 145
    Height = 21
    DataField = 'Ulice'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    MaxLength = 100
    TabOrder = 3
    OnChange = AllDataAwareEditsOnChange
  end
  object DBEdit6: TDBEdit
    Left = 160
    Top = 72
    Width = 161
    Height = 21
    DataField = 'Obec'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    MaxLength = 60
    TabOrder = 4
    OnChange = AllDataAwareEditsOnChange
  end
  object PSCDBEdit: TDBEdit
    Left = 328
    Top = 72
    Width = 49
    Height = 21
    DataField = 'PSC'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    TabOrder = 5
    OnChange = AllDataAwareEditsOnChange
  end
  object DBEdit8: TDBEdit
    Left = 8
    Top = 120
    Width = 73
    Height = 21
    DataField = 'Stat'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    MaxLength = 20
    TabOrder = 6
    OnChange = AllDataAwareEditsOnChange
  end
  object DBMemo1: TDBMemo
    Left = 96
    Top = 120
    Width = 337
    Height = 33
    DataField = 'Poznamka'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    TabOrder = 7
    OnChange = AllDataAwareEditsOnChange
  end
  object TitulPredCB: TDBComboBox
    Left = 8
    Top = 24
    Width = 65
    Height = 21
    Ctl3D = True
    DataField = 'TitulPred'
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    ItemHeight = 13
    Items.Strings = (
      ''
      'Pan'
      'Pan�'
      'Ing.'
      'JUDr.'
      'MUDr.'
      'RNDr.'
      'MVDr.'
      'PaeDr.'
      'PharmaDr.'
      'Mgr.'
      'Bc.'
      'Doc.'
      'Prof.'
      'Dr.')
    ParentCtl3D = False
    TabOrder = 0
    OnChange = AllDataAwareEditsOnChange
  end
  object UdajePC: TPageControl
    Left = 8
    Top = 168
    Width = 433
    Height = 137
    ActivePage = TabSheet1
    TabOrder = 8
    object TabSheet1: TTabSheet
      Caption = 'Kontakt'
      object Label9: TLabel
        Left = 16
        Top = 56
        Width = 20
        Height = 13
        Caption = 'Fax:'
        FocusControl = DBEdit11
      end
      object Label16: TLabel
        Left = 16
        Top = 8
        Width = 111
        Height = 13
        Caption = 'Telefon do zam�stn�n�:'
        FocusControl = DBEdit18
      end
      object Label19: TLabel
        Left = 176
        Top = 8
        Width = 74
        Height = 13
        Caption = 'Priv�tn� telefon:'
        FocusControl = DBEdit2
      end
      object Label20: TLabel
        Left = 176
        Top = 56
        Width = 72
        Height = 13
        Caption = 'Mobiln� telefon:'
        FocusControl = DBEdit15
      end
      object DBEdit11: TDBEdit
        Left = 16
        Top = 72
        Width = 137
        Height = 21
        DataField = 'Fax'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 30
        TabOrder = 1
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit18: TDBEdit
        Left = 16
        Top = 24
        Width = 137
        Height = 21
        DataField = 'TelefonPrace'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 60
        TabOrder = 0
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit2: TDBEdit
        Left = 176
        Top = 24
        Width = 137
        Height = 21
        DataField = 'TelefonPrivat'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 60
        TabOrder = 2
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit15: TDBEdit
        Left = 176
        Top = 72
        Width = 137
        Height = 21
        DataField = 'TelefonMobil'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 60
        TabOrder = 3
        OnChange = AllDataAwareEditsOnChange
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Obchodn� �daje'
      object Label10: TLabel
        Left = 16
        Top = 8
        Width = 21
        Height = 13
        Caption = 'I�O:'
        FocusControl = DBEdit12
      end
      object Label11: TLabel
        Left = 176
        Top = 8
        Width = 21
        Height = 13
        Caption = 'DI�:'
        FocusControl = DBEdit13
      end
      object Label14: TLabel
        Left = 16
        Top = 56
        Width = 34
        Height = 13
        Caption = 'Banka:'
        FocusControl = DBEdit16
      end
      object Label15: TLabel
        Left = 176
        Top = 56
        Width = 26
        Height = 13
        Caption = '��et:'
        FocusControl = DBEdit17
      end
      object DBEdit12: TDBEdit
        Left = 16
        Top = 24
        Width = 137
        Height = 21
        DataField = 'ICO'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 20
        TabOrder = 0
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit13: TDBEdit
        Left = 176
        Top = 24
        Width = 137
        Height = 21
        DataField = 'DIC'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 20
        TabOrder = 1
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit16: TDBEdit
        Left = 16
        Top = 72
        Width = 137
        Height = 21
        DataField = 'Banka'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 100
        TabOrder = 2
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit17: TDBEdit
        Left = 176
        Top = 72
        Width = 137
        Height = 21
        DataField = 'Ucet'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 30
        TabOrder = 3
        OnChange = AllDataAwareEditsOnChange
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Osobn� �daje'
      object Label7: TLabel
        Left = 16
        Top = 8
        Width = 18
        Height = 13
        Caption = 'R�:'
        FocusControl = DBEdit9
      end
      object Label8: TLabel
        Left = 16
        Top = 56
        Width = 44
        Height = 13
        Caption = '��slo OP:'
        FocusControl = DBEdit10
      end
      object Label3: TLabel
        Left = 176
        Top = 8
        Width = 80
        Height = 13
        Caption = 'Pr�vn� z�stupce:'
        FocusControl = DBEdit14
      end
      object Label1: TLabel
        Left = 176
        Top = 56
        Width = 81
        Height = 13
        Caption = 'Kontaktn� osoba:'
      end
      object DBEdit9: TDBEdit
        Left = 16
        Top = 24
        Width = 137
        Height = 21
        DataField = 'RodneCislo'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 15
        TabOrder = 0
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit10: TDBEdit
        Left = 16
        Top = 72
        Width = 137
        Height = 21
        DataField = 'CisloOP'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 20
        TabOrder = 1
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit14: TDBEdit
        Left = 176
        Top = 24
        Width = 209
        Height = 21
        DataField = 'Zastupce'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 100
        TabOrder = 2
        OnChange = AllDataAwareEditsOnChange
      end
      object DBEdit1: TDBEdit
        Left = 176
        Top = 72
        Width = 209
        Height = 21
        DataField = 'KontaktniOsoba'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 100
        TabOrder = 3
        OnChange = AllDataAwareEditsOnChange
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Internet'
      object Label21: TLabel
        Left = 16
        Top = 8
        Width = 31
        Height = 13
        Caption = 'E-mail:'
        FocusControl = DBEdit19
      end
      object Label22: TLabel
        Left = 16
        Top = 56
        Width = 129
        Height = 13
        Caption = 'Dom�c� str�nka na WWW:'
        FocusControl = DBEdit20
      end
      object EMailBtn: TSpeedButton
        Left = 360
        Top = 24
        Width = 57
        Height = 21
        Caption = 'Posl&at'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          0400000000000001000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333888888888888833377777777777773344444444444
          448338888888888888733447777777774483388777777777887334F477444774
          748338F877888778787334F784777487748338F788777887787334F747777747
          748338F787777787787334F477777774748338F8777777787873344777777777
          4483388777777777887334FFFFFFFFFF748338FFFFFFFFFF7873344444444444
          4433388888888888883333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = EMailBtnClick
      end
      object WWWBtn: TSpeedButton
        Left = 360
        Top = 72
        Width = 57
        Height = 21
        Caption = 'P�&ej�t'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333300000
          000000000000BBB0F0B07FFFFFF0BBB0F0B07FFFFFF0B0B000B07F0F00F0BBBB
          BBB07FFFFFF0000000007F0000FF099999037FFFFFFFF09990737F000000FF09
          00737FFFFFFFFFF030037F000F0000F033337FFFFFFFFFF033337F00000F7880
          33337FFFFFFF778033337FFFFFFF780333337777777770333333}
        OnClick = WWWBtnClick
      end
      object DBEdit19: TDBEdit
        Left = 16
        Top = 24
        Width = 337
        Height = 21
        DataField = 'EMail'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 100
        TabOrder = 0
        OnChange = DBEdit19Change
      end
      object DBEdit20: TDBEdit
        Left = 16
        Top = 72
        Width = 337
        Height = 21
        DataField = 'URL'
        DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
        MaxLength = 100
        TabOrder = 1
        OnChange = DBEdit20Change
      end
    end
  end
  object DBNavigator: TDBNavigator
    Left = 363
    Top = 4
    Width = 80
    Height = 18
    DataSource = ProhlizeniZakaznikuForm.ZakazniciTblDS
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    Hints.Strings = (
      'Prvn�'
      'P�edchoz�'
      'N�sleduj�c�'
      'Posledn�')
    ParentShowHint = False
    ShowHint = True
    TabOrder = 11
  end
  object Web: TGoToWeb
    Left = 300
    Top = 392
  end
end