📄 frm_members.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 5160
TabIndex = 38
Top = 270
Width = 855
End
Begin VB.Label lbl_expr
Caption = "Date of expire(mm/dd/yyyy)"
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 = 240
TabIndex = 36
Top = 645
Width = 2535
End
Begin VB.Label lbl_join
Caption = "Date of join(mm/dd/yyyy)"
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 = 240
TabIndex = 35
Top = 300
Width = 2295
End
Begin VB.Label lbl_note
Caption = "Special note"
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 = 240
TabIndex = 34
Top = 1000
Width = 1215
End
End
Begin VB.Frame fra_personal
Caption = "Personal info"
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 = 26
Top = 120
Width = 8415
Begin MSMask.MaskEdBox msk_bdate
Height = 285
Left = 6600
TabIndex = 6
Top = 1800
Width = 1575
_ExtentX = 2778
_ExtentY = 503
_Version = 393216
AutoTab = -1 'True
MaxLength = 10
Format = "mm/dd/yyyy"
Mask = "##/##/####"
PromptChar = "_"
End
Begin VB.TextBox txt_fname
DataField = "Fname"
ForeColor = &H00400000&
Height = 285
Left = 2040
Locked = -1 'True
MaxLength = 25
TabIndex = 0
Tag = "3"
Top = 360
Width = 2295
End
Begin VB.TextBox txt_lname
DataField = "Lname"
ForeColor = &H00400000&
Height = 285
Left = 2040
Locked = -1 'True
MaxLength = 25
TabIndex = 1
Tag = "4"
Top = 720
Width = 2295
End
Begin VB.TextBox txt_add
DataField = "Address"
ForeColor = &H00400000&
Height = 1335
Left = 5400
Locked = -1 'True
MaxLength = 125
MultiLine = -1 'True
TabIndex = 5
Tag = "11"
Top = 360
Width = 2775
End
Begin VB.TextBox txt_mail
DataField = "Email"
ForeColor = &H00400000&
Height = 285
Left = 2040
Locked = -1 'True
TabIndex = 2
Tag = "5"
Top = 1080
Width = 2295
End
Begin VB.TextBox txt_phone
DataField = "Phone"
ForeColor = &H00400000&
Height = 285
Left = 2040
Locked = -1 'True
MaxLength = 25
TabIndex = 3
Tag = "6"
Top = 1440
Width = 2295
End
Begin VB.ComboBox cmb_sex
DataField = "Sex"
ForeColor = &H00400000&
Height = 315
ItemData = "Frm_members.frx":31AA
Left = 2040
List = "Frm_members.frx":31B4
Locked = -1 'True
TabIndex = 4
Tag = "7"
Top = 1800
Width = 2295
End
Begin VB.Label lbl_birth
Caption = "Birthdate(mm/dd/yyyy)"
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 = 4560
TabIndex = 37
Top = 1840
Width = 1935
End
Begin VB.Label lbl_fname
Caption = "First name"
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 = 480
TabIndex = 32
Top = 425
Width = 1095
End
Begin VB.Label lbl_lname
Caption = "Last name"
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 = 480
TabIndex = 31
Top = 780
Width = 975
End
Begin VB.Label lbl_mail
Caption = "Email address"
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 = 480
TabIndex = 30
Top = 1135
Width = 1335
End
Begin VB.Label lbl_phone
Caption = "Phone 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 = 480
TabIndex = 29
Top = 1490
Width = 975
End
Begin VB.Label lbl_sex
Caption = "Sex"
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 = 480
TabIndex = 28
Top = 1845
Width = 495
End
Begin VB.Label lbl_add
Caption = "Address"
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 = 4560
TabIndex = 27
Top = 360
Width = 735
End
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 slct As String
Dim str As String
Dim pos As Integer
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
cmd_reset.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"
ElseIf txt_deposite.Text = "" Then
MsgBox "Please enter deposite amount.", vbInformation, "Information required"
ElseIf msk_expr.Text = "__/__/____" Then
MsgBox "Please enter date of account expire.", vbInformation, "Information required"
ElseIf msk_join.Text = "__/__/____" Then
MsgBox "Please enter date of join.", vbInformation, "Information required"
ElseIf txt_fname.Text = "" Then
MsgBox "Please enter member's first name.", vbInformation, "Information required"
ElseIf txt_lname.Text = "" Then
MsgBox "Please enter member's last name or family name.", vbInformation, "Information required"
ElseIf txt_memid.Text = "" Then
MsgBox "Please enter member ID no.", vbInformation, "Information required"
ElseIf cmb_sex.Text = "" Then
MsgBox "Please select sex.", vbInformation, "Information required"
ElseIf (cmb_sex.Text <> "Male" And cmb_sex.Text <> "Female") Then
MsgBox ("Please select the sex."), vbInformation, "Invalid arguments"
ElseIf Not IsNumeric(txt_deposite.Text) Then
MsgBox ("Deposite must be Numeric value."), vbInformation, "Invalid arguments"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -