📄 form2.frm
字号:
Height = 4845
Index = 0
Left = 30
TabIndex = 5
Top = 120
Width = 3405
_ExtentX = 6006
_ExtentY = 8546
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "编号"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "姓名"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "工号"
Object.Width = 1764
EndProperty
End
End
Begin VB.CommandButton cmdPrint
Caption = "工作量打印"
Height = 375
Left = 5460
TabIndex = 3
Top = 5850
Width = 1395
End
Begin MSComCtl2.DTPicker dtpDcyDate
Height = 345
Left = 2160
TabIndex = 1
Top = 5880
Width = 3195
_ExtentX = 5636
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "统计日期: yyyy年MM月dd日"
Format = 24576003
CurrentDate = 37105
End
End
End
Attribute VB_Name = "frmWorkLoad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmbSelect_Click()
If cmbSelect.ListIndex = 0 Then
Call cmdAddAll_Click
Else
Call cmdRemoveAll_Click
End If
End Sub
Private Sub cmdAdd_Click()
Dim jNum As Integer
jNum = lstDcy(1).ListItems.Count + 1
For i = 1 To lstDcy(0).ListItems.Count
If i > lstDcy(0).ListItems.Count Then Exit Sub
If lstDcy(0).ListItems(i).Selected = True Then
lstDcy(1).ListItems.Add , lstDcy(0).ListItems(i).Key, lstDcy(0).ListItems(i).Text
lstDcy(1).ListItems(jNum).ListSubItems.Add , lstDcy(0).ListItems(i).ListSubItems(1).Key, lstDcy(0).ListItems(i).ListSubItems(1).Text
lstDcy(1).ListItems(jNum).ListSubItems.Add , lstDcy(0).ListItems(i).ListSubItems(2).Key, lstDcy(0).ListItems(i).ListSubItems(2).Text
lstDcy(0).ListItems.Remove i
jNum = jNum + 1
i = i - 1
End If
Next i
End Sub
Private Sub cmdAddAll_Click()
For i = 1 To lstDcy(1).ListItems.Count
lstDcy(1).ListItems.Remove 1
Next
For i = 1 To lstDcy(0).ListItems.Count
lstDcy(0).ListItems.Remove 1
Next
Call lstRef(1)
End Sub
Private Sub cmdprint_Click()
''' Dim rs As New ADODB.Recordset
''' Dim i As Integer
''' Dim sPrntStr As String
''' 'cnn.Open strCollection
''' Dim printObj As Object
''' Dim INPUTDATE As String
''' Dim STARTDATE As String
'''
''' INPUTDATE = Format(dtpDcyDate.Value, "yyyy") + Format(dtpDcyDate.Value, "MM") + Format(dtpDcyDate.Value, "dd")
''' If CInt(Mid(INPUTDATE, 7, 2)) < 26 Then
''' STARTDATE = CStr(CDbl(Left(INPUTDATE, 6)) - 1) + "26"
''' Else
''' STARTDATE = CStr(Left(INPUTDATE, 6)) + "26"
''' End If
''' If cmbSelect.ListIndex = 1 Then
''' If MsgBox("确认要用『POS打印机』打印现金单吗？", vbYesNo, "提示信息...") = vbNo Then
''' Exit Sub
''' End If
''' Set printObj = CreateObject("amcPrint.cPrint")
''' For i = 1 To lstDcy(1).ListItems.Count
''' Set rs = New ADODB.Recordset
''' rs.Open "select SUM(M100) M100,sum(m50) M50,sum(m20) m20,sum(m10) m10,sum(m5) m5,sum(m2) m2," + _
''' "sum(m1) m1,sum(m05) m05,sum(m02) m02,sum(m01) m01,sum(m005) m005,sum(m002) m002, " + _
''' "sum(m001) m001,sum(DAY_TOTALSUM) DAY_TOTALSUM, sum(day_totalmoney) day_totalmoney," + _
''' "COUNTBILLOPNO ,TRADEDATE from zy_input_view where countbillopno='" + lstDcy(1).ListItems(i).Text + _
''' "' and TRADEDATE ='" + INPUTDATE + "' group by countbillopno,TRADEDATE", cnn, adOpenStatic, adLockOptimistic
''' If Not rs.EOF Then
''' printObj.NEWDOC
''' printObj.AddTxtTitle '"郑州市公交公司实交金额"
'''
''' printObj.AddTxt "点款日期:" + CStr(rs.Fields("TRADEDATE")) + vbCrLf + "________________________" + vbCrLf + _
''' "款 别 张 数: 金 额:" + vbCrLf + _
''' "壹佰圆:" + addSpace(CStr(rs.Fields("M100"))) + "|" + addSpace(CStr(rs.Fields("M100") * 100)) + vbCrLf + _
''' "伍拾圆:" + addSpace(CStr(rs.Fields("M50"))) + "|" + addSpace(CStr(rs.Fields("M50") * 50)) + vbCrLf + _
''' "贰拾圆:" + addSpace(CStr(rs.Fields("M20"))) + "|" + addSpace(CStr(rs.Fields("M20") * 20)) + vbCrLf + _
''' "壹拾圆:" + addSpace(CStr(rs.Fields("M10"))) + "|" + addSpace(CStr(rs.Fields("M10") * 10)) + vbCrLf + _
''' "伍 圆:" + addSpace(CStr(rs.Fields("M5"))) + "|" + addSpace(CStr(rs.Fields("M5") * 5)) + vbCrLf + _
''' "贰 圆:" + addSpace(CStr(rs.Fields("M2"))) + "|" + addSpace(CStr(rs.Fields("M2") * 2)) + vbCrLf + _
''' "壹 圆:" + addSpace(CStr(rs.Fields("M1"))) + "|" + addSpace(CStr(rs.Fields("M1") * 1)) + vbCrLf + _
''' "伍 角:" + addSpace(CStr(rs.Fields("M05"))) + "|" + addSpace(CStr(rs.Fields("M05") * 0.5)) + vbCrLf + _
''' "贰 角:" + addSpace(CStr(rs.Fields("M02"))) + "|" + addSpace(CStr(rs.Fields("M02") * 0.2)) + vbCrLf + _
''' "壹 角:" + addSpace(CStr(rs.Fields("M01"))) + "|" + addSpace(CStr(rs.Fields("M01") * 0.1)) + vbCrLf + _
''' "伍 分:" + addSpace(CStr(rs.Fields("M005"))) + "|" + addSpace(CStr(rs.Fields("M005") * 0.05)) + vbCrLf + _
''' "贰 分:" + addSpace(CStr(rs.Fields("M002"))) + "|" + addSpace(CStr(rs.Fields("M002") * 0.02)) + vbCrLf + _
''' "壹 分:" + addSpace(CStr(rs.Fields("M001"))) + "|" + addSpace(CStr(rs.Fields("M001") * 0.01)) + vbCrLf + _
''' "合 计:" + addSpace(CStr(rs.Fields("DAY_TOTALSUM"))) + "|" + addSpace(CStr(rs.Fields("DAY_TOTALmoney"))) + vbCrLf + vbCrLf + _
''' "点钞员工号:" + addSpace(CStr(rs.Fields("COUNTBILLOPNO"))) + vbCrLf + "________________________" + vbCrLf + vbCrLf + vbCrLf
''' Else
''' printObj.NEWDOC
''' printObj.AddTxtTitle '"郑州市公交公司实交金额"
'''
''' printObj.AddTxt "点款日期:" + CStr(Year(dtpDcyDate.Value)) + CStr(Month(dtpDcyDate.Value)) + CStr(Day(dtpDcyDate.Value)) + vbCrLf + "________________________" + vbCrLf + _
''' "款 别 张 数: 金 额:" + vbCrLf + _
''' "壹佰圆:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "伍拾圆:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "贰拾圆:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "壹拾圆:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "伍 圆:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "贰 圆:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "壹 圆:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "伍 角:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "贰 角:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "壹 角:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "伍 分:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "贰 分:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "壹 分:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + _
''' "合 计:" + addSpace("0") + "|" + addSpace("0") + vbCrLf + vbCrLf + _
''' "点钞员工号:" + addSpace(lstDcy(1).ListItems(i).Text) + vbCrLf + "____________________" + vbCrLf + vbCrLf + vbCrLf
''' End If
'''' Form1.Text1.Text = Form1.Text1.Text + vbCrLf + vbCrLf + " 郑 州 市 公 交 公 司 " & vbCrLf & " 实 交 现 金 单 " & vbCrLf + sPrntStr
'''' Form1.Text1.Refresh
'''
''' printObj.PrintDoc "LPT1"
''' Next i
'''' Form1.Show
''' Else
''' Dim myoutput As New MyExcel.mClass
''' Dim MYPATH As String
'''
''' Set rs = New ADODB.Recordset
''' rs.CursorLocation = adUseClient
'''
''' rs.Open "EXEC AMC_WORKLOAD_STAT '" + STARTDATE + "', '" + INPUTDATE + "' ", cnn, adOpenStatic, adLockOptimistic
'''
''' If Not rs.EOF Then
''' MYPATH = CStr(App.Path) + "\AMCReport.xlt" '设置模版路径
''' myoutput.StartModel MYPATH, 1
''' myoutput.Addcell 2, 1, "日 期:" + Format(dtpDcyDate.Value, "yyyy年MM月dd日") + " 制表单位:收银中心"
''' i = 4
''' Do While Not rs.EOF
'''
''' myoutput.Addcell i, 1, rs.Fields(0)
''' myoutput.Addcell i, 2, rs.Fields(1)
''' myoutput.Addcell i, 3, rs.Fields(2)
''' myoutput.Addcell i, 4, rs.Fields(3)
''' myoutput.Addcell i, 5, rs.Fields(4)
'''
''' rs.MoveNext
''' i = i + 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -