📄 addnewbook.frm
字号:
VERSION 5.00
Begin VB.Form AddNewBook
BackColor = &H00D0D0D0&
BorderStyle = 3 'Fixed Dialog
Caption = "添加新信息"
ClientHeight = 3300
ClientLeft = 45
ClientTop = 330
ClientWidth = 5250
Icon = "AddNewBook.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3300
ScaleWidth = 5250
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
BackColor = &H005CE764&
Height = 75
Left = -330
TabIndex = 13
Top = 2445
Width = 6075
End
Begin VB.CommandButton cmdOkCancel
BackColor = &H00FFFFFF&
Cancel = -1 'True
Caption = "取消"
Height = 375
Index = 1
Left = 3750
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "关闭此对话框"
Top = 2685
Width = 1035
End
Begin VB.CommandButton cmdOkCancel
BackColor = &H00FFFFFF&
Caption = "添加"
Height = 375
Index = 0
Left = 2730
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "将图书加入数据库"
Top = 2685
Width = 1035
End
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
Caption = " 基本信息"
ForeColor = &H00800000&
Height = 2370
Left = -30
TabIndex = 1
Top = 90
Width = 6840
Begin VB.ComboBox Combo1
ForeColor = &H00000000&
Height = 300
ItemData = "AddNewBook.frx":058A
Left = 3675
List = "AddNewBook.frx":058C
TabIndex = 10
Text = "Combo1"
Top = 285
Width = 1335
End
Begin VB.TextBox txtCost
ForeColor = &H00000000&
Height = 270
Left = 1050
TabIndex = 9
Text = "Text1"
Top = 1845
Width = 1335
End
Begin VB.TextBox txtBookChu
ForeColor = &H00000000&
Height = 270
Left = 1050
TabIndex = 8
Text = "Text1"
Top = 1335
Width = 2535
End
Begin VB.TextBox txtBookName
ForeColor = &H00000000&
Height = 270
Left = 1050
TabIndex = 7
Text = "Text1"
Top = 795
Width = 2535
End
Begin VB.TextBox txtBookNum
ForeColor = &H00FF0000&
Height = 270
Left = 1050
TabIndex = 0
Top = 315
Width = 1815
End
Begin VB.Image Image1
Height = 240
Left = 135
Picture = "AddNewBook.frx":058E
Top = -15
Width = 240
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "描 述"
ForeColor = &H00800000&
Height = 180
Index = 4
Left = 375
TabIndex = 6
Top = 1335
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00E0E0E0&
Caption = "类 别"
ForeColor = &H00008000&
Height = 180
Index = 3
Left = 3000
TabIndex = 5
Top = 360
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00E0E0E0&
Caption = "值 名"
ForeColor = &H00800000&
Height = 180
Index = 2
Left = 375
TabIndex = 4
Top = 1845
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00E0E0E0&
Caption = "名 称"
ForeColor = &H00800000&
Height = 180
Index = 1
Left = 375
TabIndex = 3
Top = 855
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00E0E0E0&
Caption = "信息编号"
ForeColor = &H000000FF&
Height = 180
Index = 0
Left = 195
TabIndex = 2
Top = 375
Width = 720
End
End
Begin VB.Shape Shape1
BackColor = &H00E0E0E0&
BackStyle = 1 'Opaque
Height = 135
Left = -15
Top = -15
Width = 5565
End
End
Attribute VB_Name = "AddNewBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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.Text
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()
Set db = Workspaces(0).OpenDatabase(App.Path & "\Database\Data.mdb", False)
Set rst = db.OpenRecordset("Book", dbOpenTable)
rst.Index = "信息编号"
Set db1 = Workspaces(0).OpenDatabase(App.Path & "\Database\Data.mdb", False)
Set rst1 = db1.OpenRecordset("Type", dbOpenTable)
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
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 + -