📄 frm_returnreg.frm
字号:
VERSION 5.00
Begin VB.Form frm_returnreg
Caption = "Form1"
ClientHeight = 6585
ClientLeft = 60
ClientTop = 450
ClientWidth = 7275
LinkTopic = "Form1"
ScaleHeight = 6585
ScaleWidth = 7275
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command1
Caption = "返回确认"
Height = 615
Left = 1200
TabIndex = 22
Top = 5160
Width = 1575
End
Begin VB.Frame Frame1
BackColor = &H00FFC0C0&
Caption = "数据中心返回的注册信息"
ForeColor = &H000000FF&
Height = 4815
Left = 480
TabIndex = 0
Top = 240
Width = 5055
Begin VB.TextBox txt_code
Height = 375
Left = 1320
TabIndex = 21
Top = 4080
Width = 1935
End
Begin VB.TextBox txt_id
Height = 375
Left = 1320
TabIndex = 7
Top = 360
Width = 1935
End
Begin VB.TextBox txt_name
Height = 375
Left = 1320
TabIndex = 6
Top = 840
Width = 1935
End
Begin VB.TextBox txt_tel
Height = 375
Left = 1320
TabIndex = 5
Top = 2280
Width = 1935
End
Begin VB.TextBox txt_mobile
Height = 375
Left = 1320
TabIndex = 4
Top = 2880
Width = 1935
End
Begin VB.TextBox txt_man
Height = 375
Left = 1320
TabIndex = 3
Top = 3480
Width = 1935
End
Begin VB.TextBox txt_sim
Height = 375
Left = 1320
TabIndex = 2
Top = 1320
Width = 1935
End
Begin VB.TextBox txt_pw
Height = 375
Left = 1320
TabIndex = 1
Top = 1800
Width = 1935
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "注册码："
Height = 255
Left = 120
TabIndex = 20
Top = 4200
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "区域编号："
Height = 255
Left = 120
TabIndex = 19
Top = 480
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "区域名称 ："
Height = 255
Left = 120
TabIndex = 18
Top = 960
Width = 1215
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = " "
Height = 255
Left = 120
TabIndex = 17
Top = 3000
Width = 975
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "联系手机："
Height = 375
Left = 120
TabIndex = 16
Top = 3000
Width = 1095
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "主机SIM号："
Height = 255
Left = 120
TabIndex = 15
Top = 1440
Width = 1095
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "联系电话："
Height = 375
Left = 120
TabIndex = 14
Top = 2400
Width = 1335
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "注册人 ："
Height = 255
Left = 120
TabIndex = 13
Top = 3600
Width = 1335
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "主机密码："
Height = 375
Left = 120
TabIndex = 12
Top = 1920
Width = 1095
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "（6位数字）"
ForeColor = &H000000FF&
Height = 255
Left = 3360
TabIndex = 11
Top = 480
Width = 1095
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "（最多15个汉字）"
ForeColor = &H000000FF&
Height = 255
Left = 3360
TabIndex = 10
Top = 960
Width = 1455
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "（12位数字）"
ForeColor = &H000000FF&
Height = 255
Left = 3360
TabIndex = 9
Top = 1920
Width = 1095
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "（请加区号）"
ForeColor = &H000000FF&
Height = 375
Left = 3360
TabIndex = 8
Top = 2400
Width = 1095
End
End
End
Attribute VB_Name = "frm_returnreg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim strsql As String
If frm_returnreg.txt_id.Text <> frm_reg.txt_id.Text Then
MsgBox ("区域号返回错误"), vbOKOnly + vbCritical, "提示"
Unload frm_returnreg
Exit Sub
End If
If frm_returnreg.txt_name.Text <> frm_reg.txt_name.Text Then
MsgBox ("区域名称返回错误"), vbOKOnly + vbCritical, "提示"
Unload frm_returnreg
Exit Sub
End If
If frm_returnreg.txt_pw.Text <> frm_reg.txt_pw.Text Then
MsgBox ("区域密码返回错误"), vbOKOnly + vbCritical, "提示"
Unload frm_returnreg
Exit Sub
End If
If frm_returnreg.txt_sim.Text <> frm_reg.txt_sim.Text Then
MsgBox ("主机SIM返回错误"), vbOKOnly + vbCritical, "提示"
Unload frm_returnreg
Exit Sub
End If
If frm_returnreg.txt_tel.Text <> frm_reg.txt_tel.Text Then
MsgBox ("联系电话返回错误"), vbOKOnly + vbCritical, "提示"
Unload frm_returnreg
Exit Sub
End If
If frm_returnreg.txt_mobile.Text <> frm_reg.txt_mobile.Text Then
MsgBox ("联系手机返回错误"), vbOKOnly + vbCritical, "提示"
Unload frm_returnreg
Exit Sub
End If
If frm_returnreg.txt_man.Text <> frm_reg.txt_man.Text Then
MsgBox ("联系人返回错误"), vbOKOnly + vbCritical, "提示"
Unload frm_returnreg
Exit Sub
End If
strsql = "select * from gongdiansuoreg"
openrs strsql
rs.AddNew
rs.Fields("gongdiansuo_id").Value = frm_returnreg.txt_id.Text
rs.Fields("gongdiansuo_name").Value = frm_returnreg.txt_name.Text
rs.Fields("gongdiansuo_pw").Value = frm_returnreg.txt_pw.Text
rs.Fields("gongdiansuo_sim").Value = frm_returnreg.txt_sim.Text
rs.Fields("gongdiansuo_tel").Value = frm_returnreg.txt_tel.Text
rs.Fields("gongdiansuo_mobile").Value = frm_returnreg.txt_mobile.Text
rs.Fields("gongdiansuo_regman").Value = frm_returnreg.txt_man.Text
rs.Fields("gongdiansuo_regcode").Value = frm_returnreg.txt_code.Text
rs.UpdateBatch
clors
Unload frm_reg
frm_main.Show
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -