frmhousetype.frm

毕业设计 毕业设计 毕业设计 毕业设计 毕业设计

VERSION 5.00
Begin VB.Form frmHouseType 
   Caption         =   "Form1"
   ClientHeight    =   4470
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9240
   LinkTopic       =   "Form1"
   ScaleHeight     =   4470
   ScaleWidth      =   9240
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   1
      Left            =   2400
      TabIndex        =   19
      Top             =   3120
      Width           =   2655
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Index           =   0
      Left            =   2400
      TabIndex        =   16
      Top             =   2160
      Width           =   2655
   End
   Begin VB.Frame Frame3 
      Caption         =   "功能键"
      Height          =   1695
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   6375
      Begin VB.CommandButton cmdAdd 
         Caption         =   "添加"
         Height          =   495
         Left            =   360
         TabIndex        =   15
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdEdit 
         Caption         =   "修改"
         Height          =   495
         Left            =   1440
         TabIndex        =   14
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdDel 
         Caption         =   "删除"
         Height          =   495
         Left            =   2640
         TabIndex        =   13
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdSave 
         Caption         =   "保存"
         Height          =   495
         Left            =   3840
         TabIndex        =   12
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton cmdFirst 
         Caption         =   "第一条"
         Height          =   495
         Left            =   360
         TabIndex        =   11
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdPrev 
         Caption         =   "前一条"
         Height          =   495
         Left            =   1440
         TabIndex        =   10
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdNext 
         Caption         =   "后一条"
         Height          =   495
         Left            =   2640
         TabIndex        =   9
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdLast 
         Caption         =   "最后一条"
         Height          =   495
         Left            =   3840
         TabIndex        =   8
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdQuery 
         Caption         =   "查找"
         Height          =   495
         Left            =   5040
         TabIndex        =   7
         Top             =   960
         Width           =   975
      End
      Begin VB.CommandButton cmdCancel 
         Caption         =   "取消"
         Height          =   495
         Left            =   5040
         TabIndex        =   6
         Top             =   240
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Height          =   735
      Index           =   1
      Left            =   6480
      TabIndex        =   1
      Top             =   960
      Width           =   2535
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   960
         TabIndex        =   2
         Top             =   240
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "共有："
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   4
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label4 
         Caption         =   "条记录"
         Height          =   255
         Index           =   1
         Left            =   1800
         TabIndex        =   3
         Top             =   360
         Width           =   615
      End
   End
   Begin VB.CommandButton cmdClose 
      Caption         =   "关   闭"
      Height          =   495
      Left            =   7200
      TabIndex        =   0
      Top             =   240
      Width           =   1215
   End
   Begin VB.Label Label2 
      Caption         =   "  描  述"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   480
      TabIndex        =   18
      Top             =   3240
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "  房  型"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   480
      TabIndex        =   17
      Top             =   2160
      Width           =   1335
   End
End
Attribute VB_Name = "frmHouseType"
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 1
      Text1(i).Text = ""
      Text1(i).Enabled = True
   Next i
   '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
   '如果当前HouseType表中有数据则显示第一条数据
   If Not rs_house.EOF And Not rs_house.BOF Then
      For i = 0 To 1
         Text1(i).Text = rs_house.Fields(i)
      Next i
      cmdEdit.Enabled = True
      cmdDel.Enabled = True
      cmdFirst.Enabled = True
      cmdPrev.Enabled = True
      cmdNext.Enabled = True
      cmdLast.Enabled = True
   '如果没有数据，则显示空
   Else
      For i = 0 To 1
         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 1
         Text1(i).Text = rs_house.Fields(i)
      Next i
 End If
   '开始时设置各个text框不可写
   For i = 0 To 1
      Text1(i).Enabled = False
   Next i
   cmdEdit.Enabled = True
   cmdDel.Enabled = True
   cmdFirst.Enabled = True
   cmdPrev.Enabled = True
   cmdNext.Enabled = True
   cmdLast.Enabled = True
End Sub

Private Sub cmdClose_Click()
   Unload Me
End Sub

Private Sub cmdDel_Click()
 '当单击删除记录时，需要弹出一个提示框，警告用户
   Dim answer As String
   answer = MsgBox("确定要删除吗？", vbYesNo, "")
   '确实删除
   If answer = vbYes Then
      rs_house.Delete  '删除当前记录
      rs_house.Update  '更新删除
      MsgBox "成功删除！", vbOKOnly + vbExclamation, ""
   Else
       Exit Sub
   End If
   '删除之后，显示总信息条数需要减 1
   Text2.Text = Val(Text2.Text) - 1
   '删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录
   '先移动rs_house记录到后一条
   rs_house.MoveNext
   If rs_house.EOF Then
      rs_house.MovePrevious
    '如果没有到记录首则显示该记录