printgbyy.frm

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

       For I = 1 To Pr1.Max
           Set itm = ListView1.ListItems.Add(, , CStr(MdbR.Fields(2)))
           itm.SubItems(1) = IIf(MdbR.Fields!dldl = 0, "", MdbR.Fields!dldl)
           itm.SubItems(2) = IIf(MdbR.Fields!dldf = 0, "", Format(MdbR.Fields!dldf, "0.00"))
           itm.SubItems(3) = IIf(MdbR.Fields!zmdl = 0, "", MdbR.Fields!zmdl)
           itm.SubItems(4) = IIf(MdbR.Fields!zmdf = 0, "", Format(MdbR.Fields!zmdf, "0.00"))
           itm.SubItems(5) = IIf(MdbR.Fields!fjdl = 0, "", MdbR.Fields!fjdl)
           itm.SubItems(6) = IIf(MdbR.Fields!fjdf = 0, "", Format(MdbR.Fields!fjdf, "0.00"))
           itm.SubItems(7) = IIf(MdbR.Fields!sydl = 0, "", MdbR.Fields!sydl)
           itm.SubItems(8) = IIf(MdbR.Fields!sydf = 0, "", Format(MdbR.Fields!sydf, "0.00"))
           itm.SubItems(9) = IIf(MdbR.Fields!hjdl = 0, "", MdbR.Fields!hjdl)
           itm.SubItems(10) = IIf(MdbR.Fields!hjdf = 0, "", Format(MdbR.Fields!hjdf, "0.00"))
           itm.SubItems(11) = IIf(IsNull(MdbR.Fields!scyh) = True, "", MdbR.Fields!scyh)
           MdbR.MoveNext
           Pr1.Value = I
      Next
      Pr1.Value = 0
      Pr1.Visible = False
    Else
        Pr1.Visible = False
    End If
End Sub

Private Sub Command1_Click(Index As Integer)
Select Case Index
       Case 0
            Call CreaRep
       Case 1
            Call PrintHZ
       Case 2
            Unload Me
End Select
End Sub

Sub CreaRep()
    Dim I As Integer, II As Integer
    Dim Lbdl As Long, Hhs As Long, Hdl As Long, DlZdl As Long, ZmZdl As Long, JgZdl As Long, SyZdl As Long, HjZdl As Long, HjZHs As Long
    Dim Lbdf As Currency, Hdf As Currency, DlZdf As Currency, ZmZdf As Currency, JgZdf As Currency, SyZdf As Currency, HjZdf As Currency
    Lbdl = 0: Lbdf = 0: Hhs = 0: Hdl = 0: Hdf = 0
    DlZdl = 0: ZmZdl = 0: JgZdl = 0: SyZdl = 0: HjZdl = 0
    DlZdf = 0: ZmZdf = 0: JgZdf = 0: SyZdf = 0: HjZdf = 0
'    On Error GoTo PangERR
    Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.镇村代码,用户电费.台区 FROM 用户电费  GROUP BY 用户电费.镇村代码,用户电费.台区")
    'NdMd.Execute "create table 公变月报 (tm text(20),dldl Text(10),本月电量 text(6),电费 Text(8),应收 Text(8),实收 Text(8),编号1 text(6),户名1 Text(10),本月电量1 Text(6),电费1 Text(8),应收1 Text(8),实收1 Text(8))"
    'If Err = 3010 Then
    '   NdMd.Execute "delete  from " & NewKuName & ""
    '   NdMd.Execute "create table " & NewKuName & " (编号 text(6),户名 Text(10),本月电量 text(6),电费 Text(8),应收 Text(8),实收 Text(8),编号1 text(6),户名1 Text(10),本月电量1 Text(6),电费1 Text(8),应收1 Text(8),实收1 Text(8))"
    'End If
  
    Set TempRes1 = NdMd.OpenRecordset("公变月报")
    If TempRes1.RecordCount > 0 Then
       NdMd.Execute "DELETE * FROM 公变月报"
    End If
    If MdbR.RecordCount <> 0 Then
       Dim itm As ListItem
       ListView1.ListItems.Clear
       ListView1.SortKey = 0
       ListView1.SortOrder = lvwAscending
       MdbR.MoveLast
       MdbR.MoveFirst
       Pr1.Visible = True
       Screen.MousePointer = 11
       Pr1.Min = 0
       Pr1.Max = MdbR.RecordCount
       For I = 0 To MdbR.RecordCount - 1
           '1求出照明11+21+31
            For II = 1 To 3
                Select Case II
                       Case 1
                           'If MdbR.Fields(0) = "001430" Then Stop
                           '思路:先提取不是比率表中为11,21,31三种照明分类的电量电费,然后分别提取比率表中比率1.比率2中包含的三种照明的电量电费
                           
                           '先提取不是比率表中为11的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(用户电费.[" & DD & "]) AS 总电量,Sum(用户电费.[" & HH & "]) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.电价代码='11' and 多价表=false")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                            
                            '提取为比率1代码为11的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率1电量) AS 总电量,Sum(比率1电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率1代码='11'")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                            '提取为比率2代码为11的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率2电量) AS 总电量,Sum(比率2电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率2代码='11'")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                       Case 2
                           '先提取不是比率表中为21的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(用户电费.[" & DD & "]) AS 总电量,Sum(用户电费.[" & HH & "]) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.电价代码='21' and 多价表=false")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                            
                            '提取为比率1代码为21的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率1电量) AS 总电量,Sum(比率1电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率1代码='21'")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                            
                            '提取为比率2代码为21的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率2电量) AS 总电量,Sum(比率2电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率2代码='21'")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                       Case 3
                           '先提取不是比率表中为31的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(用户电费.[" & DD & "]) AS 总电量,Sum(用户电费.[" & HH & "]) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.电价代码='31' and 多价表=false")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                            
                            '提取为比率1代码为31的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率1电量) AS 总电量,Sum(比率1电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率1代码='31'")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                            
                            '提取为比率2代码为31的电量电费
                            Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率2电量) AS 总电量,Sum(比率2电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率2代码='31'")
                            Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                            Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                            
                            Hdl = Hdl + Lbdl
                            Hdf = Hdf + Lbdf
                            
                            With TempRes1
                            '照明计算结束,加入照明到月报库
                                 .AddNew
                                 .Fields!镇村代码 = MdbR.Fields(0)
                                 .Fields!TM = MdbR.Fields(1)
                                 .Fields!zmdl = Lbdl
                                 .Fields!zmdf = Lbdf
                                 '电量电费计时器复零
                                 Set itm = ListView1.ListItems.Add(, , CStr(MdbR.Fields(1)))
                                 itm.SubItems(3) = IIf(Lbdl = 0, "", Lbdl)
                                 itm.SubItems(4) = IIf(Lbdf = 0, "", Format(Lbdf, "0.00"))
                                 
                                 Lbdl = 0
                                 Lbdf = 0
                            '再提取工业
                                 '提取不是比率表中为14的电量电费
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(用户电费.[" & DD & "]) AS 总电量,Sum(用户电费.[" & HH & "]) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.电价代码='14' and 多价表=false")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 
                                 '提取比率1中为14的电量电费
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率1电量) AS 总电量,Sum(比率1电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率1代码='14'")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 
                                 '提取比率2中为14的电量电费
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率2电量) AS 总电量,Sum(比率2电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率2代码='14'")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 
                                 Hdl = Hdl + Lbdl
                                 Hdf = Hdf + Lbdf
                                 '加入提取的工业类别电量电费到月报库
                                 .Fields!dldl = Lbdl
                                 .Fields!dldf = Lbdf
                                 itm.SubItems(1) = IIf(Lbdl = 0, "", Lbdl)
                                 itm.SubItems(2) = IIf(Lbdf = 0, "", Format(Lbdf, "0.00"))
                                 Lbdl = 0
                                 Lbdf = 0
                            '商业营业
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(用户电费.[" & DD & "]) AS 总电量,Sum(用户电费.[" & HH & "]) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.电价代码='13' and 多价表=false")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 '加入合计
                                 
                                 '提取比率1中为13的电量电费
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率1电量) AS 总电量,Sum(比率1电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率1代码='13'")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 
                                 '提取比率2中为13的电量电费
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率2电量) AS 总电量,Sum(比率2电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率2代码='13'")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 Hdl = Hdl + Lbdl
                                 Hdf = Hdf + Lbdf
                                 '加入提取的工业类别电量电费到月报库
                                 .Fields!sydl = Lbdl
                                 .Fields!sydf = Lbdf
                                 itm.SubItems(7) = IIf(Lbdl = 0, "", Lbdl)
                                 itm.SubItems(8) = IIf(Lbdf = 0, "", Format(Lbdf, "0.00"))
                                 Lbdl = 0
                                 Lbdf = 0
                            '非居机关
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(用户电费.[" & DD & "]) AS 总电量,Sum(用户电费.[" & HH & "]) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.电价代码='12' and 多价表=false")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 
                                 '提取比率1中为14的电量电费
                                 Set TempRes2 = NdMd.OpenRecordset("SELECT Sum(比率1电量) AS 总电量,Sum(比率1电费) AS 总电费 FROM 用户电费  WHERE 镇村代码='" & MdbR.Fields(0) & "' and  用户电费.比率1代码='12'")
                                 Lbdl = Lbdl + IIf(IsNull(TempRes2.Fields!总电量) = True, 0, TempRes2.Fields!总电量)
                                 Lbdf = Lbdf + IIf(IsNull(TempRes2.Fields!总电费) = True, 0, TempRes2.Fields!总电费)
                                 
                                 '提取比率2中为14的电量电费