Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/Pantheon.csy/RCDATA/TINTERNIINFORMACEFORM/TINTERNIINFORMACEFORM.txt

Text File | 1999-04-22 | 8.7 KB | 340 lines

object InterniInformaceForm: TInterniInformaceForm
  Left = 167
  Top = 86
  Width = 594
  Height = 428
  Caption = 'InterniInformaceForm'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = InfMainMenu
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DummyPageControl: TPageControl
    Left = 4
    Top = 8
    Width = 573
    Height = 361
    ActivePage = InfTS
    TabOrder = 0
    object InfTS: TTabSheet
      Caption = 'Intern� informace'
      object InfCoolBar: TCoolBar
        Left = 0
        Top = 0
        Width = 565
        Height = 26
        Bands = <
          item
            Control = ToolBar1
            ImageIndex = -1
            MinHeight = 22
            Width = 561
          end>
        object ToolBar1: TToolBar
          Left = 0
          Top = 0
          Width = 557
          Height = 22
          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 z�jemce'
            Caption = 'P�idat'
            ImageIndex = 19
            ParentShowHint = False
            ShowHint = True
            OnClick = PridatSBtnClick
          end
          object VymazatSBtn: TToolButton
            Left = 23
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Vymazat z�jemce'
            Caption = 'Vymazat'
            ImageIndex = 20
            ParentShowHint = False
            ShowHint = True
            OnClick = VymazatSBtnClick
          end
          object UkazatSBtn: TToolButton
            Left = 46
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Uk�zat z�jemce'
            Caption = 'Uk�zat'
            ImageIndex = 2
            ParentShowHint = False
            ShowHint = True
            OnClick = UkazatSBtnClick
          end
          object ZajemciTiskBtn: TToolButton
            Left = 69
            Top = 0
            Width = 23
            Height = 22
            Hint = 'Vytisknout seznam'#13#10'z�jemc�'
            Caption = 'Tisk'
            ImageIndex = 33
            ParentShowHint = False
            ShowHint = True
            OnClick = ZajemciTiskBtnClick
          end
        end
      end
      object InfMainPanel: TPanel
        Left = 0
        Top = 26
        Width = 565
        Height = 295
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        Visible = False
        object Label1: TLabel
          Left = 360
          Top = 244
          Width = 74
          Height = 13
          Caption = 'Minim�ln� cena:'
        end
        object Label4: TLabel
          Left = 248
          Top = 8
          Width = 155
          Height = 13
          Caption = 'Pozn�mka k vybran�mu z�jemci:'
        end
        object Label2: TLabel
          Left = 8
          Top = 8
          Width = 111
          Height = 13
          Caption = 'Z�jemci o zak�zku:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object PageControl1: TPageControl
          Left = 3
          Top = 128
          Width = 550
          Height = 105
          ActivePage = TabSheet1
          TabOrder = 0
          object TabSheet1: TTabSheet
            Caption = 'Provize'
            object ProvizeDBMemo: TDBMemo
              Left = 0
              Top = 0
              Width = 542
              Height = 77
              Align = alClient
              DataField = 'Provize'
              DataSource = IntInfDS
              TabOrder = 0
            end
          end
          object TabSheet2: TTabSheet
            Caption = 'Prodejnost'
            object ProdejnostDBMemo: TDBMemo
              Left = 0
              Top = 0
              Width = 550
              Height = 109
              Align = alClient
              DataField = 'Prodejnost'
              DataSource = IntInfDS
              TabOrder = 0
            end
          end
        end
        object MinCenaDBEdit: TDBEdit
          Left = 440
          Top = 240
          Width = 113
          Height = 21
          DataField = 'MinCena'
          DataSource = IntInfDS
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object ZakazniciDBGrid: TDBGrid
          Left = 8
          Top = 24
          Width = 233
          Height = 93
          DataSource = ZajemciDS
          Options = [dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          TabOrder = 2
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              FieldName = 'JmenoZakaznika'
              Width = 212
            end>
        end
        object PoznamkaDBMemo: TDBMemo
          Left = 248
          Top = 24
          Width = 305
          Height = 93
          DataField = 'Poznamka'
          DataSource = ZajemciDS
          TabOrder = 3
          OnExit = PoznamkaDBMemoExit
        end
      end
    end
  end
  object InfMainMenu: TMainMenu
    Left = 544
    Top = 65520
    object InfMnI: TMenuItem
      Caption = '&Intern� informace'
      Enabled = False
      GroupIndex = 130
      object PridatZajMnI: TMenuItem
        Caption = '&P�id�n� z�jemce'
        GroupIndex = 131
        OnClick = PridatSBtnClick
      end
      object VymazatZajMnI: TMenuItem
        Caption = '&Vymaz�n� z�jemce'
        GroupIndex = 132
        OnClick = VymazatSBtnClick
      end
      object UkazatZajMnI: TMenuItem
        Caption = '&Uk�z�n� z�jemce'
        GroupIndex = 133
        OnClick = UkazatSBtnClick
      end
      object TiskZajemcuMnI: TMenuItem
        Caption = '&Tisk z�jemc�'
        GroupIndex = 133
        OnClick = ZajemciTiskBtnClick
      end
    end
  end
  object IntInfTbl: TTable
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakazky'
    TableName = 'IntInf.db'
    Left = 280
    Top = 65520
    object IntInfTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Required = True
      Size = 30
    end
    object IntInfTblMinCena: TCurrencyField
      FieldName = 'MinCena'
    end
    object IntInfTblProvize: TMemoField
      FieldName = 'Provize'
      BlobType = ftMemo
      Size = 240
    end
    object IntInfTblProdejnost: TMemoField
      FieldName = 'Prodejnost'
      BlobType = ftMemo
      Size = 240
    end
  end
  object IntInfDS: TDataSource
    DataSet = IntInfTbl
    Left = 232
    Top = 65520
  end
  object ZajemciTbl: TTable
    AfterInsert = ZajemciTblRefresh
    AfterPost = ZajemciTblRefresh
    AfterDelete = ZajemciTblRefresh
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakazky'
    TableName = 'Zajemci.db'
    Left = 384
    Top = 65520
    object ZajemciTblJmenoZakaznika: TStringField
      DisplayWidth = 20
      FieldName = 'JmenoZakaznika'
      LookupDataSet = ZakazniciTbl
      LookupKeyFields = 'CisloZakaznika'
      LookupResultField = 'Jmeno'
      KeyFields = 'CisloZakaznika'
      Size = 100
      Lookup = True
    end
    object ZajemciTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Required = True
      Size = 30
    end
    object ZajemciTblCisloZakaznika: TStringField
      FieldName = 'CisloZakaznika'
      Required = True
      Size = 10
    end
    object ZajemciTblPoznamka: TMemoField
      FieldName = 'Poznamka'
      BlobType = ftMemo
      Size = 240
    end
  end
  object ZajemciDS: TDataSource
    DataSet = ZajemciTbl
    OnDataChange = ZajemciDSDataChange
    Left = 328
    Top = 65520
  end
  object ZakazniciTbl: TTable
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakaznika'
    TableName = 'Zakaznic.DB'
    Left = 480
    Top = 65520
    object ZakazniciTblCisloZakaznika: TStringField
      FieldName = 'CisloZakaznika'
      Required = True
      Size = 10
    end
    object ZakazniciTblJmeno: TStringField
      DisplayWidth = 60
      FieldName = 'Jmeno'
      Required = True
      Size = 60
    end
  end
  object ZakazniciDS: TDataSource
    DataSet = ZakazniciTbl
    Left = 432
    Top = 65520
  end
end