?? frmclient.frm

?? 本課題為實(shí)踐課題
?? FRM
?? 第 1 頁 / 共 4 頁
字號:
上一頁 1 2 34
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '計(jì)算找到的條數(shù)
                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
          '每個(gè)選項(xiàng)卡中又分進(jìn)入顯示和查詢顯示兩種情況
          '如果不是查詢顯示,則顯示第一條記錄
          If querycg = False Then
             '在from_laod()方法中打開住戶信息表
             '如果rs_count rs_client 當(dāng)前狀態(tài)是打開的，則先關(guān)閉之
             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 "當(dāng)前表中沒有記錄！", vbOKOnly + vbInformation, "注意"
                '如果是0條記錄，需要設(shè)置前翻后翻的按鈕為不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合條件的記錄
             Else
                '如果有記錄，需要設(shè)置前翻后翻的按鈕為可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '計(jì)算總共數(shù)據(jù)條數(shù)
                sqlcount = "select count(*) from GongSi"
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                '有記錄則，顯示第一條，并且顯示記錄條數(shù)
                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
               
          '如果是查詢顯示則相應(yīng)sql語句為查詢語句
          ElseIf querycg = True Then
             '因?yàn)殚_始顯示時(shí)必定打開了rs_client,rs_count,所以應(yīng)該先關(guān)閉它們
             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條記錄，需要設(shè)置前翻后翻的按鈕為不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合條件的記錄
             Else
                '如果有記錄，需要設(shè)置前翻后翻的按鈕為可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '計(jì)算找到的條數(shù)
                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
      
   '設(shè)置各個(gè)text框不可寫
   For i = 0 To 14
      Text1(i).Enabled = False
   Next i
   '先設(shè)置ComboBox的默認(rèn)值及不可改
   Combo1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
   rs_client.Close
   rs_count.Close
   '關(guān)閉時(shí)還需要設(shè)置querycf、querycg查詢判斷變量為false
   querycf = False
   querycg = False
End Sub


Private Sub SSTab1_Click(PreviousTab As Integer)
   '處理單擊選項(xiàng)卡時(shí)的代碼
   Select Case SSTab1.Tab
      '家庭租戶選項(xiàng)卡
      Case 0
          '如果單擊該選項(xiàng)卡本身，不用響應(yīng)單擊
          If PreviousTab = 0 Then
             Exit Sub
          End If
          '每個(gè)選項(xiàng)卡中又分進(jìn)入顯示和查詢顯示兩種情況
          '如果不是查詢顯示,則顯示第一條記錄
          If querycf = False Then
             '在from_laod()方法中打開住戶信息表
             '如果rs_count rs_client 當(dāng)前狀態(tài)是打開的，則先關(guān)閉之
             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 "當(dāng)前表中沒有記錄！", vbOKOnly + vbInformation, "注意"
                '如果是0條記錄，需要設(shè)置前翻后翻的按鈕為不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合條件的記錄
             Else
                '如果有記錄，需要設(shè)置前翻后翻的按鈕為可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '計(jì)算總共數(shù)據(jù)條數(shù)
                sqlcount = "select count(*) from Client"
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                '有記錄則，顯示第一條，并且顯示記錄條數(shù)
                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
               
          '如果是查詢顯示則相應(yīng)sql語句為查詢語句
          ElseIf querycf = True Then
             '因?yàn)殚_始顯示時(shí)必定打開了rs_client,rs_count,所以應(yīng)該先關(guān)閉它們
             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條記錄，需要設(shè)置前翻后翻的按鈕為不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合條件的記錄
             Else
                '如果有記錄，需要設(shè)置前翻后翻的按鈕為可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '計(jì)算找到的條數(shù)
                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
          '單擊該選項(xiàng)卡本身，不響應(yīng)事件
          If PreviousTab = 1 Then
             Exit Sub
          End If
          '每個(gè)選項(xiàng)卡中又分進(jìn)入顯示和查詢顯示兩種情況
          '如果不是查詢顯示,則顯示第一條記錄
          If querycg = False Then
             '在from_laod()方法中打開住戶信息表
             '如果rs_count rs_client 當(dāng)前狀態(tài)是打開的，則先關(guān)閉之
             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 "當(dāng)前表中沒有記錄！", vbOKOnly + vbInformation, "注意"
                '如果是0條記錄，需要設(shè)置前翻后翻的按鈕為不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                Exit Sub
             '找到符合條件的記錄
             Else
                '如果有記錄，需要設(shè)置前翻后翻的按鈕為可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '計(jì)算總共數(shù)據(jù)條數(shù)
                sqlcount = "select count(*) from GongSi"
                rs_count.Open sqlcount, conn, adOpenStatic, adLockOptimistic
                '有記錄則，顯示第一條，并且顯示記錄條數(shù)
                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
               
          '如果是查詢顯示則相應(yīng)sql語句為查詢語句
          ElseIf querycg = True Then
             '因?yàn)殚_始顯示時(shí)必定打開了rs_client,rs_count,所以應(yīng)該先關(guān)閉它們
             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條記錄，需要設(shè)置前翻后翻的按鈕為不可用
                cmdFirst.Enabled = False
                cmdPrev.Enabled = False
                cmdNext.Enabled = False
                cmdLast.Enabled = False
                cmdDel.Enabled = False
                cmdEdit.Enabled = False
                cmdSave.Enabled = False
                
                Exit Sub
             '找到符合條件的記錄
             Else
                '如果有記錄，需要設(shè)置前翻后翻的按鈕為可用
                cmdFirst.Enabled = True
                cmdPrev.Enabled = True
                cmdNext.Enabled = True
                cmdLast.Enabled = True
                cmdDel.Enabled = True
                cmdEdit.Enabled = True
                cmdSave.Enabled = True
                '計(jì)算找到的條數(shù)
                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
上一頁 1 2 34
?? 文件大小 194 K
?? 上傳用戶 zdh103
?? 所屬分類文件格式
??? 相關(guān)標(biāo)簽

#實(shí)踐
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmclient.frm

?? 快捷鍵說明
