home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / vbasic / Rejstrik / frmMain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-04-21  |  7.8 KB  |  234 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form frmMain 
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   6600
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   11715
  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            =   "frmMain.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    ScaleHeight     =   6600
  22.    ScaleWidth      =   11715
  23.    StartUpPosition =   2  'CenterScreen
  24.    Begin VB.ComboBox cboCategories 
  25.       Appearance      =   0  'Flat
  26.       Height          =   315
  27.       Left            =   2040
  28.       Sorted          =   -1  'True
  29.       Style           =   2  'Dropdown List
  30.       TabIndex        =   7
  31.       Top             =   60
  32.       Width           =   8115
  33.    End
  34.    Begin VB.Frame Frame2 
  35.       Height          =   6195
  36.       Left            =   10260
  37.       TabIndex        =   3
  38.       Top             =   360
  39.       Width           =   1395
  40.       Begin VB.CommandButton cmdControl 
  41.          Caption         =   "K&onec"
  42.          Height          =   375
  43.          Index           =   2
  44.          Left            =   120
  45.          TabIndex        =   6
  46.          Top             =   5700
  47.          Width           =   1155
  48.       End
  49.       Begin VB.CommandButton cmdControl 
  50.          Caption         =   "&Kop
  51.          Height          =   375
  52.          Index           =   1
  53.          Left            =   120
  54.          TabIndex        =   5
  55.          Top             =   600
  56.          Visible         =   0   'False
  57.          Width           =   1155
  58.       End
  59.       Begin VB.CommandButton cmdControl 
  60.          Caption         =   "&Hledej"
  61.          Height          =   375
  62.          Index           =   0
  63.          Left            =   120
  64.          TabIndex        =   4
  65.          Top             =   180
  66.          Width           =   1155
  67.       End
  68.    End
  69.    Begin VB.Frame Frame1 
  70.       BeginProperty Font 
  71.          Name            =   "Tahoma"
  72.          Size            =   8.25
  73.          Charset         =   238
  74.          Weight          =   700
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   6195
  80.       Left            =   60
  81.       TabIndex        =   0
  82.       Top             =   360
  83.       Width           =   10095
  84.       Begin VB.TextBox txtDesc 
  85.          Appearance      =   0  'Flat
  86.          Height          =   1275
  87.          Left            =   120
  88.          MultiLine       =   -1  'True
  89.          ScrollBars      =   2  'Vertical
  90.          TabIndex        =   2
  91.          Top             =   4800
  92.          Width           =   9855
  93.       End
  94.       Begin MSComctlLib.ListView lvwCDItems 
  95.          Height          =   4515
  96.          Left            =   120
  97.          TabIndex        =   1
  98.          Top             =   180
  99.          Width           =   9855
  100.          _ExtentX        =   17383
  101.          _ExtentY        =   7964
  102.          LabelEdit       =   1
  103.          LabelWrap       =   -1  'True
  104.          HideSelection   =   -1  'True
  105.          _Version        =   393217
  106.          ForeColor       =   -2147483640
  107.          BackColor       =   -2147483643
  108.          BorderStyle     =   1
  109.          Appearance      =   0
  110.          NumItems        =   0
  111.       End
  112.    End
  113.    Begin VB.Label lblTitle 
  114.       Appearance      =   0  'Flat
  115.       BackColor       =   &H80000003&
  116.       Caption         =   " Vyberte kategorii:"
  117.       BeginProperty Font 
  118.          Name            =   "Tahoma"
  119.          Size            =   9.75
  120.          Charset         =   238
  121.          Weight          =   700
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       ForeColor       =   &H00FFFFFF&
  127.       Height          =   315
  128.       Index           =   2
  129.       Left            =   60
  130.       TabIndex        =   8
  131.       Top             =   60
  132.       Width           =   1935
  133.    End
  134. Attribute VB_Name = "frmMain"
  135. Attribute VB_GlobalNameSpace = False
  136. Attribute VB_Creatable = False
  137. Attribute VB_PredeclaredId = True
  138. Attribute VB_Exposed = False
  139. Option Explicit
  140. Private lRsItems As ADODB.Recordset     'seznam polozek aktualne vybrane kategorie
  141. 'Zobrazi polozky z recordsetu lRsItems v ListView
  142. Public Sub FillCDItems(Optional ByVal sqlWhere As String = "")
  143.   Dim newItem As ListItem, sql As String
  144.   'vycisti seznam a textboxy
  145.   lvwCDItems.ListItems.Clear
  146.   txtDesc.Text = ""
  147.   'vytvor sql
  148.   sql = "SELECT CDITems.*, IIf(Categories.chip,'x','') AS [is_chip], " & vbCrLf & _
  149.         "       Categories.label AS [cat_label] " & vbCrLf & _
  150.         "FROM CDItems INNER JOIN Categories ON (CDItems.id_category=Categories.id_category) "
  151.   If Len(sqlWhere) > 0 Then sql = sql & sqlWhere
  152.   sql = sql & " ORDER BY cd, Categories.label"
  153.   'otevri recordset a nacpi do ListView
  154.   If lRsItems.State = adStateOpen Then lRsItems.Close
  155.   lRsItems.Open sql, gcnRejstrik
  156.   If lRsItems.RecordCount > 0 Then
  157.     lRsItems.MoveFirst
  158.     Do While Not lRsItems.EOF
  159.       Set newItem = lvwCDItems.ListItems.Add(Key:="x" & lRsItems("id_item"), Text:=lRsItems("cat_label"))
  160.       newItem.SubItems(1) = lRsItems("label")
  161.       newItem.SubItems(2) = lRsItems("cd")
  162.       newItem.SubItems(3) = lRsItems("path") & ""
  163.       newItem.SubItems(4) = lRsItems("is_chip")
  164.       lRsItems.MoveNext
  165.     Loop
  166.   End If
  167. End Sub
  168. '=============================================================================
  169. 'Nahrej polozky podle vybrane kategorie
  170. Private Sub cboCategories_Click()
  171.   Dim id_cat As Long, sql As String
  172.   'vytvor sql dotaz
  173.   id_cat = cboCategories.ItemData(cboCategories.ListIndex)
  174.   If id_cat > 0 Then sql = sql & " WHERE CDItems.id_category=" & id_cat
  175.   'napln seznam
  176.   FillCDItems sql
  177. End Sub
  178. Private Sub cmdControl_Click(Index As Integer)
  179.   Select Case Index
  180.     Case 0
  181.       frmFind.Show vbModal, Me
  182.     Case 2
  183.       Unload Me
  184.   End Select
  185. End Sub
  186. Private Sub Form_Load()
  187.   Me.Caption = App.ProductName
  188.   Set lRsItems = New ADODB.Recordset
  189.   With lRsItems
  190.     .LockType = adLockReadOnly
  191.     .CursorType = adOpenKeyset
  192.   End With
  193.   With lvwCDItems
  194.     .View = lvwReport
  195.     .GridLines = True
  196.     .FullRowSelect = True
  197.     .ColumnHeaders.Add Text:="Kategorie", Width:=1500
  198.     .ColumnHeaders.Add Text:="N
  199. zev", Width:=3000
  200.     .ColumnHeaders.Add Text:="CD", Width:=800
  201.     .ColumnHeaders.Add Text:="Cesta", Width:=3700
  202.     .ColumnHeaders.Add Text:="Chip", Width:=500
  203.   End With
  204.   LoadCategories cboCategories
  205. End Sub
  206. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  207.   If lRsItems.State = adStateOpen Then lRsItems.Close
  208.   Set lRsItems = Nothing
  209. End Sub
  210. '=============================================================================
  211. 'Trideni seznamu polozek
  212. Private Sub lvwCDItems_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
  213.   Dim idx As Long
  214.   With lvwCDItems
  215.     idx = ColumnHeader.Index - 1
  216.     If .SortKey = idx And .Sorted Then
  217.       .SortOrder = IIf((.SortOrder = lvwAscending), lvwDescending, lvwAscending)
  218.     Else
  219.       .SortKey = idx
  220.       .SortOrder = lvwAscending
  221.       .Sorted = True
  222.     End If
  223.   End With
  224. End Sub
  225. '=============================================================================
  226. 'Zobrazeni popisu polozky
  227. Private Sub lvwCDItems_ItemClick(ByVal Item As MSComctlLib.ListItem)
  228.   lRsItems.MoveFirst
  229.   lRsItems.Find "id_item=" & Right(Item.Key, Len(Item.Key) - 1), , adSearchForward
  230.   If Not lRsItems.EOF Then
  231.     txtDesc.Text = lRsItems("description") & ""
  232.   End If
  233. End Sub
  234.