📄 frm_tongji.frm
字号:
df0 = Format(df0, "0.00")
df1 = Format(df1, "0.00")
df2 = Format(df2, "0.00")
df3 = Format(df3, "0.00")
df4 = Format(df4, "0.00")
df5 = Format(df5, "0.00")
df6 = Format(df6, "0.00")
df7 = Format(df7, "0.00")
If Not .EOF Then
.MoveNext
End If
Next
Printer.Print "│" & Left(Adotemp.Recordset.Fields("name") & Space(10), 8 - convert_str(Adotemp.Recordset.Fields("name"))) & "│" & Right(Space(10) & dl0, 8) & "│" & Right(Space(10) & df0, 8) & "│" & Right(Space(10) & dl1, 8) & "│" & Right(Space(10) & df1, 8) & "│" & Right(Space(10) & dl2, 8) & "│" & Right(Space(10) & df2, 8) & "│" & Right(Space(10) & dl3, 8) & "│" & Right(Space(10) & df3, 8) & "│" & Right(Space(10) & dl4, 8) & "│" & Right(Space(10) & df4, 8) & "│" & Right(Space(10) & dl5, 8) & "│" & Right(Space(10) & df5, 8) & "│" & Right(Space(10) & dl6, 8) & "│" & Right(Space(10) & df6, 8) & "│" & Right(Space(10) & dl7, 8) & "│" & Right(Space(10) & df7, 8) & "│"
Printer.Print "├────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┤"
If (i Mod 24) = 0 Then
tdf0 = Format(tdf0, "0.00")
tdf1 = Format(tdf1, "0.00")
tdf2 = Format(tdf2, "0.00")
tdf3 = Format(tdf3, "0.00")
tdf4 = Format(tdf4, "0.00")
tdf5 = Format(tdf5, "0.00")
tdf6 = Format(tdf6, "0.00")
tdf7 = Format(tdf7, "0.00")
Printer.Print "│累 计│" & Right(Space(10) & tdl0, 8) & "│" & Right(Space(10) & tdf0, 8) & "│" & Right(Space(10) & tdl1, 8) & "│" & Right(Space(10) & tdf1, 8) & "│" & Right(Space(10) & tdl2, 8) & "│" & Right(Space(10) & tdf2, 8) & "│" & Right(Space(10) & tdl3, 8) & "│" & Right(Space(10) & tdf3, 8) & "│" & Right(Space(10) & tdl4, 8) & "│" & Right(Space(10) & tdf4, 8) & "│" & Right(Space(10) & tdl5, 8) & "│" & Right(Space(10) & tdf5, 8) & "│" & Right(Space(10) & tdl6, 8) & "│" & Right(Space(10) & tdf6, 8) & "│" & Right(Space(10) & tdl7, 8) & "│" & Right(Space(10) & tdf7, 8) & "│"
Printer.Print "└────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┘"
dl0 = 0
dl1 = 0
dl2 = 0
dl3 = 0
dl4 = 0
dl5 = 0
dl6 = 0
dl7 = 0
tdl0 = 0
tdl1 = 0
tdl2 = 0
tdl3 = 0
tdl4 = 0
tdl5 = 0
tdl6 = 0
tdl7 = 0
'电费
df0 = 0#
df1 = 0#
df2 = 0#
df3 = 0#
df4 = 0#
df5 = 0#
df6 = 0#
df7 = 0#
tdf0 = 0#
tdf1 = 0#
tdf2 = 0#
tdf3 = 0#
tdf4 = 0#
tdf5 = 0#
tdf6 = 0#
tdf7 = 0#
Printer.NewPage
Printer.FontSize = 15
Printer.Print Space(20) & Trim(Mid(Combo_town.Text & Space(20), 3)) & Space(5) & Trim(Combo_year.Text) & Trim(combo_month.Text) & "用电类别统计报表"
Printer.FontSize = 11
Printer.Print Space(10) & "填制单位:" & "萧山市供电局" & Trim(Mid(Combo_town.Text & Space(20), 3)) & "电管站" & Space(10) & "单位:KWH/元" & Space(20) & "制表日期:" & Format(Date, "Long date")
Printer.Print "┌────┬───────────────────────────────────────────────────────────────────────────────┐"
Printer.Print "│ │ 售 电 量 │"
Printer.Print "│ ├─────────┬─────────┬─────────┬─────────┬─────────┬─────────┬─────────┬─────────┤"
Printer.Print "│ 村 名 │" & Space(2) & Left(temp0 & Space(20), 16 - convert_str(temp0)) & "│" & Space(2) & Left(temp1 & Space(20), 16 - convert_str(temp1)) & "│" & Space(2) & Left(temp2 & Space(20), 16 - convert_str(temp2)) & "│" & Space(2) & Left(temp3 & Space(20), 16 - convert_str(temp3)) & "│" & Space(2) & Left(temp4 & Space(20), 16 - convert_str(temp4)) & "│" & Space(2) & Left(temp5 & Space(20), 16 - convert_str(temp5)) & "│" & Space(2) & Left(temp6 & Space(20), 16 - convert_str(temp6)) & "│" & Space(2) & Left(temp7 & Space(20), 16 - convert_str(temp7)) & "│"
Printer.Print "│ ├────┬────┼────┬────┼────┬────┼────┬────┼────┬────┼────┬────┼────┬────┼────┬────┤"
Printer.Print "│ │ 电 量 │ 金 额 │ 电 量 │ 金 额 │ 电 量 │ 金 额 │ 电 量 │ 金 额 │ 电 量 │ 金 额 │ 电 量 │ 金 额 │ 电 量 │ 金 额 │ 电 量 │ 金 额 │"
Printer.Print "├────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┤"
End If
End With
If Not .EOF Then
.MoveNext
End If
Next
tdf0 = Format(tdf0, "0.00")
tdf1 = Format(tdf1, "0.00")
tdf2 = Format(tdf2, "0.00")
tdf3 = Format(tdf3, "0.00")
tdf4 = Format(tdf4, "0.00")
tdf5 = Format(tdf5, "0.00")
tdf6 = Format(tdf6, "0.00")
tdf7 = Format(tdf7, "0.00")
Printer.Print "│累 计│" & Right(Space(10) & tdl0, 8) & "│" & Right(Space(10) & tdf0, 8) & "│" & Right(Space(10) & tdl1, 8) & "│" & Right(Space(10) & tdf1, 8) & "│" & Right(Space(10) & tdl2, 8) & "│" & Right(Space(10) & tdf2, 8) & "│" & Right(Space(10) & tdl3, 8) & "│" & Right(Space(10) & tdf3, 8) & "│" & Right(Space(10) & tdl4, 8) & "│" & Right(Space(10) & tdf4, 8) & "│" & Right(Space(10) & tdl5, 8) & "│" & Right(Space(10) & tdf5, 8) & "│" & Right(Space(10) & tdl6, 8) & "│" & Right(Space(10) & tdf6, 8) & "│" & Right(Space(10) & tdl7, 8) & "│" & Right(Space(10) & tdf7, 8) & "│"
Printer.Print "└────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┘"
Printer.EndDoc
End If
End With
Else
'此处加入电价大于8的代码
For i = 1 To 50
For j = 1 To 16
dianliang(i, j) = 0
dianfei(i, j) = 0#
tdianfei(j) = 0#
tdianliang(j) = 0
tdianliang1(j) = 0
tdianfei1(j) = 0#
Next
Next
Adotemp.Refresh
With Adotemp.Recordset
If .RecordCount <> 0 Then
If .RecordCount < 49 Then
Call printer_init1
For i = 1 To .RecordCount
villname(i) = Trim(.Fields("name"))
tempado.RecordSource = "select distinct meter.electype,sum(fee.quantity) as dian_liang,sum(fee.fee) as dian_fei from fee inner join meter on fee.userid=meter.userid where [fee].[villid]='" & .Fields("id") & "' group by meter.electype order by meter.electype asc"
tempado.Refresh
With tempado.Recordset
For j = 1 To .RecordCount
If j < 25 Then
Select Case Trim(.Fields("electype"))
Case temp0:
dianliang(i, 1) = .Fields("dian_liang")
dianfei(i, 1) = .Fields("dian_fei")
tdianliang(1) = tdianliang(1) + .Fields("dian_liang")
tdianfei(1) = tdianfei(1) + .Fields("dian_fei")
Case temp1:
dianliang(i, 2) = .Fields("dian_liang")
dianfei(i, 2) = .Fields("dian_fei")
tdianliang(2) = tdianliang(2) + .Fields("dian_liang")
tdianfei(2) = tdianfei(2) + .Fields("dian_fei")
Case temp2:
dianliang(i, 3) = .Fields("dian_liang")
dianfei(i, 3) = .Fields("dian_fei")
tdianliang(3) = tdianliang(3) + .Fields("dian_liang")
tdianfei(3) = tdianfei(3) + .Fields("dian_fei")
Case temp3:
dianliang(i, 4) = .Fields("dian_liang")
dianfei(i, 4) = .Fields("dian_fei")
tdianliang(4) = tdianliang(4) + .Fields("dian_liang")
tdianfei(4) = tdianfei(4) + .Fields("dian_fei")
Case temp4:
dianliang(i, 5) = .Fields("dian_liang")
dianfei(i, 5) = .Fields("dian_fei")
tdianliang(5) = tdianliang(5) + .Fields("dian_liang")
tdianfei(5) = tdianfei(5) + .Fields("dian_fei")
Case temp5:
dianliang(i, 6) = .Fields("dian_liang")
dianfei(i, 6) = .Fields("dian_fei")
tdianliang(6) = tdianliang(6) + .Fields("dian_liang")
tdianfei(6) = tdianfei(6) + .Fields("dian_fei")
Case temp6:
dianliang(i, 7) = .Fields("dian_liang")
dianfei(i, 7) = .Fields("dian_fei")
tdianliang(7) = tdianliang(7) + .Fields("dian_liang")
tdianfei(7) = tdianfei(7) + .Fields("dian_fei")
Case temp7:
dianliang(i, 8) = .Fields("dian_liang")
dianfei(i, 8) = .Fields("dian_fei")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -