search.frm

Knowledge manager。Storing articles,quotes..and managing them We have used a third party component A

VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "actskin4.ocx"
Begin VB.Form Form2 
   Caption         =   "Search "
   ClientHeight    =   5460
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4650
   LinkTopic       =   "Form2"
   ScaleHeight     =   5460
   ScaleWidth      =   4650
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton Command3 
      Caption         =   "go"
      Height          =   375
      Left            =   3795
      TabIndex        =   10
      Top             =   1260
      Width           =   735
   End
   Begin VB.TextBox Text2 
      Height          =   315
      Left            =   885
      TabIndex        =   8
      Top             =   1320
      Width           =   2745
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2 
      Height          =   270
      Left            =   75
      OleObjectBlob   =   "search.frx":0000
      TabIndex        =   6
      Top             =   405
      Width           =   780
   End
   Begin VB.CommandButton Command2 
      Caption         =   "go"
      Height          =   375
      Left            =   3780
      TabIndex        =   5
      Top             =   795
      Width           =   735
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   900
      TabIndex        =   4
      Top             =   855
      Width           =   2745
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1 
      Height          =   255
      Left            =   210
      OleObjectBlob   =   "search.frx":0070
      TabIndex        =   3
      Top             =   30
      Width           =   1935
   End
   Begin VB.ListBox List1 
      Height          =   3375
      Left            =   120
      TabIndex        =   2
      Top             =   1950
      Width           =   4350
   End
   Begin VB.CommandButton Command1 
      Caption         =   "go"
      Height          =   375
      Left            =   3780
      TabIndex        =   1
      Top             =   330
      Width           =   735
   End
   Begin VB.ComboBox combo1 
      Height          =   315
      Left            =   870
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   375
      Width           =   2775
   End
   Begin ACTIVESKINLibCtl.Skin Skin1 
      Left            =   120
      OleObjectBlob   =   "search.frx":00E4
      Top             =   4200
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3 
      Height          =   270
      Left            =   45
      OleObjectBlob   =   "search.frx":4AEE3
      TabIndex        =   7
      Top             =   870
      Width           =   870
   End
   Begin ACTIVESKINLibCtl.SkinLabel SkinLabel4 
      Height          =   270
      Left            =   120
      OleObjectBlob   =   "search.frx":4AF5B
      TabIndex        =   9
      Top             =   1425
      Width           =   630
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
populatecombo "select title from quotemaster where category = '" & Trim(combo1.Text) & "' order by title", List1
End Sub

Private Sub Command2_Click()
 populatecombo "select title from quotemaster where title like '*" & Trim(Text1.Text) & "*' or author like '*" & Trim(Text1.Text) & "*' order by title ", List1
End Sub

Private Sub Command3_Click()
 populatecombo "select title from quotemaster where quote like '*" & Trim(Text2.Text) & "*' order by title", List1
End Sub

Private Sub Form_Load()
Skin1.ApplySkin hWnd
Skin1.ApplySkin hWnd
populatecombo "select distinct category from quotemaster", combo1
End Sub

Private Sub List1_DblClick()
  populatecombo "select distinct category from quotemaster where title = '" & List1.List(List1.ListIndex) & "' ", combo1
  Form1.formshow combo1.Text, List1.List(List1.ListIndex)
  Unload Me
End Sub