activereport4.dsr

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

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} ActiveReport4 
   Caption         =   "ActiveReport4"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ActiveReport4.dsx":0000
End
Attribute VB_Name = "ActiveReport4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ActiveReport_QueryClose(Cancel As Integer, CloseMode As Integer)
Call Open_link
  If RS.State Then
     RS.Close
  End If
  Sql = "DELETE  FROM XDGL_ZXCZPFB WHERE ZXLPH='" & Label9.Caption & "' AND (CZNR IS NULL) AND (CZDW IS NULL) "
  Set RS = ZHCX.Execute(Sql, 1)
  If RS.State Then
     RS.Close
  End If
Call Close_link
End Sub