📄 frm_members.frm
字号:
End
End
Begin MSDataGridLib.DataGrid Datagrid
Height = 1335
Left = 120
TabIndex = 53
ToolTipText = "Detail view of books"
Top = 6600
Width = 8895
_ExtentX = 15690
_ExtentY = 2355
_Version = 393216
AllowUpdate = 0 'False
AllowArrows = -1 'True
Appearance = 0
DefColWidth = 7
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "Members Issued books"
ColumnCount = 14
BeginProperty Column00
DataField = "Bookid"
Caption = "BookID"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "Title"
Caption = "Book Title"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "Author1"
Caption = "Author1"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
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 Label7
BackStyle = 0 'Transparent
Caption = $"Frm_members.frx":65A0
Height = 495
Left = 645
TabIndex = 52
Top = 120
Width = 8295
End
Begin VB.Image Image1
Height = 555
Left = 120
Top = 90
Width = 480
End
End
Attribute VB_Name = "Frm_members"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Memconnection As ADODB.Connection
Dim Memrecordset As ADODB.Recordset
Dim Flexgridset As ADODB.Recordset
Dim temp As ADODB.Recordset
Dim bookshow As Boolean
Dim saveflag As Boolean
Dim lodbook As Boolean
Dim slct As String
Dim str As String
Private Sub clear()
txt_add.Text = ""
msk_bdate.Text = "__/__/____"
txt_bookhnd.Text = ""
txt_deposite.Text = ""
msk_expr.Text = "__/__/____"
msk_join.Text = "__/__/____"
txt_mail.Text = ""
txt_fname.Text = ""
txt_lname.Text = ""
txt_memid.Text = ""
txt_note.Text = ""
txt_phone.Text = ""
cmb_sex.Text = ""
End Sub
Private Sub locktext(val As Boolean)
txt_add.Locked = val
msk_bdate.Enabled = Not val
'txt_bookhnd.Locked = val
txt_deposite.Locked = val
msk_expr.Enabled = Not val
msk_join.Enabled = Not val
txt_mail.Locked = val
txt_fname.Locked = val
txt_lname.Locked = val
txt_memid.Locked = val
txt_note.Locked = val
txt_phone.Locked = val
cmb_sex.Locked = val
End Sub
Private Sub setbutton(val As Boolean)
cmd_new.Enabled = val
cmd_edit.Enabled = val
cmd_delete.Enabled = val
cmdFirst.Enabled = val
cmdLast.Enabled = val
cmdNext.Enabled = val
cmdPrevious.Enabled = val
cmd_cancel.Enabled = Not val
cmd_save.Enabled = Not val
End Sub
Private Function cheak() As Boolean
Dim flag As Boolean
flag = False
If txt_add.Text = "" Then
MsgBox "Please enter member's address.", vbInformation, "Information required"
ElseIf msk_bdate.Text = "__/__/____" Then
MsgBox "Please enter member's date of birth.", vbInformation, "Information required"
' ElseIf txt_bookhnd.Text = "" Then
' MsgBox "Please enter no of books contain by member.", vbInformation, "Information required"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -