📄 frmphcustommx.frm
字号:
End Sub
Private Sub Image2_Click()
frmPHCustomMX.WindowState = 1
End Sub
Private Sub Mask1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
End If
End Sub
Private Sub MaskEdBox1_Change()
End Sub
Private Sub MaskEdBox1_KeyPress(KeyAscii As Integer)
End Sub
Private Sub Mask2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
End If
End Sub
Private Sub Picture5_Click()
On Error GoTo errmsg
Dim datel As String
Dim datel1 As String
''''''记录信息的变量,根据客户名称查询YWPRtable得到合同号'''
Dim HTongNumber(12) As String
datel = Mid(Mask1.Text, 1, 4) & "年" & Trim(Mid(Mask1.Text, 5, 2)) & "月" & Trim(Mid(Mask1.Text, 7, 2)) & "日"
datel1 = Mid(Mask2.Text, 1, 4) & "年" & Trim(Mid(Mask2.Text, 5, 2)) & "月" & Trim(Mid(Mask2.Text, 7, 2)) & "日"
'''''''条件1‘’‘’‘
If Mask1.Text <> "" And Combo1.Text <> "" And Trim(Mask2.Text) = "" Then
sql = "select * from YWPRtable where 日期='" & Trim(datel) & "' and 客户名称='" & Trim(Combo1.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveLast
MSFlex1.Rows = result.RowCount + 2
result.MoveFirst
End If
If result.RowCount <> 0 Then
HTongNumber(0) = result("合同号")
HTongNumber(1) = result("总面积")
HTongNumber(2) = result("应收款额")
HTongNumber(3) = result("已收款额")
HTongNumber(4) = result("未收款额")
HTongNumber(5) = result("业务员")
HTongNumber(6) = result("签单人")
HTongNumber(7) = result("欠款审核")
HTongNumber(11) = result("日期")
End If
'''''''
sql = "select * from YWSEtable where 日期='" & Trim(datel) & "' and 合同号='" & Trim(HTongNumber(0)) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveLast
HTongNumber(8) = result.RowCount
result.MoveFirst
End If
'''''根据合同号查询JTSEtable得到喷绘序列''''
sql = "select * from JTSEtable where substring(文件号,1,len(文件号)-1)='" & Trim(HTongNumber(0)) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
'MsgBox result("喷绘序列")
result.MoveLast
HTongNumber(9) = result.RowCount
result.MoveFirst
End If
'''''''''''
For i = 1 To MSFlex1.Rows - 2
MSFlex1.TextArray(i * MSFlex1.Cols) = result("日期")
MSFlex1.TextArray(i * MSFlex1.Cols + 1) = Trim(Combo1.Text)
MSFlex1.TextArray(i * MSFlex1.Cols + 2) = Trim(HTongNumber(0))
MSFlex1.TextArray(i * MSFlex1.Cols + 3) = Trim(HTongNumber(1))
MSFlex1.TextArray(i * MSFlex1.Cols + 4) = Trim(HTongNumber(2))
MSFlex1.TextArray(i * MSFlex1.Cols + 5) = Trim(HTongNumber(3))
MSFlex1.TextArray(i * MSFlex1.Cols + 6) = Trim(HTongNumber(4))
MSFlex1.TextArray(i * MSFlex1.Cols + 7) = Trim(HTongNumber(8))
MSFlex1.TextArray(i * MSFlex1.Cols + 8) = Trim(HTongNumber(9))
MSFlex1.TextArray(i * MSFlex1.Cols + 9) = Val(Trim(HTongNumber(8))) - Val(Trim(HTongNumber(9)))
Next i
''''''计算合计''''''''
For i = 0 To 7
HJ(i) = 0
Next i
For i = 1 To MSFlex1.Rows - 2
HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 8))
HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 9))
Next i
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(0)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(1)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(2)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(3)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(4)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 8) = HJ(5)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 9) = HJ(6)
End If
''''''''''条件2'''''
If Trim(Mask1.Text) <> "" And Trim(Combo1.Text) <> "" And Trim(Mask2.Text) <> "" Then
sql = "select * from YWPRtable where 日期>='" & Trim(datel) & "' and 日期<='" & Trim(datel1) & "' and 客户名称='" & Trim(Combo1.Text) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveLast
MSFlex1.Rows = result.RowCount + 2
result.MoveFirst
End If
If result.RowCount <> 0 Then
i = 1
Do While Not result.EOF()
MSFlex1.TextArray(i * MSFlex1.Cols) = Trim(result("日期"))
MSFlex1.TextArray(i * MSFlex1.Cols + 1) = Trim(result("客户名称"))
MSFlex1.TextArray(i * MSFlex1.Cols + 2) = Trim(result("合同号"))
result.MoveNext
i = i + 1
Loop
End If
For i = 1 To MSFlex1.Rows - 2
sql = "select * from YWPRtable where 日期='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols)) & "' and 客户名称='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 1)) & "' and 合同号='" & Trim(MSFlex1.TextArray(i * MSFlex1.Cols + 2)) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
result.MoveLast
Zhms(i) = result.RowCount
result.MoveFirst
End If
If result.RowCount <> 0 Then
MSFlex1.TextArray(i * MSFlex1.Cols + 3) = result("总面积")
MSFlex1.TextArray(i * MSFlex1.Cols + 4) = result("应收款额")
MSFlex1.TextArray(i * MSFlex1.Cols + 5) = result("已收款额")
MSFlex1.TextArray(i * MSFlex1.Cols + 6) = result("未收款额")
MSFlex1.TextArray(i * MSFlex1.Cols + 7) = Zhms(i)
End If
'''''''
'''''根据合同号查询JTSEtable得到喷绘序列''''
sql = "select * from JTSEtable where substring(文件号,1,len(文件号)-1)='" & Trim(HTongNumber(0)) & "'"
Set result = cn.OpenResultset(sql, rdOpenDynamic, rdConcurRowVer)
If result.RowCount <> 0 Then
'MsgBox result("喷绘序列")
result.MoveLast
YWhms(i) = result.RowCount
result.MoveFirst
End If
''''''''''
MSFlex1.TextArray(i * MSFlex1.Cols + 8) = YWhms(i)
MSFlex1.TextArray(i * MSFlex1.Cols + 9) = Zhms(i) - YWhms(i)
Next i
''''''计算合计''''''''
For i = 0 To 7
HJ(i) = 0
Next i
For i = 1 To MSFlex1.Rows - 2
HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 8))
HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 9))
Next i
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(0)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(1)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(2)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(3)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(4)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 8) = HJ(5)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 9) = HJ(6)
End If
''''''
errmsg:
If Err.Number <> 0 Then
MSFlex1.Cols = 10
MSFlex1.FormatString = "^ 日 期 |^ 客户名称 |^合同号|^总面积|^应收款额|^已收款额|^未收款额|^总画面数|^已完画面数|^未完画面数"
If Mask1.Text <> "" And Mask2.Text = "" And Trim(Combo1.Text) <> "" Then
MSFlex1.Rows = 3
MSFlex1.TextArray(1 * MSFlex1.Cols) = datel
MSFlex1.TextArray(1 * MSFlex1.Cols + 1) = Trim(Combo1.Text)
MSFlex1.TextArray(1 * MSFlex1.Cols + 2) = "13151"
MSFlex1.TextArray(1 * MSFlex1.Cols + 3) = "120"
MSFlex1.TextArray(1 * MSFlex1.Cols + 4) = "1200"
MSFlex1.TextArray(1 * MSFlex1.Cols + 5) = "1000"
MSFlex1.TextArray(1 * MSFlex1.Cols + 6) = "200"
MSFlex1.TextArray(1 * MSFlex1.Cols + 7) = "1"
MSFlex1.TextArray(1 * MSFlex1.Cols + 8) = "0"
MSFlex1.TextArray(1 * MSFlex1.Cols + 9) = "1"
''''''计算合计''''
For i = 0 To 7
HJ(i) = 0
Next i
For i = 1 To MSFlex1.Rows - 2
HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 8))
HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 9))
Next i
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(0)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(1)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(2)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(3)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(4)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 8) = HJ(5)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 9) = HJ(6)
End If
'''''''查询条件2'''''
If Mask1.Text <> "" And Mask2.Text <> "" And Trim(Combo1.Text) <> "" Then
MSFlex1.Rows = DateDiff("d", datel, datel1) + 3
For i = 1 To MSFlex1.Rows - 2
MSFlex1.TextArray(i * MSFlex1.Cols) = DateAdd("d", i - 1, datel)
MSFlex1.TextArray(i * MSFlex1.Cols + 1) = Trim(Combo1.Text)
MSFlex1.TextArray(i * MSFlex1.Cols + 2) = Val("13150") + i
MSFlex1.TextArray(i * MSFlex1.Cols + 3) = "212"
MSFlex1.TextArray(i * MSFlex1.Cols + 4) = "2120"
MSFlex1.TextArray(i * MSFlex1.Cols + 5) = "2000"
MSFlex1.TextArray(i * MSFlex1.Cols + 6) = Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4)) - Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
MSFlex1.TextArray(i * MSFlex1.Cols + 7) = "1"
MSFlex1.TextArray(i * MSFlex1.Cols + 8) = "1"
MSFlex1.TextArray(i * MSFlex1.Cols + 9) = "0"
Next i
''''''计算合计''''''
For i = 0 To 7
HJ(i) = 0
Next i
For i = 1 To MSFlex1.Rows - 2
HJ(0) = HJ(0) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 3))
HJ(1) = HJ(1) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 4))
HJ(2) = HJ(2) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 5))
HJ(3) = HJ(3) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 6))
HJ(4) = HJ(4) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 7))
HJ(5) = HJ(5) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 8))
HJ(6) = HJ(6) + Val(MSFlex1.TextArray(i * MSFlex1.Cols + 9))
Next i
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols) = "合计:"
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 3) = HJ(0)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 4) = HJ(1)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 5) = HJ(2)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 6) = HJ(3)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 7) = HJ(4)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 8) = HJ(5)
MSFlex1.TextArray((MSFlex1.Rows - 1) * MSFlex1.Cols + 9) = HJ(6)
End If
End If
End Sub
Private Sub Picture5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture6.Cls
jframe.danum = 5
jframe.rtop = 1
jframe.rleft = 1
jframe.rright = 65
jframe.rbottom = 29
jframe.ddrawc Picture5
End Sub
Private Sub Picture6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture5.Cls
jframe.danum = 5
jframe.rtop = 1
jframe.rleft = 1
jframe.rright = 65
jframe.rbottom = 29
jframe.ddrawc Picture6
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -