📄 frmbookinfo.frm
字号:
VERSION 5.00
Begin VB.Form frmBookinfo
BackColor = &H80000000&
BorderStyle = 1 'Fixed Single
Caption = "Book Information"
ClientHeight = 3330
ClientLeft = 45
ClientTop = 330
ClientWidth = 6045
ControlBox = 0 'False
Icon = "frmBookinfo.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 3330
ScaleWidth = 6045
Begin VB.Frame frmbookdetails
BackColor = &H80000000&
Caption = "Book Details"
ForeColor = &H00000000&
Height = 3255
Left = 120
TabIndex = 14
Top = 0
Width = 5775
Begin VB.CommandButton cmdsave1
BackColor = &H00C0C0C0&
Caption = "Save Update"
Height = 375
Left = 2640
Style = 1 'Graphical
TabIndex = 22
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmdUpdate
BackColor = &H00C0C0C0&
Caption = "&Update"
Height = 375
Left = 2640
Style = 1 'Graphical
TabIndex = 21
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmdsearch
BackColor = &H80000000&
Caption = "Search"
Height = 375
Left = 1440
Style = 1 'Graphical
TabIndex = 7
Top = 2760
Width = 1215
End
Begin VB.CommandButton cmdcancel
BackColor = &H80000000&
Caption = "&Cancel"
Height = 375
Left = 4680
Style = 1 'Graphical
TabIndex = 12
Top = 1320
Width = 975
End
Begin VB.Data datbook
Caption = "Datbook"
Connect = "Access"
DatabaseName = "C:\LIBRARY\Library.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 3240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "bookdetails"
Top = 240
Visible = 0 'False
Width = 1380
End
Begin VB.TextBox txtbookname
DataField = "bookname"
DataSource = "datbook"
Enabled = 0 'False
Height = 285
Left = 1320
TabIndex = 0
Top = 480
Width = 1695
End
Begin VB.CommandButton cmdexit
BackColor = &H80000000&
Caption = "E&xit"
Height = 375
Left = 3840
MaskColor = &H00808080&
Style = 1 'Graphical
TabIndex = 13
Top = 2760
Width = 975
End
Begin VB.CommandButton cmdsave
BackColor = &H80000000&
Caption = "&Save"
Height = 375
Left = 4680
MaskColor = &H00808080&
Style = 1 'Graphical
TabIndex = 11
Top = 1800
Width = 975
End
Begin VB.CommandButton cmdnew
BackColor = &H80000000&
Caption = "New &Book"
Height = 375
Left = 4680
MaskColor = &H00808080&
Style = 1 'Graphical
TabIndex = 10
Top = 840
Width = 975
End
Begin VB.CommandButton cmdprev
BackColor = &H80000000&
Caption = "< &Previous"
Height = 375
Left = 1200
MaskColor = &H00808080&
Style = 1 'Graphical
TabIndex = 8
Top = 2280
Width = 975
End
Begin VB.CommandButton cmdnext
BackColor = &H80000000&
Caption = "&Next >"
Height = 375
Left = 2160
MaskColor = &H00808080&
Style = 1 'Graphical
TabIndex = 9
Top = 2280
Width = 975
End
Begin VB.TextBox txtauthor
DataField = "author"
DataSource = "datbook"
Enabled = 0 'False
Height = 285
Left = 1320
TabIndex = 4
Top = 1920
Width = 1695
End
Begin VB.TextBox txtdate
DataField = "dateofissue"
DataSource = "datbook"
Enabled = 0 'False
Height = 285
Left = 1320
TabIndex = 3
Top = 1560
Width = 1695
End
Begin VB.TextBox txtbookisbn
DataField = "isbn"
DataSource = "datbook"
Enabled = 0 'False
Height = 285
Left = 1320
TabIndex = 2
Top = 1200
Width = 1695
End
Begin VB.TextBox txtbookid
DataField = "bookid"
DataSource = "datbook"
Enabled = 0 'False
Height = 285
Left = 1320
TabIndex = 1
Top = 840
Width = 1695
End
Begin VB.Frame fraborrowed
BackColor = &H80000000&
Caption = "Borrowed"
Height = 1215
Left = 3120
TabIndex = 20
Top = 840
Width = 1215
Begin VB.OptionButton optno
BackColor = &H80000000&
Caption = "No"
Height = 375
Left = 240
MaskColor = &H00000000&
TabIndex = 6
TabStop = 0 'False
Top = 720
Width = 735
End
Begin VB.OptionButton optyes
BackColor = &H80000000&
Caption = "Yes"
Height = 615
Left = 240
MaskColor = &H00000000&
TabIndex = 5
TabStop = 0 'False
Top = 240
UseMaskColor = -1 'True
Width = 855
End
End
Begin VB.Label lblbookname
BackColor = &H80000000&
Caption = "Book Name"
Height = 375
Left = 120
TabIndex = 19
Top = 480
Width = 1455
End
Begin VB.Label lblauthor
BackColor = &H80000000&
Caption = "Author"
Height = 375
Left = 120
TabIndex = 18
Top = 1920
Width = 1455
End
Begin VB.Label lbldate
BackColor = &H80000000&
Caption = "Date of Issue"
Height = 375
Left = 120
TabIndex = 17
Top = 1560
Width = 1455
End
Begin VB.Label lblbookisbn
BackColor = &H80000000&
Caption = "Book ISBN"
Height = 375
Left = 120
TabIndex = 16
Top = 1200
Width = 1455
End
Begin VB.Label lblbookid
BackColor = &H80000000&
Caption = "Book ID"
Height = 375
Left = 120
TabIndex = 15
Top = 840
Width = 1455
End
End
Begin VB.Menu mnufile
Caption = "&File"
Begin VB.Menu mnunewbook
Caption = "A&dd New book"
End
Begin VB.Menu mnuupdate1
Caption = "U&pdate Record"
End
Begin VB.Menu mnusave
Caption = "&Save"
End
Begin VB.Menu mnusaveupdate
Caption = "Save &Update"
End
Begin VB.Menu mnucancel
Caption = "&Cancel"
End
Begin VB.Menu mnureport
Caption = "Re&port"
End
Begin VB.Menu mnuexit1
Caption = "E&xit"
End
End
Begin VB.Menu mnuedit
Caption = "&Edit"
Begin VB.Menu mnumovenext
Caption = "Move &Next"
End
Begin VB.Menu mnuprevious
Caption = "Move &Previous"
End
Begin VB.Menu mnumovelast
Caption = "Move &Last"
End
Begin VB.Menu mnumovefirst
Caption = "Move &First"
End
Begin VB.Menu mnusearch
Caption = "Se&arch Record"
End
End
Begin VB.Menu mnulibrary
Caption = "&Library"
Begin VB.Menu mnuborrowed
Caption = "Borrowed Books"
End
Begin VB.Menu mnuborrow
Caption = "Borrow Book"
End
Begin VB.Menu mnureturn
Caption = "Return Book"
End
Begin VB.Menu mnuuserdetails
Caption = "&User Details"
End
Begin VB.Menu mnusettings
Caption = "Setti&ngs"
End
End
Begin VB.Menu mnuwindow
Caption = "&Window"
Begin VB.Menu mnuvertical
Caption = "Tile Vertical"
End
Begin VB.Menu mnuhorizontal
Caption = "Tile horizontal"
End
End
End
Attribute VB_Name = "frmBookinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'declare avariable that will hold the boorowed info
Dim borrowed As Integer
Private Sub cmdcancel_Click()
'used to cancel if new book command button is clicked
mnuedit.Enabled = True
'calling the cancel procedure
cancel
End Sub
Private Sub cmdexit_Click()
'for exiting the form
exitsure
'calling of the procedure that handles if the user is sure about the exit
'in other words warning! the user if he accidentally clicked the commend
End Sub
Private Sub cmdnew_Click()
'for adding anew book to the database
mnuedit.Enabled = False
'calling of the procedure that handles new book details and validation
addnew
End Sub
Private Sub cmdnext_Click()
'for moving the record pointer to the next record
movenext
End Sub
Private Sub cmdprev_Click()
'for moving the record pointer to the Previous record
moveprevious
End Sub
Private Sub cmdsave_Click()
'saving of the new book record details
'calling the procedure that handles the saving process
check
End Sub
Private Sub cmdsave1_Click()
'for saving the update
saveupdate
End Sub
Private Sub cmdsearch_Click()
'for searching trough the DBase
search
End Sub
Private Sub cmdsaveUpdate_Click()
'used to save the updates made to the record
UpdateRecord
End Sub
Private Sub cmdUpdate_Click()
'used to update records in the DBase
mnuedit.Enabled = False
UpdateRecord
End Sub
Private Sub Form_Activate()
'when form is activated the borrowed info of the
'first record is searched for
getborrowedinfo
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -