📄 frmlendeddatamanage.frm
字号:
VERSION 5.00
Begin VB.Form LendedDataManage
Caption = "借阅数据管理"
ClientHeight = 4245
ClientLeft = 60
ClientTop = 345
ClientWidth = 7890
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4245
ScaleWidth = 7890
Begin VB.CommandButton cmdMove
Height = 270
Index = 3
Left = 5280
Picture = "frmLendedDataManage.frx":0000
Style = 1 'Graphical
TabIndex = 19
Top = 3120
Width = 300
End
Begin VB.CommandButton cmdMove
Height = 270
Index = 2
Left = 5040
Picture = "frmLendedDataManage.frx":004C
Style = 1 'Graphical
TabIndex = 18
Top = 3120
Width = 300
End
Begin VB.CommandButton cmdMove
Height = 270
Index = 1
Left = 2640
Picture = "frmLendedDataManage.frx":0090
Style = 1 'Graphical
TabIndex = 17
Top = 3120
Width = 300
End
Begin VB.CommandButton cmdMove
Height = 270
Index = 0
Left = 2400
Picture = "frmLendedDataManage.frx":00D4
Style = 1 'Graphical
TabIndex = 16
Top = 3120
Width = 300
End
Begin VB.TextBox txtNews
Height = 270
Left = 2880
Locked = -1 'True
TabIndex = 15
TabStop = 0 'False
Top = 3120
Width = 2220
End
Begin VB.CommandButton cmdExit
Caption = "关闭"
Height = 255
Left = 5280
TabIndex = 14
Top = 2520
Width = 735
End
Begin VB.CommandButton cmdSave
Caption = "保存"
Height = 255
Left = 3600
TabIndex = 13
Top = 2520
Width = 735
End
Begin VB.CommandButton cmdDelete
Caption = "删除"
Height = 255
Left = 1920
TabIndex = 12
Top = 2520
Width = 735
End
Begin VB.TextBox txt已还
DataField = "已还"
DataMember = "LendReturn"
DataSource = "Library_Manage"
Height = 285
Left = 5160
Locked = -1 'True
TabIndex = 11
Top = 480
Width = 1575
End
Begin VB.TextBox txt库号
DataField = "库号"
DataMember = "LendReturn"
DataSource = "Library_Manage"
Height = 285
Left = 5160
Locked = -1 'True
TabIndex = 10
Top = 1080
Width = 1545
End
Begin VB.TextBox txt还期
DataField = "还期"
DataMember = "LendReturn"
DataSource = "Library_Manage"
Height = 285
Left = 5160
Locked = -1 'True
TabIndex = 7
Top = 1680
Width = 1560
End
Begin VB.TextBox txt借期
DataField = "借期"
DataMember = "LendReturn"
DataSource = "Library_Manage"
Height = 285
Left = 1800
Locked = -1 'True
TabIndex = 5
Top = 1680
Width = 1440
End
Begin VB.TextBox txt证号
DataField = "证号"
DataMember = "LendReturn"
DataSource = "Library_Manage"
Height = 285
Left = 1800
Locked = -1 'True
TabIndex = 3
Top = 1080
Width = 1425
End
Begin VB.TextBox txt条码
DataField = "条码"
DataMember = "LendReturn"
DataSource = "Library_Manage"
Height = 285
Left = 1800
Locked = -1 'True
TabIndex = 1
Top = 480
Width = 1455
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "库号:"
Height = 255
Index = 5
Left = 4440
TabIndex = 9
Top = 1080
Width = 495
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "已还:"
Height = 255
Index = 4
Left = 4440
TabIndex = 8
Top = 480
Width = 495
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "还期:"
Height = 255
Index = 3
Left = 4440
TabIndex = 6
Top = 1680
Width = 495
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "借期:"
Height = 255
Index = 2
Left = 1080
TabIndex = 4
Top = 1680
Width = 495
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "证号:"
Height = 255
Index = 1
Left = 1080
TabIndex = 2
Top = 1080
Width = 495
End
Begin VB.Label lblFieldLabel
Alignment = 1 'Right Justify
AutoSize = -1 'True
Caption = "条码:"
Height = 255
Index = 0
Left = 1080
TabIndex = 0
Top = 480
Width = 495
End
End
Attribute VB_Name = "LendedDataManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdDelete_Click()
With Library_Manage.rsLendReturn
If Not .EOF Then
If MsgBox("将删除读者借阅记录数据，是否继续？", _
vbCritical + vbYesNo, "借阅数据管理") = vbYes Then
.Delete
.MoveNext
If .EOF And .RecordCount > 0 Then .MoveLast
End If
End If
End With
End Sub
Private Sub cmdExit_Click()
Unload Me '关闭借阅数据管理窗体
End Sub
Private Sub cmdMove_Click(Index As Integer)
With Library_Manage.rsLendReturn
Select Case Index '切换当前记录
Case 0 '使第一个记录成为当前记录
If .RecordCount > 0 And Not .BOF Then .MoveFirst
Case 1 '使上一个记录成为当前记录
If .RecordCount > 0 And Not .BOF Then
.MovePrevious
If .BOF Then .MoveFirst
End If
Case 2 '使下一个记录成为当前记录
If .RecordCount > 0 And Not .EOF Then
.MoveNext
If .EOF Then .MoveLast
End If
Case 3 '使最后一个记录成为当前记录
If .RecordCount > 0 And Not .EOF Then .MoveLast
End Select
If .BOF And .EOF Then '显示当前记录编号和记录总数
txtNews = "记录：无"
Else
txtNews = "记录：" & .AbsolutePosition & "/" & .RecordCount
'在改变当前记录时，如果还书期限为空，则将对应的文本框锁定，
'不允许修改特殊用户的还书日期
If txt还期 = "" Then
txt还期.Locked = True
Else
txt还期.Locked = False
End If
End If
End With
End Sub
Private Sub cmdSave_Click()
If Not IsDate(txt借期) Then '检查修改后的借书日期是否有效
MsgBox "借书日期无效！", vbCritical, "借阅数据管理"
txt借期.SetFocus
txt借期.SelStart = 0
txt借期.SelLength = Len(txt借期)
ElseIf Not txt还期.Locked Then '检验还书日期是否有效
If Not IsDate(txt还期) Then
MsgBox "还书日期无效！", vbCritical, "借阅数据管理"
txt还期.SetFocus
txt还期.SelStart = 0
txt还期.SelLength = Len(txt还期)
End If
Else '保存通过检查的借书记录
Library_Manage.rsLendReturn.Update
End If
cmdMove(0).Enabled = False
cmdMove(1).Enabled = False
cmdMove(2).Enabled = False
cmdMove(3).Enabled = False
txtNews.Enabled = False
MsgBox "成功完成数据保存！", , "借阅数据管理"
End Sub
Private Sub Form_Load()
cmdMove(0).Value = True
End Sub
Private Sub txt借期_KeyPress(KeyAscii As Integer)
cmdMove(0).Enabled = False
cmdMove(1).Enabled = False
cmdMove(2).Enabled = False
cmdMove(3).Enabled = False
txtNews.Enabled = False
End Sub
Private Sub txt还期_KeyPress(KeyAscii As Integer)
cmdMove(0).Enabled = False
cmdMove(1).Enabled = False
cmdMove(2).Enabled = False
cmdMove(3).Enabled = False
txtNews.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -