📄 addnewbook.frm
字号:
VERSION 5.00
Begin VB.Form AddNewBook
BorderStyle = 3 'Fixed Dialog
Caption = "添加新图书"
ClientHeight = 3930
ClientLeft = 45
ClientTop = 330
ClientWidth = 6645
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3930
ScaleWidth = 6645
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdOkCancel
Cancel = -1 'True
Caption = "取消(&C)"
Height = 495
Index = 1
Left = 3960
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "关闭此对话框"
Top = 3240
Width = 1335
End
Begin VB.CommandButton cmdOkCancel
Caption = "添加(&E)"
Default = -1 'True
Height = 495
Index = 0
Left = 1680
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "将图书加入数据库"
Top = 3240
Width = 1335
End
Begin VB.Frame Frame1
Caption = "新书基本信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3015
Left = 120
TabIndex = 1
Top = 120
Width = 6375
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 330
Left = 4800
TabIndex = 10
Text = "Combo1"
Top = 1320
Width = 1335
End
Begin VB.TextBox txtCost
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 4800
TabIndex = 9
Text = "Text1"
Top = 1920
Width = 1335
End
Begin VB.TextBox txtBookChu
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 1200
TabIndex = 8
Text = "Text1"
Top = 1920
Width = 2415
End
Begin VB.TextBox txtBookName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 1200
TabIndex = 7
Text = "Text1"
Top = 1290
Width = 2415
End
Begin VB.TextBox txtBookNum
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 330
Left = 1440
TabIndex = 0
Top = 600
Width = 1815
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "请将以上信息填写完整，以便日后查询"
ForeColor = &H00C000C0&
Height = 180
Left = 1800
TabIndex = 13
Top = 2640
Width = 3060
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "出版社"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Index = 4
Left = 360
TabIndex = 6
Top = 1920
Width = 675
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "类 别"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Index = 3
Left = 3960
TabIndex = 5
Top = 1320
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "价 格"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Index = 2
Left = 3960
TabIndex = 4
Top = 1920
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "书 名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 210
Index = 1
Left = 360
TabIndex = 3
Top = 1320
Width = 690
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "图书编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 210
Index = 0
Left = 360
TabIndex = 2
Top = 600
Width = 900
End
End
End
Attribute VB_Name = "AddNewBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' **********************************************************************
' 描 述：银龙图书管理系统
' 中国VB网收集整理 http://www.ChinaVB.net
' QQ交流群：13047826 14356878
' 发表源码或文章请发邮件到:info@chinavb.net
' **********************************************************************Dim i As Integer
'定义db为数据库类型，rst为记录类型，db1为数据库类型，rst1为记录类型
Dim db As Database
Dim rst As Recordset
Dim db1 As Database
Dim rst1 As Recordset
'下面为添加和取消按钮的控件数组
Private Sub cmdOkCancel_Click(Index As Integer)
Select Case Index
Case 0 '确定按钮
'判断图书编号、书名、类型、价格、出版社是否为空，如为空给出提示
If txtBookNum = "" Or txtBookName = "" Or Combo1.Text = "" _
Or txtCost = "" Or txtBookChu = "" Then
MsgBox "请将所有信息填写完整！", 0 + 48, "提示"
Exit Sub
End If
'对输入的图书编号和数据库已有记录比较，如重复给出提示
rst.Seek "=", Trim(txtBookNum.Text)
If rst.NoMatch = False Then
MsgBox "此编号已经存在，请填写其它编号！", 0 + 48, "提示"
'把图书编号设置为空，并将光标定位在图书编号，方便重新输入
txtBookNum.SelText = ""
txtBookNum.SetFocus
Exit Sub
End If
'如果图书编号不重复，把相应字段增加到数据库，提出成功提示
rst.AddNew
rst.Fields("图书编号") = Trim(txtBookNum.Text)
rst.Fields("书名") = txtBookName.Text
rst.Fields("类别") = Combo1.Text
rst.Fields("价格") = txtCost.Text
rst.Fields("出版社") = txtBookChu.Text
rst.Update
MsgBox "添加成功！按回车继续", 0 + 48, "成功"
'添加成功，对所有输入框置空，定位光标到图书编号，以便继续输入新记录
txtBookNum.Text = ""
txtBookName = ""
txtCost = ""
Combo1.Text = ""
txtBookChu = ""
txtBookNum.SetFocus
Case 1 '取消按钮
Unload Me
End Select
End Sub
Private Sub Form_Load()
'打开data.mdb数据库和book表
DBpath = App.Path + "\DataBase\Data.mdb"
Set db = Workspaces(0).OpenDatabase(DBpath, False)
Set rst = db.OpenRecordset("Book", dbOpenTable)
'对库的图书编号索引，方便以后查询
rst.Index = "图书编号"
'打开data.mdb数据库和Type表
Set db1 = Workspaces(0).OpenDatabase(DBpath, False)
Set rst1 = db1.OpenRecordset("Type", dbOpenTable)
'调用TypeAdd过程，读取数据库中所有类型字段
TypeAdd
'设置所有输入框为空
txtBookNum.Text = ""
txtBookName = ""
txtCost = ""
Combo1.Text = ""
txtBookChu = ""
End Sub
'关闭窗体时，关闭所有数据库
Private Sub Form_Unload(Cancel As Integer)
rst.Close
rst1.Close
db1.Close
db.Close
End Sub
'定义TypeAdd过程
'读取数据库所有类别字段
Private Sub TypeAdd()
rst1.MoveLast
rst1.MoveFirst
For i = 1 To rst1.RecordCount
Combo1.AddItem rst1.Fields("类别")
rst1.MoveNext
If rst1.EOF Then Exit Sub
Next
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -