costtoshare.frm
来自「金算盘软件代码」· FRM 代码 · 共 1,518 行 · 第 1/5 页
FRM
1,518 行
Tab(1).Control(4)= "msgAddChange"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "txtAddCost"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "txtAddChange"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).ControlCount= 7
Begin VB.TextBox txtProcurementChange
Height = 270
Left = -72150
TabIndex = 32
Text = "0"
Top = 3510
Visible = 0 'False
Width = 915
End
Begin VB.TextBox txtProcurementCost
Height = 270
Left = -72150
TabIndex = 31
Text = "0"
Top = 1050
Visible = 0 'False
Width = 855
End
Begin VB.TextBox txtAddChange
Height = 270
IMEMode = 1 'ON
Left = 1560
TabIndex = 30
Text = "0"
Top = 3810
Visible = 0 'False
Width = 945
End
Begin VB.TextBox txtAddCost
Height = 270
Left = 2550
TabIndex = 29
Top = 1275
Visible = 0 'False
Width = 765
End
Begin MSFlexGridLib.MSFlexGrid msgProcurementChange
Bindings = "CostToShare.frx":0038
Height = 1965
Left = -74910
TabIndex = 2
Top = 2820
Width = 7560
_ExtentX = 13335
_ExtentY = 3466
_Version = 65541
Rows = 50
Cols = 20
FixedCols = 0
BackColorSel = -2147483643
ForeColorSel = -2147483640
End
Begin MSFlexGridLib.MSFlexGrid msgProcurementCost
Bindings = "CostToShare.frx":0057
Height = 1935
Left = -74940
TabIndex = 1
Top = 570
Width = 7605
_ExtentX = 13414
_ExtentY = 3413
_Version = 65541
Rows = 50
Cols = 20
FixedCols = 0
BackColorSel = -2147483643
ForeColorSel = -2147483640
End
Begin MSFlexGridLib.MSFlexGrid msgAddChange
Bindings = "CostToShare.frx":0074
Height = 1965
Left = 60
TabIndex = 4
Top = 2820
Width = 7590
_ExtentX = 13388
_ExtentY = 3466
_Version = 65541
Rows = 50
Cols = 20
FixedCols = 0
BackColorSel = -2147483643
ForeColorSel = -2147483640
End
Begin MSFlexGridLib.MSFlexGrid msgAddCost
Bindings = "CostToShare.frx":008B
Height = 1875
Left = 60
TabIndex = 3
Top = 600
Width = 7605
_ExtentX = 13414
_ExtentY = 3307
_Version = 65541
Rows = 50
Cols = 20
FixedCols = 0
BackColorSel = -2147483643
ForeColorSel = -2147483640
End
Begin VB.Label lblShare
Caption = "待分摊费用：0 - 已分摊费用：0 = 0"
Height = 195
Index = 0
Left = -73830
TabIndex = 22
Top = 2580
Width = 6405
End
Begin VB.Label lblShare
Caption = "待分摊费用：0 - 已分摊费用：0 = 0"
Height = 225
Index = 1
Left = 1080
TabIndex = 25
Top = 2550
Width = 6615
End
Begin VB.Label lblArr
Caption = "加工费用"
Height = 195
Index = 2
Left = 180
TabIndex = 23
Top = 390
Width = 765
End
Begin VB.Label lblArr
Caption = "采购费用"
Height = 195
Index = 0
Left = -74730
TabIndex = 20
Top = 360
Width = 765
End
Begin VB.Label lblArr
Caption = "加工商品"
Height = 225
Index = 3
Left = 180
TabIndex = 24
Top = 2550
Width = 765
End
Begin VB.Label lblArr
Caption = "采购商品"
Height = 195
Index = 1
Left = -74760
TabIndex = 21
Top = 2580
Width = 765
End
End
Begin MSForms.CheckBox chkCost
Height = 270
Left = 7920
TabIndex = 18
Top = 4350
Width = 1215
BackColor = -2147483633
ForeColor = -2147483630
DisplayStyle = 4
Size = "2143;476"
Value = "0"
Caption = "采购费用"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.CheckBox chkChange
Height = 255
Left = 7920
TabIndex = 19
Top = 4680
Width = 1215
BackColor = -2147483633
ForeColor = -2147483630
DisplayStyle = 4
Size = "2143;450"
Value = "0"
Caption = "采购商品"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
End
End
Attribute VB_Name = "frmCostToShare"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 费用分摊
' 作者: 邹俊
' 日期 ： 1998. 06. 23
'
' 功能：
' 一. 采购费用分摊：对商品采购过程中发生的共有费用分摊到每个采购商品上
' 二. 加工费用分摊：对商品加工过程中发生的共有费用分摊到每个加工商品上
' 输入接口：
' 1. GRID 类接口 ( Grid.cls)
' 2. 栏目设置接口( ListSet.cls, frmlistset.frm)
' 3. 筛选接口 (Filter.bas, TreeFilter.frm)
' 公共参数：
' ListFormRight (listmodule.bas) ,ListFormleft (listmodule.bas)
' gclsBase (Publc.bas) , gclsSys (Publc.bas) .
' 调用函数：
' ShowMsg (utility.bas )
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsAddCostGrid As Grid '加工费用Grid对象
Attribute mclsAddCostGrid.VB_VarHelpID = -1
Private WithEvents mclsAddChangeGrid As Grid '加工商品Grid对象
Attribute mclsAddChangeGrid.VB_VarHelpID = -1
Private WithEvents mclsProcurementCostGrid As Grid '采购费用Grid对象
Attribute mclsProcurementCostGrid.VB_VarHelpID = -1
Private WithEvents mclsProcurementChangeGrid As Grid '采购商品Grid对象
Attribute mclsProcurementChangeGrid.VB_VarHelpID = -1
Private Const mintAddCostViewID = 40 '加工费用视图ID
Private Const mintAddChangeViewID = 42 '加工商品视图ID
Private Const mintProcurementCostViewID = 44 '采购费用视图ID
Private Const mintProcurementChangeViewId = 45 '采购商品视图ID
Private Const mintMinFormHeight = 5400 '窗体最小高度
Private Const mintMinFromWidth = 9400 '窗体最小宽度
Private mblnIsoptMoney As Boolean '费用是否按金额分摊
Private mblnIsoptAmount As Boolean '费用是否按数量分摊
Private mblnIschkCost As Boolean '是否选择费用列表
Private mblnIschkChange As Boolean '是否选择商品列表
Private mintIsListActivate As Integer '当前活动列表
Private mblnIsAddCostEmpoty As Boolean '加工费用列表有无记录
Private mblnIsAddChangeEmpoty As Boolean '加工商品列表有无记录
Private mblnIsProcurementCostEmpoty As Boolean '采购费用列表有无记录
Private mblnIsProcurementChangeEmpoty As Boolean '采购商品列表有无记录
Private mblnAddCostIsAllShow As Boolean '加工费用列表是否只显选择记录
Private mblnAddChangeIsAllShow As Boolean '加工商品列表是否只显选择记录
Private mblnProcurementCostIsAllShow As Boolean '采购费用列表是否只显选择记录
Private mblnProcurementChangeIsAllShow As Boolean '采购商品列表是否只显选择记录
Private mstrArrAddCostId() As String '本次加工费用选择ID数组
Private mstrArrAddChangeID() As String '本次加工商品选择ID数组
Private mstrArrProcurementCostID() As String '本次采购费用选择ID数组
Private mstrArrProcurementChangeID() As String '本次采购商品选择ID数组
Private mdblArrAddcost() As Double '加工费用本次分摊值
Private mdblArrAddChange() As Double '加工商品本次分摊值
Private mdblArrProcurementCost() As Double '采购费用本次分摊值
Private mdblArrProcurementChange() As Double '采购商品本次分摊值
'Private mblnIsFirst As Boolean '是否第一次转换页面
Private mblnArrIsFilter(3) As Boolean '是否取筛选条件
Private Sub chkChange_Click()
mblnIschkChange = chkChange.Value
If Not mblnIschkChange And Not mblnIschkCost Then '两个 CHK 不能同时不选取
chkChange.Value = True
chkChange.SetFocus
End If
If Not mblnIschkChange Then
chkCost.SetFocus
End If
formListPartSizeSet '重画窗体控件
End Sub
Private Sub chkCost_Click()
mblnIschkCost = chkCost.Value
If Not mblnIschkChange And Not mblnIschkCost Then '两个 CHK 不能同时不选取
chkCost.Value = True
chkCost.SetFocus
End If
If Not mblnIschkCost Then
chkChange.SetFocus
End If
formListPartSizeSet '重画窗体控件
End Sub
'全部取消
Private Sub AllCancel_Click()
Dim intCol As Integer
Dim intCount As Integer
If mintIsListActivate = 1 Then
If mblnIsProcurementCostEmpoty Then
intCol = GetColNO(msgProcurementCost, "本次分摊费用") '得修改列号
With msgProcurementCost
For intCount = 1 To .Rows - 1
.TextMatrix(intCount, 1) = "" '清除选取标志
.TextMatrix(intCount, intCol) = "0" '清除修改列的值
Next
txtShare1Set '设置待分和已分费用
.Row = 1
End With
End If
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?