📄 frm_kxk.frm
字号:
VERSION 5.00
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_kxk
BackColor = &H0080C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "开新卡--包月卡"
ClientHeight = 3645
ClientLeft = 2760
ClientTop = 3750
ClientWidth = 8370
Icon = "frm_kxk.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3645
ScaleWidth = 8370
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox Text3
BackColor = &H00C0E0FF&
Height = 264
IMEMode = 3 'DISABLE
Index = 1
Left = 7068
MaxLength = 8
PasswordChar = "*"
TabIndex = 16
Top = 1560
Width = 1185
End
Begin VB.TextBox Text3
BackColor = &H00C0E0FF&
Height = 264
IMEMode = 3 'DISABLE
Index = 0
Left = 7068
MaxLength = 8
PasswordChar = "*"
TabIndex = 15
Top = 1080
Width = 1185
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Cancel = -1 'True
Height = 372
Index = 1
Left = 7068
MaskColor = &H00FFFFFF&
Picture = "frm_kxk.frx":000C
Style = 1 'Graphical
TabIndex = 18
Top = 492
UseMaskColor = -1 'True
Width = 1185
End
Begin VB.CommandButton Command1
BackColor = &H00C0E0FF&
Height = 384
Index = 0
Left = 7065
MaskColor = &H00FFFFFF&
Picture = "frm_kxk.frx":0FC6
Style = 1 'Graphical
TabIndex = 17
Top = 96
UseMaskColor = -1 'True
Width = 1185
End
Begin VB.Frame Frame2
BackColor = &H0080C0FF&
Caption = "客户详细资料："
Height = 1530
Left = 120
TabIndex = 26
Top = 1965
Width = 6810
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 285
Index = 1
Left = 825
MaxLength = 30
TabIndex = 37
Top = 1065
Width = 5835
End
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 285
Index = 0
Left = 825
TabIndex = 34
Top = 285
Width = 2430
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 285
Left = 825
TabIndex = 32
Top = 660
Width = 2430
_ExtentX = 4286
_ExtentY = 503
_Version = 393216
CalendarBackColor= 16777215
Format = 56295424
CurrentDate = 36792
End
Begin VB.OptionButton Option1
BackColor = &H0080C0FF&
Caption = "女"
Height = 225
Index = 1
Left = 5115
TabIndex = 30
Top = 240
Value = -1 'True
Width = 570
End
Begin VB.OptionButton Option1
BackColor = &H0080C0FF&
Caption = "男"
Height = 225
Index = 0
Left = 4305
TabIndex = 29
Top = 240
Width = 495
End
Begin MSMask.MaskEdBox MaskEdBox1
BeginProperty DataFormat
Type = 1
Format = "9999-99999999"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 285
Index = 1
Left = 4215
TabIndex = 35
Top = 675
Width = 2430
_ExtentX = 4286
_ExtentY = 503
_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 = 4
Left = 225
TabIndex = 36
Top = 1125
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电话："
Height = 180
Index = 3
Left = 3705
TabIndex = 33
Top = 735
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "生日："
Height = 180
Index = 2
Left = 240
TabIndex = 31
Top = 735
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "性别："
Height = 180
Index = 1
Left = 3705
TabIndex = 28
Top = 270
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓名："
Height = 180
Index = 0
Left = 255
TabIndex = 27
Top = 345
Width = 540
End
End
Begin VB.Frame Frame1
BackColor = &H0080C0FF&
Caption = "详细资料："
Height = 1824
Left = 120
TabIndex = 19
Top = 12
Width = 6810
Begin VB.TextBox Text4
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 264
IMEMode = 3 'DISABLE
Left = 5412
MaxLength = 8
PasswordChar = "*"
TabIndex = 5
Top = 492
Width = 1248
End
Begin VB.CheckBox Check1
BackColor = &H0080C0FF&
Caption = "优惠卡"
Height = 180
Left = 3456
TabIndex = 4
Top = 552
Width = 864
End
Begin VB.ComboBox Combo2
BackColor = &H00C0E0FF&
Height = 276
ItemData = "frm_kxk.frx":2724
Left = 4032
List = "frm_kxk.frx":2734
Style = 2 'Dropdown List
TabIndex = 13
Top = 1452
Width = 1212
End
Begin VB.ComboBox Combo1
BackColor = &H00C0E0FF&
Height = 276
Left = 816
TabIndex = 11
Top = 1476
Width = 1392
End
Begin VB.CheckBox Check3
BackColor = &H0080C0FF&
Caption = "支票支付"
Height = 255
Left = 2280
TabIndex = 12
Top = 1500
Width = 1020
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 270
Index = 7
Left = 5775
TabIndex = 10
Text = "0.00"
Top = 1128
Width = 885
End
Begin VB.CommandButton Command2
BackColor = &H00C0E0FF&
Caption = "..."
Height = 270
Left = 2850
Style = 1 'Graphical
TabIndex = 3
Top = 492
Width = 390
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
BackColor = &H00C0E0FF&
Height = 270
Index = 6
Left = 4044
TabIndex = 9
Text = "10.00"
Top = 1128
Width = 885
End
Begin VB.CheckBox Check2
BackColor = &H0080C0FF&
Caption = "生日赠送鲜花"
Height = 225
Left = 5304
TabIndex = 14
Top = 1488
Value = 1 'Checked
Visible = 0 'False
Width = 1395
End
Begin VB.TextBox Text1
BackColor = &H00C0E0FF&
Height = 270
Index = 5
Left = 825
MaxLength = 18
TabIndex = 8
Top = 1164
Width = 2415
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
Enabled = 0 'False
Height = 270
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -