home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
On Hand
/
On_Hand_From_Softbank_1994_Release_2_Disc_2_1994.iso
/
00202
/
s
/
disk4
/
find.fr_
/
find.bin
Wrap
Text File
|
1993-04-28
|
4KB
|
179 lines
VERSION 2.00
Begin Form fFind
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Find Record"
ControlBox = 0 'False
Height = 2832
Left = 1932
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2412
ScaleMode = 0 'User
ScaleWidth = 5160
Top = 2256
Width = 5256
Begin ListBox cFieldList
BackColor = &H00FFFFFF&
Height = 1368
Left = 240
TabIndex = 2
Tag = " OL"
Top = 360
Width = 1692
End
Begin ListBox cOpsList
BackColor = &H00FFFFFF&
Height = 1368
Left = 2040
TabIndex = 7
Tag = " OL"
Top = 360
Width = 960
End
Begin TextBox cExpr
BackColor = &H00FFFFFF&
Height = 287
Left = 3120
TabIndex = 1
Tag = " OL"
Top = 360
Width = 1811
End
Begin CheckBox cMatchCase
BackColor = &H00C0C0C0&
Caption = "Match Case"
Height = 252
Left = 3120
TabIndex = 8
Top = 839
Width = 1811
End
Begin CommandButton OkayButton
Caption = "&OK"
Default = -1 'True
Enabled = 0 'False
Height = 372
Left = 600
TabIndex = 4
Top = 1919
Width = 1691
End
Begin CommandButton CancelButton
Cancel = -1 'True
Caption = "&Cancel"
Height = 372
Left = 2879
TabIndex = 5
Top = 1919
Width = 1691
End
Begin Label OpsLabel
BackColor = &H00C0C0C0&
Caption = "Operators:"
Height = 192
Left = 2039
TabIndex = 6
Top = 120
Width = 971
End
Begin Label FieldListLabel
BackColor = &H00C0C0C0&
Caption = "Fields:"
Height = 192
Left = 240
TabIndex = 3
Top = 120
Width = 1092
End
Begin Label ExprLabel
BackColor = &H00C0C0C0&
Caption = "Value or Expression:"
Height = 192
Left = 3120
TabIndex = 0
Top = 120
Width = 1811
End
End
Option Explicit
Dim FNotFound As Integer
Sub CancelButton_Click ()
Hide
'set the flag for the dynaset/dynagrid form
gfFindFailed = True
End Sub
Sub cExpr_Change ()
If cFieldList <> "" And cOpsList <> "" And cExpr <> "" Then
OkayButton.Enabled = True
Else
OkayButton.Enabled = False
End If
End Sub
Sub cFieldList_Click ()
If cFieldList <> "" And cOpsList <> "" And cExpr <> "" Then
OkayButton.Enabled = True
Else
OkayButton.Enabled = False
End If
End Sub
Sub cOpsList_Click ()
If cFieldList <> "" And cOpsList <> "" And cExpr <> "" Then
OkayButton.Enabled = True
Else
OkayButton.Enabled = False
End If
End Sub
Sub Form_Load ()
FNotFound = False
cOpsList.AddItem "="
cOpsList.AddItem "<>"
cOpsList.AddItem ">="
cOpsList.AddItem "<="
cOpsList.AddItem ">"
cOpsList.AddItem "<"
cOpsList.AddItem "Like"
End Sub
Sub Form_Paint ()
Outlines Me
End Sub
Sub OkayButton_Click ()
Dim i As Integer
On Error GoTo FindErr
i = cFieldList.ListIndex
FNotFound = False
SetHourGlass Me
gstFindField = cFieldList
gstFindExpr = cExpr
gstFindOp = cOpsList
gfFindMatch = cMatchCase
Hide
GoTo FindEnd
FindErr:
If Err <> EOF_ERR Then
ShowError
Resume FindEnd
Else
FNotFound = True
Resume Next
End If
FindEnd:
ResetMouse Me
End Sub