home *** CD-ROM | disk | FTP | other *** search
- 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
-