📄 frmbtypeedit.frm
字号:
VERSION 5.00
Begin VB.Form frmBTypeEdit
Caption = "图书类型编辑"
ClientHeight = 6870
ClientLeft = 5460
ClientTop = 3240
ClientWidth = 7230
LinkTopic = "Form1"
Picture = "frmBTypeEdit.frx":0000
ScaleHeight = 6870
ScaleWidth = 7230
Begin VB.TextBox txtTypeID
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 3480
TabIndex = 3
Top = 3480
Width = 2535
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 615
Left = 4080
MaskColor = &H00FF0000&
TabIndex = 5
Top = 4680
Width = 1575
End
Begin VB.CommandButton cmbOk
Caption = "确定(&O)"
Height = 615
Left = 1680
TabIndex = 4
Top = 4680
Width = 1575
End
Begin VB.TextBox txtTypeName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 3480
TabIndex = 2
Top = 2400
Width = 2535
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "上级图书类型:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
TabIndex = 7
Top = 1440
Width = 1695
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "图书分类号:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1320
TabIndex = 6
Top = 3480
Width = 1455
End
Begin VB.Label lblUID
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3480
TabIndex = 1
Top = 1440
Width = 2775
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "图书类型名称:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1080
TabIndex = 0
Top = 2400
Width = 1815
End
End
Attribute VB_Name = "frmBTypeEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim oldTypeID As Integer
Dim oldUID As Integer
Dim oldTypeName As String
'＂确定＂按钮，用于输入或修改分类信息后，将其存入数据表BookType中
Private Sub cmbOk_Click()
'判断是否输入图书分类名称
If Trim(txtTypeName) = "" Then
MsgBox "请输入图书分类名称", vbInformation, "添加分类提示"
txtTypeName.SetFocus
Exit Sub
End If
'判断是否输入图书分类号
If Trim(txtTypeID) = "" Then
MsgBox "请输入图书分类号", vbInformation, "添加分类提示"
txtTypeID.SetFocus
Exit Sub
End If
'判断图书分类号是否合法
If Not IsNumeric(txtTypeID.Text) Then
MsgBox "图书分类号为数字" + vbCrLf + "请输入正确的图书分类号", vbInformation, "信息提示"
txtTypeID.SetFocus
txtTypeID.SelStart = 0
txtTypeID.SelLength = Len(txtTypeID.Text)
Exit Sub
End If
Dim rs As ADODB.Recordset
Dim SQLStr As String, vTypeName As String
Dim vUID As Integer
Dim vTypeID As String
vTypeName = Trim(txtTypeName.Text)
vTypeID = Trim(txtTypeID.Text)
SQLStr = "select * from BookType where TypeName='" + vTypeName + "'"
Set rs = SQLQuery(SQLStr)
If IsAdd Then '插入分类数据
'判断是否存在相同的图书分类名称
If Not rs.BOF Then
MsgBox vTypName + "已经存在" + vbCrLf + "请输入其他分类名称", vbInformation, "添加分类提示"
Exit Sub
End If
If Trim(lblUID.Caption) = "" Then
vUID = 0 'lblUID.Captipn 为空，表明插入的是一级分类
Else '否则，查询该分类名对应的分类号作为插入分类的上级分类号
SQLStr = "select * from BookType where TypeName='"
SQLStr = SQLStr + Trim(lblUID.Caption) + "'"
Set rs = SQLQuery(SQLStr)
vUID = rs.Fields(0)
End If
SQLStr = "select * from BookType where TypeID='" + vTypeID + "'"
Set rs = SQLQuery(SQLStr)
If IsAdd Then '插入分类号
'判断是否存在相同的图书分类号
If Not rs.BOF Then
MsgBox vTypeID + "已经存在" + vbCrLf + "请输入其他分类号", vbInformation, "添加分类提示"
Exit Sub
End If
End If
'设置INSERT语句
SQLStr = "insert into BookType(TypeID,TypeName,UID) values('" + Trim(vTypeID) + "' ,'" + Trim(vTypeName) + "' ," + Str(vUID) + ")"
'SQLStr = "insert into BookType(TypeName,UID)valus('" + Trim(vTypeName) + "'," + Str(vUID) + ")"
SQLExt SQLStr '执行insert语句
MsgBox "插入成功", vbInformation, " 添加分类提示"
If frmBTypeM.List2.ListCount = 0 Then
MsgBox "如果插入的为一级分类" + vbCrLf + "则必须插入相应的二级分类", vbInformation, "添加分类提示"
End If
Else '修改分类数据
'判断是否存在重复的图书分类名称
If oldTypeName <> vTypeName Then
If Not rs.BOF Then
MsgBox vTypeName + "已经存在" + vbCrLf + "请输入其他分类名称", vbInformation, " 修改分类提示"
Exit Sub
End If
Else
Exit Sub
End If
' If oldTypeID <> vTypeID Then
' If Not rs.BOF Then
' MsgBox vTypeID + "已经存在" + vbCrLf + "请输入其他分类号", vbInformation, "修改分类提示"
' Exit Sub
'End If
'Else
'Exit Sub
' End If
'修改数据
SQLStr = "UPDATE BookType SET TypeName='" + Trim(vTypeName) + "'where TypeID='" + Trim(oldTypeID) + "'"
SQLExt SQLStr '执行UPDATE语句
' SQLStr = "UPDATE BookType SET TypeID='" + Trim(vTypeID) + "'where TypeName='" + Trim(vTypeName) + "'"
' SQLExt SQLStr '执行UPDATE语句
MsgBox "修改成功", vbInformation, "修改分类提示"
End If
'关闭窗口
SQLStr = "select * from BookType where UID=0"
AddTypeList frmBTypeM.List1, SQLStr
If oldUID > 0 Then
SQLStr = "select * from BookType where UID=" & Str(oldUID)
AddTypeList frmBTypeM.List2, SQLStr
End If
Unload Me
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
'frmBTpeEdit窗体激活时，获取当前图书分类信息
'暂存在oldTypeID,oldUID,oldTypeName中，用于当frmBTypeM窗体修改分类时
Private Sub Form_Activate()
Dim rs As ADODB.Recordset
'Dim cnn As New ADODB.Connection
oldTypeName = txtTypeName.Text
If oldTypeName = "" Then '若无分类名称，则为全部分类，oldTypeID清0
oldTypeID = 0
oldUID = 0
Else
'查询分类名称为oldTypeName的记录
'并将其分类号和上级分类号分别存储在oldTypeID,oleUID中
SQLStr = "select * from BookType where TypeName='" + oldTypeName + "'"
'Set cnn = New ADODB.Connection '关键字New用于创建新对象cnn
'cnn.ConnectionString = CONSTR '设置连接字符串的ConnectionString属性
'cnn.Open
'rs.Open SQLStr, cnn, adOpenDynamic, adLockOptimistic
Set rs = SQLQuery(SQLStr)
oldTypeID = Val(rs.Fields("TypeID"))
oleUID = rs.Fields("UID")
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -