📄 frmccutj.frm
字号:
VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmccutj
BorderStyle = 1 'Fixed Single
Caption = "催款单查询"
ClientHeight = 1575
ClientLeft = 45
ClientTop = 300
ClientWidth = 5595
HelpContextID = 88000051
Icon = "frmccutj.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1575
ScaleWidth = 5595
Begin VB.Frame Frame1
Height = 1260
Left = 135
TabIndex = 5
Top = 150
Width = 4045
Begin VB.CommandButton cmdrq
Height = 270
Index = 1
Left = 3675
Style = 1 'Graphical
TabIndex = 7
TabStop = 0 'False
Top = 285
Width = 270
End
Begin VB.CommandButton cmdrq
Height = 270
Index = 0
Left = 2060
Style = 1 'Graphical
TabIndex = 6
TabStop = 0 'False
Top = 285
Width = 270
End
Begin EDITLib.Edit Editrq
Height = 264
Index = 0
Left = 960
TabIndex = 0
Top = 285
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 = 264
Index = 1
Left = 2570
TabIndex = 1
Top = 285
Width = 1035
_Version = 65536
_ExtentX = 1826
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit Editbh
Height = 264
Left = 960
TabIndex = 2
Top = 780
Width = 850
_Version = 65536
_ExtentX = 1499
_ExtentY = 466
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 3
MaxLength = 8
End
Begin VB.Line Line1
X1 = 2370
X2 = 2530
Y1 = 405
Y2 = 405
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 1
Left = 120
TabIndex = 9
Top = 816
Width = 96
End
Begin VB.Label Label1
AutoSize = -1 'True
Height = 180
Index = 0
Left = 120
TabIndex = 8
Top = 315
Width = 90
End
End
Begin VB.CommandButton cmdfind
Default = -1 'True
Height = 365
Left = 4365
Style = 1 'Graphical
TabIndex = 3
Top = 240
Width = 1080
End
Begin VB.CommandButton cmdcancel
Cancel = -1 'True
Height = 365
Left = 4365
Style = 1 'Graphical
TabIndex = 4
Top = 690
Width = 1080
End
End
Attribute VB_Name = "frmccutj"
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 tmprst As New UfRecordset, ncs As Boolean, tj1 As String, tj2 As String, tj3 As String, tj4 As String
tj4 = "select [cHid],[dBeday],[cUnitnmae],[cText],[cExch_Name],[mmoney],[cIntrest],[mmoney]+[cIntrest] as bxhj,[cMark] from FD_hasten Where Left([cHid],3)='000'"
If Editbh.Text <> "" Then
tj4 = tj4 & " and [cHid]='" & Editbh.Text & "'"
End If
If Editrq(0).Text <> "" Then
tj4 = tj4 & " and [dBeday]>='" & Editrq(0).Text & "'"
End If
If Editrq(1).Text <> "" Then
tj4 = tj4 & " and [dBeday]<='" & Editrq(1).Text & "'"
End If
tj4 = tj4 & " order by [cHid]"
Set tmprst = dbsZJ.OpenRecordset(tj4, dbOpenSnapshot)
ncs = False
If tmprst.EOF Then
ncs = True
End If
tmprst.oClose
Set tmprst = Nothing
tj1 = Editrq(0).Text
tj2 = Editrq(1).Text
tj3 = Editbh.Text
Quitfs = False
Unload Me
Dim frm As frmccukd, mfm As Form
For Each mfm In Forms
If mfm.Tag = "cxcuikdb" Then
BringWindowToTop mfm.hwnd
mfm.sDate = tj1
mfm.eDate = tj2
mfm.ywbh = tj3
mfm.cxtj = tj4
mfm.cmdExcute_Click
mfm.cmdRefresh_Click
Exit Sub
End If
Next mfm
Set frm = New frmccukd
frm.sDate = tj1
frm.eDate = tj2
frm.ywbh = tj3
frm.cxtj = tj4
frm.Tag = "cxcuikdb"
frm.Show
End If
End Sub
Private Sub cmdrq_Click(Index As Integer)
View_Calendar Me, Editrq(Index), 0
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CenterForm Me
Me.Icon = LoadResPicture(109, vbResIcon)
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 = "业务编号"
isEnt = True
Screen.MousePointer = vbDefault
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 Function Contquit() As Boolean
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
End If
If Editrq(1) <> "" 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
End If
If Editbh.Text <> "" Then
Editbh.Text = right("0000000000" & Editbh.Text, 10)
End If
End Function
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
zjLogInfo.TaskExec "FD050427", 0, zjLogInfo.cIYear
zjLogInfo.ClearError
zjGen_arr.FD050427 = False
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -