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
