📄 frm_books.frm
字号:
Left = 600
Picture = "Frm_books.frx":27E4
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "Move Previous"
Top = 960
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdNext
Height = 300
Left = 3360
Picture = "Frm_books.frx":2B26
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "Move Next"
Top = 960
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdLast
Height = 300
Left = 3720
Picture = "Frm_books.frx":2E68
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "Move Last"
Top = 960
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmd_delete
Caption = "&Delete"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 7
ToolTipText = "Delete record"
Top = 360
Width = 1215
End
Begin VB.CommandButton cmd_edit
Caption = "&Edit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 6
ToolTipText = "Edit record"
Top = 360
Width = 1215
End
Begin VB.CommandButton cmd_new
BackColor = &H8000000B&
Caption = "&New"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
MaskColor = &H00FF0000&
Picture = "Frm_books.frx":31AA
TabIndex = 5
ToolTipText = "Add new record"
Top = 360
Width = 1215
End
Begin VB.CommandButton cmd_save
Caption = "Sa&ve"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5880
TabIndex = 4
ToolTipText = "Save record"
Top = 360
Width = 1335
End
Begin VB.CommandButton cmdcancel
Caption = "&Cancel"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 3
ToolTipText = "Cancel"
Top = 840
Width = 1335
End
Begin VB.CommandButton cmd_reset
Caption = "&Reset"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
TabIndex = 2
ToolTipText = "Reset fields"
Top = 360
Width = 1335
End
Begin VB.CommandButton cmd_close
Caption = "Clo&se"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5880
TabIndex = 1
ToolTipText = "Close"
Top = 840
Width = 1335
End
Begin VB.Label lblStatus
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 285
Left = 960
TabIndex = 12
Top = 960
Width = 2400
End
End
Begin VB.Label lbl_title
Caption = "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 = 600
TabIndex = 36
Top = 240
Width = 495
End
Begin VB.Label lbl_pub
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 = 360
TabIndex = 35
Top = 600
Width = 1095
End
Begin VB.Label lbl_isbn
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 = 3600
TabIndex = 34
Top = 3360
Width = 855
End
Begin VB.Label lbl_price
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 = 720
TabIndex = 33
Top = 3360
Width = 855
End
Begin VB.Label lbl_subject
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 = 3600
TabIndex = 32
Top = 3000
Width = 855
End
Begin VB.Label lbl_Pages
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 = 720
TabIndex = 31
Top = 3000
Width = 615
End
Begin VB.Label lbl_edition
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 = 3600
TabIndex = 30
Top = 2640
Width = 735
End
Begin VB.Label lbl_bookid
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 = 720
TabIndex = 29
Top = 2640
Width = 735
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 pos As Integer
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
If txt_title.Text = "" Then
MsgBox ("Please enter the Title."), vbInformation, "Information required"
ElseIf txt_publication.Text = "" Then
MsgBox ("Please enter the Publications."), vbInformation, "Information required"
ElseIf txt_author1.Text = "" Then
MsgBox ("Please enter the First Authors name."), vbInformation, "Information required"
ElseIf txt_bookid.Text = "" Then
MsgBox ("Please enter bookid distinct from other"), vbInformation, "Information required"
ElseIf txt_pages.Text = "" Then
MsgBox ("Please enter no of pages of book."), vbInformation, "Information required"
ElseIf txt_price.Text = "" Then
MsgBox ("Please enter the price."), vbInformation, "Information required"
ElseIf txt_totalno.Text = "" Then
MsgBox ("Please enter no of copies."), vbInformation, "Information required"
ElseIf txt_issue.Text = "" Then
MsgBox ("Please enter no of copies issued."), vbInformation, "Information required"
ElseIf txt_avano.Text = "" Then
MsgBox ("Please enter no of copies available."), vbInformation, "Information required"
ElseIf txt_edition = "" Then
MsgBox ("Please enter the detail about edition of book."), vbInformation, "Information required"
ElseIf txt_subject.Text = "" Then
MsgBox ("Please enter subject related to the book."), vbInformation, "Information required"
ElseIf txt_isbn.Text = "" Then
MsgBox ("Please enter ISBN no. for book."), vbInformation, "Information required"
ElseIf IsNumeric(txt_author1.Text) Then
MsgBox ("Enter the valid author name."), vbInformation, "Invalid information"
ElseIf IsNumeric(txt_author2.Text) Then
MsgBox ("Enter the valid author name."), vbInformation, "Invalid information"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -