VB+教学辅助系统(二)

bsp;   Dim adoprimaryrs As New ADODB.Recordset
    If Cbostyle.Text = "" Then
        MsgBox "类别不能为空", vbCritical + vbApplicationModal, "错误"
        Exit Sub
    End If
    If TxTTitle.Text = "" Then
        MsgBox "标题不能为空", vbCritical + vbApplicationModal, "错误"
        Exit Sub
    End If
    If RTB1.Text = "" Then
        MsgBox "内容不能为空", vbCritical + vbApplicationModal, "错误"
        Exit Sub
    End If
   
    Select Case True
        Case AddCode
            i = ExistRecord("code", "标题", Trim(TxTTitle.Text))
            If i Then
                MsgBox "该代码标题已存在，请重新修改代码标题", vbCritical + vbApplicationModal, "错误"
                TxTTitle.SelStart = 0
                TxTTitle.SelLength = Len(Trim(TxTTitle.Text))
                Exit Sub
            End If
        Case EditCode
            Dim adoprimarycmd As New ADODB.Command
            adoprimarycmd.ActiveConnection = StrConnect
            adoprimarycmd.CommandText = "delete * from code where 标题='" & Trim(Temptitle) & "'"
            adoprimarycmd.Execute
            Set adoprimarycmd = Nothing
    End Select
    adoprimaryrs.CursorLocation = adUseClient
    adoprimaryrs.Open "select * from code", StrConnect, adOpenKeyset, adLockOptimistic, adCmdText
    adoprimaryrs.MoveLast
    adoprimaryrs.AddNew
    adoprimaryrs.Fields("大类别") = Trim(BigStyle)
    adoprimaryrs.Fields("小类别") = Trim(Cbostyle)
    adoprimaryrs.Fields("标题") = Trim(TxTTitle)
    adoprimaryrs.Fields("内容") = RTB1.Text
    adoprimaryrs.Update
    Set adoprimaryrs = Nothing
    RTB1.BackColor = GetSetting(App.EXEName, "Corlor", "BackCorlor", RTB1.BackColor)
    Call ShowTree(BigStyle)
    RTB1.Locked = True
    EditCode = False
    AddCode = False
    Too

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 2/9/9

VB+教学辅助系统(二)相关范文