📄 frmrwarncx.frm
字号:
VERSION 5.00
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "comct232.ocx"
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmRwarnCx
BorderStyle = 1 'Fixed Single
Caption = "报警单查询"
ClientHeight = 2430
ClientLeft = 1650
ClientTop = 1950
ClientWidth = 4875
HelpContextID = 88000066
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2430
ScaleWidth = 4875
Begin VB.CommandButton Command2
Cancel = -1 'True
Height = 365
Index = 1
Left = 3120
Style = 1 'Graphical
TabIndex = 7
Top = 1890
Width = 1080
End
Begin VB.CommandButton Command2
Default = -1 'True
Height = 365
Index = 0
Left = 1710
Style = 1 'Graphical
TabIndex = 6
Top = 1890
Width = 1080
End
Begin VB.Frame Frame1
Caption = "请输入查询条件"
Height = 1515
Left = 240
TabIndex = 0
Top = 210
Width = 4365
Begin VB.ComboBox cobDjlx
Height = 300
Left = 1320
Style = 2 'Dropdown List
TabIndex = 8
Top = 615
Width = 1365
End
Begin VB.CommandButton Command1
Height = 252
Index = 0
Left = 2400
Style = 1 'Graphical
TabIndex = 2
Top = 270
Width = 264
End
Begin EDITLib.Edit edtRq
Height = 270
Left = 1320
TabIndex = 1
Top = 270
Width = 1065
_Version = 65536
_ExtentX = 1879
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 5
MaxLength = 10
End
Begin EDITLib.Edit edtCq
Height = 270
Left = 1320
TabIndex = 9
Top = 990
Width = 540
_Version = 65536
_ExtentX = 952
_ExtentY = 476
_StockProps = 253
ForeColor = 0
BackColor = 16777215
Appearance = 1
Property = 2
MaxLength = 5
End
Begin ComCtl2.UpDown UpDown1
Height = 270
Left = 1890
TabIndex = 10
Top = 990
Width = 270
_ExtentX = 423
_ExtentY = 476
_Version = 327681
Value = 1
BuddyControl = "edtCq"
BuddyDispid = 196614
OrigLeft = 1620
OrigTop = 750
OrigRight = 1890
OrigBottom = 1035
Max = 12000
Min = 1
SyncBuddy = -1 'True
Wrap = -1 'True
BuddyProperty = -517
Enabled = -1 'True
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "月"
Height = 180
Index = 1
Left = 2250
TabIndex = 11
Top = 1050
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "存期"
Height = 180
Index = 3
Left = 780
TabIndex = 5
Top = 1050
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "单据类型"
Height = 180
Index = 2
Left = 420
TabIndex = 4
Top = 675
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "日期"
Height = 180
Index = 0
Left = 780
TabIndex = 3
Top = 300
Width = 360
End
End
End
Attribute VB_Name = "frmRwarnCx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:报警单查询界面
'作者: 赵春立
Option Explicit
Public Quitfs As Boolean
'********************************************************************
'*函数说明: 检查数据的合法性 *
'*参 数: *
'* *
'*返回值 : True - 数据合法 *
'*********************************************************************
Private Function IsValid() As Boolean
If edtRq = "" Then
Beep
MsgBox "日期不能为空！", vbInformation, zjGl_Name
edtRq.SetFocus
Exit Function
End If
edtRq = ForDate(edtRq)
If Not IsDate(edtRq) Then
Beep
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus edtRq
Exit Function
End If
If Not Pd_CurNddate(edtRq) Then
SetTxtFocus edtRq
Exit Function
End If
If cobDjlx.ListIndex = 1 Or cobDjlx.ListIndex = 2 Then
If edtCq = "" Then
Beep
MsgBox "存期不能为空！", vbInformation, zjGl_Name
edtCq.SetFocus
Exit Function
End If
End If
IsValid = True
End Function
Private Sub cobDjlx_Click()
If cobDjlx.ListIndex = 1 Or cobDjlx.ListIndex = 2 Then
edtCq.Enabled = True
UpDown1.Enabled = True
Else
edtCq.Enabled = False
UpDown1.Enabled = False
End If
End Sub
Private Sub Command1_Click(Index As Integer)
DisplayCalendar edtRq, Me.hWnd, Frame1.Left, Frame1.Top
End Sub
Private Sub Command2_Click(Index As Integer)
Dim i As Integer
Select Case Index
Case 0
If IsValid Then
Quitfs = False
For i = 0 To Forms.Count - 1
If Forms(i).Tag = "Warn" Then
BringWindowToTop Forms(i).hWnd
Forms(i).WindowState = 2
With tAlarm
.blnAuto = True
.dDate = edtRq
.iCq = edtCq
.iDjlx = cobDjlx.ListIndex
End With
Forms(i).RefreshMe
Unload Me
Exit Sub
End If
Next i
With tAlarm
.blnAuto = True
.dDate = edtRq
.iCq = edtCq
.iDjlx = cobDjlx.ListIndex
Unload Me
frmRwarn.Show
frmRwarn.Tag = "Warn"
End With
End If
Case 1
Unload Me
End Select
End Sub
Private Sub edtCq_LostFocus() 'cuidong 2001.02.28
If Not IsNumeric(edtCq) Then
edtCq = 1
End If
End Sub
Private Sub edtRq_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
Command1(0).Value = True
edtRq.SetFocus
End If
End Sub
Private Sub edtRq_LostFocus()
If edtRq <> "" Then
edtRq = ForDate(edtRq)
If Not IsDate(edtRq) Then
Beep
MsgBox "日期非法，请检查！", vbInformation, zjGl_Name
SetTxtFocus edtRq
End If
End If
End Sub
Private Sub Form_Load()
LoadStatic
InitMe
CenterForm Me
End Sub
'********************************************************************
'*函数说明: 初始化For *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub InitMe()
With cobDjlx
.clear
.AddItem ""
.AddItem GetClassName("01")
.AddItem GetClassName("03")
.AddItem GetClassName("05")
.AddItem GetClassName("06")
.AddItem GetClassName("07")
.AddItem GetClassName("16")
.ListIndex = 0
End With
edtRq = FormatDate(zjLogInfo.curDate)
edtCq = 6
edtCq.Enabled = False
UpDown1.Enabled = False
End Sub
'********************************************************************
'*函数说明: 加载资源 *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub LoadStatic()
Me.Icon = LoadResPicture(109, vbResIcon)
Command2(0).Picture = LoadResPicture(103, vbResBitmap)
Command2(1).Picture = LoadResPicture(104, vbResBitmap)
Command1(0).Picture = LoadResPicture(1108, vbResBitmap)
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Quitfs Then
zjLogInfo.TaskExec "FD0721", 0, zjLogInfo.cIYear
zjGen_arr.FD0721 = False
zjLogInfo.ClearError
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -