frmclient.frm

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

                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '计算找到的条数
                sqlcount = "select count(*) from Client " & sqlqcf
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                Text2.Text = rs_count.Fields(0)
                '找到符合条件的记录，显示之
                
                For i = 0 To 6
                   Text1(i).Text = rs_client.Fields(i)
                Next i
                   If rs_client.Fields(7) = "男" Then
                      Combo1.ListIndex = 0
                   ElseIf rs_client.Fields(7) = "女" Then
                      Combo1.ListIndex = 1
                   End If
             End If
          End If
      Case 1
          '每个选项卡中又分进入显示和查询显示两种情况
          '如果不是查询显示,则显示第一条记录
          If querycg = False Then
             '在from_laod()方法中打开住户信息表
             '如果rs_count rs_client 当前状态是打开的，则先关闭之
             If rs_count.State = adStateOpen Then
                rs_count.Close
             End If
             If rs_client.State = adStateOpen Then
                rs_client.Close
             End If
             sqlclient = "select * from GongSi"
             rs_client.CursorLocation = adUseClient
             rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
             If rs_client.EOF Then
                Text2.Text = 0
                '没有记录，则提示用户，退出本过程
                MsgBox "当前表中没有记录！", vbOKOnly + vbInformation, "注意"
                '如果是0条记录，需要设置前翻后翻的按钮为不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合条件的记录
             Else
                '如果有记录，需要设置前翻后翻的按钮为可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '计算总共数据条数
                sqlcount = "select count(*) from GongSi"
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                '有记录则，显示第一条，并且显示记录条数
                Text2.Text = rs_count.Fields(0)
                
                If Not rs_client.EOF And Not rs_client.BOF Then
                   For i = 7 To 14
                      Text1(i).Text = rs_client.Fields(i - 7)
                   Next i
                End If
             End If
               
          '如果是查询显示则相应sql语句为查询语句
          ElseIf querycg = True Then
             '因为开始显示时必定打开了rs_client,rs_count,所以应该先关闭它们
             rs_client.Close
             rs_count.Close
             sqlclient = "select * from GongSi " & sqlqcg
             rs_client.CursorLocation = adUseClient
             rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
             
             If rs_client.EOF Then
                Text2.Text = 0
                '如果没有找到记录，则提示用户，置空所有text控件，并且退出本子过程
                MsgBox "没有找到符合条件的记录", vbOKOnly + vbInformation, "注意"
                For i = 7 To 14
                   Text1(i).Text = ""
                Next i
               '如果是0条记录，需要设置前翻后翻的按钮为不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合条件的记录
             Else
                '如果有记录，需要设置前翻后翻的按钮为可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '计算找到的条数
                sqlcount = "select count(*) from GongSi " & sqlqcg
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                Text2.Text = rs_count.Fields(0)
                '找到符合条件的记录，显示之
                
                For i = 7 To 14
                   Text1(i).Text = rs_client.Fields(i - 7)
                Next i
             End If
          End If
   End Select
      
   '设置各个text框不可写
   For i = 0 To 14
      Text1(i).Enabled = False
   Next i
   '先设置ComboBox的默认值及不可改
   Combo1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
   rs_client.Close
   rs_count.Close
   '关闭时还需要设置querycf、querycg查询判断变量为false
   querycf = False
   querycg = False
End Sub


Private Sub SSTab1_Click(PreviousTab As Integer)
   '处理单击选项卡时的代码
   Select Case SSTab1.Tab
      '家庭租户选项卡
      Case 0
          '如果单击该选项卡本身，不用响应单击
          If PreviousTab = 0 Then
             Exit Sub
          End If
          '每个选项卡中又分进入显示和查询显示两种情况
          '如果不是查询显示,则显示第一条记录
          If querycf = False Then
             '在from_laod()方法中打开住户信息表
             '如果rs_count rs_client 当前状态是打开的，则先关闭之
             If rs_count.State = adStateOpen Then
                rs_count.Close
             End If
             If rs_client.State = adStateOpen Then
                rs_client.Close
             End If
             sqlclient = "select * from Client"
             rs_client.CursorLocation = adUseClient
             rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
             If rs_client.EOF Then
                Text2.Text = 0
                '没有记录，则提示用户，退出本过程
                MsgBox "当前表中没有记录！", vbOKOnly + vbInformation, "注意"
                '如果是0条记录，需要设置前翻后翻的按钮为不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合条件的记录
             Else
                '如果有记录，需要设置前翻后翻的按钮为可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '计算总共数据条数
                sqlcount = "select count(*) from Client"
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                '有记录则，显示第一条，并且显示记录条数
                Text2.Text = rs_count.Fields(0)
                
                If Not rs_client.EOF And Not rs_client.BOF Then
                   For i = 0 To 6
                      Text1(i).Text = rs_client.Fields(i)
                   Next i
                   If rs_client.Fields(7) = "男" Then
                      Combo1.ListIndex = 0
                   ElseIf rs_client.Fields(7) = "女" Then
                      Combo1.ListIndex = 1
                   End If
                End If
             End If
               
          '如果是查询显示则相应sql语句为查询语句
          ElseIf querycf = True Then
             '因为开始显示时必定打开了rs_client,rs_count,所以应该先关闭它们
             rs_client.Close
             If rs_count.State = adStateOpen Then
                rs_count.Close
             End If
             sqlclient = "select * from Client " & sqlqcf
             rs_client.CursorLocation = adUseClient
             rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
             If rs_client.EOF Then
                Text2.Text = 0
                '如果没有找到记录，则提示用户，置空所有text控件，并且退出本子过程
                MsgBox "没有找到符合条件的记录", vbOKOnly + vbInformation, "注意"
                For i = 0 To 6
                   Text1(i).Text = ""
                Next i
                '如果是0条记录，需要设置前翻后翻的按钮为不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合条件的记录
             Else
                '如果有记录，需要设置前翻后翻的按钮为可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '计算找到的条数
                sqlcount = "select count(*) from Client " & sqlqcf
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                Text2.Text = rs_count.Fields(0)
                
                For i = 0 To 6
                   Text1(i).Text = rs_client.Fields(i)
                Next i
                   If rs_client.Fields(7) = "男" Then
                      Combo1.ListIndex = 0
                   ElseIf rs_client.Fields(7) = "女" Then
                      Combo1.ListIndex = 1
                   End If
             End If
          End If
      Case 1
          '单击该选项卡本身，不响应事件
          If PreviousTab = 1 Then
             Exit Sub
          End If
          '每个选项卡中又分进入显示和查询显示两种情况
          '如果不是查询显示,则显示第一条记录
          If querycg = False Then
             '在from_laod()方法中打开住户信息表
             '如果rs_count rs_client 当前状态是打开的，则先关闭之
             If rs_count.State = adStateOpen Then
                rs_count.Close
             End If
             If rs_client.State = adStateOpen Then
                rs_client.Close
             End If
             sqlclient = "select * from GongSi"
             rs_client.CursorLocation = adUseClient
             rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
             If rs_client.EOF Then
                Text2.Text = 0
                '没有记录，则提示用户，退出本过程
                MsgBox "当前表中没有记录！", vbOKOnly + vbInformation, "注意"
                '如果是0条记录，需要设置前翻后翻的按钮为不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合条件的记录
             Else
                '如果有记录，需要设置前翻后翻的按钮为可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '计算总共数据条数
                sqlcount = "select count(*) from GongSi"
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                '有记录则，显示第一条，并且显示记录条数
                Text2.Text = rs_count.Fields(0)
                
                If Not rs_client.EOF And Not rs_client.BOF Then
                   For i = 7 To 14
                      Text1(i).Text = rs_client.Fields(i - 7)
                   Next i
                End If
             End If
               
          '如果是查询显示则相应sql语句为查询语句
          ElseIf querycg = True Then
             '因为开始显示时必定打开了rs_client,rs_count,所以应该先关闭它们
             rs_client.Close
             If rs_count.State = adStateOpen Then
                rs_count.Close
             End If
             sqlclient = "select * from GongSi " & sqlqcg
             rs_client.CursorLocation = adUseClient
             rs_client.Open sqlclient, conn, adOpenStatic, adLockOptimistic
             If rs_client.EOF Then
                Text2.Text = 0
                '如果没有找到记录，则提示用户，置空所有text控件，并且退出本子过程
                MsgBox "没有找到符合条件的记录", vbOKOnly + vbInformation, "注意"
                For i = 7 To 14
                   Text1(i).Text = ""
                Next i
                '如果是0条记录，需要设置前翻后翻的按钮为不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                
                Exit Sub
             '找到符合条件的记录
             Else
                '如果有记录，需要设置前翻后翻的按钮为可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '计算找到的条数
                sqlcount = "select count(*) from GongSi " & sqlqcg
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                Text2.Text = rs_count.Fields(0)
                '找到符合条件的记录，显示之
                
                For i = 7 To 14
                   Text1(i).Text = rs_client.Fields(i - 7)
                Next i
             End If
          End If
   End Select
End Sub