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

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

📁 县级电力调度管理信息系统。VB6.0开发。 DMIS调度子系统包括以下功能模块：调度操作票管理、调度运行日志、调度交接班管理、调度值班管理、调度报表管理、调度文档、避峰拉闸限电管理等7个业务模块。
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
      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()
On Error Resume Next
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()
On Error Resume Next
  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
sendexcel.Sheets("经济技术指标").Cells(1, 1).Value = Format(Now, "M") + "月份主要技术经济指标"
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 = Format(RS("zgfh_cxsj"), "mm月dd日")
   sendexcel.Sheets("经济技术指标").Range("M4:O5").FormulaR1C1 = Format(RS("zdfh_cxsj"), "mm月dd日")
 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, 7).Value = Trim(RS("gzsj"))
        sendexcel.Sheets("经济技术指标").Cells(17, 10).Value = Trim(RS("pjgzsj"))
        sendexcel.Sheets("经济技术指标").Cells(17, 13).Value = Trim(RS("yxl"))
   Case "载波"
        sendexcel.Sheets("经济技术指标").Cells(18, 4).Value = Trim(RS("khsl"))
        sendexcel.Sheets("经济技术指标").Cells(18, 7).Value = Trim(RS("gzsj"))
        sendexcel.Sheets("经济技术指标").Cells(18, 10).Value = Trim(RS("pjgzsj"))
        sendexcel.Sheets("经济技术指标").Cells(18, 13).Value = Trim(RS("yxl"))
   Case "总机"
        sendexcel.Sheets("经济技术指标").Cells(19, 4).Value = Trim(RS("khsl"))
        sendexcel.Sheets("经济技术指标").Cells(19, 7).Value = Trim(RS("gzsj"))
        sendexcel.Sheets("经济技术指标").Cells(19, 10).Value = Trim(RS("pjgzsj"))
        sendexcel.Sheets("经济技术指标").Cells(19, 13).Value = Trim(RS("yxl"))
  Case "微波"
        sendexcel.Sheets("经济技术指标").Cells(20, 4).Value = Trim(RS("khsl"))
        sendexcel.Sheets("经济技术指标").Cells(20, 7).Value = Trim(RS("gzsj"))
        sendexcel.Sheets("经济技术指标").Cells(20, 10).Value = Trim(RS("pjgzsj"))
        sendexcel.Sheets("经济技术指标").Cells(20, 13).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(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 "10Kv"
        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 "35Kv"
        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")
   Case "110Kv"
        sendexcel.Sheets("经济技术指标").Cells(25, 4).Value = RS("zsl")
        sendexcel.Sheets("经济技术指标").Cells(25, 7).Value = RS("zqcs")
        sendexcel.Sheets("经济技术指标").Cells(25, 10).Value = RS("zchcg")
        sendexcel.Sheets("经济技术指标").Cells(25, 13).Value = RS("zchbcg")
   Case "故障录波"
        sendexcel.Sheets("经济技术指标").Cells(26, 4).Value = RS("zsl")
        sendexcel.Sheets("经济技术指标").Cells(26, 7).Value = RS("zqcs")
        sendexcel.Sheets("经济技术指标").Cells(26, 10).Value = RS("zchcg")
        sendexcel.Sheets("经济技术指标").Cells(26, 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 = 29
 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()
On Error Resume Next
 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
1234

⌨️ 快捷键说明

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