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

Text File | 1999-04-22 | 12.8 KB | 505 lines

object ProhlizeniZakaznikuForm: TProhlizeniZakaznikuForm
  Left = 221
  Top = 114
  Width = 475
  Height = 387
  Caption = 'Katalog klient�'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid: TDrDBGrid
    Left = 9
    Top = 49
    Width = 449
    Height = 183
    Align = alClient
    DataSource = ZakazniciTblDS
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = UkazatSBtnClick
    OnKeyPress = DBGridKeyPress
    OnColumnResize = DBGridColumnResize
    Columns = <
      item
        FieldName = 'Jmeno'
        Title.Caption = 'Jm�no'
        Width = 151
      end
      item
        FieldName = 'Ulice'
        Width = 116
      end
      item
        FieldName = 'Obec'
        Width = 112
      end
      item
        FieldName = 'PSC'
        Width = 47
      end>
  end
  object KatalogKlientuCoolBar: TCoolBar
    Left = 0
    Top = 0
    Width = 467
    Height = 26
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 463
      end>
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 459
      Height = 22
      Align = alBottom
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      HotImages = PomocneDM.BtnHotImages
      Images = PomocneDM.BtnImages
      TabOrder = 0
      object PridatSBtn: TToolButton
        Left = 0
        Top = 0
        Width = 23
        Height = 22
        Hint = 'P�idat nov�ho klienta'
        Caption = 'P�idat'
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = PridatSBtnClick
      end
      object EditovatSBtn: TToolButton
        Left = 23
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Opravit �daje'#13#10'o klientovi'
        Caption = 'Opravit'
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
        OnClick = EditovatSBtnClick
      end
      object UkazatSBtn: TToolButton
        Left = 46
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Prohl�et �daje'#13#10'o klientovi'
        Caption = 'Uk�zat'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = UkazatSBtnClick
      end
      object AktivitySBtn: TToolButton
        Left = 69
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Uk�zat aktivity klienta'
        Caption = 'Aktivity'
        ImageIndex = 22
        ParentShowHint = False
        ShowHint = True
        OnClick = AktivitySBtnClick
      end
      object VymazatSBtn: TToolButton
        Left = 92
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Vymazat z�znam o klientovi'
        Caption = 'Vymazat'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = VymazatSBtnClick
      end
      object ToolButton1: TToolButton
        Left = 115
        Top = 0
        Width = 8
        Height = 22
        Caption = 'ToolButton1'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object CopyBtn: TToolButton
        Left = 123
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Kop�rovat adresu klienta na schr�nku'
        Caption = 'Kop�rovat'
        ImageIndex = 28
        ParentShowHint = False
        ShowHint = True
        OnClick = CopyBtnClick
      end
    end
  end
  object TopPanel: TPanel
    Left = 0
    Top = 26
    Width = 467
    Height = 23
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object KatalogKlientuLbl: TLabel
      Left = 8
      Top = 8
      Width = 86
      Height = 13
      Caption = 'Katalog klient�'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ColSaveBtn: TSpeedButton
      Left = 360
      Top = 4
      Width = 18
      Height = 18
      Hint = 'Ulo�� aktu�ln� nastaven�'#13#10'sloupc� m��ky'
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333C444444444444433C847888888744433C4477777777
        44433C447888888744433C447777777744433C447888888744433C4477777777
        44433C444444444444433C444444444444433C44F888844844433C44F8888448
        44433CC4F8888448444338CCFFFFFFFFCC333333333333333333}
      ParentShowHint = False
      ShowHint = True
      OnClick = ColSaveBtnClick
    end
    object DBNavigator: TDBNavigator
      Left = 378
      Top = 4
      Width = 80
      Height = 18
      DataSource = ZakazniciTblDS
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      Hints.Strings = (
        'Prvn�'
        'P�edchoz�'
        'N�sleduj�c�'
        'Posledn�')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
  end
  object RightPanel: TPanel
    Left = 458
    Top = 49
    Width = 9
    Height = 183
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 3
  end
  object LeftPanel: TPanel
    Left = 0
    Top = 49
    Width = 9
    Height = 183
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 4
  end
  object BottomPanel: TPanel
    Left = 0
    Top = 232
    Width = 467
    Height = 109
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 5
    object JmenoKlientaLbl: TLabel
      Left = 8
      Top = 62
      Width = 65
      Height = 13
      Caption = '&Jm�no klienta'
      FocusControl = HledaniEdit
    end
    object CancelBtn: TBitBtn
      Left = 384
      Top = 74
      Width = 75
      Height = 25
      Cancel = True
      Caption = '&Zav��t'
      TabOrder = 0
      OnClick = CancelBtnClick
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000E0000000E0000000100
        0400000000007000000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
        DD00DDDDD4444DDDDD00DDD44444444DDD00DD444DDDD444DD00DD44DDDDDD44
        DD00D44DDDDDDDD44D00D44DDDDDDDD44D00D44DDDDDDDD44D00D44DDDDDDDD4
        4D00DD44DDDD4D44DD00DD44DDDD4444DD00DDDDDDDD444DDD00DDDDDDDD4444
        DD00DDDDDDDDDDDDDD00}
    end
    object HledaniEdit: TDBLookupComboBox
      Left = 8
      Top = 78
      Width = 257
      Height = 21
      KeyField = 'Jmeno'
      ListSource = ZakazniciTblDS
      TabOrder = 1
    end
    object InformaceGroupBox: TGroupBox
      Left = 8
      Top = 5
      Width = 449
      Height = 51
      Caption = 'Dal�� informace o klientovi '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      object DomuLabel: TLabel
        Left = 8
        Top = 16
        Width = 68
        Height = 13
        Caption = 'Telefon dom�:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DoPraceLabel: TLabel
        Left = 8
        Top = 32
        Width = 84
        Height = 13
        Caption = 'Telefon do pr�ce:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object MobilLabel: TLabel
        Left = 216
        Top = 16
        Width = 72
        Height = 13
        Caption = 'Mobiln� telefon:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object FaxLabel: TLabel
        Left = 216
        Top = 32
        Width = 20
        Height = 13
        Caption = 'Fax:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBText1: TDBText
        Left = 104
        Top = 16
        Width = 110
        Height = 15
        DataField = 'TelefonPrivat'
        DataSource = ZakazniciTblDS
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBText2: TDBText
        Left = 104
        Top = 32
        Width = 110
        Height = 15
        DataField = 'TelefonPrace'
        DataSource = ZakazniciTblDS
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBText3: TDBText
        Left = 296
        Top = 32
        Width = 140
        Height = 15
        DataField = 'Fax'
        DataSource = ZakazniciTblDS
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBText4: TDBText
        Left = 296
        Top = 16
        Width = 140
        Height = 15
        DataField = 'TelefonMobil'
        DataSource = ZakazniciTblDS
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object ZakazniciTbl: TTable
    AfterOpen = ZakazniciTblAfterOpen
    BeforePost = ZakazniciTblBeforePost
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'Jmeno'
    TableName = 'Zakaznic.DB'
    Left = 344
    Top = 136
  end
  object ZakazniciTblDS: TDataSource
    DataSet = ZakazniciTbl
    OnDataChange = ZakazniciTblDSDataChange
    Left = 344
    Top = 80
  end
  object PopupMenu1: TPopupMenu
    Left = 88
    Top = 104
    object PridatMnI: TMenuItem
      Caption = 'P�id�n� nov�ho klienta'
      OnClick = PridatSBtnClick
    end
    object EditovatMnI: TMenuItem
      Caption = 'Oprava klienta'
      OnClick = EditovatSBtnClick
    end
    object UkazatMnI: TMenuItem
      Caption = 'Prohl�en� klienta'
      OnClick = UkazatSBtnClick
    end
    object AktivityMnI: TMenuItem
      Caption = 'Aktivity klienta'
      OnClick = AktivitySBtnClick
    end
    object VymazatMnI: TMenuItem
      Caption = 'Vymaz�n� klienta'
      OnClick = VymazatSBtnClick
    end
  end
  object MainMenu: TMainMenu
    Left = 176
    Top = 104
    object OperaceMnI: TMenuItem
      Caption = '&Operace s katalogem'
      object _PridatMnI: TMenuItem
        Caption = 'P�id�n� nov�ho klienta'
        ShortCut = 16462
        OnClick = PridatSBtnClick
      end
      object _EditovatMnI: TMenuItem
        Caption = 'Oprava klienta'
        ShortCut = 16463
        OnClick = EditovatSBtnClick
      end
      object _UkazatMnI: TMenuItem
        Caption = 'Prohl�en� klienta'
        ShortCut = 16464
        OnClick = UkazatSBtnClick
      end
      object _AktivityMnI: TMenuItem
        Caption = 'Aktivity klienta'
        ShortCut = 16449
        OnClick = AktivitySBtnClick
      end
      object CopyMnI: TMenuItem
        Caption = 'Kop�rov�n� adresy na schr�nku'
        ShortCut = 16451
        OnClick = CopyBtnClick
      end
      object _VymazatMnI: TMenuItem
        Caption = 'Vymaz�n� klienta'
        OnClick = VymazatSBtnClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Zavrit1: TMenuItem
        Caption = '&Zav��t'
        OnClick = Zavrit1Click
      end
    end
    object TiskMnI: TMenuItem
      Caption = '&Tisk'
      object TisknoutVsechnyMnI: TMenuItem
        Caption = '&Cel� seznam'
        OnClick = TiskZakaznikyBtnClick
      end
      object TsiknoutVybranehoMnI: TMenuItem
        Caption = '&Vybran� klient'
        OnClick = TsiknoutVybranehoMnIClick
      end
    end
  end
end