📄 frmeditbook.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 8280
TabIndex = 24
Top = 3120
Width = 375
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "是否借出"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 360
TabIndex = 19
Top = 3120
Width = 1200
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "登记日期"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4560
TabIndex = 18
Top = 2520
Width = 1200
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "出版日期"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 360
TabIndex = 17
Top = 2520
Width = 1200
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "作 者"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 360
TabIndex = 16
Top = 1920
Width = 1260
End
Begin VB.Image Image1
Height = 600
Left = 840
Picture = "frmEditBook.frx":251B
Stretch = -1 'True
Top = 480
Width = 600
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "价 格"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4560
TabIndex = 5
Top = 3120
Width = 1260
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "出 版 社"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4560
TabIndex = 4
Top = 1920
Width = 1230
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "书籍类别"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 4560
TabIndex = 3
Top = 1320
Width = 1200
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "书籍名称"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 360
TabIndex = 2
Top = 1320
Width = 1200
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "图书编号"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000040C0&
Height = 285
Left = 1920
TabIndex = 1
Top = 600
Width = 1200
End
End
Begin VB.Label Label11
BackColor = &H00808080&
Caption = "Label11"
Height = 495
Left = 7740
TabIndex = 25
Top = 5580
Width = 1335
End
End
Attribute VB_Name = "frmEditBook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ADOrs As New Recordset
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call cmdMouseDown(Command1)
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000D
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call cmdMouseUp(Command1)
End Sub
Private Sub Form_Load()
ADOrs.ActiveConnection = ADOcn
ADOrs.CursorLocation = adUseClient
ADOrs.CursorType = adOpenDynamic
'ADOrs.CursorType = adOpenStatic
ADOrs.LockType = adLockOptimistic
ADOrs.Open "Select 书籍信息.书籍编号,书籍信息.书籍名称,书籍信息.书籍类别,书籍信息.作者,书籍信息.出版社,书籍信息.出版日期,书籍信息.登记日期,书籍信息.是否被借出,书籍信息.价格 From 书籍信息 "
ADOrs.MoveFirst
Call show1
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
End Sub
Private Sub Form_Unload(Cancel As Integer)
ADOrs.Close
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim strSQL As String
On Error Resume Next
Select Case Button.key
Case "最前一个"
ADOrs.MoveFirst
Call show1
Case "上一个"
ADOrs.MovePrevious
If ADOrs.BOF = True Then
MsgBox "已是最前一个了！"
Exit Sub
End If
Call show1
Case "下一个"
ADOrs.MoveNext
If ADOrs.EOF = True Then
MsgBox "已是最后一个了！"
Exit Sub
End If
Call show1
Case "最后一个"
ADOrs.MoveLast
Call show1
Case "编辑"
If MsgBox("是否要修改?", vbQuestion + vbYesNo) = vbYes Then
strSQL = "Update 书籍信息 "
strSQL = strSQL + "Set 书籍名称='" + Text2.Text + "', 书籍类别='" + Combo1.Text + "',"
strSQL = strSQL + " 作者='" + Text3.Text + "', 出版社='" + Text4.Text + "', 出版日期='" + Text5.Text + "', 登记日期='" + Text6.Text + "', 是否被借出='" + Text7.Text + "', 价格=" + Str(Val(Text8.Text))
strSQL = strSQL + " Where 书籍编号='" + Text1.Text + "'"
ADOcn.Execute strSQL
MsgBox "修改成功！", vbQuestion + vbOKOnly
End If
Case "删除"
Call mbdOpen("书籍信息", "书籍编号", Text1.Text)
If mbdGet("是否被借出") = "是" Then
Call mbdClose
If MsgBox("本书已被借出,是否真要删除?", vbQuestion + vbYesNo) = vbYes Then
Call shuan
strSQL = "Delete From 借阅信息 "
strSQL = strSQL + "Where 书籍编号='" + Text1.Text + "'"
ADOcn.Execute strSQL
End If
Else
If MsgBox("是否要删除！", vbQuestion + vbYesNo) = vbYes Then
Call shuan
End If
End If
Case "查找"
frmSearchNUM.Show 1
End Select
End Sub
Sub show1()
Text1.Text = Trim(ADOrs("书籍编号")): Text2.Text = Trim(ADOrs("书籍名称")): Combo1.Text = Trim(ADOrs("书籍类别"))
Text3.Text = Trim(ADOrs("作者")): Text4.Text = Trim(ADOrs("出版社")): Text5.Text = Trim(ADOrs("出版日期"))
Text6.Text = Trim(ADOrs("登记日期")): Text7.Text = Trim(ADOrs("是否被借出")): Text8.Text = Trim(ADOrs("价格"))
End Sub
Private Sub shuan()
Dim j As String
Call mbdOpen("借阅信息", "书籍编号", Text1.Text)
j = mbdGet("借书证号")
Call mbdClose
strSQL = "Delete From 书籍信息 "
strSQL = strSQL + "Where 书籍编号='" + Text1.Text + "'"
ADOcn.Execute strSQL
MsgBox "删除成功", vbQuestion + vbOKOnly
'把删除的书籍编号写进书籍编码里待用
strSQL = "Insert Into 书籍编码(未用书籍编号) values('" + Str(Val(Text1.Text)) + "')"
ADOcn.Execute strSQL
'书籍总数减1
Call mbdOpen("书籍类别", "书籍类别", Combo1.Text)
strSQL = "Update 书籍类别 "
strSQL = strSQL + "Set 书籍总数='" + Trim(Str(Val(mbdGet("书籍总数")) - 1)) + "'"
strSQL = strSQL + " Where 书籍类别='" + Combo1.Text + "'"
ADOcn.Execute strSQL
Call mbdClose
'读者信息里的已借书数量减1
Call mbdOpen("读者信息", "借书证号", j)
strSQL = "Update 读者信息 "
strSQL = strSQL + "Set 已借书数量='" + Trim(Str(Val(mbdGet("已借书数量")) - 1)) + "'"
strSQL = strSQL + " Where 读者信息='" + Combo1.Text + "'"
ADOcn.Execute strSQL
Call mbdClose
Call Form_Load
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -