📄 frmfomular.frm
字号:
Begin VB.CommandButton cmdOperator
Caption = "且"
Height = 285
Index = 7
Left = 5460
TabIndex = 29
Tag = "且"
Top = 225
Width = 735
End
Begin VB.CommandButton cmdOperator
Caption = "或"
Height = 285
Index = 6
Left = 6330
TabIndex = 28
Tag = "或"
Top = 225
Width = 735
End
Begin VB.CommandButton cmdOperator
Caption = "+"
Height = 285
Index = 0
Left = 150
TabIndex = 7
Tag = "+"
Top = 225
Width = 735
End
Begin VB.CommandButton cmdOperator
Caption = "-"
Height = 285
Index = 1
Left = 1050
TabIndex = 6
Tag = "-"
Top = 225
Width = 735
End
Begin VB.CommandButton cmdOperator
Caption = "×"
Height = 285
Index = 2
Left = 1950
TabIndex = 5
Tag = "*"
Top = 225
Width = 735
End
Begin VB.CommandButton cmdOperator
Caption = "÷"
Height = 285
Index = 3
Left = 2820
TabIndex = 4
Tag = "/"
Top = 225
Width = 735
End
Begin VB.CommandButton cmdOperator
Caption = "("
Height = 285
Index = 4
Left = 3720
TabIndex = 3
Tag = "("
Top = 225
Width = 735
End
Begin VB.CommandButton cmdOperator
Caption = ")"
Height = 285
Index = 5
Left = 4590
TabIndex = 2
Tag = "("
Top = 225
Width = 735
End
End
Begin VB.CommandButton cmdVerify
Caption = "公式校验(&V)"
Height = 345
Left = 7650
TabIndex = 16
Top = 870
Width = 1215
End
Begin VB.Frame fraFomular
Caption = "公式"
Height = 1005
Left = 60
TabIndex = 8
Top = 0
Width = 7245
Begin VB.TextBox txtFomular
Height = 720
Left = 120
MultiLine = -1 'True
TabIndex = 15
Top = 180
Width = 7005
End
Begin VB.Frame Frame7
Caption = "方向"
Height = 975
Index = 1
Left = 3840
TabIndex = 12
Top = 2220
Width = 2205
Begin VB.ComboBox Combo5
Height = 300
Index = 1
Left = 600
TabIndex = 13
Text = "Combo5"
Top = 390
Width = 1455
End
Begin VB.Label Label7
Caption = "方向："
Height = 195
Index = 1
Left = 90
TabIndex = 14
Top = 450
Width = 555
End
End
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 375
Index = 1
Left = 4740
TabIndex = 11
Top = 3570
Width = 1275
End
Begin VB.Frame Frame4
Caption = "已选条件"
Height = 1755
Index = 1
Left = 0
TabIndex = 9
Top = 2190
Width = 3765
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 1395
Index = 1
Left = 90
TabIndex = 10
Top = 240
Width = 3585
_ExtentX = 6324
_ExtentY = 2461
_Version = 65541
FixedRows = 0
FixedCols = 0
BackColorBkg = 16777215
AllowUserResizing= 3
End
End
End
Begin VB.CommandButton cmdClear
Caption = "清除公式(&C)"
Height = 345
Left = 7650
TabIndex = 0
Top = 1260
Width = 1215
End
Begin TabDlg.SSTab stbFunc
Height = 3735
Left = 60
TabIndex = 17
Top = 1830
Width = 8955
_ExtentX = 15796
_ExtentY = 6588
_Version = 327681
Style = 1
Tabs = 9
TabsPerRow = 9
TabHeight = 520
TabCaption(0) = "分类帐"
TabPicture(0) = "frmFomular.frx":1331
Tab(0).ControlEnabled= -1 'True
Tab(0).ControlCount= 0
TabCaption(1) = "应收帐款"
TabPicture(1) = "frmFomular.frx":134D
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Command12(2)"
Tab(1).ControlCount= 1
TabCaption(2) = "应付帐款"
TabPicture(2) = "frmFomular.frx":1369
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Command12(3)"
Tab(2).ControlCount= 1
TabCaption(3) = "现金银行"
TabPicture(3) = "frmFomular.frx":1385
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Command12(4)"
Tab(3).ControlCount= 1
TabCaption(4) = "商品资料"
TabPicture(4) = "frmFomular.frx":13A1
Tab(4).ControlEnabled= 0 'False
Tab(4).ControlCount= 0
TabCaption(5) = "库存"
TabPicture(5) = "frmFomular.frx":13BD
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Command12(8)"
Tab(5).ControlCount= 1
TabCaption(6) = "购销"
TabPicture(6) = "frmFomular.frx":13D9
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "Command12(9)"
Tab(6).ControlCount= 1
TabCaption(7) = "工资"
TabPicture(7) = "frmFomular.frx":13F5
Tab(7).ControlEnabled= 0 'False
Tab(7).Control(0)= "Command12(6)"
Tab(7).ControlCount= 1
TabCaption(8) = "固资"
TabPicture(8) = "frmFomular.frx":1411
Tab(8).ControlEnabled= 0 'False
Tab(8).Control(0)= "Command12(7)"
Tab(8).ControlCount= 1
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 315
Index = 9
Left = -67860
TabIndex = 24
Top = 4200
Width = 915
End
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 315
Index = 8
Left = -67860
TabIndex = 23
Top = 4170
Width = 915
End
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 315
Index = 6
Left = -67890
TabIndex = 22
Top = 4200
Width = 915
End
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 315
Index = 7
Left = -67920
TabIndex = 21
Top = 4200
Width = 915
End
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 315
Index = 4
Left = -67920
TabIndex = 20
Top = 4170
Width = 915
End
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 315
Index = 3
Left = -67890
TabIndex = 19
Top = 4140
Width = 915
End
Begin VB.CommandButton Command12
Caption = "加入公式"
Height = 315
Index = 2
Left = -67890
TabIndex = 18
Top = 4170
Width = 915
End
End
Begin ComctlLib.ImageList ImageList1
Left = 7350
Top = 1530
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 13
ImageHeight = 13
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 3
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmFomular.frx":142D
Key = "open"
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmFomular.frx":1527
Key = "closed"
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmFomular.frx":1621
Key = "book"
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmFomular"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 取数公式
' 作者：魏 然
' 日期：1998.06.25
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Public strFunction As String
Private mlngViewID As Long
Private WithEvents mclsHook As Hook
Attribute mclsHook.VB_VarHelpID = -1
Private WithEvents mclsDepoland As DepolandClass
Attribute mclsDepoland.VB_VarHelpID = -1
Private mclsFilter As FormCond
Private Sub cmdAdd_Click(Index As Integer)
Dim strCond As String
Dim intRow As Integer
strCond = mclsFilter.GetFuncCond
strCond = lstFuncName.Text & "(" & """" & cmbDataType.Text & """" & _
"," & """" & cmbCurrency.Text & """" & "," & """" & strCond & """" & ")"
AddData strCond
' mclsFilter.ClearCond Me
End Sub
Private Sub AddData(tData As Variant)
Dim strLeft As String, strRight As String
Dim intPosition As Integer
intPosition = txtFomular.SelStart + txtFomular.SelLength
strLeft = Left(txtFomular.Text, txtFomular.SelStart)
If txtFomular.Text <> "" Then
strRight = Mid(txtFomular.Text, txtFomular.SelStart + txtFomular.SelLength + 1)
End If
txtFomular.Text = strLeft & tData & strRight
txtFomular.SelStart = intPosition + Len(tData)
txtFomular.SetFocus
End Sub
Private Function Verify(Optional col As Collection) As Boolean
Dim varReturn As Variant
Set mclsDepoland = New DepolandClass
Dim clsBF As New BaseFunction
If clsBF.VerifyFunc(txtFomular) Then
MsgBox "校验通过!", vbOKOnly, "取数公式"
Verify = True
Exit Function
End If
MsgBox "公式有错!", vbOKOnly, "取数公式"
End Function
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdClear_Click()
ClearFomular
End Sub
Private Sub ClearFomular()
txtFomular.Text = ""
End Sub
Private Sub cmdOk_Click()
strFunction = txtFomular.Text
Unload Me
End Sub
Private Sub cmdOperator_Click(Index As Integer)
AddData " " & cmdOperator(Index).Tag & " "
End Sub
Private Sub cmdVerify_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -