📄 还书信息.frm
字号:
VERSION 5.00
Begin VB.Form 还书信息
Caption = "还书信息"
ClientHeight = 6075
ClientLeft = 4515
ClientTop = 2445
ClientWidth = 7650
LinkTopic = "Form1"
ScaleHeight = 6075
ScaleWidth = 7650
Begin VB.CommandButton Command4
Caption = "删 除"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6240
TabIndex = 22
Top = 5280
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "修 改"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 720
TabIndex = 21
Top = 5280
Width = 1215
End
Begin VB.TextBox Text6
DataField = "出借日期"
DataSource = "Data1"
Height = 375
Left = 4920
TabIndex = 20
Top = 1200
Width = 1935
End
Begin VB.TextBox Text5
DataField = "读者姓名"
DataSource = "Data1"
Height = 375
Left = 1800
TabIndex = 19
Top = 1200
Width = 1935
End
Begin VB.TextBox Text4
DataField = "书籍名称"
DataSource = "Data1"
Height = 375
Left = 4920
TabIndex = 18
Top = 600
Width = 1935
End
Begin VB.TextBox Text3
DataField = "读者编号"
DataSource = "Data1"
Height = 375
Left = 1800
TabIndex = 17
Top = 600
Width = 1935
End
Begin VB.TextBox Text2
DataSource = "Data1"
Height = 300
Left = 2640
TabIndex = 16
Top = 4440
Width = 735
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\图书管理系统\图书馆管理信息系统.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 495
Left = 3960
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "借阅信息"
Top = 120
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "下一条"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4200
TabIndex = 15
Top = 5280
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "上一条"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2400
TabIndex = 14
Top = 5280
Width = 1215
End
Begin VB.ComboBox Combo7
DataSource = "Data1"
Height = 300
Left = 5400
TabIndex = 10
Top = 4440
Width = 615
End
Begin VB.ComboBox Combo6
DataSource = "Data1"
Height = 300
Left = 4200
TabIndex = 9
Top = 4440
Width = 615
End
Begin VB.Frame Frame2
Caption = "还书日期"
Height = 975
Left = 600
TabIndex = 7
Top = 4080
Width = 6375
Begin VB.Label Label9
Caption = "日"
Height = 255
Left = 5640
TabIndex = 13
Top = 480
Width = 495
End
Begin VB.Label Label8
Caption = "月"
Height = 255
Left = 4440
TabIndex = 12
Top = 480
Width = 375
End
Begin VB.Label Label7
Caption = "年"
Height = 255
Left = 3120
TabIndex = 11
Top = 480
Width = 375
End
Begin VB.Label Label6
Caption = "请设置还书日期："
Height = 255
Left = 360
TabIndex = 8
Top = 360
Width = 1455
End
End
Begin VB.TextBox Text1
DataSource = "Data1"
Height = 1455
Left = 720
TabIndex = 6
Top = 2160
Width = 6255
End
Begin VB.Frame Frame1
Caption = "借书信息"
Height = 3615
Left = 360
TabIndex = 0
Top = 240
Width = 6855
Begin VB.Label Label5
Caption = "备 注 信 息："
Height = 255
Left = 360
TabIndex = 5
Top = 1560
Width = 1455
End
Begin VB.Label Label4
Caption = "借书日期："
Height = 255
Left = 3600
TabIndex = 4
Top = 1080
Width = 975
End
Begin VB.Label Label3
Caption = "书籍名称："
Height = 255
Left = 3600
TabIndex = 3
Top = 480
Width = 1095
End
Begin VB.Label Label2
Caption = "读者姓名："
Height = 255
Left = 360
TabIndex = 2
Top = 1080
Width = 975
End
Begin VB.Label Label1
Caption = "读者编号："
Height = 255
Left = 360
TabIndex = 1
Top = 480
Width = 975
End
End
End
Attribute VB_Name = "还书信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
MsgBox "修改记录成功！", 48, "修改"
Data1.Recordset.MoveNext
End Sub
Private Sub Command1_Click()
If Data1.Recordset.BOF = False Then
Data1.Recordset.MovePrevious
Else
Data1.Recordset.MoveNext
End If
End Sub
Private Sub Command2_Click()
If Data1.Recordset.EOF = False Then
Data1.Recordset.MoveNext
Else
Data1.Recordset.MovePrevious
End If
End Sub
Private Sub Command3_Click()
'this is really only needed for multi user apps
Data1.Refresh
End Sub
Private Sub Command4_Click()
'this may produce an error if you delete the last
'record or the only record in the recordset
a = MsgBox("是否删除当前记录吗？", 1 + 32, "请确认")
If a = 1 Then
On Error Resume Next
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
End If
End Sub
Private Sub Form_Load()
Dim num As Integer
For num = 1 To num
Combo6.AddItem num
Next num
Combo6.AddItem "1"
Combo6.AddItem "2"
Combo6.AddItem "3"
Combo6.AddItem "4"
Combo6.AddItem "5"
Combo6.AddItem "6"
Combo6.AddItem "7"
Combo6.AddItem "8"
Combo6.AddItem "9"
Combo6.AddItem "10"
Combo6.AddItem "11"
Combo6.AddItem "12"
For n = 1 To n
Combo7.AddItem num
Next n
Combo7.AddItem "1"
Combo7.AddItem "2"
Combo7.AddItem "3"
Combo7.AddItem "4"
Combo7.AddItem "5"
Combo7.AddItem "6"
Combo7.AddItem "7"
Combo7.AddItem "8"
Combo7.AddItem "9"
Combo7.AddItem "10"
Combo7.AddItem "11"
Combo7.AddItem "12"
Combo7.AddItem "13"
Combo7.AddItem "14"
Combo7.AddItem "15"
Combo7.AddItem "16"
Combo7.AddItem "17"
Combo7.AddItem "18"
Combo7.AddItem "19"
Combo7.AddItem "20"
Combo7.AddItem "21"
Combo7.AddItem "22"
Combo7.AddItem "23"
Combo7.AddItem "24"
Combo7.AddItem "25"
Combo7.AddItem "26"
Combo7.AddItem "27"
Combo7.AddItem "28"
Combo7.AddItem "29"
Combo7.AddItem "30"
Combo7.AddItem "31"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -