📄 frmrenew.frm
字号:
BackStyle = 0 'Transparent
Caption = "Telephone #:"
DataField = "Telephone Number:"
Height = 255
Left = 120
TabIndex = 24
Top = 1680
Width = 1215
End
Begin VB.Label lblTel
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "Tel"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 23
Top = 1680
Width = 1455
End
Begin VB.Label Label13
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Postal Code:"
Height = 255
Left = 120
TabIndex = 22
Top = 1440
Width = 1215
End
Begin VB.Label lblPostal
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "Postal"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 21
Top = 1440
Width = 2175
End
Begin VB.Label Label11
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Province:"
Height = 255
Left = 120
TabIndex = 20
Top = 1200
Width = 1215
End
Begin VB.Label lblProvince
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "Province"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 19
Top = 1200
Width = 1575
End
Begin VB.Label lblFname
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "FirstName"
DataSource = "Patrons"
Height = 255
Left = 2400
TabIndex = 18
Top = 480
Width = 975
End
Begin VB.Label lblTown
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "Town"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 17
Top = 960
Width = 2295
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Town:"
Height = 255
Left = 120
TabIndex = 16
Top = 960
Width = 1215
End
Begin VB.Label lblAddress
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "Address1"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 15
Top = 720
Width = 3135
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Patron Address:"
Height = 255
Left = 120
TabIndex = 14
Top = 720
Width = 1215
End
Begin VB.Label lblLName
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "LastName"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 13
Top = 480
Width = 975
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Patron Name:"
Height = 255
Left = 120
TabIndex = 12
Top = 480
Width = 1215
End
Begin VB.Label lblNumber
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "PatronBarcode"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 11
Top = 240
Width = 615
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Patron Number:"
Height = 255
Left = 120
TabIndex = 10
Top = 240
Width = 1215
End
Begin VB.Label lblEmail
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "Email"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 9
Top = 1920
Width = 2175
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "E-Mail:"
DataField = "Telephone Number:"
Height = 255
Left = 120
TabIndex = 8
Top = 1920
Width = 1215
End
Begin VB.Label Label18
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Type:"
Height = 255
Left = 120
TabIndex = 7
Top = 2160
Width = 1215
End
Begin VB.Label lblType
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "PatronType"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 6
Top = 2160
Width = 2175
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Status:"
Height = 255
Left = 120
TabIndex = 5
Top = 2400
Width = 1215
End
Begin VB.Label lblStatus
BackStyle = 0 'Transparent
Caption = "00000"
DataField = "Status"
DataSource = "Patrons"
Height = 255
Left = 1440
TabIndex = 4
Top = 2400
Width = 1455
End
Begin VB.OLE OLE1
DataField = "Picture"
DataSource = "Patrons"
Height = 2295
Left = 3600
SizeMode = 3 'Zoom
TabIndex = 3
Top = 240
Width = 2055
End
End
Begin VB.CommandButton Command1
Caption = "Main Menu"
Height = 255
Left = 8280
TabIndex = 1
Top = 3120
Width = 975
End
Begin VB.Frame Frame1
BackColor = &H00FFFFFF&
Caption = "Patron's Media Items"
Height = 3495
Left = 120
TabIndex = 47
Top = 3480
Width = 9135
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Beta 1.0"
Height = 255
Left = 960
TabIndex = 50
Top = 840
Width = 1695
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Book Keeper 101"
BeginProperty Font
Name = "Coronet"
Size = 20.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 49
Top = 360
Width = 2895
End
Begin VB.Label Label22
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Please Enter Patron or Book Barcode:"
Height = 255
Left = 120
TabIndex = 48
Top = 3120
Width = 2775
End
Begin VB.Image imgLogo
Height = 1635
Left = 120
Picture = "frmRenew.frx":0C28
Stretch = -1 'True
Top = 240
Width = 1620
End
End
End
Attribute VB_Name = "frmRenew"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Topics As Recordset
Dim Patrons As Recordset
Dim Signout As Recordset
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
A = 0
End Sub
Private Sub txtInput_Click()
If Len(txtInput) > 0 Then
'Open The Records From The Data Base
StrSQL = "Select * From [Signout] Where [Barcode] Like '" & txtInput.Text & "'"
Set Signout = Db.OpenRecordset(StrSQL)
StrSQL = "Select * From [Books] Where [Barcode] Like '" & txtInput.Text & "'"
Set Books = Db.OpenRecordset(StrSQL)
StrSQL = "Select * From [Patron] Where [PatronBarcode] Like '" & Signout.Fields("Patron") & "'"
Set Patrons = Db.OpenRecordset(StrSQL)
StrSQL = "Select * From [Topics] Where [TopicID] Like " & Books.Fields("TopicID")
Set Topics = Db.OpenRecordset(StrSQL)
'Finished Defining The Databases
' Get Patron Information
lblNumber.Caption = Patrons.Fields("PatronBarcode")
lblLName.Caption = Patrons.Fields("LastName")
lblFname.Caption = Patrons.Fields("FirstName")
lblAddress.Caption = Patrons.Fields("Address1")
lblTown.Caption = Patrons.Fields("Town")
lblProvince.Caption = Patrons.Fields("Province")
lblPostal.Caption = Patrons.Fields("Postal")
lblTel.Caption = Format(Patrons.Fields("Tel"), "(###) ###-####")
lblEmail.Caption = Patrons.Fields("Email")
lblType.Caption = Patrons.Fields("PatronType")
If Patrons.Fields("Status") = 1 Then
lblStatus.Caption = "Active"
Else
lblStatus.Caption = "Retired"
End If
' Finsihed Getting Patron Info
' Renew The Book
Barcode(A).Caption = Books.Fields("Barcode")
Title(A).Caption = Books.Fields("Title")
lblTopic(A).Caption = Topics.Fields("TopicName")
lblDateDue(A).Caption = Left(DateAdd("d", 14, Now), 10)
Signout.Edit
Signout.Fields("DateDue") = Left(DateAdd("d", 14, Now), 8)
Signout.Update
Barcode(A).Visible = True
Title(A).Visible = True
lblTopic(A).Visible = True
lblDateDue(A).Visible = True
icoBooks(A).Visible = True
hr(A).Visible = True
' Finished Renewing The Book
A = A + 1
Else
End If
txtInput.Text = ""
End Sub
Private Sub txtInput_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call txtInput_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -