📄 frmvouchercashflow.frm
字号:
VERSION 5.00
Object = "{9C4B12C2-D5CE-11D1-9ABC-444553540000}#1.0#0"; "GACEDIT.DLL"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmVoucherCashFlow
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "现金流量明细"
ClientHeight = 4980
ClientLeft = 45
ClientTop = 330
ClientWidth = 8415
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4980
ScaleWidth = 8415
StartUpPosition = 2 '屏幕中心
Begin ListRefer.ListText lstInput
Height = 300
Left = 2352
TabIndex = 0
Top = 1356
Visible = 0 'False
Width = 1368
_ExtentX = 2408
_ExtentY = 529
BackColor = -2147483639
Appearance = 0
BorderStyle = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton cmdOK
Caption = "新 增"
Height = 350
Index = 2
Left = 7080
TabIndex = 4
TabStop = 0 'False
Tag = "1009"
ToolTipText = "Ctrl+A"
Top = 1224
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 0
Left = 7080
Style = 1 'Graphical
TabIndex = 2
TabStop = 0 'False
Tag = "1001"
Top = 450
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Height = 350
Index = 1
Left = 7080
Style = 1 'Graphical
TabIndex = 3
TabStop = 0 'False
Tag = "1002"
Top = 810
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "删 除"
Height = 350
Index = 3
Left = 7080
TabIndex = 5
TabStop = 0 'False
Tag = "1013"
ToolTipText = "Ctrl+D"
Top = 1590
UseMaskColor = -1 'True
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid grdCol
Bindings = "frmVoucherCashFlow.frx":0000
Height = 4215
Left = 150
TabIndex = 6
TabStop = 0 'False
Top = 360
Width = 6825
_ExtentX = 12039
_ExtentY = 7435
_Version = 393216
Cols = 7
FixedCols = 0
BackColorSel = -2147483643
ForeColorSel = -2147483640
BackColorBkg = -2147483643
GridColor = -2147483643
GridColorFixed = -2147483643
AllowBigSelection= 0 'False
FocusRect = 0
GridLines = 0
ScrollBars = 2
FormatString = "||<现金流量表项目 |> 分配金额 |||"
End
Begin GATLCTRLLibCtl.CalEdit txtInput
Height = 255
Left = 1980
OleObjectBlob = "frmVoucherCashFlow.frx":0014
TabIndex = 1
Top = 30
Visible = 0 'False
Width = 855
End
Begin MSRDC.MSRDC Data1
Height = 375
Left = 7110
Top = 3450
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 661
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 3
LockType = 3
QueryType = 0
Prompt = 1
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblNote
BorderStyle = 1 'Fixed Single
Height = 240
Index = 9
Left = 4920
TabIndex = 16
Top = 4650
Width = 2040
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "已分配金额："
Height = 180
Index = 8
Left = 3840
TabIndex = 15
Top = 4680
Width = 1080
End
Begin VB.Label lblNote
BorderStyle = 1 'Fixed Single
Caption = "待分配金额："
Height = 240
Index = 7
Left = 1230
TabIndex = 14
Top = 4650
Width = 1950
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "待分配金额："
Height = 180
Index = 6
Left = 150
TabIndex = 13
Top = 4680
Width = 1080
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "123123123123434"
Height = 180
Index = 5
Left = 5640
TabIndex = 12
Top = 60
Width = 1350
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "金额："
Height = 180
Index = 4
Left = 5220
TabIndex = 11
Top = 60
Width = 540
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "借"
Height = 180
Index = 3
Left = 4770
TabIndex = 10
Top = 60
Width = 180
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "方向："
Height = 180
Index = 2
Left = 4230
TabIndex = 9
Top = 60
Width = 540
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "101"
Height = 180
Index = 1
Left = 690
TabIndex = 8
Top = 60
Width = 270
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "科目："
Height = 180
Index = 0
Left = 90
TabIndex = 7
Top = 60
Width = 540
End
Begin VB.Menu mnuEdit
Caption = "Edit"
Visible = 0 'False
Begin VB.Menu mnuNew
Caption = "增加部件商品"
End
Begin VB.Menu mnuDel
Caption = "删除部件商品"
End
End
End
Attribute VB_Name = "frmVoucherCashFlow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''
'
'新增、编辑商品劳务卡片
'
'作者：蔡奇科
'
'日期:1998-07-14
'
'接口:EditCard(lngID,ShowModual),DelCard(lngID) As Boolean
'
''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text
'Private Const WM_KEYDOWN = &H100
Private mblnIsChanged As Boolean
Private mblnExit As Boolean
Private mlngCol As Long
Private mlngRow As Long
Private lngVoucherDetailID As Long
Private mlngOldLst As Long
Dim blnNotEntercell As Boolean
Dim blnBusy As Boolean
Dim blnKeyDown As Boolean
Dim WithEvents mclsSubClass As SubClass32.SubClass 'Grid回调函数对象
Attribute mclsSubClass.VB_VarHelpID = -1
Dim WithEvents KeyPressHook As Hook
Attribute KeyPressHook.VB_VarHelpID = -1
Dim hDC1 As Long
Dim mstrCodeAndName As String
Public Function ShowCashFlow(ByVal lngAccountID As Long, ByVal strAccountCodeAndName As String, ByVal lngDetailID As Long, ByVal dblAmount As Double, ByVal intDirect As Integer, ByRef strCodeAndName As String) As Boolean
mstrCodeAndName = strCodeAndName
lngVoucherDetailID = lngDetailID
' mblnIsChanged = True
Caption = "现金流量明细"
lblNote(1).Caption = strAccountCodeAndName
lblNote(3).Caption = IIf(intDirect = 1, "流入", "流出")
lblNote(5).Caption = Format(dblAmount, FormatString(gclsBase.NaturalCurDec))
cmdOk(0).Default = False
cmdOk(1).Default = False
cmdOk(2).Default = False
cmdOk(3).Default = False
InitCard 0, ""
Show vbModal
strCodeAndName = mstrCodeAndName
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -