frmmain.frm

县级电力调度管理信息系统。VB6.0开发。 DMIS调度子系统包括以下功能模块：调度操作票管理、调度运行日志、调度交接班管理、调度值班管理、调度报表管理、调度文档、避峰拉闸限电管理等7个业务模块。

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm frmMAIN 
   BackColor       =   &H8000000C&
   Caption         =   "调度管理系统"
   ClientHeight    =   3240
   ClientLeft      =   165
   ClientTop       =   1020
   ClientWidth     =   5925
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMAIN.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   65535
      Left            =   1080
      Top             =   1680
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7935
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6800
            Text            =   "值班员"
            TextSave        =   "值班员"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6800
            Text            =   "当前班次"
            TextSave        =   "当前班次"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6800
            Text            =   "当前时间 "
            TextSave        =   "当前时间 "
         EndProperty
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Menu 系统操作 
      Caption         =   "系统操作"
      Begin VB.Menu 修改密码 
         Caption         =   "用户管理"
      End
      Begin VB.Menu 值班人员表 
         Caption         =   "值班人员表"
      End
      Begin VB.Menu 退出系统 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu 设备类型1 
      Caption         =   "数据库"
      Begin VB.Menu 设备类型 
         Caption         =   "设备名称"
         Begin VB.Menu 厂站 
            Caption         =   "厂站"
         End
         Begin VB.Menu 联系单位 
            Caption         =   "联系单位"
         End
         Begin VB.Menu 设备名称 
            Caption         =   "设备名称"
         End
      End
      Begin VB.Menu 设备具体项目 
         Caption         =   "设备具体项目"
      End
      Begin VB.Menu 参数录入 
         Caption         =   "参数录入"
      End
      Begin VB.Menu 保护类型录入 
         Caption         =   "保护类型录入"
      End
      Begin VB.Menu 关口录入 
         Caption         =   "关口录入"
      End
      Begin VB.Menu 计量平衡点 
         Caption         =   "计量平衡点"
      End
      Begin VB.Menu 添加单位人员 
         Caption         =   "调度对象"
      End
   End
   Begin VB.Menu 相关表格 
      Caption         =   "相关表格"
      Begin VB.Menu 遥控遥调操作表 
         Caption         =   "遥控遥调操作表"
      End
      Begin VB.Menu 用户停电通知统计表 
         Caption         =   "用户停电通知统计表"
      End
      Begin VB.Menu 主变分头调整记录 
         Caption         =   "主变分头调整记录"
      End
      Begin VB.Menu 拉闸限电表 
         Caption         =   "拉闸限电表"
      End
      Begin VB.Menu 低频减载动作记录 
         Caption         =   "低频减载动作记录"
      End
      Begin VB.Menu 断路器跳闸记录 
         Caption         =   "断路器跳闸记录"
      End
      Begin VB.Menu 缺陷记录 
         Caption         =   "缺陷记录"
      End
      Begin VB.Menu 远动故障 
         Caption         =   "远动故障"
      End
      Begin VB.Menu 通信故障 
         Caption         =   "通信故障"
      End
      Begin VB.Menu 保护定值变更记录 
         Caption         =   "保护定值变更记录"
      End
      Begin VB.Menu 检修卡 
         Caption         =   "检修卡"
      End
   End
   Begin VB.Menu 值班记录 
      Caption         =   "值班记录"
   End
   Begin VB.Menu 交接班 
      Caption         =   "交接班"
   End
   Begin VB.Menu 操作票 
      Caption         =   "操作票"
      Begin VB.Menu 逐项操作票 
         Caption         =   "逐项操作票"
      End
      Begin VB.Menu 综合操作票 
         Caption         =   "综合操作票"
      End
      Begin VB.Menu 转201逐项操作票 
         Caption         =   "转201逐项操作票"
      End
      Begin VB.Menu 转201综合操作票 
         Caption         =   "转201综合操作票"
      End
   End
   Begin VB.Menu 综合操作票分类 
      Caption         =   "操作票查询及修改"
      Begin VB.Menu 查询统计 
         Caption         =   "操作票统计"
      End
      Begin VB.Menu 操作票查询 
         Caption         =   "操作票查询及修改"
      End
      Begin VB.Menu 转201操作票查询 
         Caption         =   "转201操作票查询及修改"
      End
   End
   Begin VB.Menu 操作票评价 
      Caption         =   "操作票评价"
   End
   Begin VB.Menu 调度月报 
      Caption         =   "调度月报"
      Begin VB.Menu 电网异常情况统计 
         Caption         =   "电网异常情况统计"
      End
      Begin VB.Menu 电网运行分析 
         Caption         =   "电网运行分析"
      End
      Begin VB.Menu 通信运行分析 
         Caption         =   "通信运行分析"
      End
      Begin VB.Menu 日关口电量 
         Caption         =   "日关口电量"
      End
      Begin VB.Menu 经济指标 
         Caption         =   "经济指标"
      End
      Begin VB.Menu 电量平衡 
         Caption         =   "电量平衡"
      End
   End
End
Attribute VB_Name = "frmMAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub MDIForm_Load()
On Error Resume Next
StatusBar1.Panels(1).Text = "登陆人： " + cname
StatusBar1.Panels(2).Text = "班次： " + ZBBC
StatusBar1.Panels(3).Text = "登陆时间： " + Format(Now, "yyyy-mm-dd hh:mm")
If frmdl.Check1.Value Then
Else
值班记录.Visible = False
交接班.Visible = False
操作票.Visible = False
操作票查询.Visible = False
End If

End Sub



Private Sub MDIForm_Unload(Cancel As Integer)
  Call Open_link
  sql3 = "update xdgl_zbb set dq='否' where rq='" & Format(Now, "yyyy-mm-dd") & "' and bc='" & ZBBC & "' and zby='" & cname & "'"
  Set RS2 = ZHCX.Execute(sql3, 0)
  Call Close_link

End Sub

Private Sub Timer1_Timer()
'Dim temp As String
'StatusBar1.Panels(3).Text = "当前时间： " + Format(Now, "yyyy-mm-dd hh:mm")
 '   A = Format(Now, "hh")
 '   If Int(A) < 8 Then
 '       temp = "早班"
 '   ElseIf Int(A) < 15 Then
 '       temp = "中班"
 '   Else
 '       temp = "晚班"
 '   End If
 '  If temp <> ZBBC Then
 '    A = MsgBox("已进入下一班的上班时间是否继续上班?", vbYesNo, "提示")
 '    If A = 6 Then
 '       ZBBC = temp
 '       StatusBar1.Panels(2).Text = "班次： " + ZBBC
        StatusBar1.Panels(3).Text = "登陆时间： " + Format(Now, "yyyy-mm-dd hh:mm")
 '    Else
 '       Unload frmMAIN
  '   End If
   'End If
End Sub

Private Sub 保护定值变更记录_Click()
Unload frmbhdzbgb
frmbhdzbgb.Show
frmbhdzbgb.Move 900, 0, 8250, 7455
End Sub

Private Sub 保护类型录入_Click()
 Unload frmXDGL_BHFLB
 frmXDGL_BHFLB.Show
 'frmbhflb.Move 900, 0, 7200, 6150
End Sub

Private Sub 参数录入_Click()

Unload frmcslr
frmcslr.Show
frmcslr.Move 0, 0, 10140, 7000
End Sub

Private Sub 操作票查询_Click()
Unload frmcxczp
frmcxczp.Show
frmcxczp.Move 0, 0, 11880, 7300

End Sub

Private Sub 操作票评价_Click()
Unload frmPJ
frmPJ.Show
frmPJ.Move 900, 0, 10830, 6630
End Sub

Private Sub 查询统计_Click()
Unload frmTJ
frmTJ.Show
frmTJ.Move 0, 0, 3750, 3600

End Sub

Private Sub 厂站_Click()
Unload frmSBLX
frmSBLX.Show
frmSBLX.Move 0, 0, 6855, 4860
frmSBLX.Option1.Value = True
frmSBLX.Option1.Visible = True
frmSBLX.Option2.Visible = False
frmSBLX.Option3.Visible = False
End Sub

Private Sub 低频减载动作记录_Click()
Unload frmdpjzb
frmdpjzb.Show
frmdpjzb.Move 900, 0, 7590, 7080
End Sub

Private Sub 电量平衡_Click()
Unload frm电量平衡
frm电量平衡.Show
frm电量平衡.Move 900, 0, 8670, 6240
End Sub

Private Sub 电网异常情况统计_Click()
Unload frm电网异常情况统计
frm电网异常情况统计.Show
frm电网异常情况统计.Move 900, 0, 7065, 7000
End Sub

Private Sub 电网运行分析_Click()
Unload frm电网运行分析
frm电网运行分析.Show
frm电网运行分析.Move 900, 0, 7065, 7000
End Sub

Private Sub 断路器跳闸记录_Click()
Unload frmdlqtzb
frmdlqtzb.Show
frmdlqtzb.Move 900, 0, 7995, 7260

End Sub

Private Sub 关口录入_Click()
Unload frm关口明细表
frm关口明细表.Show
End Sub

Private Sub 计量平衡点_Click()
Unload frmXDGL_JLD
frmXDGL_JLD.Show
End Sub

Private Sub 检修卡_Click()
Dim sendexcel As Excel.Application
Set sendexcel = CreateObject("excel.Application")
 sendexcel.Visible = True
sendexcel.Workbooks.Open (App.Path + "\检修卡.xls")  ' 打开EXCEL工作簿
sendexcel.Visible = True
sendexcel.Caption = "检修卡" ' 指定标题栏名称
sendexcel.Sheets("检修卡").Select
sendexcel.Sheets("检修卡").Visible = True

End Sub

Private Sub 交接班_Click()
Unload frmjjbb
frmjjbb.Show
frmjjbb.Move 0, 0, 11880, 7480
End Sub

Private Sub 经济指标_Click()
Unload frm主要经济技术指标
frm主要经济技术指标.Show
frm主要经济技术指标.Move 900, 0, 8985, 7530
End Sub

Private Sub 拉闸限电表_Click()
Unload frmlzxdb
frmlzxdb.Show
frmlzxdb.Move 900, 0, 7395, 6765
End Sub

Private Sub 评价情况_Click()
Unload Frmzhczptjb
Frmzhczptjb.Show
Frmzhczptjb.Move 0, 0, 11880, 7480
Frmzhczptjb.Command3.Enabled = False
Frmzhczptjb.Option1.Enabled = False
Frmzhczptjb.Option2.Enabled = False
End Sub

Private Sub 联系单位_Click()
Unload frmSBLX
frmSBLX.Show
frmSBLX.Move 0, 0, 6855, 4860
frmSBLX.Option3.Value = True
frmSBLX.Option1.Visible = False
frmSBLX.Option2.Visible = False
frmSBLX.Option3.Visible = True

End Sub

Private Sub 缺陷记录_Click()
Unload frmqxjlb
frmqxjlb.Show
frmqxjlb.Move 900, 0, 8370, 7575
End Sub

Private Sub 日关口电量_Click()
Unload frm关口电量
frm关口电量.Show
frm关口电量.Move 900, 0, 8760, 6420
End Sub

Private Sub 设备具体项目_Click()
Unload frmSBXL
frmSBXL.Show
frmSBXL.Move 0, 0, 9600, 6315
End Sub

Private Sub 设备类型_Click()
'Unload frmSBLX
'frmSBLX.Show
'frmSBLX.Move 0, 0, 6855, 4860
End Sub

Private Sub 设备名称_Click()
Unload frmSBLX
frmSBLX.Show
frmSBLX.Move 0, 0, 6855, 4860
frmSBLX.Option2.Value = True
frmSBLX.Option1.Visible = False
frmSBLX.Option2.Visible = True
frmSBLX.Option3.Visible = False

End Sub

Private Sub 添加单位人员_Click()
Unload frmczry
frmczry.Show
frmczry.Move 900, 0, 6900, 5265
End Sub

Private Sub 通信运行分析_Click()
Unload frm通信运行分析
frm通信运行分析.Show
frm通信运行分析.Move 0, 0, 7065, 7000
End Sub

Private Sub 退出系统_Click()
Unload frmdl
Unload frmMAIN
End Sub

Private Sub 修改密码_Click()
Unload frmbrown
frmbrown.Show
frmbrown.Move 900, 0, 7650, 5910
End Sub

Private Sub 遥控遥调操作表_Click()
Unload frmykytczb
frmykytczb.Show
frmykytczb.Move 900, 0, 7845, 7065
End Sub

Private Sub 用户停电通知统计表_Click()
Unload frmtdtzb
frmtdtzb.Show
frmtdtzb.Move 900, 0, 7980, 6570
End Sub

Private Sub 执行情况_Click()
Unload Frmzhczptjb
Frmzhczptjb.Show
Frmzhczptjb.Move 0, 0, 11880, 7480
Frmzhczptjb.Command2.Enabled = False
Frmzhczptjb.Option3.Enabled = False
Frmzhczptjb.Option4.Enabled = False
End Sub

Private Sub 远动故障_Click()
Unload frm远动故障
frm远动故障.Show
frm远动故障.Move 0, 0, 7395, 6570
End Sub
Private Sub 通信故障_Click()
Unload frm远动故障
frm通信故障.Show
frm通信故障.Move 0, 0, 7395, 6570
End Sub
Private Sub 值班记录_Click()
Unload frmzbjl
frmzbjl.Show
frmzbjl.Move 0, 0, 11880, 7440
End Sub

Private Sub 值班人员表_Click()
Unload frmXDGL_ZBB
frmXDGL_ZBB.Show
End Sub

Private Sub 逐项操作票_Click()
Unload frmzxczp
frmzxczp.Show
frmzxczp.Move 0, 0, 11890, 7465
End Sub

Private Sub 主变分头调整记录_Click()
Unload frmfttzb
frmfttzb.Show
frmfttzb.Move 900, 0, 9360, 6720
End Sub

Private Sub 转201操作票查询_Click()
Unload frm转201票查询
frm转201票查询.Show
frm转201票查询.Move 0, 0, 11880, 7480

End Sub

Private Sub 转201逐项操作票_Click()

Unload frm转地调逐项操作票
frm转地调逐项操作票.Show
frm转地调逐项操作票.Move 0, 0, 11890, 7465
End Sub

Private Sub 转201综合操作票_Click()
Unload frm转地调综合操作票
frm转地调综合操作票.Show
frm转地调综合操作票.Move 0, 0, 11890, 7465
End Sub

Private Sub 综合操作票_Click()
Unload frmzhczp
frmzhczp.Show
frmzhczp.Move 0, 0, 11890, 7465
End Sub