inputolddata.frm

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

                'DOEVEN
                Next
                VerStr = ""
                
                '导入村档案   尚存在代码不全
                Set RE2 = db2.OpenRecordset("村档案")
                If RE2.RecordCount <> 0 Then
                   InTr = RE2.Fields!建立日期
                   db2.Execute "DELETE * From 村档案"
                End If
                For i = 0 To List1.ListCount - 1
                      If List1.Selected(i) Then
                            RE2.AddNew
                            RE2.Fields!镇代码 = "0" & Mid(List1.List(i), 1, 2)
                            RE2.Fields!村代码 = "0" & Mid(List1.List(i), 3, 2)
                            RE2.Fields!镇村代码 = "0" & Mid(List1.List(i), 1, 2) & "0" & Mid(List1.List(i), 3, 2)
                            RE2.Fields!简称 = Mid(List1.List(i), 11, 4)
                            RE2.Fields!建立日期 = Format(Date, "YYYY年MM月DD日")
                            RE2.Fields!抄表员 = Operator
                            RE2.Update
                      End If
                Next

                '导入电价档案
                Set re = db.OpenRecordset("djk")
                Set RE2 = db2.OpenRecordset("电价档案")
                If RE2.RecordCount <> 0 Then
                   db2.Execute "DELETE * From 电价档案"
                End If
                For i = 1 To re.RecordCount   ' - 1
                    RE2.AddNew
                    RE2.Fields!电价代码 = Format(i, "00")
                    RE2.Fields!电价名称 = re.Fields!MC
                    RE2.Fields!当前电价 = Format(re.Fields!dj, "0.00")
                    RE2.Fields!建立日期 = Format(Date, "yyyy年mm月dd日")
                    RE2.Fields!操作员 = Operator
                    RE2.Fields!标记 = "当前电价"
                    RE2.Update
                    re.MoveNext
                Next
                
                '导入系统档案
                Set re = db.OpenRecordset("sys")
                Set RE2 = db2.OpenRecordset("系统信息")
                If RE2.RecordCount <> 0 Then
                   db2.Execute "DELETE * From 系统信息"
                End If
                For i = 1 To re.RecordCount
                    RE2.AddNew
                    RE2.Fields!使用单位 = re.Fields!sydw
                    RE2.Fields!信用代码 = re.Fields!dgdm
                    RE2.Update
                    re.MoveNext
                Next
                
                '导入台区信息
                On Error Resume Next
                Set re = db.OpenRecordset("tqinfo")
                Set RE2 = db2.OpenRecordset("台变信息")
                If RE2.RecordCount <> 0 Then
                   db2.Execute "DELETE * From 台变信息"
                End If
                For i = 1 To re.RecordCount
                    RE2.AddNew
                    RE2.Fields!台变代码 = re.Fields!tqdm
                    RE2.Fields!台变名称 = re.Fields!zmc
                    RE2.Update
                    re.MoveNext
                Next
                On Error GoTo 0
                '导入口令档案
'                On Error Resume Next
                Set re = db.OpenRecordset("klk")
                Set RE2 = db2.OpenRecordset("口令权限")
                If RE2.RecordCount <> 0 Then  '口令权限已导过
                   db2.Execute "DELETE * From 口令权限"
                End If
                For i = 1 To re.RecordCount
                    RE2.AddNew
                    RE2.Fields!姓名 = re.Fields!xm
                    RE2.Fields!代码 = Mid(re.Fields!DM, 1, 3)
                    RE2.Fields!工号 = re.Fields!DM
                    RE2.Fields!密码 = Crypt(re.Fields!mm, "ND2000MXF")
                    Select Case re.Fields!jb
                           Case "1"
                                RE2.Fields!权限 = "系统管理员"
                           Case "2"
                                RE2.Fields!权限 = "普通管理员"
                           Case "3"
                                RE2.Fields!权限 = "可查看用户"
                           Case Else
                                RE2.Fields!权限 = "可查看用户"
                    End Select
                    RE2.Fields!建立日期 = Format(Date)   ', "yyyy年mm日dd日")
                    RE2.Update
                    re.MoveNext
                Next
                '导入用户电费
                On Error GoTo Data_Path
                Dim DBF_Zc As String
                Me.Height = 4755
                Me.Refresh
                'Set RE2 = db2.OpenRecordset("SELECT 用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数,用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & III & "] AS 代扣信息,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码 From 用户电费 WHERE 用户电费.镇村代码='" & UserSeek & "'order by 用户电费.组合编码 asc")
                Set db = DBEngine.Workspaces(0).OpenDatabase(s & "\" & Mid(Year(Date), 3, 2) & Format(Month(Date), "00"), False, False, "FoxPro 2.5;")
                
                For i = 0 To List1.ListCount - 1
                      If List1.Selected(i) Then
                            Set re = db.OpenRecordset(Mid(List1.List(i), 1, 4))
                            DBF_Zc = "0" & Mid(List1.List(i), 1, 2) & "0" & Mid(List1.List(i), 3, 2)
'"SELECT 用户电费.多价表,用户电费.比率1,用户电费.比率2,用户电费.比率1名称,用户电费.比率2名称,用户电费.比率1电价,用户电费.比率2电价,用户电费.比率1电量,用户电费.比率2电量,用户电费.比率1电费,用户电费.比率2电费,用户电费.停用,用户电费.调整原因,用户电费.电价类别,用户电费.地址,用户电费.账号,用户电费.台区,用户电费.镇代码,用户电费.村代码,用户电费.镇村代码,用户电费.组合编码,用户电费.辅助号,用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数,用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & II & "] AS 代扣信息,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码 From 用户电费 WHERE 用户电费.镇村代码='" & DBF_Zc & "'"
                            Set RE2 = db2.OpenRecordset("SELECT 用户电费.主表,用户电费.用户类型,用户电费.镇村名称,用户电费.电价代码," & _
                         "用户电费.抄表码,用户电费.多表序号,用户电费.多价表,用户电费.比率1,用户电费.比率2,用户电费.比率1名称,用户电费.比率2名称,用户电费.比率1电价,用户电费.比率2电价,用户电费.比率1电量,用户电费.比率2电量,用户电费.比率1电费,用户电费.比率2电费,用户电费.停用,用户电费.调整原因,用户电费.电价类别,用户电费.地址,用户电费.账号,用户电费.台区,用户电费.镇代码,用户电费.村代码,用户电费.镇村代码,用户电费.组合编码,用户电费.辅助号,用户电费.用户编码,用户电费.用户名称,用户电费.[" & AAA & "] AS 上期示数, 用户电费.[" & AA & "] AS 本期示数,用户电费.表损, 用户电费.倍率,用户电费.[" & BB & "] AS 调整电量,用户电费.[" & CC & "] AS 本次电量, 用户电费.[" & DD & "] AS 合计电量,用户电费.电价,用户电费.[" & EE & "] AS 调整金额, 用户电费.[" & FF & "] AS 滞纳金, 用户电费.[" & GG & "] AS 本次电费, 用户电费.[" & HH & "] AS 合计电费,用户电费.[" & JJ & "] AS 发票打印,用户电费.[" & KK & "] AS 交费情况,用户电费.组合编码 From 用户电费 WHERE 用户电费.镇村代码='" & DBF_Zc & "'")
                            If RE2.RecordCount > 0 Then
                              ' If MsgBox(Mid(List1.List(i), 7, 8) & Format(InTr, "YYYY年MM月DD日") & "已导过,是否覆盖(Y/N)?", vbInformation + vbYesNo) = vbYes Then
                              db2.Execute "DELETE * FROM 用户电费 WHERE 镇村代码='" & DBF_Zc & "'"
                              ' Else
                              '    Exit Sub
                              ' End If
                            End If
                            PrBar1.Max = re.RecordCount
                            Dim III As Integer
                            For III = 0 To PrBar1.Max - 1
                                RE2.AddNew
                                RE2.Fields!主表 = 1
                                RE2.Fields!镇村名称 = "一号村"
                                RE2.Fields!用户类型 = "普通照明"
                                RE2.Fields!多表序号 = 1
                                RE2.Fields!镇代码 = "0" & Mid(List1.List(i), 1, 2)
                                RE2.Fields!村代码 = "0" & Mid(List1.List(i), 3, 2)
                                RE2.Fields!镇村代码 = RE2.Fields!镇代码 & RE2.Fields!村代码
                                RE2.Fields!用户编码 = re.Fields!cbm
                                RE2.Fields!抄表码 = re.Fields!cbm
                                RE2.Fields!组合编码 = RE2.Fields!镇代码 & RE2.Fields!村代码 & RE2.Fields!用户编码
                                RE2.Fields!辅助号 = re.Fields!JH
                                RE2.Fields!用户名称 = re.Fields!yhm
                                RE2.Fields!地址 = re.Fields!dz
                                RE2.Fields!账号 = re.Fields!yhzh
                                RE2.Fields!台区 = re.Fields!tq
                                RE2.Fields!表损 = IIf(Val(re.Fields!bs) > 0, re.Fields!bs, Null)
                                RE2.Fields!倍率 = IIf(Val(re.Fields!bl) > 0, re.Fields!bl, 1)
                                RE2.Fields!电价类别 = re.Fields!LB
                                RE2.Fields!电价 = re.Fields!dj
                                RE2.Fields!上期示数 = re.Fields!syc
                                RE2.Fields!本期示数 = re.Fields!byc
                                RE2.Fields!本次电量 = re.Fields!SYD
                                RE2.Fields!合计电量 = re.Fields!SYD
                                RE2.Fields!本次电费 = re.Fields!df
                                RE2.Fields!合计电费 = re.Fields!hjdf
                                RE2.Fields!滞纳金 = re.Fields!znj
                             '   RE2.Fields!上期金额 = re.Fields!sqj
                              '  RE2.Fields!代扣信息 = IIf(re.Fields!DK = "已扣", 1, 0)
                                RE2.Fields!发票打印 = IIf(re.Fields!SC = "*", 1, 0)
                                RE2.Fields!调整电量 = re.Fields!Tb
                                RE2.Fields!交费情况 = IIf(re.Fields!JH = "已交", 1, 0)
                                RE2.Fields!停用 = IIf(re.Fields!ty = "停用", 1, 0)
                                'RE2.Fields!调整原因 = re.Fields!fb
                                RE2.Fields!多价表 = IIf(re.Fields!fb = "特", 1, 0)
                                RE2.Fields!比率1 = re.Fields!t1
                                RE2.Fields!比率2 = re.Fields!t2
                                RE2.Fields!比率1名称 = re.Fields!tm1
                                RE2.Fields!比率2名称 = re.Fields!tm2
                                RE2.Fields!比率1电价 = re.Fields!tj1
                                RE2.Fields!比率2电价 = re.Fields!tj2
                                RE2.Fields!比率1电量 = re.Fields!td1
                                RE2.Fields!比率2电量 = re.Fields!td2
                                RE2.Fields!比率1电费 = re.Fields!tf1
                                RE2.Fields!比率2电费 = re.Fields!tf2
                                RE2.Update
                                PrBar1.Value = III + 1
                                re.MoveNext
                            Next
                      End If
                Next
                             
               '      MsgBox "系统没有做初始化工作,请先做初始化!", vbCritical
               re.Close
               db.Close
               RE2.Close
               db2.Close
               Screen.MousePointer = 0
               frmMain.MenuTrueFlase (True)
               frmMain.PopDataTree
               MsgBox "数据导入完毕!" & "用时" & Timer - nSec & "秒", vbInformation
               Me.Height = 4425
               Timer1.Enabled = True
               
          Case 3    '关闭窗口
               Unload Me
   End Select
   Exit Sub
   
Data_Path:
     If Err.Number = 3075 Then
        MsgBox Err.Description, vbInformation
        Exit Sub
     Else
     MsgBox "所选数据路径系统无法找到，请检查系统日期！", vbCritical
     Screen.MousePointer = 0
     Me.Height = 4425
     re.Close
     db.Close
     RE2.Close
     db2.Close
     Exit Sub
     End If
End Sub

Private Sub Form_Load()
   Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
   Command2(0).Enabled = False
   Command2(1).Enabled = False
   Command2(2).Enabled = False
   Timer1.Enabled = False
End Sub

Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String
    Dim iNull As Integer
    Dim lpIDList As Long
    Dim lResult As Long
    Dim sPath As String
    Dim udtBI As BrowseInfo
    With udtBI
        .hwndOwner = hwndOwner
        .lpszTitle = lstrcat(sPrompt, "")
        
        .ulFlags = BIF_RETURNONLYFSDIRS
    End With
    lpIDList = SHBrowseForFolder(udtBI)
    If lpIDList Then
        sPath = String$(MAX_PATH, 0)
        lResult = SHGetPathFromIDList(lpIDList, sPath)
    Call CoTaskMemFree(lpIDList)
    iNull = InStr(sPath, vbNullChar)
    If iNull Then
        sPath = Left$(sPath, iNull - 1)
    End If
    End If
    BrowseForFolder = sPath
End Function

Private Sub List1_Click()
    Dim i As Integer
    If List1.ListCount <> 0 Then
        For i = 0 To List1.ListCount - 1
              If List1.Selected(i) Then
                  Command2(1).Enabled = True
                  Command2(2).Enabled = True
                  Exit For
              Else
                  Command2(1).Enabled = False
                  Command2(2).Enabled = False
              End If
        Next
      '  List1.ListIndex = 0
    End If
End Sub

Private Sub Timer1_Timer()
   Unload Me
End Sub