📄 frm_books.frm
字号:
EndProperty
BeginProperty Column03
DataField = "Author2"
Caption = "Author2"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "Author3"
Caption = "Author3"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "Avano"
Caption = "Available"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "Issno"
Caption = "Issue"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "Totalno"
Caption = "Total"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "Edition"
Caption = "Edition"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "ISBNNumber"
Caption = "ISBNNumber"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "Pages"
Caption = "Pages"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "Price"
Caption = "Price"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = "Subject"
Caption = "Subject"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = "Publication"
Caption = "Publication"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
SizeMode = 1
AllowRowSizing = 0 'False
BeginProperty Column00
ColumnWidth = 645.165
EndProperty
BeginProperty Column01
ColumnWidth = 2835.213
EndProperty
BeginProperty Column02
ColumnWidth = 1709.858
EndProperty
BeginProperty Column03
ColumnWidth = 1590.236
EndProperty
BeginProperty Column04
EndProperty
BeginProperty Column05
ColumnWidth = 705.26
EndProperty
BeginProperty Column06
ColumnWidth = 659.906
EndProperty
BeginProperty Column07
ColumnWidth = 629.858
EndProperty
BeginProperty Column08
ColumnWidth = 1335.118
EndProperty
BeginProperty Column09
ColumnWidth = 1305.071
EndProperty
BeginProperty Column10
ColumnWidth = 794.835
EndProperty
BeginProperty Column11
ColumnWidth = 764.787
EndProperty
BeginProperty Column12
ColumnWidth = 1725.165
EndProperty
BeginProperty Column13
ColumnWidth = 2624.882
EndProperty
EndProperty
End
Begin VB.Label lbl_title
BackStyle = 0 'Transparent
Caption = "Book title "
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -74640
TabIndex = 46
Top = 240
Width = 855
End
Begin VB.Label lbl_pub
BackStyle = 0 'Transparent
Caption = "Publication"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -74640
TabIndex = 45
Top = 600
Width = 1095
End
Begin VB.Label lbl_isbn
BackStyle = 0 'Transparent
Caption = "ISBN no"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -71280
TabIndex = 44
Top = 3360
Width = 1095
End
Begin VB.Label lbl_price
BackStyle = 0 'Transparent
Caption = "Price Rs."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -74520
TabIndex = 43
Top = 3360
Width = 855
End
Begin VB.Label lbl_subject
BackStyle = 0 'Transparent
Caption = "Subject"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -71280
TabIndex = 42
Top = 3000
Width = 975
End
Begin VB.Label lbl_Pages
BackStyle = 0 'Transparent
Caption = "Pages"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -74520
TabIndex = 41
Top = 3000
Width = 615
End
Begin VB.Label lbl_edition
BackStyle = 0 'Transparent
Caption = "Edition"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -71280
TabIndex = 40
Top = 2640
Width = 975
End
Begin VB.Label lbl_bookid
BackStyle = 0 'Transparent
Caption = "Book ID"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = -74520
TabIndex = 39
Top = 2640
Width = 735
End
End
Begin VB.Label Label8
Caption = "Label8"
Height = 495
Left = 3600
TabIndex = 53
Top = 2880
Width = 1215
End
Begin VB.Label Label7
BackColor = &H00C8D0D4&
BackStyle = 0 'Transparent
Caption = $"Frm_books.frx":5C29
Height = 495
Left = 720
TabIndex = 49
Top = 120
Width = 7215
End
Begin VB.Image Image1
Height = 480
Left = 120
Top = 90
Width = 600
End
End
Attribute VB_Name = "Frm_books"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Bookrecord As ADODB.Recordset
Dim Bookconnection As ADODB.Connection
Dim str As String
Dim slct As String
Dim saveflag As Boolean
'Function cheaking validity of textbox
Private Function cheak() As Boolean
'declaring variable
Dim status As Boolean
status = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -