⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm累计主要经济技术指标.frm

📁 县级电力调度管理信息系统。VB6.0开发。 DMIS调度子系统包括以下功能模块：调度操作票管理、调度运行日志、调度交接班管理、调度值班管理、调度报表管理、调度文档、避峰拉闸限电管理等7个业务模块。
💻 FRM
📖 第 1 页 / 共 3 页
字号:
🔍
123 
       RS.Close
       End If
  
  Set RS = ZHCX.Execute(sql3, 0)
       If Not RS.EOF Then
         temp3 = RS(0)
       End If
       If RS.State Then
       RS.Close
       End If
  
  Set RS = ZHCX.Execute(sql4, 0)
       If Not RS.EOF Then
         temp4 = RS(0)
       End If
       If RS.State Then
       RS.Close
       End If

Text15.Text = temp1
Text16.Text = temp2
Text17.Text = temp1 + temp2
If (temp1 = 0) Or (temp2 = 0) Then
    Text18.Text = 0
Else
    Text18.Text = CStr(100 * ((temp1 + temp2) / (temp3 + temp4))) + "%"
End If

Call Close_link


End Sub

Private Sub Command4_Click()
 If Text14.Text = "" Then
   A = MsgBox("请完整填写数据", vbOKOnly, "错误")
  Exit Sub
 End If
 
 Call Open_link
  sql1 = "select * from xdgl_ddyb_aqsc where rq='" & DTPicker1.Value & "' "
  Set RS = ZHCX.Execute(sql1, 0)
   If RS.EOF Then
      sql1 = "insert xdgl_ddyb_aqsc (rq,aqyxjl,jtzlp,zhzlp,hj,hgl) values('" & DTPicker1.Value & "','" & Trim(Text14.Text) & "','" & Trim(Text15.Text) & "'," & Trim(Text16.Text) & "," & Trim(Text17.Text) & ",'" & Trim(Text18.Text) & "')"
   Else
      sql1 = "update xdgl_ddyb_aqsc set aqyxjl=" & Text14.Text & ",jtzlp=" & Text15.Text & ",zhzlp=" & Text16.Text & ",hj=" & Text17.Text & ",hgl='" & Text18.Text & "' where rq='" & DTPicker1.Value & "' "
   End If
   If RS.State Then
       RS.Close
   End If
    Set RS = ZHCX.Execute(sql1, 0)
    
    If RS.State Then
       RS.Close
    End If
  
  Call Close_link

End Sub

Private Sub Command5_Click()
Unload frm设备检修
frm设备检修.Show
frm设备检修.Move 900, 0, 8610, 5580
End Sub

Private Sub Command6_Click()
Unload frm通信运行
frm通信运行.Show
frm通信运行.Move 900, 0, 8610, 5580

End Sub

Private Sub Command7_Click()
Unload frm保护装置
frm保护装置.Show
frm保护装置.Move 900, 0, 7680, 5715

End Sub

Private Sub Command8_Click()
If Text19.Text = "" Or Text20.Text = "" Then
   A = MsgBox("请完整填写数据", vbOKOnly, "错误")
  Exit Sub
 End If
 
 Call Open_link
  sql1 = "select * from xdgl_ddyb_ydqk where rq='" & DTPicker1.Value & "' "
  Set RS = ZHCX.Execute(sql1, 0)
   If RS.EOF Then
      sql1 = "insert xdgl_ddyb_ydqk (rq,ydzcyxl,zyyclhgl) values('" & DTPicker1.Value & "'," & Trim(Text19.Text) & "," & Trim(Text20.Text) & ")"
   Else
      sql1 = "update xdgl_ddyb_ydqk set ydzcyxl=" & Text19.Text & ",zyyclhgl=" & Text20.Text & " where rq='" & DTPicker1.Value & "' "
   End If
   If RS.State Then
       RS.Close
   End If
    Set RS = ZHCX.Execute(sql1, 0)
    
    If RS.State Then
       RS.Close
    End If
  
  Call Close_link

End Sub

Private Sub Command9_Click()
  Dim sendexcel As Excel.Application
Call Open_link

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
sql1 = "select * from xdgl_ddyb_scrw where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   sendexcel.Sheets("经济技术指标").Cells(4, 2).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(4, 5).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(2, 9).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(4, 9).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(2, 13).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(4, 13).Value = ""
  Else
   sendexcel.Sheets("经济技术指标").Cells(4, 2).Value = RS("gdl")
   sendexcel.Sheets("经济技术指标").Cells(4, 5).Value = RS("wsl")
   sendexcel.Sheets("经济技术指标").Cells(2, 9).Value = RS("zgfh")
   sendexcel.Sheets("经济技术指标").Cells(4, 9).Value = RS("zdfh")
   sendexcel.Sheets("经济技术指标").Range("M2:O3").FormulaR1C1 = Trim(RS("zgfh_cxsj"))
   sendexcel.Sheets("经济技术指标").Range("M4:O5").FormulaR1C1 = Trim(RS("zdfh_cxsj"))
 End If
  If RS.State Then
     RS.Close
  End If
  
 sql1 = "select * from xdgl_ddyb_mnsckh where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   sendexcel.Sheets("经济技术指标").Cells(8, 2).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(8, 5).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(8, 8).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(8, 11).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(8, 13).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(10, 5).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(10, 11).Value = ""

  Else
   sendexcel.Sheets("经济技术指标").Cells(8, 2).Value = RS("d_j")
   sendexcel.Sheets("经济技术指标").Cells(8, 5).Value = RS("d_f")
   sendexcel.Sheets("经济技术指标").Cells(8, 8).Value = RS("d_p")
   sendexcel.Sheets("经济技术指标").Cells(8, 11).Value = RS("d_g")
   sendexcel.Sheets("经济技术指标").Cells(8, 13).Value = RS("d_z")
   sendexcel.Sheets("经济技术指标").Cells(10, 5).Value = RS("jfdl")
   sendexcel.Sheets("经济技术指标").Cells(10, 11).Value = RS("yjhgl")
  End If
  If RS.State Then
     RS.Close
  End If

sql1 = "select * from xdgl_ddyb_aqsc where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   sendexcel.Sheets("经济技术指标").Cells(14, 2).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(15, 7).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(15, 9).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(15, 11).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(15, 13).Value = ""
 Else
   sendexcel.Sheets("经济技术指标").Cells(14, 2).Value = RS("aqyxjl")
   sendexcel.Sheets("经济技术指标").Cells(15, 7).Value = RS("jtzlp")
   sendexcel.Sheets("经济技术指标").Cells(15, 9).Value = RS("zhzlp")
   sendexcel.Sheets("经济技术指标").Cells(15, 11).Value = RS("hj")
   sendexcel.Sheets("经济技术指标").Cells(15, 13).Value = RS("hgl")
 End If
  If RS.State Then
     RS.Close
  End If
  
 sql1 = "select * from xdgl_ddyb_ydqk where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   sendexcel.Sheets("经济技术指标").Cells(17, 12).Value = ""
   sendexcel.Sheets("经济技术指标").Cells(19, 12).Value = ""
 Else
   sendexcel.Sheets("经济技术指标").Cells(17, 12).Value = RS("ydzcyxl")
   sendexcel.Sheets("经济技术指标").Cells(19, 12).Value = RS("zyyclhgl")
 End If
  If RS.State Then
     RS.Close
  End If
  
 sql1 = "select * from xdgl_ddyb_txyx where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
 Else
 Do While Not RS.EOF
   Select Case Trim(RS("mc"))
   Case "光纤"
        sendexcel.Sheets("经济技术指标").Cells(17, 4).Value = Trim(RS("khsl"))
        sendexcel.Sheets("经济技术指标").Cells(17, 6).Value = Trim(RS("gzsj"))
        sendexcel.Sheets("经济技术指标").Cells(17, 8).Value = Trim(RS("pjgzsj"))
        sendexcel.Sheets("经济技术指标").Cells(17, 10).Value = Trim(RS("yxl"))
   Case "载波"
        sendexcel.Sheets("经济技术指标").Cells(18, 4).Value = Trim(RS("khsl"))
        sendexcel.Sheets("经济技术指标").Cells(18, 6).Value = Trim(RS("gzsj"))
        sendexcel.Sheets("经济技术指标").Cells(18, 8).Value = Trim(RS("pjgzsj"))
        sendexcel.Sheets("经济技术指标").Cells(18, 10).Value = Trim(RS("yxl"))
   Case "总机"
        sendexcel.Sheets("经济技术指标").Cells(19, 4).Value = Trim(RS("khsl"))
        sendexcel.Sheets("经济技术指标").Cells(19, 6).Value = Trim(RS("gzsj"))
        sendexcel.Sheets("经济技术指标").Cells(19, 8).Value = Trim(RS("pjgzsj"))
        sendexcel.Sheets("经济技术指标").Cells(19, 10).Value = Trim(RS("yxl"))
   End Select
   RS.MoveNext
Loop
 End If
  If RS.State Then
     RS.Close
  End If
  
 sql1 = "select * from xdgl_ddyb_bhzz where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
 Else
 Do While Not RS.EOF
   Select Case Trim(RS("dydj"))
   Case "全部装置"
        sendexcel.Sheets("经济技术指标").Cells(21, 4).Value = RS("zsl")
        sendexcel.Sheets("经济技术指标").Cells(21, 7).Value = RS("zqcs")
        sendexcel.Sheets("经济技术指标").Cells(21, 10).Value = RS("zchcg")
        sendexcel.Sheets("经济技术指标").Cells(21, 13).Value = RS("zchbcg")
   Case "10Kv"
        sendexcel.Sheets("经济技术指标").Cells(22, 4).Value = RS("zsl")
        sendexcel.Sheets("经济技术指标").Cells(22, 7).Value = RS("zqcs")
        sendexcel.Sheets("经济技术指标").Cells(22, 10).Value = RS("zchcg")
        sendexcel.Sheets("经济技术指标").Cells(22, 13).Value = RS("zchbcg")
   Case "35Kv"
        sendexcel.Sheets("经济技术指标").Cells(23, 4).Value = RS("zsl")
        sendexcel.Sheets("经济技术指标").Cells(23, 7).Value = RS("zqcs")
        sendexcel.Sheets("经济技术指标").Cells(23, 10).Value = RS("zchcg")
        sendexcel.Sheets("经济技术指标").Cells(23, 13).Value = RS("zchbcg")
   Case "110Kv"
        sendexcel.Sheets("经济技术指标").Cells(24, 4).Value = RS("zsl")
        sendexcel.Sheets("经济技术指标").Cells(24, 7).Value = RS("zqcs")
        sendexcel.Sheets("经济技术指标").Cells(24, 10).Value = RS("zchcg")
        sendexcel.Sheets("经济技术指标").Cells(24, 13).Value = RS("zchbcg")
   End Select
   RS.MoveNext
Loop
 End If
  If RS.State Then
     RS.Close
  End If
 
 sql1 = "select * from xdgl_ddyb_sbjx where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
 Else
 i = 1
 j = 27
 Do While Not RS.EOF
        Select Case (i Mod 3)
        Case 1
            sendexcel.Sheets("经济技术指标").Cells(j, 1).Value = Trim(RS("dw"))
            sendexcel.Sheets("经济技术指标").Cells(j, 2).Value = RS("jh")
            sendexcel.Sheets("经济技术指标").Cells(j, 3).Value = RS("lj")
            sendexcel.Sheets("经济技术指标").Cells(j, 4).Value = RS("sg")
            sendexcel.Sheets("经济技术指标").Cells(j, 5).Value = RS("hj")
        Case 2
            sendexcel.Sheets("经济技术指标").Cells(j, 6).Value = Trim(RS("dw"))
            sendexcel.Sheets("经济技术指标").Cells(j, 7).Value = RS("jh")
            sendexcel.Sheets("经济技术指标").Cells(j, 8).Value = RS("lj")
            sendexcel.Sheets("经济技术指标").Cells(j, 9).Value = RS("sg")
            sendexcel.Sheets("经济技术指标").Cells(j, 10).Value = RS("hj")
        
        Case 0
            sendexcel.Sheets("经济技术指标").Cells(j, 11).Value = Trim(RS("dw"))
            sendexcel.Sheets("经济技术指标").Cells(j, 12).Value = RS("jh")
            sendexcel.Sheets("经济技术指标").Cells(j, 13).Value = RS("lj")
            sendexcel.Sheets("经济技术指标").Cells(j, 14).Value = RS("sg")
            sendexcel.Sheets("经济技术指标").Cells(j, 15).Value = RS("hj")
       End Select
       RS.MoveNext
       If (i Mod 3) = 0 Then
          j = j + 1
       End If
       i = i + 1
Loop
 End If
  If RS.State Then
     RS.Close
  End If
Call Close_link
End Sub

Private Sub Form_Load()
 DTPicker1.Value = Format(Now, "yyyy-mm-01")
 Call DTPicker1_Change
End Sub

Private Sub DTPicker1_Change()
Call Open_link
 sql1 = "select * from xdgl_ddyb_scrw where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   Text1.Text = ""
   Text2.Text = ""
   Text3.Text = ""
   Text4.Text = ""
   Text5.Text = ""
   Text6.Text = ""
  Else
   Text1.Text = RS("gdl")
   Text2.Text = RS("wsl")
   Text3.Text = RS("zgfh")
   Text4.Text = RS("zdfh")
   Text5.Text = RS("zgfh_cxsj")
   Text6.Text = RS("zdfh_cxsj")
  End If
  If RS.State Then
     RS.Close
  End If
  
 sql1 = "select * from xdgl_ddyb_mnsckh where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   Text7.Text = ""
   Text8.Text = ""
   Text9.Text = ""
   Text10.Text = ""
   Text11.Text = ""
   Text12.Text = ""
   Text13.Text = ""
  Else
   Text7.Text = RS("d_j")
   Text8.Text = RS("d_f")
   Text9.Text = RS("d_p")
   Text10.Text = RS("d_g")
   Text11.Text = RS("d_z")
   Text12.Text = RS("jfdl")
   Text13.Text = RS("yjhgl")
  End If
  If RS.State Then
     RS.Close
  End If

sql1 = "select * from xdgl_ddyb_aqsc where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   Text14.Text = ""
   Text15.Text = ""
   Text16.Text = ""
   Text17.Text = ""
   Text18.Text = ""
 Else
   Text14.Text = RS("aqyxjl")
   Text15.Text = RS("jtzlp")
   Text16.Text = RS("zhzlp")
   Text17.Text = RS("hj")
   Text18.Text = RS("hgl")
 End If
  If RS.State Then
     RS.Close
  End If
  
 sql1 = "select * from xdgl_ddyb_ydqk where rq='" & DTPicker1.Value & "' "
 Set RS = ZHCX.Execute(sql1, 1)
 If RS.EOF Then
   Text19.Text = ""
   Text20.Text = ""
 Else
   Text19.Text = RS("ydzcyxl")
   Text20.Text = RS("zyyclhgl")
 End If
  If RS.State Then
     RS.Close
  End If
  
Call Close_link
End Sub

Private Sub DTPicker1_Click()
Call DTPicker1_Change
End Sub
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -