📄 frm_mrs.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frm_mrs
BackColor = &H0080C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "美容师初始化"
ClientHeight = 5130
ClientLeft = 45
ClientTop = 330
ClientWidth = 5925
Icon = "frm_mrs.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5130
ScaleWidth = 5925
ShowInTaskbar = 0 'False
Begin VB.PictureBox Picture1
BackColor = &H0080C0FF&
BorderStyle = 0 'None
Height = 615
Left = 90
ScaleHeight = 615
ScaleWidth = 5745
TabIndex = 25
Top = 4500
Width = 5745
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Cancel = -1 'True
Height = 435
Index = 4
Left = 4530
MaskColor = &H00FFFFFF&
Picture = "frm_mrs.frx":000C
Style = 1 'Graphical
TabIndex = 14
Top = 60
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 3
Left = 3414
MaskColor = &H00FFFFFF&
Picture = "frm_mrs.frx":0FC6
Style = 1 'Graphical
TabIndex = 13
Top = 60
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 2
Left = 2301
MaskColor = &H00FFFFFF&
Picture = "frm_mrs.frx":24B4
Style = 1 'Graphical
TabIndex = 12
Top = 60
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 435
Index = 1
Left = 1188
MaskColor = &H00FFFFFF&
Picture = "frm_mrs.frx":4986
Style = 1 'Graphical
TabIndex = 11
Top = 60
UseMaskColor = -1 'True
Width = 1095
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Default = -1 'True
Height = 435
Index = 0
Left = 75
MaskColor = &H00FFFFFF&
Picture = "frm_mrs.frx":7290
Style = 1 'Graphical
TabIndex = 10
Top = 60
UseMaskColor = -1 'True
Width = 1095
End
End
Begin VB.Frame Frame1
BackColor = &H0080C0FF&
Caption = "详细资料："
Height = 4140
Left = 1890
TabIndex = 16
Top = 270
Width = 3945
Begin VB.Frame Frame2
BackColor = &H0080C0FF&
Caption = "密码："
Height = 972
Left = 132
TabIndex = 29
Top = 3036
Visible = 0 'False
Width = 3672
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 270
IMEMode = 3 'DISABLE
Index = 0
Left = 876
MaxLength = 8
PasswordChar = "*"
TabIndex = 8
Top = 192
Width = 2676
End
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 270
IMEMode = 3 'DISABLE
Index = 1
Left = 876
MaxLength = 8
PasswordChar = "*"
TabIndex = 9
Top = 540
Width = 2676
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码："
Height = 180
Index = 7
Left = 408
TabIndex = 31
Top = 228
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "确认密码："
Height = 180
Index = 8
Left = 48
TabIndex = 30
Top = 576
Width = 900
End
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Height = 696
IMEMode = 1 'ON
Index = 3
Left = 915
MaxLength = 30
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 7
Top = 2328
Width = 2880
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Height = 270
IMEMode = 1 'ON
Index = 2
Left = 915
MaxLength = 5
TabIndex = 5
Top = 1596
Width = 2880
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Height = 270
IMEMode = 1 'ON
Index = 1
Left = 915
MaxLength = 5
TabIndex = 4
Top = 1236
Width = 2880
End
Begin MSMask.MaskEdBox MaskEdBox1
BeginProperty DataFormat
Type = 0
Format = "yyyy/MM/dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 288
Index = 0
Left = 912
TabIndex = 3
Top = 864
Width = 2892
_ExtentX = 5106
_ExtentY = 503
_Version = 393216
BackColor = 12640511
AutoTab = -1 'True
MaxLength = 10
Mask = "####-##-##"
PromptChar = "_"
End
Begin VB.OptionButton Option1
BackColor = &H0080C0FF&
Caption = "女"
Height = 285
Index = 1
Left = 2340
TabIndex = 24
Top = 576
Value = -1 'True
Width = 480
End
Begin VB.OptionButton Option1
BackColor = &H0080C0FF&
Caption = "男"
Height = 285
Index = 0
Left = 1395
TabIndex = 2
Top = 576
Width = 480
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Height = 270
IMEMode = 1 'ON
Index = 0
Left = 915
MaxLength = 4
TabIndex = 1
Top = 270
Width = 2880
End
Begin MSMask.MaskEdBox MaskEdBox1
BeginProperty DataFormat
Type = 1
Format = "9999-99999999"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 288
Index = 1
Left = 912
TabIndex = 6
Top = 1956
Width = 2892
_ExtentX = 5106
_ExtentY = 529
_Version = 393216
BackColor = 12640511
AutoTab = -1 'True
MaxLength = 13
Mask = "9999-99999999"
PromptChar = "_"
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "地址："
Height = 180
Index = 6
Left = 276
TabIndex = 23
Top = 2352
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电话："
Height = 180
Index = 5
Left = 276
TabIndex = 22
Top = 1980
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "职称："
Height = 180
Index = 4
Left = 276
TabIndex = 21
Top = 1620
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "科室："
Height = 180
Index = 3
Left = 276
TabIndex = 20
Top = 1272
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生日："
Height = 180
Index = 2
Left = 276
TabIndex = 19
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -