frm_tongji.frm

适合乡镇供电所使用电费处理系统v3 软件

                                                                                            tdianliang(8) = tdianliang(8) + .Fields("dian_liang")
                                                                                            tdianfei(8) = tdianfei(8) + .Fields("dian_fei")
                                                                                            
                                                                                   Case temp8:
                                                                                            dianliang(i, 9) = .Fields("dian_liang")
                                                                                            dianfei(i, 9) = .Fields("dian_fei")
                                                                                            tdianliang(9) = tdianliang(9) + .Fields("dian_liang")
                                                                                            tdianfei(9) = tdianfei(9) + .Fields("dian_fei")
                                                                                   Case temp9:
                                                                                            dianliang(i, 10) = .Fields("dian_liang")
                                                                                            dianfei(i, 10) = .Fields("dian_fei")
                                                                                            tdianliang(10) = tdianliang(10) + .Fields("dian_liang")
                                                                                            tdianfei(10) = tdianfei(10) + .Fields("dian_fei")
                                                                                   Case temp10:
                                                                                            dianliang(i, 11) = .Fields("dian_liang")
                                                                                            dianfei(i, 11) = .Fields("dian_fei")
                                                                                            tdianliang(11) = tdianliang(11) + .Fields("dian_liang")
                                                                                            tdianfei(11) = tdianfei(11) + .Fields("dian_fei")
                                                                                   Case temp11:
                                                                                            dianliang(i, 12) = .Fields("dian_liang")
                                                                                            dianfei(i, 12) = .Fields("dian_fei")
                                                                                            tdianliang(12) = tdianliang(12) + .Fields("dian_liang")
                                                                                            tdianfei(12) = tdianfei(12) + .Fields("dian_fei")
                                                                                   Case temp12:
                                                                                            dianliang(i, 13) = .Fields("dian_liang")
                                                                                            dianfei(i, 13) = .Fields("dian_fei")
                                                                                            tdianliang(13) = tdianliang(13) + .Fields("dian_liang")
                                                                                            tdianfei(13) = tdianfei(13) + .Fields("dian_fei")
                                                                                   Case temp13:
                                                                                            dianliang(i, 14) = .Fields("dian_liang")
                                                                                            dianfei(i, 14) = .Fields("dian_fei")
                                                                                            tdianliang(14) = tdianliang(14) + .Fields("dian_liang")
                                                                                            tdianfei(14) = tdianfei(14) + .Fields("dian_fei")
                                                                                   Case temp14:
                                                                                            dianliang(i, 15) = .Fields("dian_liang")
                                                                                            dianfei(i, 15) = .Fields("dian_fei")
                                                                                            tdianliang(15) = tdianliang(15) + .Fields("dian_liang")
                                                                                            tdianfei(15) = tdianfei(15) + .Fields("dian_fei")
                                                                                   Case temp15:
                                                                                            dianliang(i, 16) = .Fields("dian_liang")
                                                                                            dianfei(i, 16) = .Fields("dian_fei")
                                                                                            tdianliang(16) = tdianliang(16) + .Fields("dian_liang")
                                                                                            tdianfei(16) = tdianfei(16) + .Fields("dian_fei")
                                                                            End Select
                                                                       Else
                                                                              Select Case Trim(.Fields("electype"))
                                                                                   Case temp0:
                                                                                            dianliang(i, 1) = .Fields("dian_liang")
                                                                                            dianfei(i, 1) = .Fields("dian_fei")
                                                                                            tdianliang1(1) = tdianliang1(1) + .Fields("dian_liang")
                                                                                            tdianfei1(1) = tdianfei1(1) + .Fields("dian_fei")
                                                                                   Case temp1:
                                                                                            dianliang(i, 2) = .Fields("dian_liang")
                                                                                            dianfei(i, 2) = .Fields("dian_fei")
                                                                                            tdianliang1(2) = tdianliang1(2) + .Fields("dian_liang")
                                                                                            tdianfei1(2) = tdianfei1(2) + .Fields("dian_fei")
                                                                                   Case temp2:
                                                                                            dianliang(i, 3) = .Fields("dian_liang")
                                                                                            dianfei(i, 3) = .Fields("dian_fei")
                                                                                            tdianliang1(3) = tdianliang1(3) + .Fields("dian_liang")
                                                                                            tdianfei1(3) = tdianfei1(3) + .Fields("dian_fei")
                                                                                   Case temp3:
                                                                                            dianliang(i, 4) = .Fields("dian_liang")
                                                                                            dianfei(i, 4) = .Fields("dian_fei")
                                                                                            tdianliang1(4) = tdianliang1(4) + .Fields("dian_liang")
                                                                                            tdianfei1(4) = tdianfei1(4) + .Fields("dian_fei")
                                                                                   Case temp4:
                                                                                            dianliang(i, 5) = .Fields("dian_liang")
                                                                                            dianfei(i, 5) = .Fields("dian_fei")
                                                                                            tdianliang1(5) = tdianliang1(5) + .Fields("dian_liang")
                                                                                            tdianfei1(5) = tdianfei1(5) + .Fields("dian_fei")
                                                                                   Case temp5:
                                                                                            dianliang(i, 6) = .Fields("dian_liang")
                                                                                            dianfei(i, 6) = .Fields("dian_fei")
                                                                                            tdianliang1(6) = tdianliang1(6) + .Fields("dian_liang")
                                                                                            tdianfei1(6) = tdianfei1(6) + .Fields("dian_fei")
                                                                                   Case temp6:
                                                                                            dianliang(i, 7) = .Fields("dian_liang")
                                                                                            dianfei(i, 7) = .Fields("dian_fei")
                                                                                            tdianliang1(7) = tdianliang1(7) + .Fields("dian_liang")
                                                                                            tdianfei1(7) = tdianfei1(7) + .Fields("dian_fei")
                                                                                   Case temp7:
                                                                                            dianliang(i, 8) = .Fields("dian_liang")
                                                                                            dianfei(i, 8) = .Fields("dian_fei")
                                                                                            tdianliang1(8) = tdianliang1(8) + .Fields("dian_liang")
                                                                                            tdianfei1(8) = tdianfei1(8) + .Fields("dian_fei")
                                                                                            
                                                                                   Case temp8:
                                                                                            dianliang(i, 9) = .Fields("dian_liang")
                                                                                            dianfei(i, 9) = .Fields("dian_fei")
                                                                                            tdianliang1(9) = tdianliang1(9) + .Fields("dian_liang")
                                                                                            tdianfei1(9) = tdianfei1(9) + .Fields("dian_fei")
                                                                                   Case temp9:
                                                                                            dianliang(i, 10) = .Fields("dian_liang")
                                                                                            dianfei(i, 10) = .Fields("dian_fei")
                                                                                            tdianliang1(10) = tdianliang1(10) + .Fields("dian_liang")
                                                                                            tdianfei1(10) = tdianfei1(10) + .Fields("dian_fei")
                                                                                   Case temp10:
                                                                                            dianliang(i, 11) = .Fields("dian_liang")
                                                                                            dianfei(i, 11) = .Fields("dian_fei")
                                                                                            tdianliang1(11) = tdianliang1(11) + .Fields("dian_liang")
                                                                                            tdianfei1(11) = tdianfei1(11) + .Fields("dian_fei")
                                                                                   Case temp11:
                                                                                            dianliang(i, 12) = .Fields("dian_liang")
                                                                                            dianfei(i, 12) = .Fields("dian_fei")
                                                                                            tdianliang1(12) = tdianliang1(12) + .Fields("dian_liang")
                                                                                            tdianfei1(12) = tdianfei1(12) + .Fields("dian_fei")
                                                                                   Case temp12:
                                                                                            dianliang(i, 13) = .Fields("dian_liang")
                                                                                            dianfei(i, 13) = .Fields("dian_fei")
                                                                                            tdianliang1(13) = tdianliang1(13) + .Fields("dian_liang")
                                                                                            tdianfei1(13) = tdianfei1(13) + .Fields("dian_fei")
                                                                                   Case temp13:
                                                                                            dianliang(i, 14) = .Fields("dian_liang")
                                                                                            dianfei(i, 14) = .Fields("dian_fei")
                                                                                            tdianliang1(14) = tdianliang1(14) + .Fields("dian_liang")
                                                                                            tdianfei1(14) = tdianfei1(14) + .Fields("dian_fei")
                                                                                   Case temp14:
                                                                                            dianliang(i, 15) = .Fields("dian_liang")
                                                                                            dianfei(i, 15) = .Fields("dian_fei")
                                                                                            tdianliang1(15) = tdianliang1(15) + .Fields("dian_liang")
                                                                                            tdianfei1(15) = tdianfei1(15) + .Fields("dian_fei")
                                                                                   Case temp15:
                                                                                            dianliang(i, 16) = .Fields("dian_liang")
                                                                                            dianfei(i, 16) = .Fields("dian_fei")
                                                                                            tdianliang1(16) = tdianliang1(16) + .Fields("dian_liang")
                                                                                            tdianfei1(16) = tdianfei1(16) + .Fields("dian_fei")
                                                                            End Select
                                                                      End If
                                                                            If Not .EOF Then
                                                                                    .MoveNext
                                                                            End If
                                                                      Next
                                                                     End With
                                                            
                                                           If Not Adotemp.Recordset.EOF Then
                                                                  Adotemp.Recordset.MoveNext
                                                           End If
                                                Next
                                  
                                            If i < 25 Then '小于24
                                                       
                                                       Printer.FontSize = 11
                                                       Printer.Print Space(10) & "填制单位:" & "萧山市供电局" & Trim(Mid(Combo_town.Text & Space(20), 5)) & "电管站" & 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 "├────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┤"
                                               
                                                       'Printer.Print "└────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┘"
                                                       For k = 1 To i
                                                              Printer.Print "│" & Left(villname(k) & Space(10), 8 - convert_str(villname(k))) & "│" & Right(Space(10) & dianliang(k, 1), 8) & "│" & Right(Space(10) & dianfei(k, 1), 8) & "│" & Right(Space(10) & dianliang(k, 2), 8) & "│" & Right(Space(10) & dianfei(k, 2), 8) & "│" & Right(Space(10) & dianliang(k, 3), 8) & "│" & Right(Space(10) & dianfei(k, 3), 8) & "│" & Right(Space(10) & dianliang(k, 4), 8) & "│" & Right(Space(10) & dianfei(k, 4), 8) & "│" & Right(Space(10) & dianliang(k, 5), 8) & "│" & Right(Space(10) & dianfei(k, 5), 8) & "│" & Right(Space(10) & dianliang(k, 6), 8) & "│" & Right(Space(10) & dianfei(k, 6), 8) & "│" & Right(Space(10) & dianliang(k, 7), 8) & "│" & Right(Space(10) & dianfei(k, 7), 8) & "│" & Right(Space(10) & dianliang(k, 8), 8) & "│" & Right(Space(10) & dianfei(k, 8), 8) & "│"
                                                              Printer.Print "├────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┼────┤"
                                                              
                                                       Next
                                                             Printer.Print "│累    计│" & Right(Space(10) & tdianliang(1), 8) & "│" & Right(Space(10) & tdianfei(1), 8) & "│" & Right(Space(10) & tdianliang(2), 8) & "│" & Right(Space(10) & tdianfei(2), 8) & "│" & Right(Space(10) & tdianliang(3), 8) & "│" & Right(Space(10) & tdianfei(3), 8) & "│" & Right(Space(10) & tdianliang(4), 8) & "│" & Right(Space(10) & tdianfei(4), 8) & "│" & Right(Space(10) & tdianliang(5), 8) & "│" & Right(Space(10) & tdianfei(5), 8) & "│" & Right(Space(10) & tdianliang(6), 8) & "│" & Right(Space(10) & tdianfei(6), 8) & "│" & Right(Space(10) & tdianliang(7), 8) & "│" & Right(Space(10) & tdianfei(7), 8) & "│" & Right(Space(10) & tdianliang(8), 8) & "│" & Right(Space(10) & tdianfei(8), 8) & "│"
                                                             Printer.Print "└────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┴────┘"
                                                             
                                                       Printer.NewPage
                                                       
                                                       Printer.FontSize = 11
                                                       Printer.Print Space(10) & "填制单位:" & "萧山市供电局" & Trim(Mid(Combo_town.Text & Space(20), 5)) & "电管站" & Space(10) & "单位:KWH/元" & Space(20) & "制表日期:" & Format(Date, "Long date") & "-------------------(续表) "
                                                       Printer.Print "┌────┬───────────────────────────────────────────────────────────────────────────────┐"
                                                       Printer.Print "│        │                                      售                                      电                                      量                                      │"
                                                       Printer.Print "│        ├─────────┬─────────┬─────────┬─────────┬─────────┬─────────┬─────────┬─────────┤"
                                                       Printer.Pr