📄 frmreturn.frm
字号:
VERSION 5.00
Begin VB.Form frmReturn
Caption = "Book Return Information Recording"
ClientHeight = 6330
ClientLeft = 60
ClientTop = 345
ClientWidth = 7095
Icon = "frmReturn.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6330
ScaleWidth = 7095
WindowState = 2 'Maximized
Begin VB.TextBox txtIssueDate
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
Locked = -1 'True
TabIndex = 18
TabStop = 0 'False
Top = 1560
Width = 2535
End
Begin VB.Frame Frame1
Caption = "输入图书编号然后回车"
ForeColor = &H00FF0000&
Height = 735
Left = 480
TabIndex = 0
Top = 600
Width = 6135
Begin VB.TextBox txtBookId
BackColor = &H0080FFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2640
TabIndex = 2
Top = 240
Width = 2415
End
Begin VB.CommandButton cmdBookOpen
Caption = "..."
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5400
TabIndex = 3
Top = 240
Width = 495
End
Begin VB.Label lblBookId
AutoSize = -1 'True
Caption = "图书编号"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 240
TabIndex = 1
Top = 240
Width = 1260
End
End
Begin VB.TextBox txtDaysUsed
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
Locked = -1 'True
TabIndex = 17
TabStop = 0 'False
Top = 3360
Width = 2655
End
Begin VB.TextBox txtFineAmt
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
Locked = -1 'True
TabIndex = 15
TabStop = 0 'False
Top = 3960
Width = 2655
End
Begin VB.TextBox txtLibraryId
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
Locked = -1 'True
TabIndex = 13
TabStop = 0 'False
Top = 2760
Width = 2655
End
Begin VB.TextBox txtReturnDate
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3120
Locked = -1 'True
TabIndex = 10
TabStop = 0 'False
Top = 2160
Width = 2535
End
Begin VB.Frame Frame2
BackColor = &H00000080&
BorderStyle = 0 'None
Caption = "Frame2"
Height = 975
Left = 1200
TabIndex = 9
Top = 4920
Width = 4335
Begin VB.CommandButton cmdCancel
BackColor = &H00FFFFFF&
Caption = "取消"
Height = 735
Left = 2400
Picture = "frmReturn.frx":0442
Style = 1 'Graphical
TabIndex = 5
Top = 120
Width = 1215
End
Begin VB.CommandButton cmdSave
BackColor = &H00FFFFFF&
Caption = "保存"
Height = 735
Left = 840
Picture = "frmReturn.frx":07C3
Style = 1 'Graphical
TabIndex = 4
Top = 120
Width = 1215
End
End
Begin VB.CommandButton cmdMemberOpen
Caption = "..."
BeginProperty Font
Name = "Tahoma"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5880
TabIndex = 8
Top = 2760
Width = 495
End
Begin VB.Label lblIssueDate
AutoSize = -1 'True
Caption = "出借日期"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
TabIndex = 6
Top = 1560
Width = 1260
End
Begin VB.Label lblDaysUsed
AutoSize = -1 'True
Caption = "出借日期"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
TabIndex = 16
Top = 3360
Width = 1260
End
Begin VB.Label lblFineAmt
AutoSize = -1 'True
Caption = "罚款金额"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
TabIndex = 14
Top = 3960
Width = 1260
End
Begin VB.Label lblReturnDate
AutoSize = -1 'True
Caption = "归还日期"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
TabIndex = 12
Top = 2160
Width = 1260
End
Begin VB.Label lblLibraryId
AutoSize = -1 'True
Caption = "图书馆编号"
BeginProperty Font
Name = "Times New Roman"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 720
TabIndex = 11
Top = 2760
Width = 1575
End
Begin VB.Label lblInfo
Alignment = 2 'Center
BackColor = &H00000080&
Caption = "还书业务"
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 0
TabIndex = 7
Top = 0
Width = 5775
End
End
Attribute VB_Name = "frmReturn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'Setting up the info. label
lblInfo.Left = Me.ScaleLeft
lblInfo.Top = Me.ScaleTop
lblInfo.Width = Screen.Width
txtFineAmt.Visible = False
lblFineAmt.Visible = False
Frame2.Left = (Screen.Width - Frame2.Width) / 2
If rsIssueInfo.RecordCount = 0 Then
MsgBox "No Book Issued and so No Return", vbInformation, "Record Issue Book Record"
Unload Me
End If
cmdSave.Enabled = False
End Sub
Private Sub Form_Activate()
clear
End Sub
Private Sub cmdBookOpen_Click()
frmBookInfo.Show
frmBookInfo.SetFocus
End Sub
Private Sub cmdMemberOpen_Click()
frmMemberInfo.Show
frmMemberInfo.SetFocus
End Sub
'========================================================
'Database Related Code...!!!
'========================================================
Private Sub cmdCancel_Click()
clear
End Sub
'Delete Record or Return Book
Private Sub cmdsave_click()
'On Error Resume Next
If txtLibraryId.Text = "" Then
cmdSave.Enabled = False
End If
rsIssueInfo.Delete
txtFineAmt.Visible = False
lblFineAmt.Visible = False
Call clear
End Sub
'Supporting Function
'Simple clearing of textBox
Private Sub clear()
txtIssueDate.Text = ""
txtBookId.Text = ""
txtDaysUsed.Text = ""
txtFineAmt.Text = ""
txtLibraryId.Text = ""
txtReturnDate.Text = ""
txtBookId.SetFocus
End Sub
Private Sub Txtbookid_KeyPress(KeyAscii As Integer)
Dim BookNo As String
Dim issueDate As Date
Dim currDate As Date
Dim totalDaysUsed As Integer
Dim totalFineAmt As Integer
'assigning Srch value
BookNo = txtBookId.Text
'If enter is pressed by user than auto-generate record
If KeyAscii = 13 Then
clear
'Prompt if invalid search key is entered by user
If Not IsNumeric(BookNo) Then
MsgBox "Invalid Search Key Entered", vbCritical, "Search Error"
Call clear
Exit Sub
End If
rsIssueInfo.MoveFirst
For i = 0 To rsIssueInfo.RecordCount
If rsIssueInfo.EOF = True Then
Exit For
End If
If rsIssueInfo(0) = Val(Trim$(BookNo)) Then
txtLibraryId.Text = rsIssueInfo(2)
txtReturnDate.Text = Format(Now, "mm/dd/yy")
txtIssueDate.Text = rsIssueInfo(1)
issueDate = CDate(txtIssueDate.Text)
currDate = CDate(Format(Now, "mm/dd/yy"))
totalDaysUsed = DateDiff("d", issueDate, currDate)
If totalDaysUsed > maxDays Then
txtFineAmt.Visible = True
lblFineAmt.Visible = True
totalDaysUsed = totalDaysUsed - maxDays
totalFineAmt = fineAmt * totalDaysUsed
txtDaysUsed.ForeColor = vbRed
txtFineAmt.ForeColor = vbRed
txtDaysUsed.Text = totalDaysUsed & " Days Beyond Limit"
txtFineAmt.Text = "$" & totalFineAmt
Else
txtDaysUsed.ForeColor = vbBlack
txtFineAmt.Visible = False
lblFineAmt.Visible = False
txtDaysUsed.Text = totalDaysUsed
End If
'txtDaysUsed.Text = totalDaysUsed
'MsgBox "Total days used " & totalDaysUsed & " And Fine amt is " & totalFineAmt
Exit For
End If
rsIssueInfo.MoveNext
Next
If txtLibraryId.Text = "" Then
MsgBox "Search Not Found", vbInformation, "Search Result"
cmdSave.Enabled = False
clear
Else
cmdSave.Enabled = True
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -