📄 frmfomular.frm
字号:
Verify
End Sub
Private Sub Form_Load()
Set mclsFilter = New FormCond
mclsFilter.ShowFilter Me, 7, 2
Set mclsHook = New Hook
mclsHook.SetHook MsgFilter.hWnd
End Sub
Private Sub AddFuncName(FuncType As Byte)
With lstFuncName
.Clear
Select Case FuncType
'总分类帐
Case 1
.AddItem "期初余额"
.AddItem "期初借方余额"
.AddItem "期初贷方余额"
.AddItem "期初借方累计发生额"
.AddItem "期初贷方累计发生额"
.AddItem "期初累计发生净额"
.AddItem "借方发生额"
.AddItem "贷方发生额"
.AddItem "发生净额"
.AddItem "期末借方累计发生额"
.AddItem "期末贷方累计发生额"
.AddItem "期末累计发生净额"
.AddItem "期末余额"
.AddItem "期末借方余额"
.AddItem "期末贷方余额"
.AddItem "损益科目实际发生额"
.AddItem "预算数"
'应收帐款
Case 2
.AddItem "期初应收余额"
.AddItem "期初应收借方余额"
.AddItem "期初应收贷方余额"
.AddItem "期初应收累计额"
.AddItem "期初回款累计额"
.AddItem "期初应收累计净额"
.AddItem "应收额"
.AddItem "回款额"
.AddItem "应收净额"
.AddItem "期末应收累计额"
.AddItem "期末回款累计额"
.AddItem "期末应收累计净额"
.AddItem "期末应收余额"
.AddItem "期末应收借方余额"
.AddItem "期末应收贷方余额"
.AddItem "应收预算数"
'应付帐款
Case 3
.AddItem "期初应付余额"
.AddItem "期初应付借方余额"
.AddItem "期初应付贷方余额"
.AddItem "期初应付累计额"
.AddItem "期初承付累计额"
.AddItem "期初应付累计净额"
.AddItem "应付额"
.AddItem "承付额"
.AddItem "应付净额"
.AddItem "期末应付累计额"
.AddItem "期末承付累计额"
.AddItem "期末应付累计净额"
.AddItem "期末应付余额"
.AddItem "期末应付借方余额"
.AddItem "期末应付贷方余额"
.AddItem "应付预算数"
'现金银行
Case 4
.AddItem "期初余额"
.AddItem "期初借方余额"
.AddItem "期初贷方余额"
.AddItem "期初收款累计发生额"
.AddItem "期初付款累计发生额"
.AddItem "期初累计发生净额"
.AddItem "收款发生额"
.AddItem "付款发生额"
.AddItem "发生净额"
.AddItem "期末收款累计发生额"
.AddItem "期末付款累计发生额"
.AddItem "期末累计发生净额"
.AddItem "期末余额"
.AddItem "期末借方余额"
.AddItem "期末贷方余额"
.AddItem "预算数"
'商品
Case 5
.AddItem "期初库存"
.AddItem "期初库存差异"
.AddItem "期初采购"
.AddItem "期初采购差异"
.AddItem "期初直运"
.AddItem "期初受托代销"
.AddItem "期初委托加工"
.AddItem "期初分期收款"
.AddItem "期初委托代销"
.AddItem "期初应收"
.AddItem "期初应付"
.AddItem "采购"
.AddItem "采购差异"
.AddItem "采购退回"
.AddItem "采购退回差异"
.AddItem "采购费用"
.AddItem "直运采购"
.AddItem "直运采购差异"
.AddItem "直运采购退回"
.AddItem "直运采购退回差异"
.AddItem "直运采购费用"
.AddItem "受托代销采购"
.AddItem "受托代销采购折扣"
.AddItem "加工入库"
.AddItem "加工入库差异"
.AddItem "加工入库退回"
.AddItem "加工入库退回差异"
.AddItem "加工入库费用"
.AddItem "付款"
.AddItem "入库成本调整"
.AddItem "销售"
.AddItem "销售成本"
.AddItem "销售成本差异"
.AddItem "销售退回"
.AddItem "销售退回成本"
.AddItem "销售退回成本差异"
.AddItem "直运销售"
.AddItem "直运销售成本"
.AddItem "直运销售退回"
.AddItem "直运销售退回成本"
.AddItem "委托代销"
.AddItem "委托代销退回"
.AddItem "委托代销销售"
.AddItem "委托代销销售成本"
.AddItem "委托代销销售成本差异"
.AddItem "委托代销折扣"
.AddItem "分期收款"
.AddItem "分期收款退回"
.AddItem "分期收款销售"
.AddItem "分期收款销售成本"
.AddItem "分期收款销售成本差异"
.AddItem "分期收款折扣"
.AddItem "委托加工"
.AddItem "委托加工退回"
.AddItem "收款"
.AddItem "收款折扣"
.AddItem "盘盈"
.AddItem "盘盈差异"
.AddItem "盘亏"
.AddItem "盘亏差异"
.AddItem "盈余"
.AddItem "短缺"
.AddItem "损耗"
.AddItem "其它入库"
.AddItem "其它入库差异"
.AddItem "其它入库退回"
.AddItem "其它入库退回差异"
.AddItem "其它出库"
.AddItem "其它出库差异"
.AddItem "其它出库退回"
.AddItem "其它出库退回差异"
.AddItem "组装入库"
.AddItem "组装入库差异"
.AddItem "组装出库"
.AddItem "组装出库差异"
.AddItem "拆卸入库"
.AddItem "拆卸入库差异"
.AddItem "拆卸出库"
.AddItem "拆卸出库差异"
.AddItem "调入"
.AddItem "调出"
'库存
Case 6
.AddItem "期初库存"
.AddItem "期初采购"
.AddItem "期初直运"
.AddItem "期初受托代销"
.AddItem "期初委托加工"
.AddItem "期初分期收款"
.AddItem "期初委托代销"
.AddItem "期初应收"
.AddItem "期初应付"
.AddItem "采购"
.AddItem "采购退回"
.AddItem "直运采购"
.AddItem "直运采购退回"
.AddItem "受托代销采购"
.AddItem "加工入库"
.AddItem "加工入库退回"
.AddItem "付款"
.AddItem "销售"
.AddItem "销售退回"
.AddItem "直运销售"
.AddItem "直运销售退回"
.AddItem "委托代销"
.AddItem "委托代销销售"
.AddItem "委托代销销售成本"
.AddItem "委托代销销售成本差异"
.AddItem "委托代销折扣"
.AddItem "分期收款"
.AddItem "分期收款退回"
.AddItem "分期收款销售"
.AddItem "分期收款销售成本"
.AddItem "分期收款销售成本差异"
.AddItem "分期收款折扣"
.AddItem "委托加工"
.AddItem "委托加工退回"
.AddItem "收款"
.AddItem "收款折扣"
.AddItem "盘盈"
.AddItem "盘盈差异"
.AddItem "盘亏"
.AddItem "盘亏差异"
.AddItem "盈余"
.AddItem "短缺"
.AddItem "损耗"
.AddItem "其它入库"
.AddItem "其它入库差异"
.AddItem "其它入库退回"
.AddItem "其它入库退回差异"
.AddItem "其它出库"
.AddItem "其它出库差异"
.AddItem "其它出库退回"
.AddItem "其它出库退回差异"
.AddItem "组装入库"
.AddItem "组装入库差异"
.AddItem "组装出库"
.AddItem "组装出库差异"
.AddItem "拆卸入库"
.AddItem "拆卸入库差异"
.AddItem "拆卸出库"
.AddItem "拆卸出库差异"
.AddItem "调入"
.AddItem "调出"
'购销
Case 7
.AddItem "采购"
.AddItem "采购差异"
.AddItem "采购退回"
.AddItem "采购退回差异"
.AddItem "采购费用"
.AddItem "直运采购"
.AddItem "直运采购差异"
.AddItem "直运采购退回"
.AddItem "直运采购退回差异"
.AddItem "直运采购费用"
.AddItem "受托代销采购"
.AddItem "受托代销采购折扣"
.AddItem "加工入库"
.AddItem "加工入库差异"
.AddItem "加工入库退回"
.AddItem "加工入库退回差异"
.AddItem "加工入库费用"
.AddItem "付款"
.AddItem "入库成本调整"
.AddItem "销售"
.AddItem "销售成本"
.AddItem "销售成本差异"
.AddItem "销售退回"
.AddItem "销售退回成本"
.AddItem "销售退回成本差异"
.AddItem "直运销售"
.AddItem "直运销售成本"
.AddItem "直运销售退回"
.AddItem "直运销售退回成本"
.AddItem "委托代销"
.AddItem "委托代销退回"
.AddItem "委托代销销售"
.AddItem "委托代销销售成本"
.AddItem "委托代销销售成本差异"
.AddItem "委托代销折扣"
.AddItem "分期收款"
.AddItem "分期收款退回"
.AddItem "分期收款销售"
.AddItem "分期收款销售成本"
.AddItem "分期收款销售成本差异"
.AddItem "分期收款折扣"
.AddItem "委托加工"
.AddItem "委托加工退回"
.AddItem "收款"
.AddItem "收款折扣"
.AddItem "盘盈"
.AddItem "盘盈差异"
.AddItem "盘亏"
.AddItem "盘亏差异"
.AddItem "盈余"
.AddItem "短缺"
.AddItem "损耗"
.AddItem "其它入库"
.AddItem "其它入库差异"
.AddItem "其它入库退回"
.AddItem "其它入库退回差异"
.AddItem "其它出库"
.AddItem "其它出库差异"
.AddItem "其它出库退回"
.AddItem "其它出库退回差异"
.AddItem "组装入库"
.AddItem "组装入库差异"
.AddItem "组装出库"
.AddItem "组装出库差异"
.AddItem "拆卸入库"
.AddItem "拆卸入库差异"
.AddItem "拆卸出库"
.AddItem "拆卸出库差异"
.AddItem "调入"
.AddItem "调出"
'工资
Case 8
'固资
Case 9
End Select
End With
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 条件设置
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'响应钩子消息
Private Sub mclsHook_OnMessage(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long, bCancel As Long)
If Msg = WM_KEYUP Then
If wParam = vbKeyUp Or wParam = vbKeyDown Then
mclsFilter.MsgFilter_click Me
End If
End If
End Sub
Private Sub CmdReset_Click()
mclsFilter.CmdReset_Click Me
End Sub
Private Sub dateone_lostfocus()
mclsFilter.dateone_lostfocus Me
End Sub
Private Sub ReferText1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
mclsFilter.ReferText1_MouseDown Me, Button, Shift, x, y
End Sub
Private Sub ReferText2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
mclsFilter.ReferText2_MouseDown Me, Button, Shift, x, y
End Sub
Private Sub stbFunc_Click(PreviousTab As Integer)
AddFuncName stbFunc.Tab + 1
End Sub
Private Sub tvwFilter_Expand(ByVal Node As ComctlLib.Node)
mclsFilter.tvwFilter_Expand Me, Node
End Sub
'单击树或者,MsgFilter.Row 改变或者单击
Private Sub tvwFilter_nodeClick(ByVal Node As ComctlLib.Node)
mclsFilter.tvwFilter_nodeClick Me, Node
End Sub
Private Sub MsgFilter_click()
mclsFilter.MsgFilter_click Me
End Sub
Private Sub refertext1_Choose()
mclsFilter.refertext1_Choose Me
End Sub
Private Sub txtfrom_LostFocus()
mclsFilter.txtfrom_LostFocus Me
End Sub
Private Sub refertext2_Choose()
mclsFilter.refertext2_Choose Me
End Sub
Private Sub dateto_lostfocus()
mclsFilter.dateto_lostfocus Me
End Sub
Private Sub datefrom_lostfocus()
mclsFilter.datefrom_lostfocus Me
End Sub
Private Sub TxtTo_KeyDown(KeyCode As Integer, Shift As Integer)
mclsFilter.TxtTo_KeyDown Me, KeyCode, Shift
End Sub
Private Sub TxtFrom_KeyDown(KeyCode As Integer, Shift As Integer)
mclsFilter.TxtFrom_KeyDown Me, KeyCode, Shift
End Sub
Private Sub TxtTo_lostfocus()
mclsFilter.TxtTo_lostfocus Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -