frmcheckrepeat.frm

来自「教务管理系统,用VB 完成,以SQL SERVER 2000作为后台数据库」· FRM 代码 · 共 103 行

VERSION 5.00
Begin VB.Form Frmcheck 
   Caption         =   "Form1"
   ClientHeight    =   3192
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3192
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
End
Attribute VB_Name = "Frmcheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
CheckXH "shsjb"
CheckXH "jtqkb"
CheckXH "party"
CheckxueH "chengf"
CheckxueH "daixj"
CheckxueH "jiangc"
CheckxueH "zhuxj"
CheckxueH "kunnbz"
CheckxueH "qingjx"
CheckxueH "xuesxx"
End Sub

Public Sub CheckXH(ByVal rec As String)
Dim recRepeat As Recordset
Dim sqlRepeat As String
Dim recSource As Recordset
Dim sqlDelete As String
Dim I As Integer
Dim XH As String
Set recSource = dbStudent.OpenRecordset("select * from " + rec + "", dbOpenSnapshot)
If recSource.RecordCount <> 0 Then
    recSource.MoveLast
    recSource.MoveFirst
    
    XH = recSource!XH
    sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
    Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
    If recRepeat.RecordCount = 0 Then
        sqlDelete = "delete * from " + rec + " where xh='" + Trim(XH) + "'"
        dbStudent.Execute sqlDelete
    End If
    
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      XH = recSource!XH
      sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
      Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
      If recRepeat.RecordCount = 0 Then
          sqlDelete = "delete * from " + rec + " where xh='" + Trim(XH) + "'"
          dbStudent.Execute sqlDelete
      End If
      
    Next I
    
       
End If
End Sub


Public Sub CheckxueH(ByVal rec As String)
Dim recRepeat As Recordset
Dim sqlRepeat As String
Dim recSource As Recordset
Dim sqlDelete As String
Dim I As Integer
Dim XH As String
Set recSource = dbStudent.OpenRecordset("select * from " + rec + "", dbOpenSnapshot)
If recSource.RecordCount <> 0 Then
    recSource.MoveLast
    recSource.MoveFirst
    
    XH = recSource!XueH
    sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
    Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
    If recRepeat.RecordCount = 0 Then
        sqlDelete = "delete * from " + rec + " where xueh='" + Trim(XH) + "'"
        dbStudent.Execute sqlDelete
    End If
    
    For I = 1 To recSource.RecordCount - 1
      recSource.MoveNext
      XH = recSource!XueH
      sqlRepeat = "select top 1 * from zbqkb where xh='" + Trim(XH) + "'"
      Set recRepeat = dbStudent.OpenRecordset(sqlRepeat, dbOpenSnapshot)
      If recRepeat.RecordCount = 0 Then
          sqlDelete = "delete * from " + rec + " where xueh='" + Trim(XH) + "'"
          dbStudent.Execute sqlDelete
      End If
      
    Next I
    
       
End If
End Sub