📄 +
字号:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Object = "{7E0DF0CE-703B-11D3-8E57-0000210152D8}#1.0#0"; "UsRefBut.ocx"
Begin VB.Form frmlxadvice
BorderStyle = 1 'Fixed Single
Caption = "利息通知单查询"
ClientHeight = 1905
ClientLeft = 45
ClientTop = 330
ClientWidth = 7035
HelpContextID = 88000074
Icon = "利息通知单.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1905
ScaleWidth = 7035
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton Command2
Height = 365
Index = 1
Left = 5835
Style = 1 'Graphical
TabIndex = 11
Top = 630
Width = 1080
End
Begin VB.CommandButton Command2
Default = -1 'True
Height = 365
Index = 0
Left = 5835
Style = 1 'Graphical
TabIndex = 10
Top = 135
Width = 1080
End
Begin VB.Frame Frame1
Caption = "请输入查询条件"
Height = 1740
Left = 90
TabIndex = 0
Top = 45
Width = 5550
Begin UsRefBut.RefCmd RefCmd1
Height = 324
Index = 0
Left = 4128
TabIndex = 14
Top = 780
Width = 324
_ExtentX = 582
_ExtentY = 582
RefMode = 0
RefUnitMode = 1
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd RefCmd1
Height = 324
Index = 1
Left = 3408
TabIndex = 13
Top = 1224
Width = 324
_ExtentX = 582
_ExtentY = 582
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin VB.CommandButton Command1
Height = 285
Index = 1
Left = 4740
Style = 1 'Graphical
TabIndex = 9
TabStop = 0 'False
Top = 360
Width = 270
End
Begin VB.CommandButton Command1
Height = 285
Index = 0
Left = 2385
Style = 1 'Graphical
TabIndex = 8
TabStop = 0 'False
Top = 369
Width = 264
End
Begin EDITLib.Edit edtDateStart
Height = 270
Left = 1290
TabIndex = 1
Top = 375
Width = 1065
_Version = 65536
_ExtentX = 1879
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin EDITLib.Edit edtDateEnd
Height = 270
Left = 3645
TabIndex = 2
Top = 360
Width = 1065
_Version = 65536
_ExtentX = 1879
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin EDITLib.Edit edtDW
Height = 270
Left = 1290
TabIndex = 3
Top = 810
Width = 2805
_Version = 65536
_ExtentX = 4948
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
End
Begin EDITLib.Edit edtZH
Height = 270
Left = 1290
TabIndex = 4
Top = 1245
Width = 2085
_Version = 65536
_ExtentX = 3678
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "账户号"
Height = 180
Index = 3
Left = 660
TabIndex = 12
Top = 1320
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "单位名称"
Height = 180
Index = 2
Left = 480
TabIndex = 7
Top = 840
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "结息日期"
Height = 180
Index = 1
Left = 2835
TabIndex = 6
Top = 405
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "起息日期"
Height = 180
Index = 0
Left = 480
TabIndex = 5
Top = 405
Width = 720
End
End
End
Attribute VB_Name = "frmlxadvice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'***************************************************
'* 软件著作权: 北京用友软件（集团）有限公司
'* 系统名称: 资金计息8.0
'* 功能说明: 利息通知单查询
'* 作者: 江 宁
'***************************************************
Public sStaDate As String
Public sEndDate As String
Public sDWmc As String
Public sDWzh As String
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0: DisplayCalendar edtDateStart, Me.hWnd, Frame1.Left, Frame1.Top
Case 1: DisplayCalendar edtDateEnd, Me.hWnd, Frame1.Left, Frame1.Top
End Select
End Sub
Private Sub Command2_Click(Index As Integer)
Dim frm As Form
sStaDate = edtDateStart
sEndDate = edtDateEnd
sDWmc = edtDW
sDWzh = edtZH
Select Case Index
Case 0:
If edtDateStart <> "" Then
edtDateStart = ForDate(edtDateStart)
If IsDate(edtDateStart) Then
edtDateStart = FormatDate(CDate(edtDateStart))
Else
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus edtDateStart
Exit Sub
End If
End If
If edtDateEnd <> "" Then
edtDateEnd = ForDate(edtDateEnd)
If IsDate(edtDateEnd) Then
edtDateEnd = FormatDate(CDate(edtDateEnd))
Else
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus edtDateEnd
Exit Sub
End If
End If
If edtDateStart <> "" And edtDateEnd <> "" Then
If CDate(ForDate(edtDateStart)) > CDate(ForDate(edtDateEnd)) Then
MsgBox "起息日期不能大于结息日期!", vbInformation, zjGl_Name
SetTxtFocus edtDateStart
Exit Sub
End If
End If
frmtzdPrn.sDateStart = Me.edtDateStart
frmtzdPrn.sDateEnd = Me.edtDateEnd
frmtzdPrn.sDW = Me.edtDW
frmtzdPrn.sZH = Me.edtZH
Unload Me
For Each frm In Forms
If frm.Caption = "利息通知单" Then
frmtzdPrn.IniSQL
BringWindowToTop frmtzdPrn.hWnd
On Error Resume Next
frmtzdPrn.Show vbModal
On Error GoTo 0
Exit Sub
End If
Next
frmtzdPrn.Show vbModal
Exit Sub
Case 1:
Unload Me
End Select
End Sub
'检查日期合法性
Private Sub edtDateStart_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
Command1(0).Value = True
edtDateStart.SetFocus
End If
End Sub
Private Sub edtDateStart_LostFocus()
If edtDateStart <> "" Then
edtDateStart = ForDate(edtDateStart)
If IsDate(edtDateStart) Then
edtDateStart = FormatDate(CDate(edtDateStart))
Else
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus edtDateStart
End If
End If
End Sub
Private Sub edtDateEnd_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
Command1(1).Value = True
edtDateEnd.SetFocus
End If
End Sub
Private Sub edtDateEnd_LostFocus()
If edtDateEnd <> "" Then
edtDateEnd = ForDate(edtDateEnd)
If IsDate(edtDateEnd) Then
edtDateEnd = FormatDate(CDate(edtDateEnd))
Else
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus edtDateEnd
End If
End If
End Sub
Private Sub edtDw_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
RefCmd1(0).RunReference: edtDW.SetFocus
End If
End Sub
Private Sub edtZH_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
RefCmd1(1).RunReference: edtZH.SetFocus
End If
End Sub
Private Sub Form_Load()
Command1(0).Picture = LoadResPicture(1108, vbResBitmap)
Command1(1).Picture = LoadResPicture(1108, vbResBitmap)
Command2(0).Picture = LoadResPicture(103, vbResBitmap)
Command2(1).Picture = LoadResPicture(104, vbResBitmap)
Me.Icon = LoadResPicture(109, vbResIcon)
edtDateStart.Property = EditDate
edtDateEnd.Property = EditDate
edtDW.Property = EditStr
edtDW.MaxLength = 60
edtZH.Property = EditId
edtZH.MaxLength = 20
End Sub
Private Sub RefCmd1_Initialize(Index As Integer)
Select Case Index
Case 0:
RefCmd1(Index).InitSys 0, dbsZJ
RefCmd1(Index).InitSys 1, edtDW
Case 1:
RefCmd1(Index).InitSys 0, dbsZJ
RefCmd1(Index).InitSys 1, edtZH
RefCmd1(Index).InitSys 2, edtDW
End Select
End Sub
Private Sub RefCmd1_RefCancel(Index As Integer)
Select Case Index
Case 0: edtDW.SetFocus
Case 1: edtZH.SetFocus
End Select
End Sub
Private Sub RefCmd1_RefOK(Index As Integer, Code As String)
Select Case Index
Case 0: edtDW = Code: edtDW.SetFocus
Case 1: edtZH = Code: edtZH.SetFocus
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -