📄 frmvouchervolume.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.4#0"; "ATLEDIT1.OCX"
Begin VB.Form frmVoucherVolume
AutoRedraw = -1 'True
BackColor = &H8000000B&
BorderStyle = 1 'Fixed Single
Caption = "凭证分册"
ClientHeight = 4980
ClientLeft = 45
ClientTop = 330
ClientWidth = 7035
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4980
ScaleWidth = 7035
StartUpPosition = 2 '屏幕中心
Begin AtlEdit.TEdit txtInput
Height = 345
Left = 930
TabIndex = 2
TabStop = 0 'False
Top = 1530
Width = 1335
_ExtentX = 2355
_ExtentY = 609
BackColor = -2147483639
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
Appearance = 0
BorderStyle = 0
Alignment = 1
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 4
Left = 5730
Style = 1 'Graphical
TabIndex = 10
TabStop = 0 'False
Tag = "1001"
Top = 2010
UseMaskColor = -1 'True
Width = 1215
End
Begin ListRefer.ListText lstInput
Height = 300
Index = 1
Left = 3990
TabIndex = 5
TabStop = 0 'False
Top = 60
Visible = 0 'False
Width = 1635
_ExtentX = 2884
_ExtentY = 529
BackColor = -2147483639
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 = "新 增(&N)"
Height = 350
Index = 2
Left = 5730
TabIndex = 8
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 = 5730
Style = 1 'Graphical
TabIndex = 6
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 = 5730
Style = 1 'Graphical
TabIndex = 7
TabStop = 0 'False
Tag = "1002"
Top = 810
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Caption = "删 除(&D)"
Height = 350
Index = 3
Left = 5730
TabIndex = 9
TabStop = 0 'False
Tag = "1013"
ToolTipText = "Ctrl+D"
Top = 1590
UseMaskColor = -1 'True
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid grdCol
Bindings = "frmVoucherVolume.frx":0000
Height = 4185
Left = 150
TabIndex = 1
TabStop = 0 'False
Top = 420
Width = 5475
_ExtentX = 9657
_ExtentY = 7382
_Version = 393216
Cols = 4
FixedCols = 0
BackColorSel = -2147483643
ForeColorSel = -2147483640
BackColorBkg = -2147483643
GridColor = -2147483643
GridColorFixed = -2147483643
AllowBigSelection= 0 'False
FocusRect = 0
GridLines = 0
ScrollBars = 2
FormatString = $"frmVoucherVolume.frx":0014
End
Begin ListRefer.ListText lstInput
Height = 300
Index = 0
Left = 1140
TabIndex = 3
TabStop = 0 'False
Top = 60
Visible = 0 'False
Width = 1425
_ExtentX = 2514
_ExtentY = 529
BackColor = -2147483639
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
Appearance = 0 'Flat
AutoSize = -1 'True
Caption = "0001--0100 共100张"
ForeColor = &H80000008&
Height = 180
Index = 3
Left = 1290
TabIndex = 12
Top = 4680
Width = 1620
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "未分册凭证："
Height = 180
Index = 2
Left = 180
TabIndex = 11
Top = 4680
Width = 1080
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "凭证类型(&T)"
Height = 180
Index = 1
Left = 2970
TabIndex = 4
Top = 120
Width = 990
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "会计期间(&P)"
Height = 180
Index = 0
Left = 150
TabIndex = 0
Top = 120
Width = 990
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 = "frmVoucherVolume"
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
Private mintYear As Long
Private mbytPeriod As Long
Private mlngVoucherTypeID As Long
Public Function ShowVoucherVolume(ByVal intYear As Long, ByVal bytPeriod As Long, ByVal lngVoucherTypeID As Long) As Boolean
Me.Caption = "凭证分册"
cmdOk(0).Default = False
cmdOk(1).Default = False
cmdOk(2).Default = False
cmdOk(3).Default = False
cmdOk(4).Default = False
mintYear = intYear
mbytPeriod = bytPeriod
If lngVoucherTypeID <= 0 Then
lngVoucherTypeID = FirstId(xVoucherType)
End If
mlngVoucherTypeID = lngVoucherTypeID
InitCard intYear, bytPeriod, lngVoucherTypeID
lstInput(0).Text = intYear & "." & Format(bytPeriod, "00")
lstInput(1).SeekId lngVoucherTypeID
lstInput(0).Visible = True
lstInput(1).Visible = True
Show vbModal
ShowVoucherVolume = True
End Function
Private Sub InitLst1(Optional lngID As Long = 0)
Dim strSql As String, lngItemID As Long
lstInput(1).ClearRefer
lstInput(1).SeekCol = "1,2,3"
strSql = "SELECT lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName FROM VoucherType WHERE blnIsInActive=0 " _
& " ORDER BY strVoucherTypeCode "
lstInput(1).SQL = strSql
Set lstInput(1).Recordset = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
lstInput(1).AddRefer "<新增>" '设置固定选项
lstInput(1).AddRefer "<删除>"
lstInput(1).AddRefer "<修改>"
If lngID <> 0 Then
lstInput(1).SeekId lngID
End If
End Sub
Private Sub InitLst0(Optional strID As String = "")
Dim strSql As String, lngItemID As Long
Dim recTmp As rdoResultset
lstInput(0).ClearRefer
If lstInput(0).ReferCols < 2 Then
lstInput(0).ReferCols = 2
End If
' lstInput(0).SeekCol = "1"
strSql = "SELECT intYear || '.' || LPAD(bytperiod,2,'0') FROM AccountPeriod " _
& " ORDER BY intYear || '.' || LPAD(bytperiod,2,'0') "
'Set lstInput(0).Recordset = gclsBase.BaseDB.OpenRecordset(strSQL, dbOpenSnapshot)
Set recTmp = gclsBase.BaseDB.OpenResultset(strSql, rdOpenForwardOnly)
Do While recTmp.EOF = False
lstInput(0).AddRefer recTmp(0)
recTmp.MoveNext
Loop
recTmp.Close
Set recTmp = Nothing
lstInput(0).ColWidth(0) = 200
lstInput(0).ColWidth(1) = 100
If strID <> "" Then
lstInput(0).Text = strID
End If
End Sub
Private Sub cmdOK_Click(Index As Integer)
Dim strNextCode As String
mblnExit = True
cmdOk(Index).SetFocus
Select Case Index
Case 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -