📄 frmqueryincharge.frm
字号:
VERSION 5.00
Begin VB.Form frmQueryInCharge
BorderStyle = 3 'Fixed Dialog
Caption = "查询用户"
ClientHeight = 3780
ClientLeft = 45
ClientTop = 330
ClientWidth = 4710
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmQueryInCharge.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3780
ScaleWidth = 4710
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CheckBox chkMoney
Caption = "查询余额不足的用户"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 405
TabIndex = 5
Top = 2700
Width = 1995
End
Begin VB.CommandButton cmdCancel
Caption = " 取消"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 3420
TabIndex = 7
Top = 3195
Width = 960
End
Begin VB.CommandButton cmdQuery
Caption = "查询"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2295
TabIndex = 6
Top = 3195
Width = 960
End
Begin VB.TextBox txtAddr
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1350
TabIndex = 4
Top = 2205
Width = 2985
End
Begin VB.TextBox txtEmail
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1350
TabIndex = 3
Top = 1740
Width = 1950
End
Begin VB.TextBox txtPhone
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1350
TabIndex = 2
Top = 1260
Width = 1950
End
Begin VB.TextBox txtName
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1350
TabIndex = 1
Top = 786
Width = 1950
End
Begin VB.TextBox txtID
Appearance = 0 'Flat
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1350
TabIndex = 0
Top = 315
Width = 1950
End
Begin VB.Label Label6
Caption = "地址："
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 405
TabIndex = 12
Top = 2250
Width = 735
End
Begin VB.Label Label5
Caption = "电子邮箱："
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 405
TabIndex = 11
Top = 1755
Width = 915
End
Begin VB.Label Label4
Caption = "联系电话："
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 405
TabIndex = 10
Top = 1305
Width = 915
End
Begin VB.Label Label2
Caption = "用户名称："
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 405
TabIndex = 9
Top = 855
Width = 960
End
Begin VB.Label Label1
Caption = "用户ID："
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 405
TabIndex = 8
Top = 360
Width = 915
End
End
Attribute VB_Name = "frmQueryInCharge"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :查询用户（用户入费模块）
'* 功 能 描 述 :
'* 程序员姓名 :谭怀志
'* 最后修改人 :谭怀志
'* 最后修改时间:2003/6/26
'* 备 注:
'*******************************************************
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdQuery_Click()
strQry = "select MsgJF.UserID,FirstName,LastName,Cmoney,Addr,Phone,Email,SendFlag from sysUser,MsgJF where sysUser.UserID=MsgJF.UserID"
If Trim(txtID.Text) <> "" Then
strQry = strQry & " and MsgJF.UserID like '%" & Trim(txtID.Text) & "%'"
End If
If Trim(txtName.Text) <> "" Then
strQry = strQry & " and sysUser.LastName like '%" & Trim(txtName.Text) & "%'"
End If
If Trim(txtPhone.Text) <> "" Then
strQry = strQry & " and phone like '%" & Trim(txtPhone.Text) & "%'"
End If
If Trim(txtEmail.Text) <> "" Then
strQry = strQry & " and email like '%" & Trim(txtEmail.Text) & "%'"
End If
If Trim(txtAddr.Text) <> "" Then
strQry = strQry & " and Addr like '%" & Trim(txtAddr.Text) & "%'"
End If
If chkMoney.Value = 1 Then
strQry = strQry & " and SendFlag=1"
End If
On Error GoTo ADOError
Set rstCustomers = GetRecordSet(cnnConnection, strQry)
With frmIncharge!Gridbrowser
.Rows = .FixedRows
.Redraw = False
While Not rstCustomers.EOF
.AddItem ""
.RowHeight(.Rows - 1) = 350
.TextMatrix(.Rows - 1, 0) = rstCustomers!UserID
.TextMatrix(.Rows - 1, 1) = rstCustomers!FirstName & rstCustomers!LastName
.TextMatrix(.Rows - 1, 2) = Format(rstCustomers!Cmoney, "########0.00")
.TextMatrix(.Rows - 1, 3) = IIf(rstCustomers!SendFlag = 0, "可发送", "不可发送")
.TextMatrix(.Rows - 1, 4) = rstCustomers!Addr
.TextMatrix(.Rows - 1, 5) = rstCustomers!Phone
.TextMatrix(.Rows - 1, 6) = rstCustomers!Email
rstCustomers.MoveNext
Wend
.Redraw = True
End With
Unload Me
Exit Sub
VBError:
DisplayVBError
Exit Sub
ADOError:
DisplayADOError cnnConnection
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -