frm_tongji.frm

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

         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   480
      TabIndex        =   2
      Top             =   120
      Width           =   1155
   End
End
Attribute VB_Name = "frm_tongji"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Function convert_str(mystring As String) As Integer
Dim i As Integer
Dim temp As String
Dim count_hz As Integer
    temp = ""
    count_hz = 0
    For i = 0 To Len(mystring) - 1
       If Asc(Mid(mystring, i + 1, 1)) < 0 Then
             count_hz = count_hz + 1
       End If
    Next
    convert_str = count_hz
End Function

Private Sub adotemp_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)

            MsgBox "数据库连接失败！！！", vbInformation
            fCancelDisplay = True
           
                Unload Me

End Sub

Private Sub cmd_close_Click()
    Unload Me
End Sub

Private Sub cmd_print_Click()
Dim temp As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim out_of_rang As Boolean
Dim dianliang(1 To 50, 1 To 16) As Long
Dim dianfei(1 To 50, 1 To 16) As Double

Dim villname(1 To 50) As String
Dim tdianliang(1 To 16) As Long
Dim tdianfei(1 To 16) As Double

Dim tdianliang1(1 To 16) As Long
Dim tdianfei1(1 To 16) As Double

Dim temp0 As String
Dim temp1 As String
Dim temp2 As String
Dim temp3 As String
Dim temp4 As String
Dim temp5 As String
Dim temp6 As String
Dim temp7 As String

Dim temp8 As String
Dim temp9 As String
Dim temp10 As String
Dim temp11 As String
Dim temp12 As String
Dim temp13 As String
Dim temp14 As String
Dim temp15 As String


Dim dl0, tdl0 As Long
Dim dl1, tdl1 As Long
Dim dl2, tdl2 As Long
Dim dl3, tdl3 As Long
Dim dl4, tdl4 As Long
Dim dl5, tdl5 As Long
Dim dl6, tdl6 As Long
Dim dl7, tdl7 As Long


Dim df0, tdf0 As Double
Dim df1, tdf1 As Double
Dim df2, tdf2 As Double
Dim df3, tdf3 As Double
Dim df4, tdf4 As Double
Dim df5, tdf5 As Double
Dim df6, tdf6 As Double
Dim df7, tdf7 As Double

On Error GoTo hander
out_of_rang = False

'MsgBox Combo_town.Text
'电价类型

temp0 = ""
temp1 = ""
temp2 = ""
temp3 = ""
temp4 = ""
temp5 = ""
temp6 = ""
temp7 = ""

temp8 = ""
temp9 = ""
temp10 = ""
temp11 = ""
temp12 = ""
temp13 = ""
temp14 = ""
temp15 = ""
'电量
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#



Screen.MousePointer = 11
   Adotemp.RecordSource = "select distinct meter.electype from meter inner join  fee on meter.userid=fee.userid  where fee.villid like '" & Mid(Combo_town.Text & Space(10), 3, 2) & "%'"
   Adotemp.Refresh
   If Adotemp.Recordset.RecordCount <> 0 Then