frmshowyuding.frm

本章示例使用的是Windows2000 Professional版的操作系统

         Left            =   3840
         TabIndex        =   13
         Top             =   1680
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "业 务 员"
         Height          =   255
         Index           =   7
         Left            =   360
         TabIndex        =   12
         Top             =   2280
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "预定日期"
         Height          =   255
         Index           =   8
         Left            =   4200
         TabIndex        =   11
         Top             =   2280
         Width           =   735
      End
      Begin VB.Label Label4 
         Caption         =   "月"
         Height          =   255
         Index           =   0
         Left            =   2760
         TabIndex        =   10
         Top             =   1680
         Width           =   375
      End
   End
End
Attribute VB_Name = "frmShowYuDing"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs_yd As New ADODB.Recordset
Dim rs_count As New ADODB.Recordset
Dim sqlyd As String
Dim sqlcount As String

Private Sub cmdClose_Click()
   Unload Me
End Sub

Private Sub cmdEnd_Click()
   '当单击终止预定按钮时，需要弹出一个提示框，警告用户
   Dim answer As String
   answer = MsgBox("确定要终止预定吗？", vbYesNo, "")
   '确实终止
   If answer = vbYes Then
      '需要检查该房屋状态，如果为预定，则修改为未租
      Dim sqlh As String
      Dim rs_house As New ADODB.Recordset
      If rs_house.State = adStateOpen Then
         rs_house.Close
      End If
      sqlh = "select * from House where 房屋编号 = '" & Text1(2).Text & "'"
      rs_house.Open sqlh, conn, adOpenStatic, adLockOptimistic
      rs_house(8) = "未租"
      rs_house.Update
      
      '在预定表中删除当前记录
      rs_yd.Delete
      rs_yd.Update  '更新删除
      '提示终止预定成功
      MsgBox "终止预定成功！", vbOKOnly + vbExclamation, "注意"
   Else
       Exit Sub
   End If
   '删除之后，显示总信息条数需要减 1
   Text2.Text = Val(Text2.Text) - 1
   '删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录
   '先移动rs_yd记录到后一条
   rs_yd.MoveNext
   If rs_yd.EOF Then
      rs_yd.MovePrevious
    '如果没有到记录首则显示该记录
    If Not rs_yd.BOF Then
      For i = 0 To 8
         Text1(i).Text = rs_yd.Fields(i)
      Next i
     '如果到记录首，则表格已经为空，置所有text框显示为空,设置前后翻滚按钮为不可用
    ElseIf rs_yd.BOF Then
      MsgBox "当前表格已为空！", vbOKOnly + vbInformation, "注意"
      For i = 0 To 8
         Text1(i).Text = ""
      Next i
      cmdFirst.Enabled = False
      cmdPrev.Enabled = False
      cmdNext.Enabled = False
      cmdLast.Enabled = False
      cmdEnd.Enabled = False
    End If
   '如果删除的不是首尾记录，则显示当前记录即可
   Else
      For i = 0 To 8
         Text1(i).Text = rs_yd.Fields(i)
      Next i
      
   End If
End Sub

Private Sub cmdFirst_Click()
   '先移动rs_yd记录到第一条
   rs_yd.MoveFirst
   '同时需要设置相应按钮为不可用和不可用
   cmdPrev.Enabled = False
   cmdFirst.Enabled = False
   cmdNext.Enabled = True
   cmdLast.Enabled = True
   '如果已经是第一条记录，则提示用户
   If rs_yd.BOF = True Then
      MsgBox "对不起，已经是第一条记录了！", vbOKOnly + vbInformation, "注意"
      Exit Sub
   '如果不是，则个数据表的记录位置移到第一条记录，并且显示之
   Else
      For i = 0 To 8
         Text1(i).Text = rs_yd.Fields(i)
      Next i
      
   End If
End Sub

Private Sub cmdLast_Click()
   '移动rs_yd记录到最后一条
   rs_yd.MoveLast
   cmdFirst.Enabled = True
   cmdPrev.Enabled = True
   cmdNext.Enabled = False
   cmdLast.Enabled = False
    '如果已经是最后一条记录，则提示用户
   If rs_yd.EOF = True Then
      MsgBox "对不起，已经是最后一条记录了！", vbOKOnly + vbInformation, "注意"
      Exit Sub
   '如果不是最后一条，则个数据表的记录位置移到后一条记录，并且显示之
   Else
      For i = 0 To 8
         Text1(i).Text = rs_yd.Fields(i)
      Next i
      
   End If
End Sub

Private Sub cmdNext_Click()
   '先移动rs_yd记录到后一条
   rs_yd.MoveNext
   '设置前一条和第一条按钮可用
   cmdPrev.Enabled = True
   cmdFirst.Enabled = True
   '如果已经是最后一条记录，则提示用户
   If rs_yd.EOF = True Then
      MsgBox "对不起，已经是最后一条记录了！", vbOKOnly + vbInformation, "注意"
      '并且设置“后一条”和最后一条按钮不可用
      cmdNext.Enabled = False
      cmdLast.Enabled = False
      Exit Sub
   '如果不是，则个数据表的记录位置移到后一条记录，并且显示之
   Else
      For i = 0 To 8
         Text1(i).Text = rs_yd.Fields(i)
      Next i
      
   End If
End Sub

Private Sub cmdPrev_Click()
   '先移动rs_yd记录到前一条
   rs_yd.MovePrevious
   '设置后一条和最后一条按钮可用
   cmdNext.Enabled = True
   cmdLast.Enabled = True
   '如果已经是第一条记录，则提示用户
   If rs_yd.BOF = True Then
      MsgBox "对不起，已经是第一条记录了！", vbOKOnly + vbInformation, "注意"
      '并且设置“前一条”和第一条按钮不可用
      cmdPrev.Enabled = False
      cmdFirst.Enabled = False
      Exit Sub
   '如果不是，则个数据表的记录位置移到前一条记录，并且显示之
   Else
      For i = 0 To 8
         Text1(i).Text = rs_yd.Fields(i)
      Next i
      
   End If
End Sub
Private Sub Form_Load()
   Dim X0 As Long
   Dim Y0 As Long
   '让窗体居中
   X0 = Screen.Width
   Y0 = Screen.Height
   X0 = (X0 - Me.Width) / 2
   Y0 = (Y0 - Me.Height) / 2
   Me.Move X0, Y0
   '设定所有text不可写
   For i = 0 To 8
      Text1(i).Enabled = False
   Next i
   Text2.Enabled = False
   
   '检查输入的查询预定单条件是否存在符合条件的记录
   If rs_yd.State = adStateOpen Then
      rs_yd.Close
   End If
   sqlyd = "select * from YuDing " & sqlqyd
   rs_yd.Open sqlyd, conn, adOpenStatic, adLockOptimistic
   '如果没有找到记录
   If rs_yd.EOF = True Then
      Text2.Text = 0
      For i = 0 To 8
         Text1(i).Text = ""
      Next i
      '设置除关闭外所有按钮不可用
      cmdFirst.Enabled = False
      cmdPrev.Enabled = False
      cmdNext.Enabled = False
      cmdLast.Enabled = False
      cmdEnd.Enabled = False
      MsgBox "没有找到符合条件的预定单记录！", vbOKOnly + vbInformation, "注意"
      Exit Sub
   Else
      If rs_count.State = adStateOpen Then
         rs_count.Close
      End If
      sqlcount = "select count(*) from YuDing " & sqlqyd
      rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
      Text2.Text = rs_count.Fields(0)
      For i = 0 To 8
         Text1(i).Text = rs_yd.Fields(i)
      Next i
      cmdFirst.Enabled = True
      cmdPrev.Enabled = True
      cmdNext.Enabled = True
      cmdLast.Enabled = True
      cmdEnd.Enabled = True
  End If
      
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If rs_yd.State = adStateOpen Then
       rs_yd.Close
    End If
    If rs_count.State = adStateOpen Then
       rs_count.Close
    End If
    Unload Me
End Sub