📄 frmnotequery_select.frm
字号:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmNoteQuery_Select
BorderStyle = 1 'Fixed Single
Caption = "水费发票查询选择"
ClientHeight = 3450
ClientLeft = 45
ClientTop = 330
ClientWidth = 5355
Icon = "frmNoteQuery_Select.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3450
ScaleWidth = 5355
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton cmdOK
Caption = "确定"
Height = 390
Left = 105
TabIndex = 6
Top = 2910
Width = 1125
End
Begin VB.Frame Frame1
Caption = "查询条件"
ForeColor = &H8000000D&
Height = 2520
Left = 90
TabIndex = 11
Top = 165
Width = 5175
Begin MSDataListLib.DataCombo cboChargeType
Height = 330
Left = 1905
TabIndex = 3
Top = 1170
Width = 1890
_ExtentX = 3334
_ExtentY = 582
_Version = 393216
Enabled = 0 'False
Style = 2
Text = "DataCombo1"
End
Begin VB.ComboBox cboMonth
Height = 300
ItemData = "frmNoteQuery_Select.frx":0442
Left = 2370
List = "frmNoteQuery_Select.frx":0444
Style = 2 'Dropdown List
TabIndex = 1
Top = 255
Width = 660
End
Begin VB.CheckBox chkTJ
Caption = "指定发票顺序号"
Height = 210
Index = 3
Left = 270
TabIndex = 10
Top = 2100
Width = 1560
End
Begin VB.CheckBox chkTJ
Caption = "指定用户编号"
Height = 210
Index = 2
Left = 270
TabIndex = 9
Top = 1680
Width = 1560
End
Begin VB.CheckBox chkTJ
Caption = "用户交费类型"
Height = 210
Index = 1
Left = 270
TabIndex = 8
Top = 1245
Width = 1560
End
Begin VB.ComboBox cboStatus
Enabled = 0 'False
Height = 300
Left = 1905
Style = 2 'Dropdown List
TabIndex = 2
Top = 765
Width = 1875
End
Begin VB.CheckBox chkTJ
Caption = "发票状态"
Height = 210
Index = 0
Left = 270
TabIndex = 7
Top = 825
Width = 1035
End
Begin MSMask.MaskEdBox txtYear
Height = 300
Left = 1170
TabIndex = 0
Top = 255
Width = 885
_ExtentX = 1561
_ExtentY = 529
_Version = 393216
MaxLength = 4
Mask = "9999"
PromptChar = " "
End
Begin MSMask.MaskEdBox txtUID
Height = 315
Left = 1905
TabIndex = 4
Top = 1620
Width = 1875
_ExtentX = 3307
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
MaxLength = 5
Mask = "99999"
PromptChar = " "
End
Begin MSMask.MaskEdBox txtIID
Height = 315
Left = 1905
TabIndex = 5
Top = 2025
Width = 1875
_ExtentX = 3307
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
MaxLength = 8
Mask = "99999999"
PromptChar = " "
End
Begin VB.Label Label1
Caption = "水费月份"
Height = 180
Index = 1
Left = 285
TabIndex = 14
Top = 300
Width = 840
End
Begin VB.Label Label2
Caption = "月"
Height = 180
Left = 3030
TabIndex = 13
Top = 330
Width = 225
End
Begin VB.Label Label1
Caption = "年"
Height = 180
Index = 0
Left = 2130
TabIndex = 12
Top = 315
Width = 225
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 3
X1 = 120
X2 = 5055
Y1 = 690
Y2 = 690
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 2
X1 = 120
X2 = 5055
Y1 = 675
Y2 = 675
End
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 1
X1 = 30
X2 = 5325
Y1 = 2775
Y2 = 2775
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 0
X1 = 30
X2 = 5325
Y1 = 2790
Y2 = 2790
End
End
Attribute VB_Name = "frmNoteQuery_Select"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public strReturnYm As String
Public strReturnStatus As String
Public strReturnChargeTypeID As String
Public strReturnChargeTypeName As String
Public strReturnUID As String
Public strReturnIID As String
Dim adoChargeTypeRS As ADODB.Recordset
Private Sub cboChargeType_KeyPress(KeyAscii As Integer)
Call IfEnterKeyMoveNext(KeyAscii)
End Sub
Private Sub cboMonth_KeyPress(KeyAscii As Integer)
Call IfEnterKeyMoveNext(KeyAscii)
End Sub
Private Sub cboStatus_KeyPress(KeyAscii As Integer)
Call IfEnterKeyMoveNext(KeyAscii)
End Sub
Private Sub chkTJ_Click(Index As Integer)
Select Case Index
Case 0 '发票状态
If chkTJ(Index).value = 0 Then
Call ClearStatus
Me.cboStatus.Enabled = False
ElseIf chkTJ(Index).value = 1 Then
Call FillStatus
Me.cboStatus.Enabled = True
Me.cboStatus.SetFocus
End If
Case 1 '用户交费类型
If chkTJ(Index).value = 0 Then
Call ClearChargeType
Me.cboChargeType.Enabled = False
ElseIf chkTJ(Index).value = 1 Then
Call FillChargeType
Me.cboChargeType.Enabled = True
Me.cboChargeType.SetFocus
End If
Case 2 '指定用户编号
If chkTJ(Index).value = 0 Then
Me.txtUID.Text = String(gUIDLen, " ")
Me.txtUID.Enabled = False
ElseIf chkTJ(Index).value = 1 Then
Me.chkTJ(3).value = 0
Me.txtUID.Enabled = True
Me.txtUID.SetFocus
End If
Case 3 '指定发票顺序号
If chkTJ(Index).value = 0 Then
Me.txtIID.Text = String(gIIDLen, " ")
Me.txtIID.Enabled = False
ElseIf chkTJ(Index).value = 1 Then
Me.chkTJ(2).value = 0
Me.txtIID.Enabled = True
Me.txtIID.SetFocus
End If
Case Else
MsgBox "复选扭功能未定义", vbOKOnly + vbExclamation, "警告"
End Select
End Sub
Private Sub cmdOK_Click()
strReturnYm = Trim(Me.txtYear.Text) & Me.cboMonth.Text
If Me.chkTJ(0).value = 1 And Trim(Me.cboStatus.Text) <> "" Then
strReturnStatus = Me.cboStatus.ListIndex
End If
If Me.chkTJ(1).value = 1 And Trim(Me.cboChargeType.Text) <> "" Then
strReturnChargeTypeID = Trim(Me.cboChargeType.BoundText)
strReturnChargeTypeName = Trim(Me.cboChargeType.Text)
End If
If Me.chkTJ(2).value = 1 And Trim(Me.txtUID.Text) <> "" Then
strReturnUID = Trim(Me.txtUID.Text)
End If
If Me.chkTJ(3).value = 1 And Trim(Me.txtIID.Text) <> "" Then
strReturnIID = Trim(Me.txtIID.Text)
End If
Unload Me
End Sub
Private Sub Form_Load()
Call InitInterFace
'初始化返回值
strReturnYm = ""
strReturnStatus = ""
strReturnChargeTypeID = ""
strReturnChargeTypeName = ""
strReturnUID = ""
strReturnIID = ""
Set adoChargeTypeRS = New ADODB.Recordset
Set adoChargeTypeRS.ActiveConnection = gConnect
adoChargeTypeRS.CursorLocation = adUseClient
adoChargeTypeRS.CursorType = adOpenForwardOnly
adoChargeTypeRS.LockType = adLockOptimistic
adoChargeTypeRS.Open "select ChargeTypeID,ChargeTypeName from ChargeType"
Exit Sub
'-------错误处理---------
errHandleOpen:
Warning "记录集打开失败！" & Chr(13) & Err.Description
On Error GoTo 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
adoChargeTypeRS.Close
Set adoChargeTypeRS = Nothing
On Error GoTo 0
End Sub
Private Sub InitInterFace()
Me.txtYear = Trim(Str(Year(Date)))
Call FillMonth
Me.cboMonth.ListIndex = Month(Date) - 1
Me.chkTJ(0).value = 0
Me.chkTJ(1).value = 0
Me.chkTJ(2).value = 0
Me.chkTJ(3).value = 0
End Sub
Private Sub FillMonth()
Me.cboMonth.Clear
Me.cboMonth.AddItem ("01")
Me.cboMonth.AddItem ("02")
Me.cboMonth.AddItem ("03")
Me.cboMonth.AddItem ("04")
Me.cboMonth.AddItem ("05")
Me.cboMonth.AddItem ("06")
Me.cboMonth.AddItem ("07")
Me.cboMonth.AddItem ("08")
Me.cboMonth.AddItem ("09")
Me.cboMonth.AddItem ("10")
Me.cboMonth.AddItem ("11")
Me.cboMonth.AddItem ("12")
End Sub
Private Sub FillStatus()
Me.cboStatus.Clear
Me.cboStatus.AddItem ("作废发票")
Me.cboStatus.AddItem ("正常发票")
Me.cboStatus.ListIndex = 1
End Sub
Private Sub ClearStatus()
Me.cboStatus.Clear
Me.cboStatus.Text = ""
End Sub
Private Sub FillChargeType()
Set Me.cboChargeType.RowSource = adoChargeTypeRS
Me.cboChargeType.ListField = "ChargeTypeName"
Me.cboChargeType.BoundColumn = "ChargeTypeID"
Me.cboChargeType.Text = ""
End Sub
Private Sub ClearChargeType()
Set Me.cboChargeType.RowSource = Nothing
Me.cboChargeType.Text = ""
End Sub
Private Sub txtUID_GotFocus()
Call AutoSelectText(txtUID)
End Sub
Private Sub txtUID_KeyPress(KeyAscii As Integer)
Call IfEnterKeyMoveNext(KeyAscii)
End Sub
Private Sub txtUID_LostFocus()
If Trim(Me.txtUID.Text) = "" Then Exit Sub
Me.txtUID.Text = String(gUIDLen - Len(Trim(Me.txtUID.Text)), "0") & Trim(Me.txtUID.Text)
End Sub
Private Sub txtIID_GotFocus()
Call AutoSelectText(txtIID)
End Sub
Private Sub txtIID_KeyPress(KeyAscii As Integer)
Call IfEnterKeyMoveNext(KeyAscii)
End Sub
Private Sub txtIID_LostFocus()
If Trim(Me.txtIID.Text) = "" Then Exit Sub
Me.txtIID.Text = String(gIIDLen - Len(Trim(Me.txtIID.Text)), "0") & Trim(Me.txtIID.Text)
End Sub
Private Sub txtYear_GotFocus()
Call AutoSelectText(txtYear)
End Sub
Private Sub txtYear_KeyPress(KeyAscii As Integer)
Call IfEnterKeyMoveNext(KeyAscii)
End Sub
Private Sub txtYear_LostFocus()
If Trim(Me.txtYear.Text) = "" Then
Warning "年份格式错误！！！"
Me.txtYear.SetFocus
End If
If Val(Me.txtYear.Text) < 1900 Or Val(Me.txtYear.Text) > 9999 Then
Warning "年份范围错误！！！"
Me.txtYear.SetFocus
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -