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

       Set objTemp = Nothing
            '可以删除，请求确认执行删除操作
            If MsgBox("是否删除当前记录？", vbYesNo + vbQuestion, "系部信息管理") = vbYes Then
                '执行删除当前记录操作
                objDepart.Delete
                '显示下一记录数据
                cmdMove(2).Value = True
            Else
                '显示当前记录数据
                txtNum = objDepart.Fields("编号")
                txtName = objDepart.Fields("名称")
                '显示当前记录编号和记录总数
                txtNews = "记录：" & objDepart.AbsolutePosition & "/" _
                & objDepart.RecordCount
            End If
        End If
    End If
End Sub
Private Sub cmdSave_Click()
    If Len(Trim(txtNum)) <> 8 Then
        MsgBox "系部编号必须为8位字符串！", vbCritical, "系部信息管理"
        txtNum.SetFocus
        txtNum.SelStart = 0
        txtNum.SelLength = Len(txtNum)
        Exit Sub
    End If
    If Trim(txtName) = "" Then
        MsgBox "系部名称不能为空！", vbCritical, "系部信息管理"
        txtName.SetFocus
        txtName = ""本文来自优.文~论^文·网原文请找腾讯32-49114
        Exit Sub
    End If
    '在进一步保存添加的新记录或修改的当前记录之前，检查编号是否重复
    Dim objCopy As New Recordset
    Set objCopy = objDepart.Clone
    If objCopy.RecordCount > 0 Then
        objCopy.MoveFirst
        objCopy.Find "编号='" & Trim(txtNum) & "'"
        If (isAdding And Not objCopy.EOF) Or (Not isAdding And Not objCopy.EOF And 论文网http://www.youerw.com/  _
            objCopy.AbsolutePosition <> objDepart.AbsolutePosition) Then
            MsgBox "编号：" & Trim(txtNum) & "已被使用，请使用其他编号！", _
            vbCritical, "系部信息管理"
            txtNum.SetFocus
            txtNum.SelStart = 0
            txtNum.SelLength = Len(txtNum)
            Exit Sub        '编号重复，直接退出
        End If
    End If
    '编号不重复，执行下一步保存操作
    With objDepart
        If isAdding Then
            '添加新记录
            .AddNew
        Else
            '保存被修改的当前记录
            If objDepart.Fields("编号") <> Trim(txtNum) Then
                If MsgBox("修改编号将影响《教师信息》和《学生信息》表中的相关记录，是否继续？", _
                   vbYesNo + vbQuestion, "系部信息管理") = vbNo Then
                    '取消保存操作，还原当前记录
                    txtNum = .Fields("编号")
                    txtName = .Fields("名称")
                    Exit Sub        '退出过程
                End If
            End If本文来自优.文~论^文·网原文请找腾讯324'9114
        End If
        '修改记录
        .Fields("编号") = Trim(txtNum)
        .Fields("名称") = Trim(txtName)
        '执行更新操作
        论文网http://www.youerw.com/  objDepart.Update
        MsgBox "数据保存成功！", vbInformation, "系部信息管理"
        isAdding = False
        '显示当前记录编号和记录总数
        txtNews = "记录：" & objDepart.AbsolutePosition & "/" & objDepart.RecordCount
    End WithEnd Sub

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

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