📄 frmbasic.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmBasic
BorderStyle = 1 'Fixed Single
Caption = "用户基本信息登记"
ClientHeight = 7620
ClientLeft = 45
ClientTop = 375
ClientWidth = 11910
ControlBox = 0 'False
Icon = "frmBasic.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 8157.18
ScaleMode = 0 'User
ScaleWidth = 12061.72
Begin VB.Frame Frame
Height = 6030
Left = 690
TabIndex = 12
Top = 780
Width = 10665
Begin VB.CheckBox chkBat
Caption = "批量录入"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 240
TabIndex = 41
Top = 4560
Width = 1695
End
Begin VB.ComboBox cboSign
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "frmBasic.frx":000C
Left = 1470
List = "frmBasic.frx":0016
TabIndex = 40
Top = 3900
Width = 3015
End
Begin VB.TextBox txtTerm
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6780
MaxLength = 2
TabIndex = 37
Text = "1"
Top = 1650
Width = 3465
End
Begin VB.TextBox txtAddr
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6750
MaxLength = 50
TabIndex = 36
Top = 390
Width = 3450
End
Begin MSComCtl2.DTPicker dtpOrgDate
Height = 360
Left = 6780
TabIndex = 33
TabStop = 0 'False
Top = 2745
Width = 3465
_ExtentX = 6112
_ExtentY = 635
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 24576001
CurrentDate = 37327
End
Begin MSComCtl2.DTPicker dtpGetDate
Height = 360
Left = 6780
TabIndex = 32
Top = 3330
Width = 3465
_ExtentX = 6112
_ExtentY = 635
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 24576001
CurrentDate = 37311
End
Begin MSComCtl2.DTPicker dtpFixDate
Height = 360
Left = 6780
TabIndex = 31
TabStop = 0 'False
Top = 3930
Width = 3465
_ExtentX = 6112
_ExtentY = 635
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 24576001
CurrentDate = 37311
End
Begin VB.TextBox txtID
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1470
MaxLength = 6
TabIndex = 0
Top = 390
Width = 2970
End
Begin VB.TextBox txtName
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1470
MaxLength = 8
TabIndex = 17
Top = 1005
Width = 2970
End
Begin VB.TextBox txtPlace
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6750
MaxLength = 50
TabIndex = 16
Top = 1020
Width = 3420
End
Begin VB.TextBox txtTelephone
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1470
MaxLength = 50
TabIndex = 15
Top = 1650
Width = 2970
End
Begin VB.TextBox txtOrgFee
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
TabIndex = 14
Top = 2781
Width = 2985
End
Begin VB.TextBox txtCostFee
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 1440
TabIndex = 13
Top = 3360
Width = 2985
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "信 号:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 5
Left = 240
TabIndex = 39
Top = 3990
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "终 端 数:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 240
Index = 4
Left = 5100
TabIndex = 38
Top = 1710
Width = 1080
End
Begin VB.Label lblOperationTime
BackColor = &H80000009&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 360
Left = 6780
TabIndex = 35
Top = 5070
Width = 3450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackColor = &H8000000A&
Caption = "操作时间:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Index = 16
Left = 5100
TabIndex = 34
Top = 5130
Width = 1080
End
Begin VB.Label lblOperator
BackColor = &H80000009&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 360
Left = 1470
TabIndex = 30
Top = 5070
Width = 2970
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackColor = &H8000000A&
Caption = "操 作 员:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 240
Index = 15
Left = 240
TabIndex = 29
Top = 5100
Width = 1080
End
Begin VB.Line Line1
BorderColor = &H00C0C000&
X1 = 270
X2 = 10170
Y1 = 2385
Y2 = 2385
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "地 址:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 240
Left = 5085
TabIndex = 28
Top = 465
Width = 1200
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "姓 名:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 240
Index = 1
Left = 240
TabIndex = 26
Top = 1065
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "单 位:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 240
Index = 2
Left = 5070
TabIndex = 25
Top = 1035
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "电 话:"
BeginProperty Font
Name = "宋体"
Size = 12
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -