vb+sql server自测考试管理系统设计

5.1.3系部信息管理图5.3系部管理
主要代码如下：
Private Sub cmdMove_Click(Index As Integer)
    With objDepart
        Select Case Index           '切换当前记录
            Case 0                  '使第一个记录成为当前记录
                If .RecordCount > 0 And Not .BOF Then .MoveFirst
            Case 1                  '使上一个记录成为当前记录
                If .RecordCount > 0 And Not .BOF Then
                    .MovePrevious
                    If .BOF Then .MoveFirst
                End If
            Case 2                  '使下一个记录成为当前记录
                If .RecordCount > 0 And Not .EOF Then
                    .MoveNext
                    If .EOF Then .MoveLast
                End If
            Case 3                  '使最后一个记录成为当前记录
                If .RecordCount > 0 And Not .EOF Then .MoveLast
        End Select本文来自辣.文~论^文·网原文请找腾讯324.9114
        If .RecordCount < 1 Then
            txtNews = "记录：无"    '显示无记录提示论文网http://www.751com.cn/  
            txtNum = ""
            txtName = ""
        Else
            '显示当前记录数据
            txtNum = .Fields("编号")
            txtName = .Fields("名称")
            '显示当前记录编号和记录总数
            txtNews = "记录：" & .AbsolutePosition & "/" & .RecordCount
        End If
    End With
    If isAdding Then isAdding = False
End Sub

Private Sub cmdAdd_Click()
    txtNews = "添加新记录"
    txtNum = ""
    txtName = ""
    isAdding = True
    txtNum.SetFocus
End Sub

Private Sub cmdDelete_Click()
    '根据是否处于添加记录状态执行不同的操作
    If isAdding Then
        '退出添加记录状态，显示当前记录
        isAdding = False
        If objDepart.BOF And objDepart.EOF Then
            txtNews = "记录：无"    '显示无记录提示
        Else
            '显示当前记录数据
            txtNum = objDepart.Fields("编号")
            txtName = objDepart.Fields("名称")
            '显示当前记录编号和记录总数
            txtNews = "记录：" & objDepart.AbsolutePosition & "/" & objDepart.RecordCount
        End If
    Else本文来自辣.文~论^文·网原文请找腾讯324,9114
        If objDepart.RecordCount > 0 Then
            '检查在教师信息和学生信息表中是否使用了当前记录的编号
            '如果被使用，则不执行删除操作
            Dim objTemp As New Recordset
            With objTemp
                Set .ActiveConnection = objCn           '设置数据库联接
                .CursorLocation = adUseClient           '指定使用客户端器游标
                .CursorType = adOpenStatic              '指定使用静态游标
                '获取使用了该编号的第一条记录论文网http://www.751com.cn/  
                .Open "SELECT TOP 1 * FROM 学生信息 WHERE 系部='" & Trim(txtNum) & "'"
                If .RecordCount > 0 Then
                    MsgBox "编号被《学生信息》表使用，不能删除当前记录！", , "系部信息管理"
                    Exit Sub

上一页  [1] [2] [3] [4] [5] [6] 下一页

vb+sql server自测考试管理系统设计 第4页下载如图片无法显示或论文不完整，请联系qq752018766