frmmain.frm

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

    Else
     '  FrmMuchvillage.Show vbModal, Me
      FrmNx5Trim.Show vbModal, Me
    End If
End Sub


Private Sub MenuSjgj_Click()
    DataTools.Show vbModal, Me
End Sub

Private Sub MenuSjhf_Click()
    'DataRestore.Show vbModal, Me
   frmDataRestore.Show vbModal
End Sub

Private Sub MenuSjsd_Click()
   Call ControlPanels("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
End Sub
'报表传输设置
Private Sub MenuSjsz_Click()
   frmDataSave.Show vbModal
End Sub
'欢迎
Private Sub MenuSjxd_Click()
   FrmWelcome.Show vbModal
End Sub

'数据校验
Private Sub MenuSjxy_Click()
   FormDataVir.Show vbModal
End Sub
 
 '///////索引
Private Sub MenuSY_Click()
   HelpFunction Me.hWnd, HELP_PARTIALKEY, ""
End Sub

Private Sub MenuTqwh_Click()
   TQinfo.Show vbModal
End Sub

Private Sub MenuTzjl_Click()
    On Error Resume Next
    If XzCode = "" Then
       Ms
    Else
       'BrowseAdjust.Show vbModal
    End If
End Sub

Private Sub MenuAbou_Click()
    FilmAbout.Show vbModal
End Sub

Private Sub MenuXcsh_Click()
    SysInitialize.Show vbModal
End Sub

Private Sub MenuXdd_Click()
    On Error Resume Next
    If XzCode = "" Then
       Ms
    Else
       PrintXdd.Show vbModal
    End If
End Sub

Private Sub MenuXgda_Click()
    On Error Resume Next
    If XzCode = "" Then
       Ms
    Else
       AmendUser.Show vbModal
    End If
End Sub

Private Sub MenuXldl_Click()
     InputLine.Show vbModal
End Sub

'
Private Sub MenuXsbb_Click()
'   FrMullageRep.Show vbModal
End Sub

Private Sub MenuXtcs_Click()
   SysParam.Show vbModal
End Sub

Private Sub MenuXxfk_Click()
    Const WEB = "http://www.china-huahang.com/cgi-bin/zsjlyb/gb.cgi?id=枕善居主"
    Dim hyperjump
    hyperjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub MenuXyzb_Click()
    NextMontData.Show vbModal
End Sub

Private Sub MenuXzwh_Click()
    TownDossier.Show vbModal
End Sub

Private Sub MenuYbdj_Click()
   On Error Resume Next
   If XzCode = "" Then
      Ms
   Else
      ManyPriceMeter.Show vbModal
   End If
End Sub

Private Sub MenuYcwh_Click()
    Const WEB = "http://www.china-huahang.com/zsj/yhyq.html"
    Dim hyperjump
    hyperjump = ShellExecute(0&, vbNullString, WEB, vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub MenuYhwh_Click()
    If XzCode = "" Then
       Ms
    Else
       OpenMdb
       Set MdbR = NdMd.OpenRecordset("电价档案")
       If MdbR.RecordCount = 0 Then
          MsgBox "请先建立电价档案!", vbCritical
          ElectPrice.Show vbModal
       Else
          CreateUser.Show vbModal, Me
       End If
    End If
End Sub

Private Sub MenuYjsm_Click()
  SearchFor.Show 1
End Sub

Private Sub MenuSysm_Click()
   HelpFunction Me.hWnd, HELP_CONTENTS, ""   '目录
'    HelpContents
End Sub

Private Sub pMenuQuit_Click()
    MenuExit_Click
End Sub

Private Sub pMenuWall_Click()
    SysParam.Show vbModal
End Sub

Private Sub resfh_Click()
    PopDataTree
End Sub

Private Sub MenuSjbf_Click()
       DataBackUp.Show vbModal
       'frmDataBackup.Show vbModal
End Sub

Private Sub MenuHztj_Click()
    If XzCode = "" Then
       Ms
    Else
       'PrintTotal.Show vbModal
    End If
End Sub

Private Sub MenuYhcx_Click()
    If XzCode = "" Then
       Ms
    Else
       UserData.Show vbModal
    End If
End Sub

Private Sub MenuDfjs_Click()
     FeeNumeration.Show vbModal
End Sub

Private Sub Menu1Exit_Click()
      Unload Me
End Sub

Private Sub SysHelp_Click()
      MenuSysm_Click
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
       Case "通讯"
           If XzCode = "" Then
              Ms
           Else
             ' FrmMuchvillage.Show vbModal, Me
             FrmNx5Trim.Show vbModal, Me
           End If
       Case "打印"
           If UserSeek = "" Then
              Ms
           Else
             PrintInvoice.Show vbModal
             'PrintFeeList.Show vbModal
           End If
       Case "设置"
           SysParam.Show vbModal
       Case "维护"
           If UserSeek = "" Then
              Ms
           Else
              AmendUser.Show vbModal
           End If
       Case "查询"
           If UserSeek = "" Then
              Ms
           Else
              UserData.Show vbModal
              'BrowseUser.Show vbModal
           End If
       Case "建立"
           If UserSeek = "" Then
              Ms
           Else
              CreateUser.Show vbModal
           End If
       Case "计算"
           FeeNumeration.Show vbModal
       Case "电价"
              ElectPrice.Show vbModal
       Case "备份"
               DataBackUp.Show vbModal
 'frmDataBackup.Show vbModal
       Case "关于"
           frmAbout.Show vbModal
       Case "帮助"
           HelpFunction Me.hWnd, HELP_INDEX, ""
       Case "退出"
           'frm_end.Show
           FormQuit.Show vbModal
    End Select
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim MouseOver As Boolean
    Dim i As Integer, II As Integer
    MouseOver = (0 <= X) And (X <= Command1.Width) And (0 <= Y) And (Y <= Command1.Height)
    If MouseOver Then
        SetCapture Command1.hWnd
        Command2.Visible = False
        Command1.Width = 4050
        Command1.Height = Screen.Height - 2220
        Frame1.Height = Screen.Height - 2350
        Frame1.Visible = True
        TreeView1.Height = Me.Height - 3200
        Label2.Top = Screen.Height - 2700
        TreeView1.Visible = True
        Combo1.Visible = True
        Combo2.Visible = True
        TreeView1.SetFocus
    Else
        ReleaseCapture
        Command2.Visible = True
        TreeView1.Visible = False
        Frame1.Visible = False
        Combo1.Visible = True
        Combo2.Visible = True
        Command1.Width = 255
        Command2.Width = 255
        Command1.Height = 3015
    End If
End Sub

Sub PopDataTree()
  Dim node1 As node, node2 As node, Node3 As node
  Dim Cdm As Recordset, Cdmhs As Recordset
  Dim Zdm As String
  Dim Zzhhs As Long
  Dim i As Integer
  On Error GoTo RefErr
  
  Combo1.Clear
  Combo2.Clear
  For i = 1999 To 2010
      Combo1.AddItem i & "年"
  Next
  If Val(Year(Now)) < 2001 Then
     MsgBox "您的计算机系统日期为:" & Year(Date) & "年，不是当前年份，请重新校对后再启动系统！", vbCritical
     End
  End If
  Combo1.Text = Year(Date) & "年"
  For i = 1 To 12
      Combo2.AddItem Format(i, "0#") & "月"
  Next
  Combo2.Text = Format(Month(Date), "0#月")
  FormColor.Refresh
  TreeView1.Nodes.Clear
  TreeView1.Refresh
  TreeView1.Sorted = True
  OpenMdb
  Dim C_zj As Long
  Set MdbR = NdMd.OpenRecordset("乡镇档案")
  While Not MdbR.eof
     Zdm = MdbR.Fields("镇代码")
     Set node1 = TreeView1.Nodes.Add(, , , "(" & Trim(MdbR.Fields("镇代码")) & ")" & MdbR.Fields("简称"), 1)
     Set Cdm = NdMd.OpenRecordset("SELECT * FROM 村档案 WHERE 村档案.镇代码= '" & Trim(Zdm) & "' ORDER BY 村代码 ASC")
     While Not Cdm.eof
        Set Cdmhs = NdMd.OpenRecordset("SELECT DISTINCT 组合编码 FROM 用户电费 WHERE 用户电费.镇村代码= '" & Trim(Zdm) & Trim(Cdm.Fields("村代码")) & "'")
        C_zj = C_zj + Cdmhs.RecordCount
        Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, , "(" & Trim(Cdm.Fields("村代码")) & ")" & Left(Trim(Cdm.Fields("简称")) & Space(16), 16 - convert_str(Trim(Cdm.Fields("简称")))) & Right(Space(4) & Cdmhs.RecordCount, 4) & "户", 2)   'Format(Cdmhs.RecordCount, "  0")
        Cdm.MoveNext
     Wend
     node1.Expanded = True
     MdbR.MoveNext
  Wend
  Label2.Caption = "累计:" & Cdm.RecordCount & "村   " & C_zj & "户"
  MdbR.MoveFirst
  Exit Sub

RefErr:
          MsgBox Err.Description, vbCritical
          Exit Sub
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   FormQuit.Show vbModal
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim i As Integer
    OpenMdb
    Set MdbR = NdMd.OpenRecordset("操作纪录")
    With MdbR
         .Index = "操作员"
         .Seek "=", Operator & ""
         If Not .NoMatch Then
                .Edit
                .Fields("退出日期") = Now
                .Update
                .Close
         End If
    End With
    NdMd.Close
    For i = Forms.Count - 1 To 1 Step -1
        Unload Forms(i)
    Next
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.EXEName, "Settings", "MainLeft", Me.Left
        SaveSetting App.EXEName, "Settings", "MainTop", Me.Top
        SaveSetting App.EXEName, "Settings", "MainWidth", Me.Width
        SaveSetting App.EXEName, "Settings", "MainHeight", Me.Height
    End If
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
        Select Case ButtonMenu.Key
               Case "清单"
                    MenuDyqd_Click
               Case "报表"
                    MenuDybb_Click
               Case "催费"
                    MenuDycf_Click
               Case "电价"
                    MenuDydj_Click
               Case "通知"
                    MenuCftz_Click
               Case "抄表"
                    MenuDycb_Click
               Case "对照"
                    MenuDydz_Click
               Case "标签"
                    MenuDybq_Click
               Case "表计"
                    MenuBjdy_Click
        End Select
End Sub

Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.node)
    On Error Resume Next
    TreeView1.Tag = ""
    XzCode = ""
    XcCode = ""
    XzCode = Mid(TreeView1.SelectedItem.Parent, 2, 3)
    If XzCode <> "" Then
        XcCode = Mid(TreeView1.SelectedItem, 2, 3)
        If Len(UserSeek) = 0 Then
           Call sTruInfo
        End If
        UserSeek = XzCode + XcCode
        XzName = Trim(Right(TreeView1.SelectedItem.Parent, Len(TreeView1.SelectedItem.Parent) - 5))
        XcName = Trim(Mid(TreeView1.SelectedItem, 7, 7))
        GzNian = Trim(Left(Combo1.Text, 4))
        GzYue = Trim(Left(Combo2.Text, 2))
        frmMain.StatusBar1.Panels(1).Text = XzName & "(" & XzCode & ")"
        frmMain.StatusBar1.Panels(2).Text = XcName & "(" & XcCode & ")"
        frmMain.StatusBar1.Panels(3).Text = "工作日期:" & Combo1.Text & Combo2.Text
        frmMain.StatusBar1.Panels(4).Text = "进入工作状态...."
        Command2.Visible = True
        TreeView1.Visible = False
        Frame1.Visible = False
        Combo1.Visible = True
        Combo2.Visible = True
        Command1.Width = 255
        Command1.Height = 3015
    Else
        UserSeek = ""
        frmMain.StatusBar1.Panels(1).Text = ""
        frmMain.StatusBar1.Panels(2).Text = ""
        frmMain.StatusBar1.Panels(3).Text = "默认日期:" & GzNian & GzYue
        frmMain.StatusBar1.Panels(4).Text = LoadResString(102) & " " & LoadResString(101)
        Close
        MdbR.Close
        NdMd.Close
        
    End If
End Sub

Sub MenuTrueFlase(TF As Boolean)
       Toolbar1.Buttons.Item(1).Enabled = TF
       Toolbar1.Buttons.Item(2).Enabled = TF
       Toolbar1.Buttons.Item(3).Enabled = TF
       Toolbar1.Buttons.Item(4).Enabled = TF
       Toolbar1.Buttons.Item(5).Enabled = TF
       Toolbar1.Buttons.Item(6).Enabled = TF
       Toolbar1.Buttons.Item(7).Enabled = TF
       Command1.Enabled = TF
       Menu1.Enabled = TF
       Menu2.Enabled = TF
       Menu3.Enabled = TF
       Menu4.Enabled = TF
       Menu7.Enabled = TF
       MenuXgda.Enabled = TF
End Sub

'/////////提示信息/////////////
Public Sub Ms()
  SetTimer hWnd, NV_CLOSEMSGBOX, 2000&, AddressOf TimerProc
  Call MessageBox(hWnd, "请把鼠标移到左上角[单位选择]处，选择单位！", _
      "系统提示", MB_ICONQUESTION Or MB_TASKMODAL)
End Sub