home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Rejstrik / frmFind.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-21  |  7.0 KB  |  234 lines
  1. VERSION 5.00
  2. Begin VB.Form frmFind 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Hledej"
  5.    ClientHeight    =   3615
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   5220
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   238
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmFind.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   3615
  23.    ScaleWidth      =   5220
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   1  'CenterOwner
  26.    Begin VB.Frame Frame2 
  27.       Caption         =   "Kde hledat?"
  28.       Height          =   675
  29.       Left            =   2460
  30.       TabIndex        =   4
  31.       Top             =   0
  32.       Width           =   2715
  33.       Begin VB.CheckBox chkWhere 
  34.          Appearance      =   0  'Flat
  35.          Caption         =   "v popisu"
  36.          ForeColor       =   &H80000008&
  37.          Height          =   315
  38.          Index           =   1
  39.          Left            =   1260
  40.          TabIndex        =   6
  41.          Top             =   240
  42.          Value           =   1  'Checked
  43.          Width           =   1035
  44.       End
  45.       Begin VB.CheckBox chkWhere 
  46.          Appearance      =   0  'Flat
  47.          Caption         =   "v titulku"
  48.          ForeColor       =   &H80000008&
  49.          Height          =   315
  50.          Index           =   0
  51.          Left            =   120
  52.          TabIndex        =   5
  53.          Top             =   240
  54.          Value           =   1  'Checked
  55.          Width           =   1035
  56.       End
  57.    End
  58.    Begin VB.Frame Frame1 
  59.       Caption         =   "Kategorie?"
  60.       Height          =   3075
  61.       Left            =   60
  62.       TabIndex        =   2
  63.       Top             =   0
  64.       Width           =   2355
  65.       Begin VB.ListBox lstCategories 
  66.          Appearance      =   0  'Flat
  67.          Height          =   2730
  68.          Left            =   120
  69.          Style           =   1  'Checkbox
  70.          TabIndex        =   3
  71.          Top             =   240
  72.          Width           =   2115
  73.       End
  74.    End
  75.    Begin VB.CommandButton cmdCancel 
  76.       Cancel          =   -1  'True
  77.       Caption         =   "&Storno"
  78.       Height          =   375
  79.       Left            =   4020
  80.       TabIndex        =   1
  81.       Top             =   3180
  82.       Width           =   1155
  83.    End
  84.    Begin VB.CommandButton cmdFind 
  85.       Caption         =   "&Hledej"
  86.       Default         =   -1  'True
  87.       Height          =   375
  88.       Left            =   2820
  89.       TabIndex        =   0
  90.       Top             =   3180
  91.       Width           =   1155
  92.    End
  93.    Begin VB.Frame Frame3 
  94.       Height          =   2415
  95.       Left            =   2460
  96.       TabIndex        =   7
  97.       Top             =   660
  98.       Width           =   2715
  99.       Begin VB.OptionButton optWhat 
  100.          Appearance      =   0  'Flat
  101.          Caption         =   "Jak
  102. koliv slovo"
  103.          ForeColor       =   &H80000008&
  104.          Height          =   255
  105.          Index           =   1
  106.          Left            =   120
  107.          TabIndex        =   12
  108.          Top             =   1440
  109.          Width           =   1875
  110.       End
  111.       Begin VB.OptionButton optWhat 
  112.          Appearance      =   0  'Flat
  113.          Caption         =   "V
  114. echna slova"
  115.          ForeColor       =   &H80000008&
  116.          Height          =   255
  117.          Index           =   0
  118.          Left            =   120
  119.          TabIndex        =   11
  120.          Top             =   1140
  121.          Value           =   -1  'True
  122.          Width           =   1875
  123.       End
  124.       Begin VB.TextBox txtFind 
  125.          Appearance      =   0  'Flat
  126.          Height          =   315
  127.          Left            =   120
  128.          TabIndex        =   8
  129.          Top             =   420
  130.          Width           =   2475
  131.       End
  132.       Begin VB.Label lblTitle 
  133.          AutoSize        =   -1  'True
  134.          Caption         =   "Zp
  135. sob hled
  136.          Height          =   195
  137.          Index           =   1
  138.          Left            =   120
  139.          TabIndex        =   10
  140.          Top             =   840
  141.          Width           =   1080
  142.       End
  143.       Begin VB.Label lblTitle 
  144.          AutoSize        =   -1  'True
  145.          Caption         =   "Hledan
  146.  slova (odd
  147.  mezerou)"
  148.          Height          =   195
  149.          Index           =   0
  150.          Left            =   120
  151.          TabIndex        =   9
  152.          Top             =   180
  153.          Width           =   2490
  154.       End
  155.    End
  156. Attribute VB_Name = "frmFind"
  157. Attribute VB_GlobalNameSpace = False
  158. Attribute VB_Creatable = False
  159. Attribute VB_PredeclaredId = True
  160. Attribute VB_Exposed = False
  161. Option Explicit
  162. Private Sub cmdCancel_Click()
  163.   Unload Me
  164. End Sub
  165. Private Sub cmdFind_Click()
  166.   Dim sql As String, i As Long
  167.   Dim keyWord() As String, podm As String
  168.   'podminka pro vybrane kategorie
  169.   With lstCategories
  170.     If Not .Selected(0) Then
  171.       For i = 1 To .ListCount - 1
  172.         If .Selected(i) Then sql = sql & .ItemData(i) & ","
  173.       Next i
  174.       If Len(sql) = 0 Then
  175.         MsgBox "Mus
  176. te vybrat kategorii.", vbInformation, App.ProductName
  177.         Exit Sub
  178.       Else
  179.         sql = "CDItems.id_category IN (" & Left(sql, Len(sql) - 1) & ")"
  180.       End If
  181.     End If
  182.   End With
  183.   'nastaveni zacatku podminky
  184.   If Len(sql) = 0 Then
  185.     sql = " WHERE 1=1"
  186.   Else
  187.     sql = " WHERE " & sql
  188.   End If
  189.   If Trim(txtFind.Text) <> "" Then
  190.     'hledana slova
  191.     keyWord = Split(txtFind.Text, " ")
  192.     sql = sql & " AND ("
  193.     podm = IIf(optWhat(0).Value, "AND", "OR")
  194.     'podminka pro titulek prispevku
  195.     If chkWhere(0).Value = vbChecked Then
  196.       sql = sql & "("
  197.       For i = LBound(keyWord) To UBound(keyWord)
  198.         sql = sql & " CDItems.label LIKE '%" & keyWord(i) & "%' " & podm
  199.       Next i
  200.       sql = Left(sql, Len(sql) - Len(podm)) & ")"
  201.     End If
  202.     'podminka pro popis prispevku
  203.     If chkWhere(1).Value = vbChecked Then
  204.       If chkWhere(0).Value = vbChecked Then
  205.         sql = sql & " OR ("
  206.       Else
  207.         sql = sql & "("
  208.       End If
  209.       For i = LBound(keyWord) To UBound(keyWord)
  210.         sql = sql & " Instr(1, CDItems.description, '" & keyWord(i) & "')>0 " & podm
  211.       Next i
  212.       sql = Left(sql, Len(sql) - Len(podm)) & ")"
  213.     End If
  214.     'dokonceni podminky
  215.     sql = sql & ")"
  216.   End If
  217.   frmMain.FillCDItems sql
  218.   'zavri me
  219.   cmdCancel_Click
  220. End Sub
  221. Private Sub Form_Load()
  222.   LoadCategories lstCategories
  223. End Sub
  224. Private Sub lstCategories_ItemCheck(Item As Integer)
  225.   Dim i As Long
  226.   If Item = 0 Then
  227.     For i = 1 To lstCategories.ListCount - 1
  228.       lstCategories.Selected(i) = False
  229.     Next i
  230.   Else
  231.     If lstCategories.Selected(Item) = True Then lstCategories.Selected(0) = False
  232.   End If
  233. End Sub
  234.