📄 shuji.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 14
Top = 2640
Width = 1575
End
Begin VB.Label Label8
BackColor = &H00C0FFC0&
Caption = "字数："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 13
Top = 2160
Width = 1575
End
Begin VB.Label Label7
BackColor = &H00C0FFC0&
Caption = "责任编辑："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 12
Top = 1680
Width = 1575
End
Begin VB.Label Label1
BackColor = &H00C0FFC0&
Caption = "书号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 11
Top = 240
Width = 1575
End
Begin VB.Label Label2
BackColor = &H00C0FFC0&
Caption = "丛书系列："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 10
Top = 720
Width = 1575
End
Begin VB.Label Label3
BackColor = &H00C0FFC0&
Caption = "作者："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 9
Top = 1200
Width = 1575
End
Begin VB.Label Label4
BackColor = &H00C0FFC0&
Caption = "主题分类："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4680
TabIndex = 8
Top = 240
Width = 1335
End
Begin VB.Label Label5
BackColor = &H00C0FFC0&
Caption = "二级分类："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4680
TabIndex = 7
Top = 720
Width = 1335
End
Begin VB.Label Label6
BackColor = &H00C0FFC0&
Caption = "借阅分类："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4680
TabIndex = 6
Top = 1200
Width = 1335
End
End
Attribute VB_Name = "shuji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim isAdding As Boolean '定义操作状态标志
Dim objAdmin As Recordset '用于保存管理员数据表记录
Dim objCn As Connection '用于建立数据库联接
Private Sub Command7_Click()
Unload Me
End Sub
Private Sub cmdadd_Click()
txtnews = "添加新记录"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
isAdding = True
End Sub
Private Sub cmddelete_Click()
'根据是否处于添加记录状态执行不同的操作
If isAdding Then
'退出添加记录状态，显示当前记录
isAdding = False
If objAdmin.BOF And objAdmin.EOF Then
txtnews = "记录：无" '显示无记录提示
Else
'显示当前记录数据
Text1 = objAdmin.Fields("书号")
Text2 = objAdmin.Fields("丛书系列")
Text3 = objAdmin.Fields("作者")
Text4 = objAdmin.Fields("主题分类")
Text5 = objAdmin.Fields("二级分类")
Text6 = objAdmin.Fields("借阅分类")
Text7 = objAdmin.Fields("责任编辑")
Text8 = objAdmin.Fields("字数")
Text9 = objAdmin.Fields("单价")
Text10 = objAdmin.Fields("出版时间")
Text11 = objAdmin.Fields("总册数")
Text12 = objAdmin.Fields("库存量")
Text13 = objAdmin.Fields("出版社")
Text14 = objAdmin.Fields("书名")
'显示当前记录编号和记录总数
txtnews = "记录：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
End If
Else
If objAdmin.RecordCount > 0 Then
If MsgBox("是否删除当前记录？", vbYesNo + vbQuestion, "书籍信息管理") = vbYes Then
objAdmin.Delete '执行删除当前记录操作
cmdmove(2).Value = True '显示下一记录数据
Else
'显示当前记录数据
Text1 = objAdmin.Fields("书号")
Text2 = objAdmin.Fields("丛书系列")
Text3 = objAdmin.Fields("作者")
Text4 = objAdmin.Fields("主题分类")
Text5 = objAdmin.Fields("二级分类")
Text6 = objAdmin.Fields("借阅分类")
Text7 = objAdmin.Fields("责任编辑")
Text8 = objAdmin.Fields("字数")
Text9 = objAdmin.Fields("单价")
Text10 = objAdmin.Fields("出版时间")
Text11 = objAdmin.Fields("总册数")
Text12 = objAdmin.Fields("库存量")
Text13 = objAdmin.Fields("出版社")
Text14 = objAdmin.Fields("书名")
'显示当前记录编号和记录总数
txtnews = "记录：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
End If
End If
End If
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdmove_Click(Index As Integer)
With objAdmin
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
If .RecordCount < 1 Then
txtnews = "记录：无" '显示无记录提示
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Else
'显示当前记录数据
Text1 = objAdmin.Fields("书号")
Text2 = .Fields("丛书系列")
Text3 = .Fields("作者")
Text4 = .Fields("主题分类")
Text5 = .Fields("二级分类")
Text6 = .Fields("馆内借阅分类")
Text7 = .Fields("责任编辑")
Text8 = .Fields("字数")
Text9 = .Fields("定价")
Text10 = .Fields("出版时间")
Text11 = .Fields("总册数")
Text12 = .Fields("库存量")
Text13 = .Fields("出版社")
Text14 = .Fields("书名")
'显示当前记录编号和记录总数
txtnews = "记录：" & .AbsolutePosition & "/" & .RecordCount
End If
End With
If isAdding Then isAdding = False '改变当前记录则退出当前添加记录状态
End Sub
Private Sub cmdsave_Click()
Dim objCopy As New Recordset
If Trim(Text1) = "" Then
MsgBox "书号不能为空！", vbCritical, "书籍信息管理"
Text1.SetFocus
Text1 = ""
Else
Set objCopy = objAdmin.Clone
With objCopy
If .RecordCount > 0 Then
'检查用户名是否被使用
.MoveFirst
.Find "书号='" & Trim(Text1) & "'"
If (isAdding And Not .EOF) Or (Not isAdding And Not .EOF And _
.AbsolutePosition <> objAdmin.AbsolutePosition) Then
MsgBox "书号：" & Trim(Text1) & "已被使用，请使用其他书号！", _
vbCritical, "书籍信息管理"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Exit Sub
End If
End If
End With
'保存或添加记录
If isAdding Then objAdmin.AddNew
objAdmin.Fields("书号") = Trim(Text1)
objAdmin.Fields("丛书系列") = Trim(Text2)
objAdmin.Fields("作者") = Trim(Text3)
objAdmin.Fields("主题分类") = Trim(Text4)
objAdmin.Fields("二级分类") = Trim(Text5)
objAdmin.Fields("借阅分类") = Trim(Text6)
objAdmin.Fields("责任编辑") = Trim(Text7)
objAdmin.Fields("字数") = Trim(Text8)
objAdmin.Fields("单价") = Trim(Text9)
objAdmin.Fields("出版时间") = Trim(Text10)
objAdmin.Fields("总册数") = Trim(Text11)
objAdmin.Fields("库存量") = Trim(Text12)
objAdmin.Fields("出版社") = Trim(Text13)
objAdmin.Fields("书名") = Trim(Text14)
objAdmin.Update
MsgBox "数据保存成功！", vbInformation, "书籍信息管理"
isAdding = False
'显示当前记录编号和记录总数
txtnews = "记录：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
End If
End Sub
Private Sub cmdseek_Click()
Dim strKey$
strKey = InputBox("请输入要查询的书籍！", "查询书籍信息")
If strKey = "" Then
MsgBox "输入无效！", vbInformation, "书籍信息管理"
Else
With objAdmin
If .RecordCount > 0 Then
.MoveFirst
.Find "书号 like '*" & strKey & "*'"
If .EOF Then
MsgBox "无书号为 " & strKey & " 的书籍记录！", vbInformation, "书籍信息管理"
Else
'显示当前记录数据
Text1 = objAdmin.Fields("书号")
Text2 = .Fields("丛书系列")
Text3 = .Fields("作者")
Text4 = .Fields("主题分类")
Text5 = .Fields("二级分类")
Text6 = .Fields("借阅分类")
Text7 = .Fields("责任编辑")
Text8 = .Fields("字数")
Text9 = .Fields("单价")
Text10 = .Fields("出版时间")
Text11 = .Fields("总册数")
Text12 = .Fields("库存量")
Text13 = .Fields("出版社")
Text14 = .Fields("书名")
'显示当前记录编号和记录总数
txtnews = "记录：" & .AbsolutePosition & "/" & .RecordCount
End If
Else
MsgBox "无管理员记录！", vbInformation, "系统用户管理"
End If
End With
End If
End Sub
Private Sub Form_Load()
'建立数据库联接
Set objCn = New Connection '实例化联接对象
With objCn '建立数据库联接
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=;Data Source=(local);" & _
"Initial Catalog=datatushu"
.Open
End With
'获取管理员记录
Set objAdmin = New Recordset '实例化objAdmin对象
With objAdmin
Set .ActiveConnection = objCn
.CursorLocation = adUseClient '指定使用客户端游标
.CursorType = adOpenStatic '指定使用静态游标
.LockType = adLockOptimistic
.Open "SELECT * FROM 书籍信息" '获取书籍信息
End With
'触发按钮单击事件，显示第一个记录
cmdmove(0).Value = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -