home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / params / frmsearc.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-10-16  |  3.1 KB  |  110 lines
  1. VERSION 2.00
  2. Begin Form frmSearch 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   2415
  6.    ClientLeft      =   1725
  7.    ClientTop       =   5295
  8.    ClientWidth     =   6765
  9.    Height          =   2820
  10.    Left            =   1665
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   540
  15.    ScaleWidth      =   540
  16.    Top             =   4950
  17.    Width           =   6885
  18.    Begin CommandButton cmdCancel 
  19.       BackColor       =   &H00C0C0C0&
  20.       Cancel          =   -1  'True
  21.       Caption         =   "&Cancel"
  22.       Height          =   435
  23.       Left            =   4770
  24.       TabIndex        =   2
  25.       Top             =   930
  26.       Width           =   1425
  27.    End
  28.    Begin CommandButton cmdSelect 
  29.       BackColor       =   &H00C0C0C0&
  30.       Caption         =   "&Select"
  31.       Default         =   -1  'True
  32.       Height          =   435
  33.       Left            =   4770
  34.       TabIndex        =   1
  35.       Top             =   210
  36.       Width           =   1425
  37.    End
  38.    Begin ListBox lstAvailable 
  39.       Height          =   1980
  40.       Left            =   180
  41.       TabIndex        =   0
  42.       Top             =   210
  43.       Width           =   4275
  44.    End
  45.    Begin Shape shpShadow 
  46.       BackColor       =   &H00808080&
  47.       BackStyle       =   1  'Opaque
  48.       BorderColor     =   &H00808080&
  49.       Height          =   1890
  50.       Index           =   3
  51.       Left            =   300
  52.       Top             =   360
  53.       Width           =   4245
  54.    End
  55. Option Explicit
  56. Sub cmdCancel_Click ()
  57.   Unload Me
  58. End Sub
  59. Sub cmdSelect_Click ()
  60.   ReturnValue
  61. End Sub
  62. Sub Form_Load ()
  63.   SetDialogMenu Me
  64.   PlaceDialog frmMain, Me, DLG_STANDARD
  65.   Me.Caption = "Search for " & GetFormParam(PRF_TABLE)
  66.   LoadData
  67. End Sub
  68. Sub LoadData ()
  69.   Dim sSQL As String
  70.   Dim sCriteria As String
  71.   Dim dbBiblio As Database
  72.   Dim snLookUp As SnapShot
  73.   ReDim sFlds(3) As String
  74.   Dim iIndex As Integer
  75.   On Error GoTo LoadData_Err
  76.   sFlds(1) = "[Company Name]"
  77.   sFlds(2) = "Author"
  78.   sFlds(3) = "Title"
  79.   Set dbBiblio = OpenDatabase(GetAppParam(PRA_DATABASE), True, True)
  80.   sSQL = "SELECT DISTINCT * FROM "
  81.   sSQL = sSQL & GetFormParam(PRF_TABLE)
  82.   sCriteria = GetFormParam(PRF_CRITERIA)
  83.   iIndex = Val(GetFormParam(PRF_INDEX))
  84.   If sCriteria <> "" Then
  85.     sCriteria = " WHERE " & sFlds(iIndex) & " LIKE " & """" & sCriteria & "*" & """"
  86.   End If
  87.   sSQL = sSQL & sCriteria
  88.   Set snLookUp = dbBiblio.CreateSnapshot(sSQL)
  89.   If snLookUp.RecordCount <> 0 Then
  90.     Do
  91.       lstAvailable.AddItem snLookUp.Fields(sFlds(iIndex))
  92.       snLookUp.MoveNext
  93.     Loop Until snLookUp.EOF
  94.   End If
  95.   snLookUp.Close
  96.   dbBiblio.Close
  97. Exit Sub
  98. LoadData_Err:
  99.   MsgBox "Error when Loading Data!" & Chr$(13) & Chr$(13) & Error$ & "  (#" & Err & ")", MB_ICONEXCLAMATION
  100.   lstAvailable.Clear
  101. Exit Sub
  102. End Sub
  103. Sub lstAvailable_DblClick ()
  104.   ReturnValue
  105. End Sub
  106. Sub ReturnValue ()
  107.   SetFormParam CStr(lstAvailable.List(lstAvailable.ListIndex)), PRF_RESULT
  108.   Unload Me
  109. End Sub
  110.