activereport6.dsr

来自「县级电力调度管理信息系统。VB6.0开发。 DMIS调度子系统包括以下功能模块」· DSR 代码 · 共 31 行

VERSION 5.00
Begin {9EB8768B-CDFA-44DF-8F3E-857A8405E1DB} ActiveReport6 
   Caption         =   "ActiveReport6"
   ClientHeight    =   8595
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   StartUpPosition =   3  '窗口缺省
   _ExtentX        =   20955
   _ExtentY        =   15161
   SectionData     =   "ActiveReport6.dsx":0000
End
Attribute VB_Name = "ActiveReport6"
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_ZZXCZPFB WHERE ZXLPH='" & Label9.Caption & "' AND (ID IS NULL) "
  Set RS = ZHCX.Execute(Sql, 1)
  If RS.State Then
     RS.Close
  End If
Call Close_link
End Sub