mdifrmmain.frm

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

VERSION 5.00
Begin VB.MDIForm MDIFrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "MDIForm1"
   ClientHeight    =   5700
   ClientLeft      =   165
   ClientTop       =   1020
   ClientWidth     =   5775
   Icon            =   "MDIFrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu Menu1 
      Caption         =   "抄表管理(&R)"
      Begin VB.Menu MenuSjcs 
         Caption         =   "数据传输(&R)"
      End
      Begin VB.Menu MenuSgsr 
         Caption         =   "手工输入(&C)"
      End
      Begin VB.Menu MenuBar0 
         Caption         =   "-"
      End
      Begin VB.Menu MenuDltz 
         Caption         =   "电费电量调整(&G)"
      End
      Begin VB.Menu MenuTzjl 
         Caption         =   "查看调整记录(&F)"
      End
   End
   Begin VB.Menu Menu2 
      Caption         =   "电费管理(&F)"
      Begin VB.Menu MenuDfjs 
         Caption         =   "电费计算(&U)"
      End
      Begin VB.Menu MenuYhcx 
         Caption         =   "用户查询(&T)"
      End
      Begin VB.Menu MenuHztj 
         Caption         =   "汇总统计(&C)"
      End
      Begin VB.Menu MenuBar1 
         Caption         =   "-"
      End
      Begin VB.Menu MenuYbdj 
         Caption         =   "一表多价处理(&D)"
      End
      Begin VB.Menu MenuBar2 
         Caption         =   "-"
      End
      Begin VB.Menu MenuFpcx 
         Caption         =   "发票统计查询(&L)"
      End
   End
   Begin VB.Menu Menu3 
      Caption         =   "打印输出(&P)"
      Begin VB.Menu MenuDyfp 
         Caption         =   "打印电费发票(&T)"
      End
      Begin VB.Menu MenuBar3 
         Caption         =   "-"
      End
      Begin VB.Menu MenuDyqd 
         Caption         =   "打印电费清单(&B)"
      End
      Begin VB.Menu MenuDycb 
         Caption         =   "打印抄表清单(&Q)"
      End
      Begin VB.Menu MenuDybb 
         Caption         =   "打印分类报表(&P)"
      End
      Begin VB.Menu MenuDycf 
         Caption         =   "打印催费清单(R)"
      End
      Begin VB.Menu MenuDydj 
         Caption         =   "打印电价分类(&O)"
      End
      Begin VB.Menu MenuCftz 
         Caption         =   "打印催费通知单(&C)"
      End
      Begin VB.Menu MenuBar4 
         Caption         =   "-"
      End
      Begin VB.Menu MenuDydz 
         Caption         =   "打印代码对照(&Z)"
      End
      Begin VB.Menu MenuuDybq 
         Caption         =   "打印电表标签(&Q)"
      End
   End
   Begin VB.Menu Menu4 
      Caption         =   "日常维护(&D)"
      Begin VB.Menu MenuXyzb 
         Caption         =   "下月电费准备(&N)"
      End
      Begin VB.Menu MenuBar5 
         Caption         =   "-"
      End
      Begin VB.Menu MenuDksj 
         Caption         =   "代扣数据生成(&S)"
      End
      Begin VB.Menu MenuDqsj 
         Caption         =   "读取信用社盘(&R)"
      End
      Begin VB.Menu MenuBar6 
         Caption         =   "-"
      End
      Begin VB.Menu MenuSjbf 
         Caption         =   "数据备份(&B)"
      End
      Begin VB.Menu MenuSjhf 
         Caption         =   "数据恢复(&H)"
      End
   End
   Begin VB.Menu Menu5 
      Caption         =   "系统维护(&S)"
      Begin VB.Menu MenuJbdawh 
         Caption         =   "基本档案维护(&W)"
         Begin VB.Menu MenuXzwh 
            Caption         =   "乡镇档案维护(&X)"
         End
         Begin VB.Menu MenuDwwh 
            Caption         =   "用电单位维护(&Y)"
         End
         Begin VB.Menu MenuYhwh 
            Caption         =   "增加用户档案(&A)"
         End
         Begin VB.Menu MenuBar7 
            Caption         =   "-"
         End
         Begin VB.Menu MenuXgda 
            Caption         =   "用户档案维护(&E)"
         End
      End
      Begin VB.Menu MenuKlwh 
         Caption         =   "系统口令维护(P)"
         Begin VB.Menu MenuCzjl 
            Caption         =   "查询操作记录(&S)"
         End
         Begin VB.Menu MenuDlkl 
            Caption         =   "修改登录口令(&E)"
         End
      End
      Begin VB.Menu MenuDjwh 
         Caption         =   "电价档案维护(&J)"
      End
      Begin VB.Menu MenuBar8 
         Caption         =   "-"
      End
      Begin VB.Menu MenuSjgj 
         Caption         =   "数据库工具(&T)"
      End
      Begin VB.Menu MenuBar9 
         Caption         =   "-"
      End
      Begin VB.Menu MenuJsdr 
         Caption         =   "导入旧数据(&I)"
      End
      Begin VB.Menu MenuXtcs 
         Caption         =   "系统参数设置(&S)"
      End
      Begin VB.Menu MenuXcsh 
         Caption         =   "系统初始化(&C)"
      End
      Begin VB.Menu MenuBar10 
         Caption         =   "-"
      End
      Begin VB.Menu MenuExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu Menu6 
      Caption         =   "帮助(&H)"
      Begin VB.Menu MenuSysm 
         Caption         =   "帮助内容(&C)"
         Shortcut        =   {F1}
      End
      Begin VB.Menu MenuSy 
         Caption         =   "索引(&I)..."
      End
      Begin VB.Menu MenuYhsm 
         Caption         =   "搜索(&S)..."
      End
      Begin VB.Menu MenuBar11 
         Caption         =   "-"
      End
      Begin VB.Menu MenuJszc 
         Caption         =   "公司主页(&W)"
      End
      Begin VB.Menu MenuRjzc 
         Caption         =   "软件注册(&R)"
      End
      Begin VB.Menu MenuBar12 
         Caption         =   "-"
      End
      Begin VB.Menu MenuRjyl 
         Caption         =   "每天一招(&D)"
      End
      Begin VB.Menu MenuAbou 
         Caption         =   "关于(&A)"
      End
   End
   Begin VB.Menu popresh 
      Caption         =   "刷新"
      Visible         =   0   'False
      Begin VB.Menu resfh 
         Caption         =   "系统刷新"
      End
      Begin VB.Menu help 
         Caption         =   "系统帮助"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub MenuSjgj_Click()
    DataTools.Show
End Sub