ls.frm

给售房作的,但还没有全完成,最好是只看看里面有用的东东就可以了

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4305
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7530
   LinkTopic       =   "Form1"
   ScaleHeight     =   4305
   ScaleWidth      =   7530
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   975
      Left            =   1080
      TabIndex        =   2
      Top             =   1680
      Width           =   2055
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   735
      Left            =   4560
      TabIndex        =   1
      Top             =   2760
      Width           =   735
   End
   Begin VB.TextBox Text1 
      Height          =   735
      Left            =   840
      TabIndex        =   0
      Text            =   "或 楼号 等于 234"
      Top             =   360
      Width           =   4335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
winmenu21.Show
End Sub

Private Sub Command2_Click()
condition = ""
s1 = LTrim(RTrim(Text1.Text))
'MsgBox "bb" + s1 + "bb"
s2 = Left(s1, 1)
If s2 = "或" Then tj = "or" Else If s2 = "与" Then tj = "and" Else tj = ""
condition = condition + tj
s3 = Mid(s1, 3, 2)
s2 = 5 '下一次测试值的起始位置
Select Case s3
  Case "楼号"
    condition = condition + " kloud"
  Case "面积"
    condition = condition + " kjzmj"
  Case "楼层"
    condition = condition + " klouc"
  Case "单元"
    condition = condition + " kloudy"
  Case "单价"
    condition = condition + " kdj"
  Case "户位"
    condition = condition + " klouhu"
  Case "房屋"
    condition = condition + " kfwlb"
    s2 = 7
End Select
s3 = Len(s1) '总长
s4 = Mid(s1, s2 + 1, 2)
If s4 = "等于" Then tj = "=" Else If s4 = "大于" Then tj = ">" Else tj = "<"
condition = condition + tj
s4 = Mid(s1, s2 + 4, s3 - s2 - 4)
condition = condition + "'" + s4 + "'"
MsgBox condition
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End Sub