www.pudn.com > opy_LMS.rar > frmMembers.frm
VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmMembers
BorderStyle = 3 'Fixed Dialog
Caption = "读者管理"
ClientHeight = 6390
ClientLeft = 45
ClientTop = 330
ClientWidth = 9150
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6390
ScaleWidth = 9150
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmd_book2
Height = 375
Left = 8400
MouseIcon = "frmMembers.frx":0000
MousePointer = 99 'Custom
Picture = "frmMembers.frx":0152
Style = 1 'Graphical
TabIndex = 0
ToolTipText = "Members Issued books"
Top = 5910
Width = 495
End
Begin TabDlg.SSTab SSTab1
Height = 5655
Left = 120
TabIndex = 1
Top = 510
Width = 8895
_ExtentX = 15690
_ExtentY = 9975
_Version = 393216
TabOrientation = 1
Style = 1
Tabs = 2
Tab = 1
TabHeight = 520
TabCaption(0) = "总体视图"
TabPicture(0) = "frmMembers.frx":0557
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "DataGrid1"
Tab(0).ControlCount= 1
TabCaption(1) = "具体视图"
TabPicture(1) = "frmMembers.frx":0573
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "frm_cmd"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "fra_personal"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Fra_library"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).ControlCount= 3
Begin VB.Frame Fra_library
Caption = "图书馆信息"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 1455
Left = 240
TabIndex = 38
Top = 2520
Width = 8415
Begin VB.TextBox txt_memid
Alignment = 1 'Right Justify
ForeColor = &H00400000&
Height = 285
Left = 6960
Locked = -1 'True
TabIndex = 42
Top = 960
Width = 1215
End
Begin VB.TextBox txt_note
DataField = "Note"
ForeColor = &H00400000&
Height = 285
Left = 2640
Locked = -1 'True
MaxLength = 70
TabIndex = 41
Tag = "8"
Top = 960
Width = 2655
End
Begin VB.TextBox txt_bookhnd
Alignment = 1 'Right Justify
ForeColor = &H00400000&
Height = 285
Left = 6480
Locked = -1 'True
TabIndex = 40
Top = 600
Width = 1695
End
Begin VB.TextBox txt_deposite
Alignment = 1 'Right Justify
ForeColor = &H00400000&
Height = 285
Left = 6480
Locked = -1 'True
TabIndex = 39
Top = 240
Width = 1695
End
Begin MSMask.MaskEdBox msk_expr
Height = 285
Left = 2640
TabIndex = 43
Top = 600
Width = 1575
_ExtentX = 2778
_ExtentY = 503
_Version = 393216
MaxLength = 11
Format = "yyyy年mm月dd日"
Mask = "####年##月##日"
PromptChar = "_"
End
Begin MSMask.MaskEdBox msk_join
Height = 285
Left = 2640
TabIndex = 44
Top = 240
Width = 1575
_ExtentX = 2778
_ExtentY = 503
_Version = 393216
AutoTab = -1 'True
MaxLength = 11
Format = "yyyy年mm月dd日"
Mask = "####年##月##日"
PromptChar = "_"
End
Begin VB.Label lbl_mid
BackStyle = 0 'Transparent
Caption = "借书证号"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 5760
TabIndex = 50
Top = 1020
Width = 1095
End
Begin VB.Label lbl_bookin
BackStyle = 0 'Transparent
Caption = "现借有书"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 5160
TabIndex = 49
Top = 600
Width = 1215
End
Begin VB.Label lbl_depo
BackStyle = 0 'Transparent
Caption = "按金"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 5160
TabIndex = 48
Top = 270
Width = 855
End
Begin VB.Label lbl_expr
BackStyle = 0 'Transparent
Caption = "到期时间(mm/dd/yyyy)"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 47
Top = 645
Width = 2535
End
Begin VB.Label lbl_join
BackStyle = 0 'Transparent
Caption = "注册日期(mm/dd/yyyy)"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 46
Top = 300
Width = 2295
End
Begin VB.Label lbl_note
BackStyle = 0 'Transparent
Caption = "备注"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 45
Top = 1000
Width = 1215
End
End
Begin VB.Frame fra_personal
Caption = "个人信息"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000040&
Height = 2295
Left = 240
TabIndex = 23
Top = 120
Width = 8415
Begin VB.TextBox txt_mname
DataField = "Fname"
ForeColor = &H00400000&
Height = 285
Left = 1680
Locked = -1 'True
MaxLength = 25
TabIndex = 29
Tag = "3"
Top = 360
Width = 2655
End
Begin VB.TextBox txt_mclass
DataField = "Lname"
ForeColor = &H00400000&
Height = 285
Left = 1680
Locked = -1 'True
MaxLength = 25
TabIndex = 28
Tag = "4"
Top = 1800
Width = 2655
End
Begin VB.TextBox txt_add
DataField = "Address"
ForeColor = &H00400000&
Height = 1335
Left = 5400
Locked = -1 'True
MaxLength = 125
MultiLine = -1 'True
TabIndex = 27
Tag = "11"
Top = 360
Width = 2775
End
Begin VB.TextBox txt_mail
DataField = "Email"
ForeColor = &H00400000&
Height = 285
Left = 1680
Locked = -1 'True
TabIndex = 26
Tag = "5"
Top = 1080
Width = 2655
End
Begin VB.TextBox txt_phone
DataField = "Phone"
ForeColor = &H00400000&
Height = 285
Left = 1680
Locked = -1 'True
MaxLength = 25
TabIndex = 25
Tag = "6"
Top = 1440
Width = 2655
End
Begin VB.ComboBox cmb_sex
DataField = "Sex"
ForeColor = &H00400000&
Height = 300
ItemData = "frmMembers.frx":058F
Left = 1680
List = "frmMembers.frx":0599
Locked = -1 'True
TabIndex = 24
Tag = "7"
Top = 720
Width = 2655
End
Begin MSMask.MaskEdBox msk_bdate
Height = 285
Left = 6600
TabIndex = 30
Top = 1800
Width = 1575
_ExtentX = 2778
_ExtentY = 503
_Version = 393216
AutoTab = -1 'True
MaxLength = 11
Format = "yyyy年mm月dd日"
Mask = "####年##月##日"
PromptChar = "_"
End
Begin VB.Label lbl_birth
BackStyle = 0 'Transparent
Caption = "出生日期"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 4560
TabIndex = 37
Top = 1840
Width = 1935
End
Begin VB.Label lbl_mname
BackStyle = 0 'Transparent
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 36
Top = 420
Width = 1095
End
Begin VB.Label lbl_mclass
BackStyle = 0 'Transparent
Caption = "班级"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 35
Top = 1860
Width = 975
End
Begin VB.Label lbl_mail
BackStyle = 0 'Transparent
Caption = "Email地址"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 34
Top = 1140
Width = 1335
End
Begin VB.Label lbl_phone
BackStyle = 0 'Transparent
Caption = "电话号码"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 33
Top = 1485
Width = 975
End
Begin VB.Label lbl_sex
BackStyle = 0 'Transparent
Caption = "性别"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 32
Top = 765
Width = 495
End
Begin VB.Label lbl_add
BackStyle = 0 'Transparent
Caption = "地址"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 4560
TabIndex = 31
Top = 360
Width = 735
End
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 = 720
TabIndex = 3
Top = 3960
Width = 7455
Begin VB.CommandButton cmd_close
Appearance = 0 'Flat
Height = 615
Left = 4320
MouseIcon = "frmMembers.frx":05AB
MousePointer = 99 'Custom
Picture = "frmMembers.frx":06FD
Style = 1 'Graphical
TabIndex = 13
Top = 240
Width = 735
End
Begin VB.CommandButton cmd_cancel
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 3480
MouseIcon = "frmMembers.frx":0C77
MousePointer = 99 'Custom
Picture = "frmMembers.frx":0DC9
Style = 1 'Graphical
TabIndex = 12
ToolTipText = "Cancel"
Top = 240
Width = 735
End
Begin VB.CommandButton cmd_save
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2640
MouseIcon = "frmMembers.frx":1349
MousePointer = 99 'Custom
Picture = "frmMembers.frx":149B
Style = 1 'Graphical
TabIndex = 11
ToolTipText = "Save record"
Top = 240
Width = 735
End
Begin VB.CommandButton cmd_delete
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1800
MouseIcon = "frmMembers.frx":1A33
MousePointer = 99 'Custom
Picture = "frmMembers.frx":1B85
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "Delete record"
Top = 240
Width = 735
End
Begin VB.CommandButton cmd_edit
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 960
MouseIcon = "frmMembers.frx":20CF
MousePointer = 99 'Custom
Picture = "frmMembers.frx":2221
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "Edit record"
Top = 240
Width = 735
End
Begin VB.CommandButton cmd_new
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
MaskColor = &H8000000F&
MouseIcon = "frmMembers.frx":27C6
MousePointer = 99 'Custom
Picture = "frmMembers.frx":2918
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "Add new record"
Top = 240
Width = 735
End
Begin VB.CommandButton cmdFirst
Appearance = 0 'Flat
Height = 345
Left = 5160
MouseIcon = "frmMembers.frx":2EF6
MousePointer = 99 'Custom
Picture = "frmMembers.frx":3048
Style = 1 'Graphical
TabIndex = 7
ToolTipText = "Move First"
Top = 240
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdPrevious
Appearance = 0 'Flat
Height = 345
Left = 5520
MouseIcon = "frmMembers.frx":3297
MousePointer = 99 'Custom
Picture = "frmMembers.frx":33E9
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "Move Previous"
Top = 240
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdNext
Appearance = 0 'Flat
Height = 345
Left = 6600
MouseIcon = "frmMembers.frx":35F8
MousePointer = 99 'Custom
Picture = "frmMembers.frx":374A
Style = 1 'Graphical
TabIndex = 5
ToolTipText = "Move Next"
Top = 240
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdLast
Appearance = 0 'Flat
Height = 345
Left = 6960
MouseIcon = "frmMembers.frx":3956
MousePointer = 99 'Custom
Picture = "frmMembers.frx":3AA8
Style = 1 'Graphical
TabIndex = 4
ToolTipText = "Move Last"
Top = 240
UseMaskColor = -1 'True
Width = 345
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "of"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6120
TabIndex = 22
Top = 720
Width = 255
End
Begin VB.Label lbl_rec
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5160
TabIndex = 21
Top = 720
Width = 855
End
Begin VB.Label lbl_total
BackStyle = 0 'Transparent
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6360
TabIndex = 20
Top = 720
Width = 975
End
Begin VB.Label Label3
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "关闭"
Height = 255
Left = 4320
TabIndex = 19
Top = 840
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "新建"
Height = 255
Left = 120
TabIndex = 18
Top = 840
Width = 735
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "编辑"
Height = 255
Left = 960
TabIndex = 17
Top = 840
Width = 735
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "删除"
Height = 255
Left = 1800
TabIndex = 16
Top = 840
Width = 735
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "保存"
Height = 255
Left = 2640
TabIndex = 15
Top = 840
Width = 735
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "取消"
Height = 255
Left = 3480
TabIndex = 14
Top = 840
Width = 735
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 5055
Left = -74880
TabIndex = 2
ToolTipText = "读者总体视图"
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 = "读者总体视图"
ColumnCount = 11
BeginProperty Column00
DataField = "Memid"
Caption = "借书证号"
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 = "Mname"
Caption = "姓名"
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 = "Sex"
Caption = "性别"
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 = "Birthdate"
Caption = "出生日期"
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 = "Address"
Caption = "地址"
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 = "Phone"
Caption = "电话"
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 = "Email"
Caption = "电子邮箱"
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 = "Deposite"
Caption = "按金"
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 = "加入时间"
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 = "期满时间"
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 = "Noted"
Caption = "备注"
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 = 1365.165
EndProperty
BeginProperty Column01
ColumnWidth = 1154.835
EndProperty
BeginProperty Column02
ColumnWidth = 599.811
EndProperty
BeginProperty Column03
ColumnWidth = 1244.976
EndProperty
BeginProperty Column04
ColumnWidth = 2984.882
EndProperty
BeginProperty Column05
ColumnWidth = 1679.811
EndProperty
BeginProperty Column06
ColumnWidth = 2190.047
EndProperty
BeginProperty Column07
ColumnWidth = 1230.236
EndProperty
BeginProperty Column08
ColumnWidth = 1184.882
EndProperty
BeginProperty Column09
ColumnWidth = 1140.095
EndProperty
BeginProperty Column10
ColumnWidth = 2445.166
EndProperty
EndProperty
End
End
Begin VB.Image Image1
Height = 555
Left = 0
Top = 0
Width = 480
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = $"frmMembers.frx":3CFA
Height = 405
Left = 525
TabIndex = 51
Top = 30
Width = 8295
End
End
Attribute VB_Name = "frmMembers"
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_mname.Text = ""
txt_mclass.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_mname.Locked = val
txt_mclass.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 "请输入读者地址.", vbInformation, "提示信息"
ElseIf msk_bdate.Text = "____年__月__日" Then
MsgBox "请输入读者的出生日期.", vbInformation, "提示信息"
' ElseIf txt_bookhnd.Text = "" Then
' MsgBox "Please enter no of books contain by member.", vbInformation, "Information required"
ElseIf txt_deposite.Text = "" Then
MsgBox "请输入按金金额.", vbInformation, "提示信息"
ElseIf msk_expr.Text = "____年__月__日" Then
MsgBox "请输入会员到期时间.", vbInformation, "提示信息"
ElseIf msk_join.Text = "____年__月__日" Then
MsgBox "请输入注册时间.", vbInformation, "提示信息"
ElseIf txt_mname.Text = "" Then
MsgBox "请输入读者姓名.", vbInformation, "提示信息"
' ElseIf txt_mclass.Text = "" Then
'MsgBox "请输入读者的班级.", vbInformation, "提示信息"
ElseIf txt_memid.Text = "" Then
MsgBox "请输入借书证号.", vbInformation, "提示信息"
ElseIf cmb_sex.Text = "" Then
MsgBox "请输入性别.", vbInformation, "提示信息"
ElseIf (cmb_sex.Text <> "男" And cmb_sex.Text <> "女") Then
MsgBox ("请选择性别."), vbInformation, "错误信息"
ElseIf Not IsNumeric(txt_deposite.Text) Then
MsgBox ("按金必须是货币数字."), vbInformation, "错误信息"
ElseIf Not IsNumeric(txt_bookhnd.Text) Then
MsgBox ("现借有书必须是数字."), vbInformation, "错误信息"
ElseIf Not IsNumeric(txt_memid.Text) Then
MsgBox ("借书证号必须是数字."), vbInformation, "错误信息"
Else
flag = True
End If
cheak = flag
End Function
Private Sub cmd_books_Click()
If (bookshow = True) Then
Me.Height = 6900
cmd_book1.Visible = False
cmd_book2.Visible = True
Else
Me.Height = 8445
cmd_book1.Visible = True
cmd_book2.Visible = False
End If
bookshow = Not bookshow
End Sub
Private Sub cmd_book1_Click()
Call cmd_books_Click
End Sub
Private Sub cmd_book2_Click()
Call cmd_books_Click
End Sub
Private Sub cmd_close_Click()
Unload Me
End Sub
Private Sub cmd_cancel_Click()
On erro GoTo cancelerr
'disablink control
Call locktext(True)
' lblStatus.Caption = " Cancel."
If Memrecordset.BOF And Memrecordset.EOF Then
GoTo newproc
Else
Memrecordset.MoveFirst
Call showdata
End If
newproc:
txt_fname.SetFocus
Call setbutton(True)
Exit Sub
cancelerr:
MsgBox Err.Description
End Sub
Private Sub cmd_delete_Click()
On erro GoTo lable
Beep
str = "select Bookinhand from Member where Memid = " & CDbl(txt_memid.Text)
temp.Open str, Memconnection, adOpenStatic, adLockOptimistic
If temp(0) <> 0 Then
MsgBox "Member account cannot be deleeted because member has not returned books.", vbInformation, "Books not returned"
temp.Close
Exit Sub
End If
temp.Close
If MsgBox("Execution of command will delete current Datarecord,Are you sure you wan't to delete Datarecord ?", vbYesNo + vbExclamation, "Confirm Delete") = vbYes Then
str = "DELETE FROM Member WHERE "
str = str & "Memid = "
str = str & CDbl(txt_memid.Text)
Memconnection.Execute str
Memrecordset.Requery
MsgBox "Record deleted sucessfully.", vbinformayion, "Delete"
If Memrecordset.BOF And Memrecordset.EOF Then
Call clear
MsgBox ("The previous record was last record,Now no record left."), vbInformation, "Last record"
cmd_delete.Enabled = False
Else
Memrecordset.MoveNext
If Memrecordset.EOF Then
Memrecordset.MoveLast
End If
Call showdata
End If
'message for status of mode
'lblStatus.Caption = " Record deleted."
End If
Exit Sub
lable:
MsgBox Err.Number & Err.Description
End Sub
Private Sub cmd_edit_Click()
Call locktext(False)
Call setbutton(False)
msk_bdate.Enabled = True
msk_expr.Enabled = True
msk_join.Enabled = True
txt_bookhnd.Locked = True
'cmd_cancel.Enabled = False
txt_mname.SetFocus
saveflag = False
'lblStatus.Caption = " Edit record."
End Sub
Private Sub cmd_new_Click()
Call locktext(False)
Call clear
Call setbutton(False)
msk_bdate.Enabled = True
msk_expr.Enabled = True
msk_join.Enabled = True
txt_bookhnd.Text = 0
txt_mname.SetFocus
saveflag = True
'lblStatus.Caption = " Add new record."
End Sub
Private Sub cmd_save_Click()
'error cheaking and autocorrection handle
On Error GoTo errlable
If (cheak = True) Then
If (txt_note.Text = "") Then
txt_note.Text = "None"
End If
If (txt_phone.Text = "") Then
txt_phone.Text = "None"
End If
If (txt_mail.Text = "") Then
txt_mail.Text = "None"
End If
If (saveflag = True) Then
txt_bookhnd.Text = 0
str = "INSERT INTO Member "
str = str & "(Address, Birthdate, Bookinhand, Deposite, Doexpire, Dojoin, Email, Mname, Memid, Noted, Phone, Sex) "
str = str & "VALUES('" & Trim(txt_add.Text) & "', "
str = str & "'" & Trim(msk_bdate.Text) & "', "
str = str & CDbl(txt_bookhnd.Text) & ", "
str = str & CDbl(Trim(txt_deposite.Text)) & ", "
str = str & "'" & Trim(msk_expr.Text) & "', "
str = str & "'" & Trim(msk_join.Text) & "', "
str = str & "'" & Trim(txt_mail.Text) & "', "
str = str & "'" & Trim(txt_mname.Text) & "', "
' str = str & "'" & Trim(txt_lname.Text) & "', "
str = str & CDbl(Trim(txt_memid.Text)) & ", "
str = str & "'" & Trim(txt_note.Text) & "', "
str = str & "'" & Trim(txt_phone.Text) & "', "
str = str & "'" & Trim(cmb_sex.Text) & "' )"
'MsgBox str
Memconnection.Execute str
Else
str = "UPDATE Member SET "
str = str & " Address = '" & Trim(txt_add.Text) & "',"
str = str & " Birthdate = '" & Trim(msk_bdate.Text) & "',"
str = str & " Bookinhand = '" & Trim(txt_bookhnd.Text) & "',"
str = str & " Deposite = " & CDbl(txt_deposite.Text) & ","
str = str & " Doexpire = '" & Trim(msk_expr.Text) & "',"
str = str & " Dojoin = '" & Trim(msk_join.Text) & "',"
str = str & " Email = '" & Trim(txt_mail.Text) & "',"
str = str & " Mname = '" & Trim(txt_mname.Text) & "',"
'str = str & " Lname = '" & Trim(txt_lname.Text) & "',"
str = str & " Memid = " & CDbl(txt_memid.Text) & ","
str = str & " Noted = '" & Trim(txt_note.Text) & "',"
str = str & " Phone = '" & Trim(txt_phone.Text) & "',"
str = str & " Sex = '" & Trim(cmb_sex.Text) & "'"
str = str & " WHERE Memid= " & CDbl(txt_memid.Text)
'MsgBox str
Memconnection.Execute str
End If
Memrecordset.Requery
Memrecordset.MoveFirst
MsgBox ("记录成功保存."), vbInformation, "保存"
Call locktext(True)
Call setbutton(True)
Call showdata
End If
Exit Sub
errlable:
If (Err.Number = -2147467259) Then
MsgBox ("Member ID already exist,please enter anothe ID."), vbCritical, "MemberID exist"
txt_memid.SetFocus
ElseIf (Err.Number = -2147217913) Then
MsgBox ("May be date field pattern wrong."), vbCritical, "Date"
ElseIf Err.Number <> 0 Then
MsgBox Err.Number & Err.Description
End If
End Sub
Private Sub Form_Load()
On Error GoTo errlable
If (view = 1) Then
Me.Top = 50
Me.Left = 50
ElseIf (view = 2) Then
Me.Top = 700
Me.Left = (Screen.Width - Me.Width) / 2
End If
'Image1.Picture = mdi_start.ImageList1.ListImages(7).Picture
Set Memconnection = New ADODB.Connection
'Memconnection.CursorLocation = adUseClient
'Memconnection.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\Database\Library.mdb;Jet OLEDB:Database Password=Library;"
'Set Memrecordset = New ADODB.Recordset
slmb = "select Address,Birthdate,Bookinhand,Deposite,Doexpire,Dojoin,Email,Mname,Memid,Noted,Phone,Sex from Member Order by Memid"
Set Memrecordset = exesql(slmb)
Set DataGrid1.DataSource = Memrecordset
DataGrid1.ReBind
bookshow = False
lodbook = False
Set Flexgridset = New ADODB.Recordset
Set temp = New ADODB.Recordset
Call showdata
Call setbutton(True)
msk_bdate.Enabled = False
msk_expr.Enabled = False
msk_join.Enabled = False
cmd_book1.Visible = False
Exit Sub
errlable:
MsgBox Err.Number & Err.Description
End Sub
Private Sub loadbook()
If Memrecordset.EOF = False And Memrecordset.BOF = False Then
again:
If (lodbook = False) Then
Flexgridset.Open "select Author1,Author2,Author3,Bookid,Edition,ISBNNumber,Pages,Price,Publication,Subject,Title,Avano,Issno,Totalno from Book where Bookid in(select Bookid from Issue where Memid=" & Trim(txt_memid.Text) & ")", Memconnection, adOpenStatic, adLockOptimistic
lodbook = True
Set Datagrid.DataSource = Flexgridset
Datagrid.ReBind
Else
Flexgridset.Close
lodbook = False
GoTo again
End If
End If
End Sub
Private Sub locate()
lbl_total.Caption = Memrecordset.RecordCount
lbl_rec.Caption = Memrecordset.AbsolutePosition
End Sub
Private Sub showdata()
If Memrecordset.EOF = False And Memrecordset.BOF = False Then
txt_add.Text = Memrecordset.Fields(0)
msk_bdate.Text = Format$(Memrecordset.Fields(1), "yyyy年mm月dd日")
txt_bookhnd.Text = Memrecordset.Fields(2)
txt_deposite.Text = Memrecordset.Fields(3)
msk_expr.Text = Format$(Memrecordset.Fields(4), "yyyy年mm月dd日")
msk_join.Text = Format$(Memrecordset.Fields(5), "yyyy年mm月dd日")
txt_mail.Text = Memrecordset.Fields(6)
txt_mname.Text = Memrecordset.Fields(7)
txt_memid.Text = Memrecordset.Fields(8)
txt_note.Text = Memrecordset.Fields(9)
txt_phone.Text = Memrecordset.Fields(10)
cmb_sex.Text = Memrecordset.Fields(11)
'txt_mclass.Text = ""
End If
Call locate
If bookshow Then
Call loadbook
End If
End Sub
Private Sub cmdFirst_Click()
On Error GoTo GoFirstError
Memrecordset.MoveFirst
' lblStatus.Caption = " << Move"
'show thw current data record
Call showdata
Exit Sub
GoFirstError:
MsgBox Err.Description
End Sub
Private Sub cmdLast_Click()
On Error GoTo GoLastError
' lblStatus.Caption = " Move >>"
Memrecordset.MoveLast
'show thw current data record
Call showdata
Exit Sub
GoLastError:
MsgBox Err.Description
End Sub
Private Sub cmdNext_Click()
Dim my As String
On Error GoTo GoNextError
'lblStatus.Caption = " Move >"
If Not Memrecordset.EOF Then Memrecordset.MoveNext
If Memrecordset.EOF And Memrecordset.RecordCount > 0 Then
Beep
'moved off the end so go back
Memrecordset.MoveLast
End If
'show thw current data record
Call showdata
Exit Sub
GoNextError:
MsgBox Err.Description
End Sub
Private Sub cmdPrevious_Click()
On Error GoTo GoPrevError
' lblStatus.Caption = " < Move"
If Not Memrecordset.BOF Then Memrecordset.MovePrevious
If Memrecordset.BOF And Memrecordset.RecordCount > 0 Then
Beep
'moved off the end so go back
Memrecordset.MovePrevious
End If
'show thw current data record
Call showdata
Exit Sub
GoPrevError:
If Err.Number = 3021 Then
MsgBox ("This is first Record."), vbInformation, "First record"
Memrecordset.MoveNext
ElseIf Err.Number <> 0 Then
MsgBox Err.Number & Err.Description
End If
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
Call locate
Call showdata
End Sub