menu211.frm

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

VERSION 5.00
Begin VB.Form winmenu211 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "售房管理  查询  条件"
   ClientHeight    =   2625
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6540
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2625
   ScaleWidth      =   6540
   Begin VB.CommandButton Command4 
      Caption         =   "删      除"
      Height          =   375
      Left            =   4920
      TabIndex        =   5
      Top             =   2160
      Width           =   1455
   End
   Begin VB.CommandButton Command3 
      Caption         =   "重  命  名"
      Height          =   375
      Left            =   4920
      TabIndex        =   4
      Top             =   1680
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取      消"
      Height          =   375
      Left            =   4920
      TabIndex        =   3
      Top             =   960
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "打       开"
      Height          =   375
      Left            =   4920
      TabIndex        =   2
      Top             =   480
      Width           =   1455
   End
   Begin VB.ListBox conname 
      Height          =   2040
      Left            =   0
      TabIndex        =   1
      Top             =   480
      Width           =   4695
   End
   Begin VB.Label Label1 
      Caption         =   "搜索条件："
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1815
   End
End
Attribute VB_Name = "winmenu211"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim querykk As Database
Dim querytab As Recordset

Private Sub Command1_Click()
If conname.SelCount = 0 Then MsgBox "您必须首先选择一个条件名！", vbOKOnly + vbExclamation, "金风售房管理系统": Exit Sub
winmenu21.returnname = conname.Text
winmenu21.Enabled = False
Unload Me
End Sub

Private Sub Command2_Click()
winmenu21.Enabled = True
Unload Me
End Sub

Private Sub Command3_Click()
If conname.SelCount = 0 Then MsgBox "您必须首先选择一个条件名！", vbOKOnly + vbExclamation, "金风售房管理系统": Exit Sub
oldname = conname.Text
oldpos = conname.ListIndex
msage = "搜索条件的新名称："
name:
yname = InputBox(msage, "呼市金风售房管理系统")
If LTrim(RTrim(yname)) = "" Then Exit Sub
Set querytab = querykk.OpenRecordset("select * from query where name='" + yname + "'")
If Not querytab.EOF Then
  If querytab("name") <> oldname Then msage = "此名称已经存在,请重新输入！": GoTo name:
End If
querykk.Execute "update query  set  name='" + yname + "' where name='" + oldname + "'"
Set querytab = querykk.OpenRecordset("query")
conname.Clear
Do Until querytab.EOF
   conname.AddItem querytab("name")
   querytab.MoveNext
Loop
conname.ListIndex = oldpos
End Sub

Private Sub Command4_Click()
If conname.SelCount = 0 Then MsgBox "您必须首先选择一个条件名！", vbOKOnly + vbExclamation, "金风售房管理系统": Exit Sub
oldpos = conname.ListIndex
yn = MsgBox("是否真要删除所存名为" + conname.Text + Chr(13) + "的这个查询条件？", vbYesNo + vbQuestion, "金风售房管理系统")
If yn = vbNo Then Exit Sub
querykk.Execute "delete * from query where name='" + conname.Text + "'"
conname.RemoveItem oldpos
If conname.ListCount = 0 Then winmenu21.Enabled = True: Unload Me
If conname.ListCount > 0 Then conname.ListIndex = 0
End Sub

Private Sub Form_Load()
winmenu211.Left = winmenu21.Left
winmenu211.Top = winmenu21.Top + 1900
Set querykk = OpenDatabase(App.Path + "\sfgl.mdb")
Set querytab = querykk.OpenRecordset("query")
If querytab.EOF Then MsgBox "没有存储的查询条件，请退出！", vbOKOnly + vbExclamation, "金风售房管理系统": Exit Sub
Do Until querytab.EOF
   conname.AddItem querytab("name")
   querytab.MoveNext
Loop
conname.ListIndex = 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
winmenu21.Enabled = True
End Sub