📄 frmallmodify.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{57EA6131-FAB3-49C3-BF10-85A4777A5A7C}#1.0#0"; "XPButton.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form FrmAllModify
Caption = "修改会员综合信息"
ClientHeight = 6435
ClientLeft = 60
ClientTop = 450
ClientWidth = 10095
Icon = "FrmAllModify.frx":0000
LinkTopic = "Form1"
ScaleHeight = 6435
ScaleWidth = 10095
StartUpPosition = 1 '所有者中心
Begin VB.Frame FraReg
Height = 5595
Left = 135
TabIndex = 0
Top = 90
Width = 9555
Begin VB.TextBox TxtName
Height = 315
Left = 1170
TabIndex = 10
Top = 315
Width = 1590
End
Begin VB.OptionButton optSex
Caption = "男"
Height = 240
Index = 0
Left = 4590
TabIndex = 9
Top = 360
Value = -1 'True
Width = 510
End
Begin VB.OptionButton optSex
Caption = "女"
Height = 240
Index = 1
Left = 5400
TabIndex = 8
Top = 360
Width = 510
End
Begin VB.TextBox TxtIDCard
Height = 285
Left = 4635
TabIndex = 7
Top = 990
Width = 2220
End
Begin VB.TextBox TxtAddress
Height = 465
Left = 1170
MultiLine = -1 'True
TabIndex = 6
Top = 2295
Width = 5685
End
Begin VB.TextBox TxtCompany
Height = 465
Left = 1170
MultiLine = -1 'True
TabIndex = 5
Top = 3060
Width = 5685
End
Begin VB.TextBox TxtHandSet
Height = 315
Left = 1170
TabIndex = 4
Top = 1575
Width = 1635
End
Begin VB.TextBox TxtHomeTel
Height = 315
Left = 4635
TabIndex = 3
Top = 1575
Width = 2220
End
Begin VB.TextBox TxtCard
Height = 285
Left = 1170
MaxLength = 5
TabIndex = 2
Top = 4140
Width = 1770
End
Begin VB.TextBox TxtChest
Height = 285
Left = 1170
TabIndex = 1
Top = 4770
Width = 1815
End
Begin MSComCtl2.DTPicker dtpBirthday
Height = 285
Left = 1170
TabIndex = 11
Top = 990
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
CustomFormat = "yyyy-mm-dd"
Format = 20054017
CurrentDate = 29221
MinDate = 2
End
Begin XP_Button.XPButton btnPhoto
Height = 330
Left = 7830
TabIndex = 12
Top = 3420
Width = 1005
_ExtentX = 1773
_ExtentY = 582
caption = "照片"
End
Begin MSComDlg.CommonDialog dlgPic
Left = 8820
Top = 3690
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComCtl2.DTPicker dtpStartingTime
Height = 285
Left = 4365
TabIndex = 13
Top = 4095
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
CustomFormat = "yyyy-mm-dd"
Format = 20054017
CurrentDate = 29221
MinDate = 2
End
Begin MSComCtl2.DTPicker dtpDeadline
Height = 285
Left = 6885
TabIndex = 14
Top = 4095
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
CustomFormat = "yyyy-mm-dd"
Format = 20054017
CurrentDate = 29221
MinDate = 2
End
Begin MSComCtl2.DTPicker dtpBoxStarting
Height = 285
Left = 4320
TabIndex = 15
Top = 4815
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
CustomFormat = "yyyy-mm-dd"
Format = 20054017
CurrentDate = 29221
MinDate = 2
End
Begin MSComCtl2.DTPicker dtpBoxDeadLine
Height = 285
Left = 6840
TabIndex = 16
Top = 4815
Width = 1455
_ExtentX = 2566
_ExtentY = 503
_Version = 393216
CustomFormat = "yyyy-mm-dd"
Format = 20054017
CurrentDate = 29221
MinDate = 2
End
Begin VB.Image ImgPhoto
BorderStyle = 1 'Fixed Single
Height = 2805
Left = 7200
Stretch = -1 'True
Top = 360
Width = 2040
End
Begin VB.Label LblName
AutoSize = -1 'True
Caption = "姓名"
Height = 180
Left = 630
TabIndex = 30
Top = 405
Width = 360
End
Begin VB.Label LblSex
AutoSize = -1 'True
Caption = "姓别"
Height = 180
Left = 3915
TabIndex = 29
Top = 360
Width = 360
End
Begin VB.Label LblBirthday
AutoSize = -1 'True
Caption = "生日"
Height = 180
Left = 630
TabIndex = 28
Top = 1080
Width = 360
End
Begin VB.Label LblIDCard
AutoSize = -1 'True
Caption = "身份证号"
Height = 180
Left = 3645
TabIndex = 27
Top = 1035
Width = 720
End
Begin VB.Label LblAddress
AutoSize = -1 'True
Caption = "住址"
Height = 180
Left = 585
TabIndex = 26
Top = 2475
Width = 360
End
Begin VB.Label LblCompany
AutoSize = -1 'True
Caption = "单位"
Height = 180
Left = 585
TabIndex = 25
Top = 3240
Width = 360
End
Begin VB.Label LblHandSet
AutoSize = -1 'True
Caption = "移动电话"
Height = 180
Left = 270
TabIndex = 24
Top = 1665
Width = 720
End
Begin VB.Label LblHomeTel
AutoSize = -1 'True
Caption = "固定电话"
Height = 180
Left = 3330
TabIndex = 23
Top = 1620
Width = 720
End
Begin VB.Label LblCard
AutoSize = -1 'True
Caption = "会员卡"
Height = 180
Left = 495
TabIndex = 22
Top = 4185
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "起始日期"
Height = 180
Left = 3465
TabIndex = 21
Top = 4140
Width = 720
End
Begin VB.Label LblDeadline
AutoSize = -1 'True
Caption = "截止日期"
Height = 180
Left = 5985
TabIndex = 20
Top = 4140
Width = 720
End
Begin VB.Label LblChest
AutoSize = -1 'True
Caption = "储物箱"
Height = 180
Left = 450
TabIndex = 19
Top = 4815
Width = 540
End
Begin VB.Label LblBoxStart
AutoSize = -1 'True
Caption = "起始日期"
Height = 180
Left = 3420
TabIndex = 18
Top = 4860
Width = 720
End
Begin VB.Label LblBoxDeadline
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -