📄 frmfixedvoucher.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmFixedVoucher
BorderStyle = 3 'Fixed Dialog
Caption = "固资凭证向导"
ClientHeight = 4875
ClientLeft = 45
ClientTop = 330
ClientWidth = 7620
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4875
ScaleWidth = 7620
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSRDC.MSRDC datVoucher
Height = 330
Left = 480
Top = 4560
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
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.CommandButton cmdVoucher
Height = 350
Index = 8
Left = 6330
Style = 1 'Graphical
TabIndex = 4
Top = 4480
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdVoucher
Height = 350
Index = 7
Left = 5070
Style = 1 'Graphical
TabIndex = 3
Top = 4480
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdVoucher
Enabled = 0 'False
Height = 350
Index = 6
Left = 3810
Style = 1 'Graphical
TabIndex = 2
Top = 4480
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdVoucher
Height = 350
Index = 5
Left = 2550
Style = 1 'Graphical
TabIndex = 1
Top = 4480
UseMaskColor = -1 'True
Width = 1215
End
Begin TabDlg.SSTab stbVoucher
Height = 4215
Left = 60
TabIndex = 0
Top = 120
Width = 7500
_ExtentX = 13229
_ExtentY = 7435
_Version = 393216
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "变动资料(&Z)"
TabPicture(0) = "frmFixedVoucher.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblVoucher"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "imgVoucher(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "msgVoucher"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "cmdVoucher(0)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "cmdVoucher(4)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "cmdVoucher(3)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "cmdVoucher(2)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "cmdVoucher(1)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).ControlCount= 8
TabCaption(1) = "固资凭证(&V)"
TabPicture(1) = "frmFixedVoucher.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "imgVoucher(1)"
Tab(1).Control(1)= "msgVoucherGrid"
Tab(1).ControlCount= 2
Begin VB.CommandButton cmdVoucher
Caption = "条件选择"
Height = 350
Index = 1
Left = 6195
TabIndex = 11
Top = 1110
Width = 1215
End
Begin VB.CommandButton cmdVoucher
Caption = "全部取消"
Height = 350
Index = 2
Left = 6195
TabIndex = 10
Top = 1485
Width = 1215
End
Begin VB.CommandButton cmdVoucher
Caption = "栏目设置"
Height = 350
Index = 3
Left = 6195
TabIndex = 9
Top = 1860
Width = 1215
End
Begin VB.CommandButton cmdVoucher
Height = 350
Index = 4
Left = 6195
Style = 1 'Graphical
TabIndex = 8
Top = 2250
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdVoucher
Caption = "全部选择"
Height = 350
Index = 0
Left = 6195
TabIndex = 7
Top = 750
Width = 1215
End
Begin MSFlexGridLib.MSFlexGrid msgVoucher
Bindings = "frmFixedVoucher.frx":0038
Height = 3375
Left = 1455
TabIndex = 6
Top = 735
Width = 4650
_ExtentX = 8202
_ExtentY = 5953
_Version = 393216
Cols = 12
FixedCols = 10
End
Begin MSFlexGridLib.MSFlexGrid msgVoucherGrid
Height = 3630
Left = -73500
TabIndex = 12
Top = 450
Width = 5895
_ExtentX = 10398
_ExtentY = 6403
_Version = 393216
Rows = 1
Cols = 16
FixedRows = 0
FixedCols = 0
BackColorBkg = 16777215
GridColorFixed = 16777215
FocusRect = 0
HighLight = 0
GridLines = 0
GridLinesFixed = 0
Appearance = 0
End
Begin VB.Image imgVoucher
BorderStyle = 1 'Fixed Single
Height = 3630
Index = 1
Left = -74925
Stretch = -1 'True
Top = 450
Width = 1335
End
Begin VB.Image imgVoucher
BorderStyle = 1 'Fixed Single
Height = 3630
Index = 0
Left = 75
Stretch = -1 'True
Top = 450
Width = 1335
End
Begin VB.Label lblVoucher
Caption = "请选择需生成凭证的变动资料："
Height = 255
Left = 1470
TabIndex = 5
Top = 495
Width = 2535
End
End
Begin VB.Line linVoucher
BorderColor = &H80000005&
X1 = 50
X2 = 7520
Y1 = 4395
Y2 = 4395
End
End
Attribute VB_Name = "frmFixedVoucher"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
'
' 作者：唐吉禹
' 1998-7-10
'msgVoucherGrid的列：摘要，科目名称，金额，科目ID，类型ID，模板ID，金额方向，科目编码（0-7）
' 变动记录ID(变动方式ID)，工程ID，统计ID1，统计ID2，单位ID，部门ID，员工ID,原币金额,币种ID（8-15）
'
'
'msgVoucher的列：变动记录ID，卡片ID，科目ID，凭证类型ID，模板ID，摘要，原值变动，
'变动方式，变动方式ID,上次变动记录ID
'
Option Explicit
Private mclsGrid1 As New Grid
Private Const mlngViewID As Long = 111
Private mblnVoucherOK As Boolean '生成凭证OK
Private mintNowPeriod As Byte
Private mdatStart As Date
Private mdatEnd As Date
Private mintYear As Integer
Private mlngVoucherID As Long '凭证ID
Private mVoucherID() As Long '凭证ID数组
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mlngFirstType As Long
Private Sub cmdVoucher_Click(Index As Integer)
Dim strFixedAlterID As String
Dim lngID As Long
Dim i As Integer
Select Case Index
Case 0 '全部选择
Call Select_All
mblnVoucherOK = False
Case 1 '条件选择
Call Select_Some
mblnVoucherOK = False
Case 2 '取消选择
Call UnSelect_All
Case 3 '栏目设置
strFixedAlterID = ""
'保存选择结果
With msgVoucher
For i = 1 To .Rows - 1 Step 1
If .TextMatrix(i, 10) = "√" Then
strFixedAlterID = strFixedAlterID & "," & .TextMatrix(i, 0)
End If
Next i
End With
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -