📄 frmqueryintable.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmQueryIntable
BorderStyle = 3 'Fixed Dialog
Caption = "查询入费单"
ClientHeight = 3975
ClientLeft = 45
ClientTop = 330
ClientWidth = 3780
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmQueryIntable.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3975
ScaleWidth = 3780
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CheckBox chkDate
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 = 450
TabIndex = 3
Top = 1890
Width = 1275
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 = 285
Left = 2610
TabIndex = 8
Top = 3510
Width = 915
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 = 285
Left = 1575
TabIndex = 7
Top = 3510
Width = 960
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 = 2
Top = 1386
Width = 1995
End
Begin VB.ComboBox cboType
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 = 315
Left = 1350
TabIndex = 6
Top = 2970
Width = 1995
End
Begin VB.TextBox txtMoney
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 = 5
Top = 2430
Width = 1995
End
Begin MSComCtl2.DTPicker dtpDate
Height = 285
Left = 1800
TabIndex = 4
Top = 1890
Width = 1545
_ExtentX = 2725
_ExtentY = 503
_Version = 393216
Format = 23724033
CurrentDate = 37795
End
Begin VB.TextBox txtUserID
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 = 873
Width = 1995
End
Begin VB.TextBox txtTableID
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 = 360
Width = 1995
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 = 450
TabIndex = 13
Top = 3015
Width = 915
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 = 240
Left = 450
TabIndex = 12
Top = 2475
Width = 915
End
Begin VB.Label Label3
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 = 450
TabIndex = 11
Top = 1395
Width = 915
End
Begin VB.Label Label2
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 = 450
TabIndex = 10
Top = 900
Width = 870
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 = 450
TabIndex = 9
Top = 405
Width = 915
End
End
Attribute VB_Name = "frmQueryIntable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :查询入费单
'* 功 能 描 述 :
'* 程序员姓名 :谭怀志
'* 最后修改人 :谭怀志
'* 最后修改时间:2003/6/26
'* 备 注:
'*******************************************************
Private blnPoint As Boolean
Private Sub chkDate_Click()
If chkDate.Value = 1 Then
dtpDate.Enabled = True
Else
dtpDate.Enabled = False
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdQuery_Click()
strQry = "select ID,RFDconf.UserID,FirstName,LastName,RFdate,Money,RFDconf.FLname,RFDconf.StartDate,RFDconf.EndDate,RFDconf.JFtype, Cmoney,RFDconf.Status,JFsetting.FLid from RFDconf,sysUser,JFsetting,FLlist,MsgJF where RFDconf.UserID=sysUser.UserID and RFDconf.UserID=JFsetting.UserID and RFDconf.UserID=MsgJF.UserID and JFsetting.FLid=FLlist.FLid"
If Trim(txtTableID.Text) <> "" Then
strQry = strQry & " and ID like '%" & Trim(txtTableID.Text) & "%'"
End If
If Trim(txtUserID.Text) <> "" Then
strQry = strQry & " and RFDconf.UserID like '%" & Trim(txtUserID.Text) & "%'"
End If
If Trim(txtName.Text) <> "" Then
strQry = strQry & " and LastName like '%" & Trim(txtName.Text) & "%'"
End If
If chkDate.Value = 1 Then
strQry = strQry & " and RFdate='" & dtpDate.Value & "'"
End If
If Trim(txtMoney.Text) <> "" Then
strQry = strQry & " and Money=" & Trim(txtMoney.Text)
End If
If cboType.Text <> "" Then
strQry = strQry & " and RFDconf.JFtype=" & Trim(Str(cboType.ListIndex - 1))
End If
With frmErrRep!Gridbrowser
.Rows = .FixedRows
.Rows = .FixedRows
.Redraw = False
On Error GoTo ADOError
Set rstCustomers = GetRecordSet(cnnConnection, strQry)
While Not rstCustomers.EOF
.AddItem ""
.RowHeight(.Rows - 1) = 350
.TextMatrix(.Rows - 1, 0) = rstCustomers!ID
.TextMatrix(.Rows - 1, 1) = rstCustomers!UserID
.TextMatrix(.Rows - 1, 2) = rstCustomers!FirstName & rstCustomers!LastName
.TextMatrix(.Rows - 1, 3) = Format(rstCustomers!Money, "########0.00")
.TextMatrix(.Rows - 1, 4) = rstCustomers!RFdate
.TextMatrix(.Rows - 1, 5) = rstCustomers!FLname
.TextMatrix(.Rows - 1, 8) = rstCustomers!JFtype
.TextMatrix(.Rows - 1, 6) = IIf(IsNull(rstCustomers!StartDate), "", rstCustomers!StartDate)
.TextMatrix(.Rows - 1, 7) = IIf(IsNull(rstCustomers!EndDate), "", rstCustomers!EndDate)
.TextMatrix(.Rows - 1, 9) = Format(rstCustomers!Cmoney, "########0.00")
.TextMatrix(.Rows - 1, 10) = IIf(rstCustomers!Status = 1, "无效", "")
.TextMatrix(.Rows - 1, 11) = rstCustomers!FLid
rstCustomers.MoveNext
Wend
.Redraw = True
End With
Unload Me
Exit Sub
VBError:
DisplayVBError
Exit Sub
ADOError:
DisplayADOError cnnConnection
End Sub
Private Sub Form_Load()
blnPoint = False
dtpDate.Value = DateValue(Now)
dtpDate.Enabled = False
cboType.AddItem ""
cboType.AddItem "单条"
cboType.AddItem "包月"
End Sub
Private Sub txtMoney_Change()
If InStr(txtMoney.Text, ".") > 0 Then
blnPoint = True
Else
blnPoint = False
End If
End Sub
Private Sub txtMoney_KeyPress(KeyAscii As Integer)
'输入金额时，将无效的输入屏蔽
If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> 8 And KeyAscii <> 13 And KeyAscii <> Asc(".") Then
KeyAscii = 0
Exit Sub
End If
'不是第一次输入小数点是时，将输入屏蔽掉
If KeyAscii = Asc(".") And blnPoint Then
KeyAscii = 0
Exit Sub
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -