📄 frm_members.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form Frm_members
BorderStyle = 1 'Fixed Single
Caption = "Member's Details"
ClientHeight = 6525
ClientLeft = 3765
ClientTop = 1845
ClientWidth = 9135
Icon = "Frm_members.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6525
ScaleWidth = 9135
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmd_book2
Height = 375
Left = 8520
MouseIcon = "Frm_members.frx":24A2
MousePointer = 99 'Custom
Picture = "Frm_members.frx":25F4
Style = 1 'Graphical
TabIndex = 51
ToolTipText = "Members Issued books"
Top = 6000
Width = 495
End
Begin VB.CommandButton cmd_book1
Height = 375
Left = 8520
Picture = "Frm_members.frx":29F9
Style = 1 'Graphical
TabIndex = 50
Top = 6000
Width = 495
End
Begin TabDlg.SSTab SSTab1
Height = 5655
Left = 120
TabIndex = 0
Top = 600
Width = 8895
_ExtentX = 15690
_ExtentY = 9975
_Version = 393216
TabOrientation = 1
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "Detail view"
TabPicture(0) = "Frm_members.frx":2DFD
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "DataGrid1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "Individual view"
TabPicture(1) = "Frm_members.frx":2E19
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Fra_library"
Tab(1).Control(1)= "fra_personal"
Tab(1).Control(2)= "frm_cmd"
Tab(1).ControlCount= 3
Begin MSDataGridLib.DataGrid DataGrid1
Height = 5055
Left = 120
TabIndex = 49
Top = 120
Width = 8655
_ExtentX = 15266
_ExtentY = 8916
_Version = 393216
AllowUpdate = -1 'True
BackColor = -2147483633
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 = "Detail view for Members detail"
ColumnCount = 12
BeginProperty Column00
DataField = "Memid"
Caption = "MemberID"
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 = "Fname"
Caption = "First name"
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 = "Lname"
Caption = "Last name"
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 = "Address"
Caption = "Address"
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 = "Phone"
Caption = "Phone"
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 = "Email"
Caption = "Email"
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 = "Deposite"
Caption = "Deposite"
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 = "Birthdate"
Caption = "Birthday"
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 = "Dojoin"
Caption = "Join at"
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 = "Doexpire"
Caption = "Expire at"
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 = "Sex"
Caption = "Sex"
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 = "Noted"
Caption = "Note"
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
BeginProperty Column00
ColumnWidth = 824.882
EndProperty
BeginProperty Column01
ColumnWidth = 1604.976
EndProperty
BeginProperty Column02
ColumnWidth = 1620.284
EndProperty
BeginProperty Column03
ColumnWidth = 3404.977
EndProperty
BeginProperty Column04
ColumnWidth = 1665.071
EndProperty
BeginProperty Column05
ColumnWidth = 2505.26
EndProperty
BeginProperty Column06
ColumnWidth = 1170.142
EndProperty
BeginProperty Column07
ColumnWidth = 1230.236
EndProperty
BeginProperty Column08
ColumnWidth = 1184.882
EndProperty
BeginProperty Column09
ColumnWidth = 1140.095
EndProperty
BeginProperty Column10
ColumnWidth = 734.74
EndProperty
BeginProperty Column11
ColumnWidth = 2429.858
EndProperty
EndProperty
End
Begin VB.Frame frm_cmd
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400040&
Height = 1095
Left = -74280
TabIndex = 29
Top = 3960
Width = 7455
Begin VB.CommandButton cmdLast
Appearance = 0 'Flat
Height = 345
Left = 6960
MouseIcon = "Frm_members.frx":2E35
MousePointer = 99 'Custom
Picture = "Frm_members.frx":2F87
Style = 1 'Graphical
TabIndex = 39
ToolTipText = "Move Last"
Top = 240
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdNext
Appearance = 0 'Flat
Height = 345
Left = 6600
MouseIcon = "Frm_members.frx":31D9
MousePointer = 99 'Custom
Picture = "Frm_members.frx":332B
Style = 1 'Graphical
TabIndex = 38
ToolTipText = "Move Next"
Top = 240
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdPrevious
Appearance = 0 'Flat
Height = 345
Left = 5520
MouseIcon = "Frm_members.frx":3537
MousePointer = 99 'Custom
Picture = "Frm_members.frx":3689
Style = 1 'Graphical
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -