📄 报警单.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Object = "{BA5441C3-11E6-11D2-89E1-000021886118}#8.0#0"; "UFRTPrn.ocx"
Object = "{3733D281-9649-11D2-B757-0080C8883C6B}#1.0#0"; "UFGRIDDB.OCX"
Begin VB.Form frmRwarn
Caption = "报警单"
ClientHeight = 2985
ClientLeft = 1905
ClientTop = 2730
ClientWidth = 5130
HelpContextID = 88000066
Icon = "报警单.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 2985
ScaleWidth = 5130
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 540
Left = 0
TabIndex = 0
Top = 0
Width = 5130
_ExtentX = 9049
_ExtentY = 953
ButtonWidth = 826
ButtonHeight = 804
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 9
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "打印"
Key = "Print"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Preview"
Object.Tag = ""
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Dataout"
Object.Tag = ""
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "recx"
Key = "Recx"
Object.Tag = ""
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "UnionFind"
Object.Tag = ""
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Help"
Object.Tag = ""
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Exit"
Object.Tag = ""
EndProperty
EndProperty
End
Begin UFGRIDADOLib.UfGridADO UfGridADO1
Height = 612
Left = 480
TabIndex = 5
Top = 2160
Width = 2412
_Version = 65536
_ExtentX = 4254
_ExtentY = 1080
_StockProps = 253
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
Enabled = 0 'False
ForeColor = &H80000008&
Height = 945
Left = 0
ScaleHeight = 915
ScaleWidth = 8355
TabIndex = 1
Top = 610
Width = 8385
Begin RTPrnLib.RTPrn RTPrn1
Left = 150
Top = 600
_Version = 524288
_ExtentX = 1429
_ExtentY = 529
_StockProps = 4
m_lngrtpFitRows = 30
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 270
Left = 150
TabIndex = 4
Top = 90
Visible = 0 'False
Width = 165
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Index = 1
Left = 7320
TabIndex = 3
Top = 660
Width = 90
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "报 警 单"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 285
Index = 0
Left = 2640
TabIndex = 2
Top = 360
Width = 1575
End
End
Begin ComctlLib.ImageList ImageList1
Left = 4020
Top = 1860
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
MaskColor = 12632256
_Version = 327682
End
End
Attribute VB_Name = "frmRwarn"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'软件著作权: 北京用友软件集团有限公司
'系统名称: 资金管理8.0
'功能说明:报警单
'作者: 赵春立
Option Explicit
'提前报警与延迟计复利天数
Private lngEarly As Long
Private datDate As Date
Private aTemp As clsAllInput
Private iKeyDownCode As Integer 'Cuidong 2000.12.24
'为报警单重新排序设置一自定义数据类型
Private Type GridInformation
a1 As String
a2 As String
a3 As String
a4 As String
a5 As String
a6 As String
a7 As String
a8 As String
b1 As Boolean
End Type
Private mGrid() As GridInformation
Private AlBill As New clsAlarmBill 'cuidong A.A 2001.09.18
Public bAutoWarnLoad As Boolean 'cuidong A.A 2001.09.18
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
iKeyDownCode = KeyCode
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Shift = Shift And 7
Select Case KeyCode
Case vbKeyF4
If Shift = vbCtrlMask And Toolbar1.Buttons("Exit").Enabled Then 'Cuidong 2000.12.24
' If Shift = vbAltMask And Toolbar1.Buttons("Exit").Enabled Then 'Cuidong 2000.12.24
Gen_Key "Exit"
ElseIf iKeyDownCode = KeyCode And Shift = 0 Then
iKeyDownCode = 0
Gen_Key "UnionFind"
End If
Case vbKeyP
If Shift = vbCtrlMask And Toolbar1.Buttons("Print").Enabled Then
Gen_Key "Print"
End If
KeyCode = 0
Case vbKeyS
'cuidong 2001.01.15
'If Shift = vbCtrlMask And Toolbar1.Buttons("Preview").Enabled Then
' Gen_Key "Preview"
'End If
KeyCode = 0
Case vbKeyW
If Shift = vbCtrlMask And Toolbar1.Buttons("Dataout").Enabled Then
Gen_Key "Dataout"
End If
KeyCode = 0
Case vbKeyF
If Shift = vbCtrlMask Then Gen_Key "Recx"
End Select
End Sub
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Me.Icon = LoadResPicture(109, vbResIcon)
ZhyeTlb Toolbar1, ImageList1
Picture1.Width = ZjAccInfo.zjPictWidth
Picture1.Picture = LoadPicture(ZjAccInfo.zjRepPath & "BookBack.BMP")
RefreshMe
Screen.MousePointer = vbDefault
End Sub
Public Sub RefreshMe()
Screen.MousePointer = vbHourglass
datDate = zjLogInfo.curDate
If tAlarm.blnAuto Then datDate = tAlarm.dDate
lngEarly = OptEarlyDays
Label1(1) = FormatDate(datDate)
initGrid
Me.Refresh
FillGrid
Screen.MousePointer = vbDefault
End Sub
'********************************************************************
'*函数说明: 为报警单重新排序填充 mGrid() *
'*参 数: *
'* *
'*返回值 : *
'*********************************************************************
Private Sub FillMar(x1 As String, x2 As String, x3 As String, x4 As String, x5 As String, x6 As String, x7 As String, x8 As String, xLines As Long)
ReDim Preserve mGrid(xLines)
With mGrid(xLines)
.a1 = x1
.a2 = x2
.a3 = x3
.a4 = x4
.a5 = x5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -