📄 frmlxmxtj.frm
字号:
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 frmlxmxtj
BorderStyle = 1 'Fixed Single
ClientHeight = 1770
ClientLeft = 45
ClientTop = 300
ClientWidth = 5835
HelpContextID = 88000069
Icon = "frmlxmxtj.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1770
ScaleWidth = 5835
Begin VB.CommandButton cmdfind
Default = -1 'True
Height = 365
Left = 4620
Style = 1 'Graphical
TabIndex = 4
Top = 255
Width = 1080
End
Begin VB.CommandButton cmdcancel
Cancel = -1 'True
Height = 365
Left = 4620
Style = 1 'Graphical
TabIndex = 5
Top = 750
Width = 1080
End
Begin VB.Frame Frame1
Height = 1410
Left = 90
TabIndex = 6
Top = 150
Width = 4395
Begin UsRefBut.RefCmd Refyhzh
Height = 290
Left = 3048
TabIndex = 13
Top = 984
Width = 336
_ExtentX = 582
_ExtentY = 503
RefMode = 1
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin UsRefBut.RefCmd Refyhmc
Height = 290
Left = 3948
TabIndex = 12
Top = 615
Width = 336
_ExtentX = 582
_ExtentY = 503
RefMode = 0
RefUnitMode = 0
RefAccMode = 0
Enabled = -1 'True
End
Begin VB.CommandButton cmdrq
Height = 270
Index = 0
Left = 2100
Style = 1 'Graphical
TabIndex = 10
TabStop = 0 'False
Top = 240
Width = 270
End
Begin VB.CommandButton cmdrq
Height = 270
Index = 1
Left = 3750
Style = 1 'Graphical
TabIndex = 9
TabStop = 0 'False
Top = 240
Width = 270
End
Begin EDITLib.Edit Editrq
Height = 264
Index = 0
Left = 990
TabIndex = 0
Top = 240
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Editrq
Height = 270
Index = 1
Left = 2640
TabIndex = 1
Top = 240
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Edityhmc
Height = 264
Left = 990
TabIndex = 2
Top = 615
Width = 2900
_Version = 65536
_ExtentX = 5115
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
BadStr = "|'"""
End
Begin EDITLib.Edit Edityhzh
Height = 264
Left = 990
TabIndex = 3
Top = 990
Width = 2000
_Version = 65536
_ExtentX = 3528
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
MaxLength = 60
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 2
Left = 150
TabIndex = 11
Top = 270
Width = 90
End
Begin VB.Line Line1
X1 = 2415
X2 = 2575
Y1 = 360
Y2 = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 150
TabIndex = 8
Top = 1005
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 150
TabIndex = 7
Top = 630
Width = 90
End
End
End
Attribute VB_Name = "frmlxmxtj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明: 账户利息明细表条件
'作者: 魏小黎
Option Explicit
Public isEnt As Boolean, Quitfs As Boolean
Private Sub cmdcancel_Click()
Unload Me
End Sub
Private Sub cmdfind_Click()
If Contquit Then
Dim zhh As String, zhm As String, sDate As String, eDate As String
zhh = Edityhzh.Text
zhm = Edityhmc.Text
sDate = Editrq(0).Text
eDate = Editrq(1).Text
Quitfs = False
Unload Me
Dim frm As frmlxmx, mfm As Form
For Each mfm In Forms
If mfm.Tag = "cxlxmxb" Then
BringWindowToTop mfm.hWnd
mfm.sDate = sDate
mfm.eDate = eDate
mfm.zhbh = zhh
mfm.zhmc = zhm
mfm.cmdExcute_Click
mfm.cmdRefresh_Click
Exit Sub
End If
Next mfm
Set frm = New frmlxmx
frm.sDate = sDate
frm.eDate = eDate
frm.zhbh = zhh
frm.zhmc = zhm
frm.Tag = "cxlxmxb"
frm.Show
End If
End Sub
Private Sub cmdrq_Click(Index As Integer)
View_Calendar Me, Editrq(Index), 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
zjLogInfo.TaskExec "FD0709", 0, zjLogInfo.cIYear
zjLogInfo.ClearError
zjGen_arr.FD0709 = False
End If
End Sub
Private Sub Refyhmc_Initialize()
Refyhmc.InitSys 0, dbsZJ
Refyhmc.InitSys 1, Edityhmc.Text
Refyhmc.RefUnitMode = RefAll
End Sub
Private Sub Refyhmc_RefCancel()
Edityhmc.SetFocus
End Sub
Private Sub Refyhmc_RefOK(Code As String)
Edityhmc.Text = Code
Edityhmc.SetFocus
End Sub
Private Sub Refyhzh_Initialize()
Refyhzh.InitSys 0, dbsZJ
Refyhzh.InitSys 1, Edityhzh.Text
Refyhzh.InitSys 2, Edityhmc.Text
Refyhzh.RefAccMode = RefAllAcc
End Sub
Private Sub Refyhzh_RefCancel()
Edityhzh.SetFocus
End Sub
Private Sub Refyhzh_RefOK(Code As String)
Edityhzh.Text = Code
Edityhzh.SetFocus
End Sub
' 业务日期按键
Private Sub Editrq_Keyup(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And isEnt Then
SendKeys "{Tab}"
End If
If KeyCode = 113 Then 'F2
View_Calendar Me, Editrq(Index), 0
End If
isEnt = True
End Sub
Private Sub Editrq_LostFocus(Index As Integer)
If Editrq(Index).Text <> "" And isEnt Then
Editrq(Index).Text = ForDate(Editrq(Index).Text)
If IsDate(Editrq(Index).Text) Then
Editrq(Index).Text = Format(Editrq(Index).Text, "yyyy-mm-dd")
Else
Beep
MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
SetTxtFocus Editrq(Index)
isEnt = False
End If
End If
End Sub
Private Sub Edityhmc_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
SendKeys "{Tab}"
End If
If KeyCode = 113 Then 'F2
Refyhmc.RunReference
End If
End Sub
Private Sub Edityhmc_LostFocus()
Edityhmc.Text = Trim(Edityhmc.Text)
If Edityhmc.Text <> "" Then
Dim aa As String
aa = Dwbmtodwmc(Edityhmc.Text)
If aa <> "" Then
Edityhmc.Text = aa
End If
End If
End Sub
Private Sub Edityhmc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Edityhmc.ToolTipText = Edityhmc.Text
End Sub
' 银行账号按键
Private Sub Edityhzh_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 113 Then 'F2
Refyhzh.RunReference
End If
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CenterForm Me
Me.Icon = LoadResPicture(109, vbResIcon)
Me.Caption = "账户利息明细表"
cmdrq(0).Picture = LoadResPicture(1108, vbResBitmap)
cmdrq(1).Picture = LoadResPicture(1108, vbResBitmap)
Frame1.Caption = "请输入查询条件"
cmdfind.Picture = LoadResPicture(103, vbResBitmap)
cmdcancel.Picture = LoadResPicture(104, vbResBitmap)
Label1(0).Caption = "单位名称"
Label1(1).Caption = "账户号"
Label1(2).Caption = "起始时间"
isEnt = True
Screen.MousePointer = vbDefault
End Sub
Private Function Contquit() As Boolean
Dim i As Integer, tmprst As New UfRecordset
Contquit = True
If Editrq(0).Text <> "" Then
Editrq(0).Text = ForDate(Editrq(0).Text)
If Not IsDate(Editrq(0).Text) Then
Beep
MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
Contquit = False
SetTxtFocus Editrq(0)
Exit Function
End If
If Not Pd_CurNddate(Editrq(0).Text) Then
Contquit = False
SetTxtFocus Editrq(0)
Exit Function
End If
End If
If Editrq(1).Text <> "" Then
Editrq(1).Text = ForDate(Editrq(1).Text)
If IsDate(Editrq(1).Text) Then
If Editrq(0).Text <> "" Then
If CDate(Editrq(1).Text) < CDate(Editrq(0).Text) Then
Beep
MsgBox "日期范围错误，请检查！", vbCritical, zjGl_Name
Contquit = False
SetTxtFocus Editrq(1)
Exit Function
End If
End If
Else
Beep
MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
Contquit = False
SetTxtFocus Editrq(1)
Exit Function
End If
If Not Pd_CurNddate(Editrq(1).Text) Then
Contquit = False
SetTxtFocus Editrq(1)
Exit Function
End If
End If
If Hqzh_err(Edityhmc, Edityhzh) Then
Contquit = False
SetTxtFocus Edityhzh
Contquit = False
Exit Function
End If
Set tmprst = dbsZJ.OpenRecordset("Select * from FD_AccSum where cAccID = '" & Edityhzh.Text & "'", dbOpenSnapshot)
If tmprst.EOF Then
tmprst.oClose
Beep
MsgBox "账户还未记账，请检查！", vbCritical, zjGl_Name
SetTxtFocus Edityhzh
Contquit = False
Exit Function
End If
tmprst.oClose
For i = 0 To 1
If Editrq(i).Text <> "" Then
If CDate(Editrq(i).Text) >= ZjAccInfo.zjStartdate Then
Set tmprst = dbsZJ.OpenRecordset("Select * from FD_AccSum where cAccID = '" & Edityhzh.Text & "' And [dbill_date] = '" & Editrq(i).Text & "'", dbOpenSnapshot)
If tmprst.EOF Then
tmprst.oClose
Beep
MsgBox "本日未记账，请检查！", vbCritical, zjGl_Name
SetTxtFocus Editrq(i)
Contquit = False
Exit Function
End If
tmprst.oClose
Else
Beep
MsgBox "查询时间不能小于帐户的启用日期" & Format(ZjAccInfo.zjStartdate, "Long Date") & " ", vbCritical, zjGl_Name
SetTxtFocus Editrq(i)
Contquit = False
Exit Function
End If
End If
Next i
If Editrq(0).Text = "" Or Editrq(1).Text = "" Then
Set tmprst = dbsZJ.OpenRecordset("Select * from FD_AccSum where cAccID = '" & Edityhzh.Text & "' order by [dbill_date]", dbOpenSnapshot)
With tmprst
If Editrq(0).Text = "" Then
.MoveFirst
Editrq(0).Text = ![dbill_date]
End If
If Editrq(1).Text = "" Then
.MoveLast
Editrq(1).Text = ![dbill_date]
End If
.oClose
End With
End If
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -