📄 frmbooks.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form FrmBooks
BorderStyle = 1 'Fixed Single
Caption = "图书管理"
ClientHeight = 7485
ClientLeft = 45
ClientTop = 330
ClientWidth = 11910
Icon = "FrmBooks.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7485
ScaleWidth = 11910
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Cmd_Close
Caption = "返 回"
Height = 375
Left = 8373
TabIndex = 7
Top = 6840
Width = 1100
End
Begin VB.CommandButton Cmd_Borrow
Caption = "查看借阅归还记录"
Height = 375
Left = 6353
TabIndex = 6
Top = 6840
Width = 1815
End
Begin VB.CommandButton Cmd_Del
Caption = "删 除"
Height = 375
Left = 5048
TabIndex = 5
Top = 6840
Width = 1100
End
Begin VB.CommandButton Cmd_Modi
Caption = "修 改"
Height = 375
Left = 3743
TabIndex = 4
Top = 6840
Width = 1100
End
Begin VB.CommandButton Cmd_Add
Caption = "添 加"
Height = 375
Left = 2438
TabIndex = 3
Top = 6840
Width = 1100
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 7440
Top = 0
Visible = 0 'False
Width = 2415
_ExtentX = 4260
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Books;Data Source=127.0.0.1"
OLEDBString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Books;Data Source=127.0.0.1"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = "sa"
Password = "sa"
RecordSource = "Select * from BookInfo"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "FrmBooks.frx":0442
Height = 6375
Left = 3120
TabIndex = 2
Top = 120
Width = 8655
_ExtentX = 15266
_ExtentY = 11245
_Version = 393216
AllowUpdate = 0 'False
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
MarqueeStyle = 3
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.CommandButton Cmd_Back
BackColor = &H80000004&
Cancel = -1 'True
Caption = "返 回"
Height = 400
Left = 12360
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 1
Top = 6600
Width = 1100
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483628
ImageWidth = 16
ImageHeight = 16
MaskColor = 16777215
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":0457
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":2DE9
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":577B
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":810D
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmBooks.frx":AA9F
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 6375
Left = 120
TabIndex = 0
Top = 120
Width = 2895
_ExtentX = 5106
_ExtentY = 11245
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Sorted = -1 'True
Style = 7
HotTracking = -1 'True
SingleSel = -1 'True
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
MousePointer = 99
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "FrmBooks"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public nTypeId As Integer '分类编号
Public bHaveSon As Boolean '是否有子节点
Public Focuskey As String
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Cmd_Add_Click()
'只能在根节点下面添加书籍，判断是否为根节点
If Focuskey = "a0" Then '根结点
MsgBox ("只能在最下级添加图书")
Exit Sub
End If
If bHaveSon Then
MsgBox ("只能在最下级添加图书")
Exit Sub
End If
'将Modify变量设置为False，表示当前状态为插入新记录
FrmBookEdit.Modify = False
'初始化FrmBookEdit信息
FrmBookEdit.txtBookNo = ""
FrmBookEdit.txtBookName = ""
FrmBookEdit.txtAuthor = ""
FrmBookEdit.txtPublisher = ""
FrmBookEdit.txtLocation = ""
FrmBookEdit.txtPrice = "0"
FrmBookEdit.txtDescription = ""
FrmBookEdit.nBookTypeId = CurBookType.TypeId
FrmBookEdit.txtSubType = CurBookType.TypeName
FrmBookEdit.txtType = CurBookType.GetUpperName(CurBookType.TypeId)
'启动编辑窗体
FrmBookEdit.Show 1
'刷新DataGrid表格的内容
GridRefresh
End Sub
Private Sub Cmd_Back_Click()
Unload Me
End Sub
Private Sub Cmd_Borrow_Click()
'使用Adodc1.Recordset.EOF判断当前是否选择了记录
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
'通过Adodc1.Recordset.Fields()读取Adodc1记录源中的当前数据
FrmRecordView.TmpBNo = Trim(Adodc1.Recordset.Fields(0))
FrmRecordView.Caption = "图书借阅归还记录"
FrmRecordView.txtBookNo = Trim(Adodc1.Recordset.Fields(0))
FrmRecordView.txtBookName = Trim(Adodc1.Recordset.Fields(1))
'设置借阅状态为"全部"
FrmRecordView.ComboFlag.Visible = True
FrmRecordView.ComboFlag.ListIndex = 0
'显示窗体
FrmRecordView.Show 1
End Sub
Private Sub Cmd_Close_Click()
Unload Me
End Sub
'单击“删除”按钮
Private Sub Cmd_Del_Click()
Dim TmpNo As String
'使用Adodc1.Recordset.EOF判断当前是否选择了记录
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
'通过Adodc1.Recordset.Fields()读取Adodc1记录源中的当前数据
TmpNo = Trim(Adodc1.Recordset.Fields(0))
'询问用户是否确认删除
If MsgBox("是否删除当前行?", vbYesNo, "确认") = vbYes Then
Call MyBookInfo.Delete(TmpNo)
MsgBox "删除成功"
End If
'刷新DataGrid表格的内容
GridRefresh
End Sub
'单击“修改”按钮
Private Sub Cmd_Modi_Click()
If Adodc1.Recordset.EOF = True Then
MsgBox "请选择记录"
Exit Sub
End If
'将Modify变量设置为True，表示当前状态为修改新记录
FrmBookEdit.Modify = True
'初始化FrmBookEdit信息
'设置当前编辑的图书编号
FrmBookEdit.OriNo = Adodc1.Recordset.Fields(0)
FrmBookEdit.txtBookNo = Adodc1.Recordset.Fields(0)
'图书编号不能修改
FrmBookEdit.txtBookNo.Enabled = False
'图书名
FrmBookEdit.txtBookName = Trim(Adodc1.Recordset.Fields(1))
'图书分类，根据图书编号取得分类编号，而后取得分类名称和对应的上级分类名称
FrmBookEdit.txtType = MyBookType.GetUpperName((MyBookInfo.GetTypeId(Adodc1.Recordset.Fields(0))))
FrmBookEdit.txtSubType = MyBookType.GetName((MyBookInfo.GetTypeId(Adodc1.Recordset.Fields(0))))
'作者
FrmBookEdit.txtAuthor = Trim(Adodc1.Recordset.Fields(2))
'出版社
FrmBookEdit.txtPublisher = Trim(Adodc1.Recordset.Fields(3))
'图书位置
FrmBookEdit.txtLocation = Trim(Adodc1.Recordset.Fields(4))
'价格
FrmBookEdit.txtPrice = Trim(Adodc1.Recordset.Fields(5))
'价格
FrmBookEdit.txtTotal = Trim(Adodc1.Recordset.Fields(6))
'内容简介
FrmBookEdit.txtDescription = Trim(Adodc1.Recordset.Fields(7))
'启动编辑窗体
FrmBookEdit.Show 1
'刷新DataGrid表格的内容
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Dim TmpNode As Node
'设置当前的焦点分类
FocusClassName = "分类名称"
Focuskey = "a0"
'设置根结点
Set TmpNode = TreeView1.Nodes.Add(, , "a0", "图书分类", 1, 3)
TmpNode.Selected = True
TmpNode.ExpandedImage = 2
'调用函数将所有图书分类添加到TreeView1中
Call AddtoTree(TreeView1, "a0")
'读取当前节点的信息
TreeView1_Click
End Sub
Private Sub TreeView1_Click()
'根据关键字获取图书分类信息
Focuskey = TreeView1.SelectedItem.Key
CurBookType.TypeName = TreeView1.SelectedItem.Text
CurBookType.TypeId = Val(Right(TreeView1.SelectedItem.Key, Len(TreeView1.SelectedItem.Key) - 1))
If Focuskey = "a0" Then '根结点
nTypeId = -1
Exit Sub
End If
'如果包含子结点，则设置图像格式
bHaveSon = CurBookType.HaveSon(CurBookType.TypeId)
If bHaveSon = False Then
TreeView1.SelectedItem.ExpandedImage = 4
TreeView1.SelectedItem.Image = 4
TreeView1.SelectedItem.SelectedImage = 5
End If
nTypeId = CurBookType.TypeId
'读取CurBookType中的所有图书分类信息
CurBookType.GetInfo (CurBookType.TypeId)
GridRefresh
End Sub
Private Sub GridRefresh()
If nTypeId = -1 Then '表示为根目录
strSearch = ""
ElseIf bHaveSon = True Then '表示为有子节点的分类，显示此分类下的所有图书
strSearch = " ,BookType t WHERE b.TypeId=t.TypeId AND t.UpperId=" + Trim(Str(nTypeId))
Else '表示为根节点
strSearch = " WHERE b.TypeId=" + Trim(Str(nTypeId))
End If
'设置ADO控件的连接字符串
Adodc1.ConnectionString = conn
'刷新DataGrid记录
Adodc1.RecordSource = "SELECT b.BookNo AS 书号,b.BookName AS 书名,b.Author AS 作者," & _
"b.Publisher AS 出版社,b.Location AS 书架位置,b.Price AS 单价,b.Total AS 总数量 " & _
",b.Description AS 内容介绍 FROM BookInfo b " + strSearch
' MsgBox (Adodc1.RecordSource)
Adodc1.Refresh
DataGrid1.Columns(0).Width = 1000
DataGrid1.Columns(1).Width = 2000
DataGrid1.Columns(2).Width = 1200
DataGrid1.Columns(3).Width = 1600
DataGrid1.Columns(4).Width = 1000
DataGrid1.Columns(5).Width = 800
DataGrid1.Columns(6).Width = 1000
DataGrid1.Columns(7).Width = 2000
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -