Chip 2007 January/CHIP_CD_01_2007.iso/Bazy/Archiwum/Archiwum.exe/0/RCDATA/TFMAIN/TFMAIN.txt

Text File | 2004-03-19 | 20.3 KB | 743 lines

object fMain: TfMain
  Left = 206
  Top = 172
  Width = 746
  Height = 480
  Caption = 'Wyszukiwanie w archiwum CHIP-a'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 213
    Height = 446
    Align = alLeft
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 2
      Top = 2
      Width = 209
      Height = 442
      Align = alClient
      Caption = ' Wyszukiwanie '
      TabOrder = 0
      object Panel2: TPanel
        Left = 2
        Top = 15
        Width = 205
        Height = 425
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        TabOrder = 0
        object pgcntrlSearch: TPageControl
          Left = 2
          Top = 2
          Width = 201
          Height = 356
          ActivePage = tbshtSimple
          Align = alTop
          Style = tsFlatButtons
          TabOrder = 0
          object tbshtSimple: TTabSheet
            Caption = 'Proste'
            object Label13: TLabel
              Left = 3
              Top = 2
              Width = 108
              Height = 13
              Caption = 'ze wszystkimi s'#322'owami:'
              FocusControl = edtSimpleText
            end
            object edtSimpleText: TEdit
              Left = 3
              Top = 18
              Width = 187
              Height = 21
              TabOrder = 0
            end
            object RxDBLkupCmbSimpleDzial: TRxDBLookupCombo
              Left = 3
              Top = 50
              Width = 187
              Height = 21
              DropDownCount = 8
              DisplayEmpty = 'wszystkie dzia'#322'y'
              LookupField = 'dzial'
              LookupDisplay = 'dzial'
              LookupSource = dsDzialy
              TabOrder = 1
            end
            object btnSearchSimple: TButton
              Left = 116
              Top = 82
              Width = 75
              Height = 25
              Caption = 'Szukaj'
              Default = True
              TabOrder = 2
              OnClick = btnSearchSimpleClick
            end
            object btnHelp1: TButton
              Left = 3
              Top = 82
              Width = 75
              Height = 25
              Action = actHelp
              TabOrder = 3
            end
          end
          object tbshtAdvenced: TTabSheet
            Caption = 'Zaawansowane'
            ImageIndex = 1
            object Label1: TLabel
              Left = 3
              Top = 2
              Width = 108
              Height = 13
              Caption = 'ze wszystkimi s'#322'owami:'
              FocusControl = edtAdvAll
            end
            object Label2: TLabel
              Left = 3
              Top = 45
              Width = 69
              Height = 13
              Caption = 'z wyra'#380'eniem: '
              FocusControl = edtAdvFraza
            end
            object Label3: TLabel
              Left = 3
              Top = 87
              Width = 118
              Height = 13
              Caption = 'z kt'#243'rymkolwiek ze s'#322#243'w:'
              FocusControl = edtAdvAny
            end
            object Label4: TLabel
              Left = 3
              Top = 130
              Width = 49
              Height = 13
              Caption = 'bez s'#322#243'w: '
              FocusControl = edtAdvWithout
            end
            object Label5: TLabel
              Left = 3
              Top = 172
              Width = 53
              Height = 13
              Caption = 'od numeru:'
              FocusControl = RxDBLkupCmbAdvOdNr
            end
            object Label6: TLabel
              Left = 100
              Top = 172
              Width = 53
              Height = 13
              Caption = 'do numeru:'
              FocusControl = RxDBLkupCmbAdvDoNr
            end
            object edtAdvAll: TEdit
              Left = 3
              Top = 18
              Width = 187
              Height = 21
              TabOrder = 0
            end
            object RxDBLkupCmbAdvDzial: TRxDBLookupCombo
              Left = 3
              Top = 250
              Width = 187
              Height = 21
              DropDownCount = 8
              DisplayEmpty = 'wszystkie dzia'#322'y'
              LookupField = 'dzial'
              LookupDisplay = 'dzial'
              LookupSource = dsDzialy
              TabOrder = 7
            end
            object btnAdvSearch: TButton
              Left = 115
              Top = 282
              Width = 75
              Height = 25
              Caption = 'Szukaj'
              Default = True
              TabOrder = 8
              OnClick = btnSearchSimpleClick
            end
            object edtAdvFraza: TEdit
              Left = 3
              Top = 60
              Width = 187
              Height = 21
              TabOrder = 1
            end
            object edtAdvAny: TEdit
              Left = 3
              Top = 103
              Width = 187
              Height = 21
              TabOrder = 2
            end
            object edtAdvWithout: TEdit
              Left = 3
              Top = 145
              Width = 187
              Height = 21
              TabOrder = 3
            end
            object RxDBLkupCmbAdvOdNr: TRxDBLookupCombo
              Left = 3
              Top = 187
              Width = 90
              Height = 21
              DropDownCount = 8
              DisplayEmpty = 'wszystkie'
              LookupField = 'numer_id'
              LookupDisplay = 'numer'
              LookupSource = dsNumery
              TabOrder = 4
            end
            object RxDBLkupCmbAdvDoNr: TRxDBLookupCombo
              Left = 100
              Top = 187
              Width = 90
              Height = 21
              DropDownCount = 8
              DisplayEmpty = 'wszystkie'
              LookupField = 'numer_id'
              LookupDisplay = 'numer'
              LookupSource = dsNumery
              TabOrder = 5
            end
            object RxDBLkupCmbAuthors: TRxDBLookupCombo
              Left = 3
              Top = 219
              Width = 187
              Height = 21
              DropDownCount = 8
              DisplayEmpty = 'wszyscy autorzy'
              LookupField = 'AUTOR_ID'
              LookupDisplay = 'AUTOR'
              LookupSource = dsAuthors
              TabOrder = 6
            end
            object btnHelp2: TButton
              Left = 3
              Top = 282
              Width = 75
              Height = 25
              Action = actHelp
              TabOrder = 9
            end
          end
        end
      end
    end
  end
  object pnlRight: TPanel
    Left = 292
    Top = 0
    Width = 446
    Height = 446
    Align = alRight
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 1
    object Panel3: TPanel
      Left = 2
      Top = 409
      Width = 442
      Height = 35
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object Panel4: TPanel
        Left = 356
        Top = 0
        Width = 86
        Height = 35
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 1
        object btnClose: TButton
          Left = 5
          Top = 8
          Width = 75
          Height = 25
          Cancel = True
          Caption = 'Zamknij'
          TabOrder = 0
          OnClick = btnCloseClick
        end
      end
      object btnShowInIE: TButton
        Left = 4
        Top = 8
        Width = 133
        Height = 25
        Caption = 'Poka'#380' artyku'#322' (internet)'
        Enabled = False
        TabOrder = 0
        OnClick = btnShowInIEClick
      end
    end
    object grpboxWyniki: TGroupBox
      Left = 2
      Top = 2
      Width = 442
      Height = 407
      Align = alClient
      Caption = ' Wyniki '
      TabOrder = 1
      object Panel5: TPanel
        Left = 2
        Top = 15
        Width = 438
        Height = 390
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 2
        TabOrder = 0
        object Panel6: TPanel
          Left = 2
          Top = 225
          Width = 434
          Height = 163
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 0
          object Splitter1: TSplitter
            Left = 299
            Top = 0
            Height = 163
            Align = alRight
            Beveled = True
          end
          object Splitter2: TSplitter
            Left = 192
            Top = 0
            Height = 163
            Beveled = True
          end
          object pnlDane: TPanel
            Left = 0
            Top = 0
            Width = 192
            Height = 163
            Align = alLeft
            BevelOuter = bvNone
            TabOrder = 0
            OnResize = pnlDaneResize
            object Label7: TLabel
              Left = 4
              Top = 2
              Width = 43
              Height = 13
              Caption = 'Podtytu'#322':'
            end
            object Label8: TLabel
              Left = 4
              Top = 43
              Width = 28
              Height = 13
              Caption = 'Dzia'#322':'
            end
            object Label9: TLabel
              Left = 4
              Top = 83
              Width = 45
              Height = 13
              Caption = 'Poddzia'#322':'
            end
            object Label12: TLabel
              Left = 4
              Top = 123
              Width = 33
              Height = 13
              Caption = 'Temat:'
            end
            object DBEdtPodtytul: TDBEdit
              Left = 4
              Top = 18
              Width = 185
              Height = 21
              DataField = 'PODTYTUL'
              DataSource = dsArts
              ReadOnly = True
              TabOrder = 0
            end
            object DBEdtDzial: TDBEdit
              Left = 4
              Top = 59
              Width = 185
              Height = 21
              DataField = 'DZIAL'
              DataSource = dsArts
              ReadOnly = True
              TabOrder = 1
            end
            object DBEdtPoddzial: TDBEdit
              Left = 4
              Top = 99
              Width = 185
              Height = 21
              DataField = 'PODDZIAL'
              DataSource = dsArts
              ReadOnly = True
              TabOrder = 2
            end
            object DBEdtTemat: TDBEdit
              Left = 4
              Top = 139
              Width = 185
              Height = 21
              DataField = 'DO_SPISU'
              DataSource = dsArts
              ReadOnly = True
              TabOrder = 3
            end
          end
          object pnlAthors: TPanel
            Left = 302
            Top = 0
            Width = 132
            Height = 163
            Align = alRight
            BevelOuter = bvNone
            BorderWidth = 2
            TabOrder = 1
            object Label11: TLabel
              Left = 2
              Top = 2
              Width = 128
              Height = 15
              Align = alTop
              AutoSize = False
              Caption = 'Autor:'
            end
            object vstAuthors: TVirtualStringTree
              Left = 2
              Top = 17
              Width = 128
              Height = 144
              Align = alClient
              CheckImageKind = ckSystemFlat
              Header.AutoSizeIndex = 2
              Header.Font.Charset = DEFAULT_CHARSET
              Header.Font.Color = clWindowText
              Header.Font.Height = -11
              Header.Font.Name = 'MS Sans Serif'
              Header.Font.Style = []
              Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
              IncrementalSearch = isAll
              ParentBackground = False
              TabOrder = 0
              TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
              TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
              TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
              TreeOptions.SelectionOptions = [toFullRowSelect]
              TreeOptions.StringOptions = [toSaveCaptions]
              OnGetText = vstAuthorsGetText
              OnInitNode = vstAuthorsInitNode
              Columns = <
                item
                  MinWidth = 120
                  Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
                  Position = 0
                  Width = 124
                  WideText = 'Imi'#281' i nazwisko'
                end>
            end
          end
          object Panel7: TPanel
            Left = 195
            Top = 0
            Width = 104
            Height = 163
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 2
            TabOrder = 2
            object Label10: TLabel
              Left = 2
              Top = 2
              Width = 100
              Height = 15
              Align = alTop
              AutoSize = False
              Caption = 'Abstrakt'
            end
            object DBMemo1: TDBMemo
              Left = 2
              Top = 17
              Width = 100
              Height = 144
              Align = alClient
              DataField = 'ABSTRAKT'
              DataSource = dsArts
              TabOrder = 0
            end
          end
        end
        object vstSearchResults: TVirtualStringTree
          Left = 2
          Top = 2
          Width = 434
          Height = 223
          Align = alClient
          CheckImageKind = ckSystemFlat
          Header.AutoSizeIndex = 2
          Header.Font.Charset = DEFAULT_CHARSET
          Header.Font.Color = clWindowText
          Header.Font.Height = -11
          Header.Font.Name = 'MS Sans Serif'
          Header.Font.Style = []
          Header.Options = [hoAutoResize, hoColumnResize, hoDblClickResize, hoDrag, hoShowSortGlyphs, hoVisible]
          IncrementalSearch = isAll
          ParentBackground = False
          TabOrder = 1
          TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes]
          TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
          TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages]
          TreeOptions.SelectionOptions = [toFullRowSelect]
          TreeOptions.StringOptions = [toSaveCaptions]
          OnChange = vstSearchResultsChange
          OnDblClick = vstSearchResultsDblClick
          OnFreeNode = vstSearchResultsFreeNode
          OnGetText = vstSearchResultsGetText
          OnHeaderClick = vstSearchResultsHeaderClick
          OnInitNode = vstSearchResultsInitNode
          Columns = <
            item
              MinWidth = 120
              Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
              Position = 0
              Width = 200
              WideText = 'Tytu'#322
            end
            item
              MinWidth = 100
              Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
              Position = 1
              Width = 100
              WideText = 'Numer'
            end
            item
              MinWidth = 50
              Options = [coAllowClick, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible]
              Position = 2
              Width = 130
              WideText = 'Strona'
            end>
        end
      end
    end
  end
  object ADOQryDzialy: TADOQuery
    Connection = DM.ADOConKatalog
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from W_Dzialy')
    Left = 14
    Top = 418
  end
  object dsDzialy: TDataSource
    AutoEdit = False
    DataSet = ADOQryDzialy
    Left = 40
    Top = 418
  end
  object ADOQryArts: TADOQuery
    Connection = DM.ADOConKatalog
    CursorType = ctStatic
    AfterOpen = ADOQryArtsAfterOpen
    BeforeClose = ADOQryArtsBeforeClose
    Parameters = <>
    SQL.Strings = (
      'select * from artykuly')
    Left = 350
    Top = 115
    object ADOQryArtsARTYKUL_ID: TIntegerField
      FieldName = 'ARTYKUL_ID'
    end
    object ADOQryArtsTYTUL: TWideStringField
      DisplayLabel = 'Tytu'#322
      FieldName = 'TYTUL'
      Size = 250
    end
    object ADOQryArtsPODTYTUL: TWideStringField
      DisplayLabel = 'Podtytu'#322
      FieldName = 'PODTYTUL'
      Size = 250
    end
    object ADOQryArtsDO_SPISU: TWideStringField
      DisplayLabel = 'Do spisu'
      FieldName = 'DO_SPISU'
      Size = 255
    end
    object ADOQryArtsABSTRAKT: TMemoField
      DisplayLabel = 'Abstrakt'
      FieldName = 'ABSTRAKT'
      BlobType = ftMemo
    end
    object ADOQryArtsDZIAL: TWideStringField
      DisplayLabel = 'Dzia'#322
      FieldName = 'DZIAL'
      Size = 50
    end
    object ADOQryArtsPODDZIAL: TWideStringField
      DisplayLabel = 'Poddzia'#322
      FieldName = 'PODDZIAL'
      Size = 250
    end
    object ADOQryArtsNUMER: TWideStringField
      DisplayLabel = 'Numer'
      FieldName = 'NUMER'
    end
    object ADOQryArtsNUMER_ID: TIntegerField
      FieldName = 'NUMER_ID'
    end
    object ADOQryArtsSTRONA: TIntegerField
      DisplayLabel = 'Strona'
      FieldName = 'STRONA'
    end
    object ADOQryArtsABSTRAKT_KROTKI: TWideStringField
      DisplayLabel = 'Abstrakt'
      FieldName = 'ABSTRAKT_KROTKI'
      Size = 255
    end
  end
  object dsArts: TDataSource
    AutoEdit = False
    DataSet = ADOQryArts
    Left = 380
    Top = 115
  end
  object FormStrg: TFormStorage
    Options = [fpPosition]
    OnSavePlacement = FormStrgSavePlacement
    OnRestorePlacement = FormStrgRestorePlacement
    StoredProps.Strings = (
      'pnlAthors.Width'
      'pnlDane.Width')
    StoredValues = <>
    Left = 236
    Top = 98
  end
  object ADOQryNumery: TADOQuery
    Connection = DM.ADOConKatalog
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from W_Numery order by numer_id')
    Left = 74
    Top = 418
  end
  object dsNumery: TDataSource
    AutoEdit = False
    DataSet = ADOQryNumery
    Left = 104
    Top = 418
  end
  object ADOQryAutor: TADOQuery
    Connection = DM.ADOConKatalog
    CursorType = ctStatic
    AfterOpen = ADOQryAutorAfterOpen
    AfterClose = ADOQryAutorAfterClose
    DataSource = dsArts
    Parameters = <
      item
        Name = 'artykul_id'
        DataType = ftInteger
        Value = 3676
      end>
    SQL.Strings = (
      'SELECT *'
      'FROM autor'

        'WHERE autor_id in (select autor_id from autorzy where artykul_id' +
        '=:artykul_id)')
    Left = 626
    Top = 353
    object ADOQryAutorAUTOR_ID: TIntegerField
      FieldName = 'AUTOR_ID'
    end
    object ADOQryAutorAUTOR: TWideStringField
      DisplayLabel = 'Imi'#281' i nazwisko'
      DisplayWidth = 50
      FieldName = 'AUTOR'
      Size = 50
    end
    object ADOQryAutorEMAIL: TWideStringField
      DisplayLabel = 'e-mail'
      FieldName = 'EMAIL'
      Size = 50
    end
  end
  object dsAutor: TDataSource
    AutoEdit = False
    DataSet = ADOQryAutor
    Left = 656
    Top = 353
  end
  object ADOQryAuthors: TADOQuery
    Connection = DM.ADOConKatalog
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT distinct *'
      'FROM autor'
      'order by autor')
    Left = 142
    Top = 418
    object IntegerField1: TIntegerField
      FieldName = 'AUTOR_ID'
    end
    object WideStringField1: TWideStringField
      DisplayLabel = 'Imi'#281' i nazwisko'
      DisplayWidth = 50
      FieldName = 'AUTOR'
      Size = 50
    end
    object WideStringField2: TWideStringField
      DisplayLabel = 'e-mail'
      FieldName = 'EMAIL'
      Size = 50
    end
  end
  object dsAuthors: TDataSource
    AutoEdit = False
    DataSet = ADOQryAuthors
    Left = 172
    Top = 420
  end
  object XPManifest1: TXPManifest
    Left = 234
    Top = 160
  end
  object ActionList1: TActionList
    Left = 252
    Top = 208
    object actHelp: TAction
      Caption = 'Pomoc'
      ShortCut = 112
      OnExecute = actHelpExecute
    end
  end
end