📄 frm_qurryuserinfo.frm
字号:
Left = 4440
TabIndex = 42
Top = 5280
Width = 1095
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "用户地址："
Height = 255
Left = 360
TabIndex = 41
Top = 5280
Width = 975
End
Begin VB.Label Label26
BackStyle = 0 'Transparent
Caption = "电能表起用日期："
Height = 375
Left = 4320
TabIndex = 40
Top = 4920
Width = 1455
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "电能表起始读数无功："
Height = 375
Left = 4320
TabIndex = 39
Top = 4320
Width = 1935
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "电能表起始读数有功："
Height = 375
Left = 4320
TabIndex = 38
Top = 3720
Width = 1815
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "互感器比例："
Height = 375
Left = 4320
TabIndex = 37
Top = 3240
Width = 1335
End
Begin VB.Label Label22
BackStyle = 0 'Transparent
Caption = "变压器型号："
Height = 255
Left = 4320
TabIndex = 36
Top = 2640
Width = 1095
End
Begin VB.Label Label21
BackStyle = 0 'Transparent
Caption = "变压器编号："
Height = 255
Left = 4320
TabIndex = 35
Top = 2040
Width = 1215
End
Begin VB.Label Label20
BackStyle = 0 'Transparent
Caption = "电能表常数："
Height = 375
Left = 4320
TabIndex = 34
Top = 1440
Width = 1335
End
Begin VB.Label Label19
BackStyle = 0 'Transparent
Caption = "电能表型号："
Height = 375
Left = 4320
TabIndex = 33
Top = 960
Width = 1215
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
Caption = "电能表编号："
Height = 375
Left = 4320
TabIndex = 32
Top = 480
Width = 1335
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "用户台区："
Height = 255
Left = 360
TabIndex = 31
Top = 4920
Width = 975
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "用户线路："
Height = 255
Left = 360
TabIndex = 30
Top = 4440
Width = 975
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "电价："
Height = 255
Left = 360
TabIndex = 29
Top = 3840
Width = 975
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "用户SIM号："
Height = 375
Left = 360
TabIndex = 28
Top = 3360
Width = 1215
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "用户密码："
Height = 375
Left = 360
TabIndex = 27
Top = 2880
Width = 1095
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "联系手机："
Height = 375
Left = 360
TabIndex = 26
Top = 2280
Width = 975
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "联系电话："
Height = 375
Left = 360
TabIndex = 25
Top = 1680
Width = 1095
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "用户名称："
Height = 375
Left = 360
TabIndex = 24
Top = 1080
Width = 1095
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "用户编号："
Height = 255
Left = 360
TabIndex = 23
Top = 480
Width = 975
End
End
Begin VB.TextBox txt_qurry
Appearance = 0 'Flat
Height = 375
Left = 5160
MaxLength = 12
TabIndex = 1
Top = 480
Width = 2055
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "请输入要查询的客户信息："
Height = 255
Left = 240
TabIndex = 43
Top = 550
Width = 2175
End
End
End
Attribute VB_Name = "frm_qurryuserinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub xpcmdbutton4_Click()
Dim strsql
If Option1.Value = False And Option2.Value = False Then
MsgBox ("您没有选择查询条件！"), vbOKOnly + vbInformation, "提示"
Exit Sub
End If
If Trim(txt_qurry.Text) = "" Then
MsgBox ("查询值不能为空！"), vbOKOnly + vbInformation, "提示"
Exit Sub
End If
If Option1.Value = True Then
strsql = "select * from userbasic where user_id='" & Trim(txt_qurry.Text) & "'"
openrs strsql
If rs.EOF Then
MsgBox ("不存在该用户！"), vbOKOnly + vbInformation, "提示"
clors
Exit Sub
End If
End If
If Option2.Value = True Then
strsql = "select * from userbasic where user_sim='" & Trim(txt_qurry.Text) & "'"
openrs strsql
If rs.EOF Then
MsgBox ("不存在该用户！"), vbOKOnly + vbInformation, "提示"
clors
Exit Sub
End If
End If
txt_id.Text = rs.Fields("user_id").Value
txt_name.Text = rs.Fields("user_name").Value
txt_addr.Text = rs.Fields("user_addr").Value
txt_tel.Text = rs.Fields("user_tel").Value
txt_mobile.Text = rs.Fields("user_mobile").Value
txt_pw.Text = rs.Fields("user_dtupw").Value
txt_biaohao.Text = rs.Fields("user_biaohao").Value
txt_biaoxinghao.Text = rs.Fields("user_biaoxinghao").Value
txt_biaoconst.Text = rs.Fields("user_biaoconst").Value
txt_biaosnumy.Text = rs.Fields("user_biaosnumy").Value
txt_biaosnumn.Text = rs.Fields("user_biaosnumn").Value
txt_byqid.Text = rs.Fields("user_byqid").Value
txt_byqxinghao.Text = rs.Fields("user_byqxinghao").Value
txt_hgqbili.Text = rs.Fields("user_hgqbili").Value
txt_sim.Text = rs.Fields("user_sim").Value
txt_price.Text = rs.Fields("user_powerprice").Value
' txt = rs.Fields("user_powernum").Value
txt_biaotime.Text = rs.Fields("user_biaostime")
txt_usertime.Text = rs.Fields("user_regtime").Value
txt_line.Text = rs.Fields("user_line").Value
txt_taiqu.Text = rs.Fields("user_taiqu").Value
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -