📄 frm关口电量.frm

📁 县级电力调度管理信息系统。VB6.0开发。 DMIS调度子系统包括以下功能模块：调度操作票管理、调度运行日志、调度交接班管理、调度值班管理、调度报表管理、调度文档、避峰拉闸限电管理等7个业务模块。
💻 FRM
📖 第 1 页 / 共 5 页
字号:
Attribute VB_Exposed = False
Private Sub Combo1_Change()
Call qk
End Sub

Private Sub Combo1_Click()
Call qk
End Sub

Private Sub Combo2_Change()
Call qk
End Sub

Private Sub Combo2_Click()
Call qk
End Sub

Private Sub command1_Click()
On Error Resume Next
 If Combo1.Text = "" Then
  A = MsgBox("请选择电量关口", vbOKOnly, "错误")
  Exit Sub
 End If
 
 If IsNumeric(Text1.Text) Then
 Else
 A = MsgBox("关口电量输入有问题，请检查输入！", vbOKOnly, "错误")
 Exit Sub
 End If
 
 If IsNumeric(Text2.Text) Then
 Else
 A = MsgBox("关口电量输入有问题，请检查输入！", vbOKOnly, "错误")
 Exit Sub
 End If
 
 If IsNumeric(Text3.Text) Then
 Else
 A = MsgBox("关口电量输入有问题，请检查输入！", vbOKOnly, "错误")
 Exit Sub
 End If
 
 If IsNumeric(Text4.Text) Then
 Else
 A = MsgBox("关口电量输入有问题，请检查输入！", vbOKOnly, "错误")
 Exit Sub
 End If
 
 If IsNumeric(Text5.Text) Then
 Else
 A = MsgBox("关口电量输入有问题，请检查输入！", vbOKOnly, "错误")
 Exit Sub
 End If
 
 Call Open_link
  sql1 = "select * from xdgl_ddyb_rdl where rq='" & DTPicker1.Value & "' and gk='" & Trim(Combo1.Text) & "' and dllx='" & Trim(Combo2.Text) & "'"
  Set RS = ZHCX.Execute(sql1, 0)
   If RS.EOF Then
      sql1 = "insert xdgl_ddyb_rdl (rq,dllx,gk,d_1,d_2,d_3,d_4,d_z) values('" & DTPicker1.Value & "','" & Trim(Combo2.Text) & "','" & Trim(Combo1.Text) & "'," & Trim(Text1.Text) & "," & Trim(Text2.Text) & "," & Trim(Text3.Text) & "," & Trim(Text4.Text) & "," & Trim(Text5.Text) & ")"
   Else
      sql1 = "update xdgl_ddyb_rdl set d_1=" & Text1.Text & ",d_2=" & Text2.Text & ",d_3=" & Text3.Text & ",d_4=" & Text4.Text & ",d_z=" & Text5.Text & " where rq='" & DTPicker1.Value & "' and gk='" & Trim(Combo1.Text) & "' and dllx='" & Trim(Combo2.Text) & "'"
   End If
   If RS.State Then
       RS.Close
   End If
    Set RS = ZHCX.Execute(sql1, 0)
    If Trim(Combo2.Text) = "止码" Then
       sql1 = "insert xdgl_ddyb_rdl (rq,dllx,gk,d_1,d_2,d_3,d_4,d_z) values('" & DateAdd("d", 1, DTPicker1.Value) & "','起码','" & Trim(Combo1.Text) & "'," & Trim(Text1.Text) & "," & Trim(Text2.Text) & "," & Trim(Text3.Text) & "," & Trim(Text4.Text) & "," & Trim(Text5.Text) & ")"
       sql2 = "delete from xdgl_ddyb_rdl where rq='" & DateAdd("d", 1, DTPicker1.Value) & "' and dllx='起码' and  gk='" & Trim(Combo1.Text) & "'"
       Set RS = ZHCX.Execute(sql2, 0)
       Set RS = ZHCX.Execute(sql1, 0)
    End If
    If RS.State Then
       RS.Close
    End If
    
    Adodc1.Refresh
    Call sx
    
  
  Call Close_link
 End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim b(3) As String
Dim sendexcel As Excel.Application
Set sendexcel = CreateObject("Excel.Application")
    sendexcel.Visible = True
    sendexcel.Workbooks.Add
Call Open_link


  

sendexcel.Range("A1:W1").Select
    sendexcel.ActiveWindow.ScrollColumn = 1
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.ActiveWindow.ScrollColumn = 4
    sendexcel.ActiveWindow.ScrollColumn = 12
    sendexcel.ActiveWindow.ScrollColumn = 14
    sendexcel.ActiveWindow.ScrollColumn = 1
    sendexcel.Rows("1:1").RowHeight = 22.5
    sendexcel.Rows("1:1").RowHeight = 29.25
    sendexcel.Range("A1:W1").Select
    With sendexcel.Selection.Font
        .Name = "宋体"
        .Size = 24
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With sendexcel.Selection.Font
        .Name = "隶书"
        .Size = 24
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    sendexcel.ActiveWindow.ScrollColumn = 7
    sendexcel.ActiveWindow.ScrollColumn = 1
    sendexcel.Rows("1:1").RowHeight = 34.5
    sendexcel.ActiveWindow.ScrollColumn = 6
    sendexcel.ActiveWindow.ScrollColumn = 1
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = True
    End With
    sendexcel.ActiveWindow.ScrollColumn = 10
    sendexcel.ActiveWindow.ScrollColumn = 6
    sendexcel.ActiveWindow.ScrollColumn = 14
    sendexcel.Range("U2:W2").Select
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.Range("U2:W2").Select
    sendexcel.ActiveCell.FormulaR1C1 = "制表人：                    计量单位：万kwh"
    With sendexcel.ActiveCell.Characters(Start:=1, Length:=6).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With sendexcel.ActiveCell.Characters(Start:=7, Length:=3).Font
        .Name = "Times New Roman"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    sendexcel.Range("U2:W2").Select
    sendexcel.Rows("2:2").RowHeight = 18
    sendexcel.ActiveWindow.ScrollColumn = 1
    sendexcel.Range("A3:A4").Select
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.Range("B3:B4").Select
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.Range("A3:A4").Select
    sendexcel.ActiveCell.FormulaR1C1 = "计量关口"
    sendexcel.Range("B3:B4").Select
    sendexcel.ActiveCell.FormulaR1C1 = "计量方法"
    sendexcel.Range("C3:G3").Select
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.ActiveCell.FormulaR1C1 = "止步码"
    sendexcel.Range("C3:G3").Select
    sendexcel.ActiveCell.FormulaR1C1 = "止码"
    sendexcel.Range("C4").Select
    sendexcel.ActiveCell.FormulaR1C1 = "尖"
    sendexcel.Range("D4").Select
    sendexcel.ActiveCell.FormulaR1C1 = "峰"
    sendexcel.Range("E4").Select
    sendexcel.ActiveCell.FormulaR1C1 = "平"
    sendexcel.Range("F4").Select
    sendexcel.ActiveCell.FormulaR1C1 = "谷"
    sendexcel.Range("G4").Select
    sendexcel.ActiveCell.FormulaR1C1 = "总"
    sendexcel.Range("H3").Select
    sendexcel.ActiveWindow.ScrollColumn = 5
    sendexcel.Range("H3:L3").Select
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.ActiveCell.FormulaR1C1 = "起码"
    sendexcel.Range("C4:G4").Select
    sendexcel.Selection.Copy
    sendexcel.Range("H4:L4").Select
    sendexcel.ActiveSheet.Paste
    sendexcel.ActiveWindow.ScrollColumn = 8
    sendexcel.Range("M3:Q3").Select
    sendexcel.Application.CutCopyMode = False
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.ActiveCell.FormulaR1C1 = "表码"
    sendexcel.Range("H4:L4").Select
    sendexcel.Selection.Copy
    sendexcel.Range("M4:Q4").Select
    sendexcel.ActiveSheet.Paste
    sendexcel.ActiveWindow.ScrollColumn = 12
    sendexcel.Range("S3:W3").Select
    sendexcel.Application.CutCopyMode = False
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.Range("S4").Select
    sendexcel.ActiveWindow.SmallScroll ToRight:=-3
    sendexcel.Range("M4:Q4").Select
    sendexcel.Selection.Copy
    sendexcel.ActiveWindow.ScrollColumn = 14
    sendexcel.Range("S4:W4").Select
    sendexcel.ActiveSheet.Paste
    sendexcel.Range("R3:R4").Select
    sendexcel.Application.CutCopyMode = False
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
        .MergeCells = False
    End With
    sendexcel.Selection.Merge
    sendexcel.ActiveCell.FormulaR1C1 = "倍率"
    sendexcel.Range("S11").Select
    sendexcel.ActiveWindow.ScrollColumn = 1
    sendexcel.Rows("2:4").Select
    With sendexcel.Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .ShrinkToFit = False
    End With
    sendexcel.Range("C3:G3").Select
    sendexcel.ActiveCell.FormulaR1C1 = "止         码"
    With sendexcel.ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With sendexcel.ActiveCell.Characters(Start:=2, Length:=9).Font
        .Name = "Times New Roman"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With sendexcel.ActiveCell.Characters(Start:=11, Length:=1).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    sendexcel.Range("H3:L3").Select
    sendexcel.ActiveCell.FormulaR1C1 = "起        码"
    With sendexcel.ActiveCell.Characters(Start:=1, Length:=1).Font
        .Name = "宋体"
        .FontStyle = "常规"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
💿 文件大小 418 K
👤 上传用户 liu2000dz
📂 所属分类企业管理
🏷️ 相关标签

#调度 #DMIS #6.0 #模块
⌨️ 快捷键说明

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