📄 regkey.frm
字号:
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Object = "{A874630D-EE5B-11D2-B76F-C603E977A428}#2.0#0"; "REGKEY.OCX"
Begin VB.Form RegKey
Caption = "注册号分配器"
ClientHeight = 5310
ClientLeft = 2010
ClientTop = 2025
ClientWidth = 7935
Icon = "RegKey.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MouseIcon = "RegKey.frx":030A
ScaleHeight = 5310
ScaleWidth = 7935
Begin VB.Frame Frame1
Caption = "请注册"
Height = 5175
Left = 120
TabIndex = 30
Top = 0
Width = 7695
Begin CtlRegKey.RegKey RegKey1
Height = 975
Left = 600
TabIndex = 40
Top = 3120
Width = 6855
_ExtentX = 12091
_ExtentY = 1720
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
RegCode = "88888888"
RegCode = 88888888
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 375
Left = 5880
TabIndex = 34
Top = 4200
Width = 975
End
Begin VB.Label lblmyweb
Caption = "Web:danlihua.yeah.net"
ForeColor = &H0000FF00&
Height = 255
Left = 5400
MouseIcon = "RegKey.frx":074C
MousePointer = 99 'Custom
TabIndex = 39
Top = 4680
Width = 2055
End
Begin VB.Label Label8
Caption = "邮编：118000 电话：0415-2120031"
Height = 255
Left = 840
TabIndex = 33
Top = 4680
Width = 4575
End
Begin VB.Label Label7
Caption = "地址：辽宁省丹东市二经街85-310# 赵建利 收"
Height = 255
Left = 840
TabIndex = 32
Top = 4320
Width = 4335
End
Begin VB.Label Label6
Caption = $"RegKey.frx":0B8E
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2775
Left = 240
TabIndex = 31
Top = 360
Width = 7335
End
End
Begin MSDBCtls.DBCombo DBCombo1
Bindings = "RegKey.frx":0D22
Height = 330
Left = 1080
TabIndex = 26
Top = 480
Width = 3015
_ExtentX = 5318
_ExtentY = 582
_Version = 393216
ListField = "序列号"
Text = ""
End
Begin VB.Data Data1
Connect = "Access"
DatabaseName = "H:\Program Files\VB\AutoReg\RegKey.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 375
Left = 4440
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "用户信息库"
Top = 480
Width = 2655
End
Begin VB.Frame Frame2
Caption = "用户信息："
Height = 3735
Left = 480
TabIndex = 1
Top = 960
Width = 6975
Begin VB.TextBox txtName
BackColor = &H80000016&
Height = 270
Left = 1320
TabIndex = 27
Text = "DEMO"
Top = 310
Width = 735
End
Begin VB.TextBox txtFax
DataField = "传真号码"
DataSource = "Data1"
Height = 270
Left = 1320
TabIndex = 25
Top = 2160
Width = 5415
End
Begin VB.TextBox txtBZ
DataField = "备注"
DataSource = "Data1"
Height = 270
Left = 1320
TabIndex = 23
Top = 3240
Width = 5415
End
Begin VB.TextBox txtWeb
DataField = "网址"
DataSource = "Data1"
ForeColor = &H00008000&
Height = 270
Left = 1320
MouseIcon = "RegKey.frx":0D32
MousePointer = 99 'Custom
TabIndex = 21
ToolTipText = "双击到Web页"
Top = 2880
Width = 5415
End
Begin VB.TextBox txtAppN
BackColor = &H80000016&
Height = 270
IMEMode = 3 'DISABLE
Left = 3600
PasswordChar = "*"
TabIndex = 19
Text = "123456789"
Top = 680
Width = 980
End
Begin VB.TextBox txtUserN
DataField = "用户号"
DataSource = "Data1"
Height = 270
Left = 2160
TabIndex = 14
Text = "12345-67890-12345-67890"
Top = 320
Width = 2415
End
Begin VB.TextBox TxtEW
DataField = "电子信箱"
DataSource = "Data1"
Height = 270
Left = 1320
MouseIcon = "RegKey.frx":1174
MousePointer = 99 'Custom
TabIndex = 11
ToolTipText = "双击发送E-Mail"
Top = 2520
Width = 5415
End
Begin VB.TextBox TxtTF
DataField = "电话号码"
DataSource = "Data1"
Height = 270
Left = 1320
TabIndex = 10
Top = 1800
Width = 5415
End
Begin VB.TextBox TxtNM
DataField = "用户名"
DataSource = "Data1"
Height = 270
Left = 1320
TabIndex = 9
Top = 1440
Width = 5415
End
Begin VB.TextBox TxtAR
DataField = "用户地址"
DataSource = "Data1"
Height = 270
Left = 1320
TabIndex = 8
Top = 1080
Width = 5415
End
Begin VB.TextBox TxtPC
DataField = "邮政编码"
DataSource = "Data1"
Height = 270
Left = 5640
TabIndex = 7
Top = 680
Width = 1035
End
Begin VB.Label lblDate
Caption = "Label3"
DataField = "注册日"
DataSource = "Data1"
Height = 255
Left = 5640
TabIndex = 29
Top = 360
Width = 1215
End
Begin VB.Label Label2
Caption = "注册日："
Height = 255
Left = 4920
TabIndex = 28
ToolTipText = "双击查找注册日"
Top = 360
Width = 735
End
Begin VB.Label lblFax
Alignment = 1 'Right Justify
Caption = "传真号码："
Height = 255
Left = 360
TabIndex = 24
ToolTipText = "双击查找传真号码"
Top = 2160
Width = 975
End
Begin VB.Label lblBZ
Alignment = 1 'Right Justify
Caption = "备注："
Height = 255
Left = 360
TabIndex = 22
Top = 3240
Width = 975
End
Begin VB.Label lblWeb
Alignment = 1 'Right Justify
Caption = "用户网址："
Height = 375
Left = 120
TabIndex = 20
ToolTipText = "双击查找用户网址"
Top = 2880
Width = 1215
End
Begin VB.Label lblAppN
Alignment = 1 'Right Justify
Caption = "程序号："
Height = 255
Left = 2760
TabIndex = 18
Top = 720
Width = 855
End
Begin VB.Line Line1
X1 = 2040
X2 = 2160
Y1 = 440
Y2 = 440
End
Begin VB.Label lblRegNdisplay
Caption = "0"
DataField = "注册号"
DataSource = "Data1"
Height = 255
Left = 1320
TabIndex = 16
Top = 720
Width = 1575
End
Begin VB.Label lblRegN
Alignment = 1 'Right Justify
Caption = "注册号："
Height = 255
Left = 240
TabIndex = 15
ToolTipText = "双击查找注册号"
Top = 720
Width = 1095
End
Begin VB.Label lblUserN
Alignment = 1 'Right Justify
Caption = "用户号："
Height = 255
Left = 240
TabIndex = 13
ToolTipText = "双击查找用户号"
Top = 360
Width = 1095
End
Begin VB.Label lblEW
Alignment = 1 'Right Justify
Caption = "电子信箱："
Height = 375
Left = 240
TabIndex = 6
ToolTipText = "双击查找电子信箱"
Top = 2520
Width = 1095
End
Begin VB.Label lblTF
Alignment = 1 'Right Justify
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -