📄 a图书维护.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form A图书维护
BorderStyle = 1 'Fixed Single
Caption = "添加图书"
ClientHeight = 5355
ClientLeft = 45
ClientTop = 330
ClientWidth = 7035
Icon = "A图书维护.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5355
ScaleWidth = 7035
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton CmdSave
BackColor = &H00C0C0C0&
Caption = "保存"
Height = 360
Left = 3720
Style = 1 'Graphical
TabIndex = 12
Top = 4920
Width = 800
End
Begin VB.CommandButton CmdCancel
BackColor = &H00C0C0C0&
Caption = "取消"
Height = 360
Left = 4560
Style = 1 'Graphical
TabIndex = 13
Top = 4920
Width = 800
End
Begin VB.CommandButton CmdExit
BackColor = &H00C0C0C0&
Caption = "退出"
Height = 360
Left = 5520
Style = 1 'Graphical
TabIndex = 14
Top = 4920
Width = 800
End
Begin VB.CommandButton CmdAdd
BackColor = &H00C0C0C0&
Caption = "添加"
Height = 360
Left = 2880
Style = 1 'Graphical
TabIndex = 11
Top = 4920
Width = 800
End
Begin VB.Frame FrameBook
Caption = "图书信息"
Height = 4815
Left = 0
TabIndex = 15
Top = 0
Width = 6975
Begin VB.TextBox txtISBN
Height = 375
Left = 4560
TabIndex = 2
Top = 840
Width = 2175
End
Begin VB.ComboBox CboSelect
Height = 315
Left = 1080
TabIndex = 0
Top = 360
Width = 2175
End
Begin VB.TextBox txtSummary
Height = 855
Left = 1080
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Top = 2760
Width = 5655
End
Begin VB.TextBox txtAuthor
Height = 375
Left = 4560
MaxLength = 18
TabIndex = 4
Top = 1320
Width = 2175
End
Begin VB.TextBox txtName
Height = 375
Left = 1080
MaxLength = 18
TabIndex = 3
Top = 1320
Width = 2175
End
Begin VB.TextBox txtBookNo
Height = 375
Left = 1080
MaxLength = 12
TabIndex = 1
Top = 840
Width = 1695
End
Begin VB.TextBox txtPublisher
Height = 375
Left = 1080
MaxLength = 18
TabIndex = 5
Top = 1800
Width = 2175
End
Begin VB.TextBox txtNotes
Height = 975
Left = 1080
MultiLine = -1 'True
ScrollBars = 3 'Both
TabIndex = 10
Top = 3720
Width = 5655
End
Begin VB.TextBox txtPubNo
Height = 375
Left = 4560
MaxLength = 18
TabIndex = 6
Top = 1800
Width = 2175
End
Begin VB.TextBox txtNum
Height = 375
Left = 4560
MaxLength = 50
TabIndex = 8
Text = "0"
Top = 2280
Width = 2175
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1080
TabIndex = 7
Top = 2280
Width = 2175
_ExtentX = 3836
_ExtentY = 661
_Version = 393216
Format = 63242241
CurrentDate = 39222
End
Begin VB.Label Label4
Caption = "ISBN号："
Height = 255
Left = 3750
TabIndex = 26
Top = 960
Width = 735
End
Begin VB.Label Label3
Caption = "分类号："
Height = 255
Left = 240
TabIndex = 25
Top = 480
Width = 855
End
Begin VB.Label Label6
Caption = "主题词："
Height = 375
Index = 0
Left = 240
TabIndex = 24
Top = 3000
Width = 855
End
Begin VB.Label Label2
Caption = "图书号："
Height = 255
Left = 240
TabIndex = 23
Top = 840
Width = 975
End
Begin VB.Label Label7
Caption = "作者："
Height = 255
Index = 0
Left = 3960
TabIndex = 22
Top = 1440
Width = 735
End
Begin VB.Label Label5
Caption = "题名："
Height = 255
Index = 0
Left = 360
TabIndex = 21
Top = 1320
Width = 615
End
Begin VB.Label Label1
Caption = $"A图书维护.frx":030A
Height = 495
Index = 1
Left = 360
TabIndex = 20
Top = 3720
Width = 735
End
Begin VB.Label Label5
Caption = "出版社："
Height = 255
Index = 1
Left = 240
TabIndex = 19
Top = 1920
Width = 855
End
Begin VB.Label Label6
Caption = "存储日期："
Height = 375
Index = 1
Left = 120
TabIndex = 18
Top = 2280
Width = 975
End
Begin VB.Label Label7
Caption = "版次："
Height = 375
Index = 1
Left = 3960
TabIndex = 17
Top = 1920
Width = 615
End
Begin VB.Label Label5
Caption = "图书数量："
Height = 375
Index = 2
Left = 3600
TabIndex = 16
Top = 2280
Width = 975
End
End
End
Attribute VB_Name = "A图书维护"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As ADODB.Recordset
Dim SQL As String
Dim msg As String
Dim Index As Integer
Dim flag As String
Dim BookNo As String
Private Function CheckData() As Boolean
Dim rst As ADODB.Recordset
Dim msgt As String
msgt = ""
If Trim(Me.txtBookNo.Text) = "" Then
msgt = "图书号为空； "
ElseIf Trim(Me.txtName.Text) = "" Then
msgt = "题名为空； "
ElseIf Trim(Me.txtNum.Text) = "" Then
msgt = "图书数量为空； "
ElseIf Not Len(Trim(txtBookNo.Text)) = 12 Then
msgt = "图书号不是12位； "
ElseIf Not Left(Trim(txtBookNo.Text), 2) = Left(CboSelect.Text, 2) Then
msgt = "图书号不规则； "
End If
If Not msgt = "" Then
MsgBox (msgt)
CheckData = False
Exit Function
End If
SQL = " select * from 图书信息表 where 图书号='" & Trim(txtBookNo.Text) & "'"
Set rst = SelectSQL(SQL, msg)
If flag = "Add" And rst.RecordCount > 0 Then
MsgBox ("该图书信息已经存在，重复添加!")
rst.Close
CheckData = False
Exit Function
End If
CheckData = True
rst.Close
End Function
Private Sub ShowData()
BookNo = A图书信息.BookNo
SQL = " select * from 图书信息表 where 图书号='" & Trim(BookNo) & "'"
Set rs = SelectSQL(SQL, msg)
If rs.RecordCount = 1 Then
For Index = 0 To Me.CboSelect.ListCount - 1
If Left(CboSelect.List(Index), 2) = rs.Fields("分类号") Then
CboSelect.ListIndex = Index
End If
Next
Me.txtBookNo = rs.Fields("图书号")
Me.txtISBN = rs.Fields("ISBN号")
Me.txtName = rs.Fields("题名")
Me.txtAuthor = rs.Fields("作者")
Me.txtSummary = rs.Fields("主题词")
Me.txtPublisher = rs.Fields("出版社")
Me.txtPubNo = rs.Fields("版次")
If (IsDate(rs.Fields("存储日期"))) Then
Me.DTPicker1.Value = rs.Fields("存储日期")
End If
Me.txtNum = rs.Fields("图书数量")
Me.txtNotes = rs.Fields("备注")
Else
MsgBox ("图书信息检索出错！")
End If
End Sub
Private Sub Form_Load()
SQL = " select * from 文献类型表 "
Set rs = SelectSQL(SQL, msg)
If rs.RecordCount = 0 Then
MsgBox ("请先建立文献类型！")
Exit Sub
Else
Do While Not rs.BOF And Not rs.EOF
Me.CboSelect.AddItem (rs.Fields("分类号") & rs.Fields("分类名称"))
rs.MoveNext
Loop
Me.CboSelect.ListIndex = 0
Me.txtBookNo = Left(CboSelect.Text, 2)
rs.Close
End If
flag = A图书信息.flag
If flag = "Add" Then
Me.Caption = "添加图书"
FrameBook.Caption = "添加图书信息"
SQL = " select * from 图书信息表 "
Set rs = SelectSQL(SQL, msg)
CmdAdd.Visible = True
CmdSave.Enabled = False
CmdCancel.Enabled = False
FrameBook.Enabled = False
Else
Me.Caption = "修改图书"
FrameBook.Caption = "修改图书信息"
CmdAdd.Visible = False
CboSelect.Enabled = False
txtBookNo.Enabled = False
Call ShowData
End If
End Sub
Private Sub CmdAdd_Click()
CboSelect.ListIndex = 0
Me.txtBookNo = Left(CboSelect.Text, 2)
Me.txtISBN.Text = ""
Me.txtName.Text = ""
Me.txtAuthor.Text = ""
Me.txtSummary.Text = ""
Me.txtPublisher.Text = ""
Me.txtPubNo.Text = ""
Me.DTPicker1.Refresh
Me.txtNum.Text = "0"
Me.txtNotes.Text = ""
CmdAdd.Enabled = False
CmdSave.Enabled = True
CmdCancel.Enabled = True
FrameBook.Enabled = True
End Sub
Private Sub cmdCancel_Click()
If flag = "Add" Then
CboSelect.ListIndex = 0
Me.txtBookNo.Text = ""
Me.txtISBN.Text = ""
Me.txtName.Text = ""
Me.txtAuthor.Text = ""
Me.txtSummary.Text = ""
Me.txtPublisher.Text = ""
Me.txtPubNo.Text = ""
Me.DTPicker1.Refresh
Me.txtNum.Text = ""
Me.txtNotes.Text = ""
CmdAdd.Enabled = True
Else
Call ShowData
End If
End Sub
Private Sub setData()
rs.Fields("分类号") = Left(CboSelect.Text, 2)
rs.Fields("图书号") = Me.txtBookNo.Text
rs.Fields("ISBN号") = Me.txtISBN.Text
rs.Fields("题名") = Me.txtName.Text
rs.Fields("作者") = Me.txtAuthor.Text
rs.Fields("主题词") = Me.txtSummary.Text
rs.Fields("出版社") = Me.txtPublisher.Text
rs.Fields("版次") = Me.txtPubNo.Text
rs.Fields("存储日期") = Me.DTPicker1.Value
rs.Fields("图书数量") = Me.txtNum.Text
rs.Fields("备注") = Me.txtNotes.Text
End Sub
Private Sub CmdSave_Click()
On Error GoTo ErrMsg
If Not CheckData Then Exit Sub
If flag = "Modify" Then
msg = MsgBox("您确实要修改这条数据吗?", vbYesNo)
If msg = vbYes Then
Call setData
Else
Exit Sub
End If
ElseIf flag = "Add" Then
rs.AddNew
Call setData
End If
rs.Update
If flag = "Add" Then
MsgBox ("成功添加数据!")
CmdAdd.Enabled = True
CmdSave.Enabled = False
CmdCancel.Enabled = False
Else
MsgBox ("成功更新数据!")
End If
Call A图书信息.ReLoad
Exit Sub
ErrMsg:
MsgBox Err.Description, vbExclamation, "出错"
End Sub
Private Sub cboSelect_Click()
Me.txtBookNo = Left(CboSelect.Text, 2)
End Sub
Private Sub CmdExit_Click()
A图书信息.Enabled = True
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
A图书信息.Enabled = True
rs.Close
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -