frmhouse.frm

本课题为实践课题

VERSION 5.00
Begin VB.Form frmHouse 
   Caption         =   "房屋资料输入"
   ClientHeight    =   6180
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9360
   LinkTopic       =   "Form1"
   ScaleHeight     =   6180
   ScaleWidth      =   9360
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      Height          =   3735
      Left            =   240
      TabIndex        =   25
      Top             =   2160
      Width           =   8895
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "frmHouse.frx":0000
         Left            =   6840
         List            =   "frmHouse.frx":000D
         TabIndex        =   8
         Text            =   "Combo1"
         Top             =   1680
         Width           =   975
      End
      Begin VB.TextBox Text1 
         Height          =   855
         Index           =   7
         Left            =   1080
         MultiLine       =   -1  'True
         TabIndex        =   9
         Top             =   2400
         Width           =   7335
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   6
         Left            =   3840
         TabIndex        =   7
         Top             =   1680
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   0
         Left            =   1080
         TabIndex        =   1
         Top             =   240
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   1
         Left            =   3840
         TabIndex        =   2
         Top             =   240
         Width           =   4695
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   2
         Left            =   1080
         TabIndex        =   3
         Top             =   960
         Width           =   1575
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   3
         Left            =   3840
         TabIndex        =   4
         Top             =   960
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   4
         Left            =   6720
         TabIndex        =   5
         Top             =   960
         Width           =   1335
      End
      Begin VB.TextBox Text1 
         Height          =   375
         Index           =   5
         Left            =   1080
         TabIndex        =   6
         Top             =   1680
         Width           =   1575
      End
      Begin VB.Label Label1 
         Caption         =   "备    注"
         Height          =   255
         Index           =   8
         Left            =   240
         TabIndex        =   37
         Top             =   2640
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "目前状态"
         Height          =   255
         Index           =   7
         Left            =   5880
         TabIndex        =   36
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "元"
         Height          =   255
         Index           =   2
         Left            =   5160
         TabIndex        =   35
         Top             =   1800
         Width           =   255
      End
      Begin VB.Label Label1 
         Caption         =   "出租价位"
         Height          =   255
         Index           =   6
         Left            =   2880
         TabIndex        =   34
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "平米"
         Height          =   255
         Index           =   1
         Left            =   8160
         TabIndex        =   33
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label2 
         Caption         =   "平米"
         Height          =   255
         Index           =   0
         Left            =   5160
         TabIndex        =   32
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label1 
         Caption         =   "房屋编号"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   31
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "物业地址"
         Height          =   255
         Index           =   1
         Left            =   2880
         TabIndex        =   30
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "房    型"
         Height          =   255
         Index           =   2
         Left            =   240
         TabIndex        =   29
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "建筑面积"
         Height          =   255
         Index           =   3
         Left            =   2880
         TabIndex        =   28
         Top             =   1080
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "使用面积"
         Height          =   255
         Index           =   4
         Left            =   5880
         TabIndex        =   27
         Top             =   1080
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "装修情况"
         Height          =   255
         Index           =   5
         Left            =   240
         TabIndex        =   26
         Top             =   1800
         Width           =   735
      End
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关   闭"
      Height          =   495
      Left            =   7320
      TabIndex        =   24
      Top             =   360
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   735
      Index           =   1
      Left            =   6600
      TabIndex        =   20
      Top             =   1080
      Width           =   2535
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   960
         TabIndex        =   21
         Top             =   240
         Width           =   615
      End
      Begin VB.Label Label4 
         Caption         =   "条记录"
         Height          =   255
         Index           =   1
         Left            =   1800
         TabIndex        =   23
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "共有："
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   22
         Top             =   360
         Width           =   615
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "功能键"
      Height          =   1695
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6375
      Begin VB.CommandButton cmdCancel 
         Caption         =   "取消"
         Height          =   495
         Left            =   5040
         TabIndex        =   19
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdQuery 
         Caption         =   "查找"
         Height          =   495
         Left            =   5040
         TabIndex        =   18
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdLast 
         Caption         =   "最后一条"
         Height          =   495
         Left            =   3840
         TabIndex        =   17
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdNext 
         Caption         =   "后一条"
         Height          =   495
         Left            =   2640
         TabIndex        =   16
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdPrev 
         Caption         =   "前一条"
         Height          =   495
         Left            =   1440
         TabIndex        =   15
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdFirst 
         Caption         =   "第一条"
         Height          =   495
         Left            =   360
         TabIndex        =   14
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdSave 
         Caption         =   "保存"
         Height          =   495
         Left            =   3840
         TabIndex        =   13
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdDel 
         Caption         =   "删除"
         Height          =   495
         Left            =   2640
         TabIndex        =   12
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdEdit 
         Caption         =   "修改"
         Height          =   495
         Left            =   1440
         TabIndex        =   11
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdAdd 
         Caption         =   "添加"
         Height          =   495
         Left            =   360
         TabIndex        =   10
         Top             =   240
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmHouse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义几个共用变量
Dim rs_house As New ADODB.Recordset
Dim rs_count As New ADODB.Recordset
Dim sqlcount As String
Dim sqlhouse As String

'设置一个add变量用于保存时判断是从添加还是修改后保存
Dim add

Private Sub cmdadd_Click()
   
   '设置除保存和取消按钮外的其他按钮不可用
   cmdAdd.Enabled = False
   cmdEdit.Enabled = False
   cmdDel.Enabled = False
   cmdSave.Enabled = True
   cmdCancel.Enabled = True
   cmdFirst.Enabled = False
   cmdPrev.Enabled = False
   cmdNext.Enabled = False
   cmdLast.Enabled = False
   cmdQuery.Enabled = False
   '需要清空所有text框，并且设置它们可写
   For i = 0 To 7
      Text1(i).Text = ""
      Text1(i).Enabled = True
   Next i
   Combo1.Enabled = True
   'add变量用于保存时判断是从添加还是修改后保存
   add = 1
   Text1(0).SetFocus
   
End Sub

Private Sub cmdCancel_Click()
   '取消按钮用于用户添加或修改过程中放弃添加或修改操作
   cmdSave.Enabled = False
   cmdCancel.Enabled = False
   cmdAdd.Enabled = True
   cmdQuery.Enabled = True
 '如果是从添加后取消
 If add = 1 Then
   '如果当前House表中有数据则显示第一条数据
   If Not rs_house.EOF And Not rs_house.BOF Then
      For i = 0 To 7
         Text1(i).Text = rs_house.Fields(i)
      Next i
      If rs_house.Fields(8) = "已租" Then
         Combo1.ListIndex = 0
      ElseIf rs_house.Fields(8) = "未租" Then
         Combo1.ListIndex = 1
      ElseIf rs_house.Fields(8) = "意向" Then
         Combo1.ListIndex = 2
      End If
      cmdEdit.Enabled = True
      cmdDel.Enabled = True
      cmdFirst.Enabled = True
      cmdPrev.Enabled = True
      cmdNext.Enabled = True
      cmdLast.Enabled = True
   '如果没有数据，则显示空
   Else
      For i = 0 To 7
         Text1(i).Text = ""
      Next i
      cmdEdit.Enabled = False
      cmdDel.Enabled = False
      cmdFirst.Enabled = False
      cmdPrev.Enabled = False
      cmdNext.Enabled = False
      cmdLast.Enabled = False
   End If
   
 '如果是修改后取消，则恢复到修改前的数据
 ElseIf add = 0 Then
      For i = 0 To 7
         Text1(i).Text = rs_house.Fields(i)
      Next i
      If rs_house.Fields(8) = "已租" Then
         Combo1.ListIndex = 0
      ElseIf rs_house.Fields(8) = "未租" Then
         Combo1.ListIndex = 1
      ElseIf rs_house.Fields(8) = "意向" Then
         Combo1.ListIndex = 2