📄 load_nbkf.frm
字号:
DataField = "出版社"
DataSource = "Adodc2"
Height = 330
Left = 1560
TabIndex = 6
Top = 4320
Width = 2295
_ExtentX = 4048
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "出版社"
Text = ""
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
Begin VB.Label Label9
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "图书简介"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 360
TabIndex = 18
Top = 5640
Width = 975
End
Begin VB.Label Label8
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "是否在库"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 360
TabIndex = 17
Top = 5040
Width = 975
End
Begin VB.Label Label7
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "出版社*"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 360
TabIndex = 16
Top = 4320
Width = 975
End
Begin VB.Label Label6
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "出版日期"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 360
TabIndex = 15
Top = 3720
Width = 975
End
Begin VB.Label Label5
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "价格"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 360
TabIndex = 14
Top = 3000
Width = 975
End
Begin VB.Label Label4
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "第一作者*"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 13
Top = 2400
Width = 1095
End
Begin VB.Label Label3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "书名*"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 360
TabIndex = 12
Top = 1800
Width = 975
End
Begin VB.Label Label2
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "图书种类*"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 11
Top = 1200
Width = 1095
End
Begin VB.Label Label1
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000000&
Caption = "图书编号*"
BeginProperty Font
Name = "新宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 240
TabIndex = 10
Top = 600
Width = 1095
End
End
Attribute VB_Name = "load_nbkf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
pressf.Show vbModal
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Adodc0.Refresh
End Sub
Private Sub bk_add_Click()
Dim str As String
If Trim(bk_isbn.Text) = "" Or Trim(bk_name.Text) = "" Or Trim(bk_type.Text) = "" Or Trim(bk_author.Text) = "" Or Trim(bk_press.Text) = "" Then
MsgBox "加*数据项不能为空，请重新设置", vbOKOnly + vbExclamation, "信息提示"
Exit Sub
End If
sqltxt = "select * from 图书基本信息表 where 图书编号='" & Trim(bk_isbn.Text) & "'"
Set rs = exesql(sqltxt)
If rs.RecordCount <> 0 Then
MsgBox "存在相同图书编号", vbOKOnly + vbExclamation, "信息提示"
bk_isbn.SetFocus
rs.Close
Exit Sub
Else
rs.Close
End If
str = Left(bk_isbn.Text, 3)
If str <> "TP-" Then
MsgBox "‘图书编号’格式错误！ 例：TP-123456", vbOKOnly + vbExclamation, "信息提示"
bk_isbn.SetFocus
Exit Sub
End If
If IsNumeric(bk_price.Text) = False Then
MsgBox "‘价格’格式错误！ 应为数字", vbOKOnly + vbExclamation, "信息提示"
bk_price.SetFocus
Exit Sub
End If
If IsDate(Trim(bk_date.Text)) = False Then
MsgBox "‘日期’填写错误！应为 yyyy-mm-dd"
bk_date.SetFocus
Exit Sub
End If
load_nbkf.Adodc0.Recordset.AddNew
load_nbkf.Adodc0.Recordset.Fields("图书编号") = Trim(bk_isbn.Text)
load_nbkf.Adodc0.Recordset.Fields("图书种类") = RTrim(bk_type.Text)
load_nbkf.Adodc0.Recordset.Fields("书名") = Trim(bk_name.Text)
load_nbkf.Adodc0.Recordset.Fields("第一作者") = Trim(bk_author.Text)
load_nbkf.Adodc0.Recordset.Fields("价格") = Val(Trim(bk_price.Text))
load_nbkf.Adodc0.Recordset.Fields("出版日期") = Format(Trim(bk_date.Text), "yyyy-mm-dd")
load_nbkf.Adodc0.Recordset.Fields("出版社") = RTrim(bk_press.Text)
If y.Value = True Then
load_nbkf.Adodc0.Recordset.Fields("是否在库") = "1"
Else
load_nbkf.Adodc0.Recordset.Fields("是否在库") = "0"
End If
load_nbkf.Adodc0.Recordset.Fields("图书简介") = Trim(context.Text)
load_nbkf.Adodc0.Recordset.Update
MsgBox "新书成功入库", vbOKOnly + vbExclamation, "信息提示"
bk_isbn.Text = ""
bk_name.Text = ""
bk_author.Text = ""
bk_price.Text = ""
bk_date.Text = ""
bk_press.Text = ""
bk_type.Text = ""
context.Text = ""
bk_isbn.SetFocus
End Sub
Private Sub cancel_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -