findp.frm

delphi 和ASP BS模式的程序

VERSION 5.00
Begin VB.Form Findp 
   Caption         =   "Find Product"
   ClientHeight    =   1530
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5025
   LinkTopic       =   "Form1"
   ScaleHeight     =   1530
   ScaleWidth      =   5025
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "&Find"
      Height          =   375
      Left            =   1620
      TabIndex        =   3
      Top             =   1020
      Width           =   1695
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   3780
      TabIndex        =   2
      Text            =   "Text1"
      Top             =   480
      Width           =   855
   End
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   2400
      TabIndex        =   1
      Text            =   "Combo2"
      Top             =   480
      Width           =   1095
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "Findp.frx":0000
      Left            =   240
      List            =   "Findp.frx":0002
      TabIndex        =   0
      Text            =   "Combo1"
      Top             =   480
      Width           =   1875
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Label1"
      Height          =   180
      Left            =   120
      TabIndex        =   4
      Top             =   0
      Visible         =   0   'False
      Width           =   540
   End
End
Attribute VB_Name = "Findp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
On Error GoTo err
Dim strquery As String
Select Case Label1.Caption
      Case "frmpinfor"
      Let strquery = "select * from Pinfor where '" & Trim(Combo1.Text) & "'" & _
                     "'" & Trim(Combo2.Text) & "''" & Trim(Text1.Text) & "'"
      AllDelStr strquery, "'"
      With frmpinfor.Adodc_pinfor
                    .RecordSource = strquery
                    .Refresh
      End With
      Case "frmminfor"
      Let strquery = "select * from minfor where '" & Trim(Combo1.Text) & "'" & _
                     "'" & Trim(Combo2.Text) & "''" & Trim(Text1.Text) & "'"
      AllDelStr strquery, "'"
      With frmminfor.Adodc_minfor
                    .RecordSource = strquery
                    .Refresh
      End With
      Case "frmpinven"
      Let strquery = "select * from PI where '" & Trim(Combo1.Text) & "'" & _
                     "'" & Trim(Combo2.Text) & "''" & Trim(Text1.Text) & "'"
      AllDelStr strquery, "'"
      With frmpinven.Adodc_pinven
                    .RecordSource = strquery
                    .Refresh
      End With
      Case "frmminven"
      Let strquery = "select * from MI where '" & Trim(Combo1.Text) & "'" & _
                     "'" & Trim(Combo2.Text) & "''" & Trim(Text1.Text) & "'"
      AllDelStr strquery, "'"
      With frmminven.Adodc_minven
                    .RecordSource = strquery
                    .Refresh
      End With
End Select
err:
Unload Findp

End Sub
Public Function AllDelStr(DT As String, DX As String) As String
If Len(DT) = 0 Then Exit Function
Do
W = InStr(DT, DX)
If W = 0 Then Exit Do
DT = Left(DT, W - 1) & Right(DT, Len(DT) - W - Len(DX) + 1)
Loop
AllDelStr = DT
End Function
Private Sub Form_Load()
Combo2.Clear
Combo2.Text = ">"
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.AddItem "="
Combo2.AddItem ">="
Combo2.AddItem "<="
Combo2.AddItem "<>"
Text1.Text = ""
End Sub