📄 frm累计主要经济技术指标.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1455
Left = 0
TabIndex = 11
Top = 3600
Width = 8535
Begin VB.TextBox Text14
BackColor = &H00C0C0C0&
Height = 375
Left = 1680
TabIndex = 18
Top = 360
Width = 1095
End
Begin VB.TextBox Text15
BackColor = &H00C0C0C0&
Height = 375
Left = 4200
TabIndex = 17
Top = 360
Width = 735
End
Begin VB.TextBox Text16
BackColor = &H00C0C0C0&
Height = 375
Left = 6360
TabIndex = 16
Top = 360
Width = 735
End
Begin VB.TextBox Text17
BackColor = &H00C0C0C0&
Height = 375
Left = 1080
TabIndex = 15
Top = 840
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "统 计"
Height = 375
Left = 7440
TabIndex = 14
Top = 290
Width = 855
End
Begin VB.CommandButton Command4
Caption = "确定"
Height = 375
Left = 7440
TabIndex = 13
Top = 810
Width = 855
End
Begin VB.TextBox Text18
BackColor = &H00C0C0C0&
Height = 375
Left = 3480
TabIndex = 12
Top = 840
Width = 1335
End
Begin VB.Label Label15
Caption = "安全运行记录"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 23
Top = 360
Width = 1335
End
Begin VB.Label Label16
Caption = "具体指令票"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2880
TabIndex = 22
Top = 360
Width = 1095
End
Begin VB.Label Label17
Caption = "综合指令票"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5040
TabIndex = 21
Top = 360
Width = 1095
End
Begin VB.Label Label18
Caption = "合计"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 20
Top = 900
Width = 735
End
Begin VB.Label Label19
Caption = "合格率"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2520
TabIndex = 19
Top = 900
Width = 735
End
End
Begin VB.CommandButton Command5
Caption = "设备检修"
Height = 375
Left = 720
TabIndex = 9
Top = 6360
Width = 1215
End
Begin VB.CommandButton Command6
Caption = "通信运行"
Height = 375
Left = 2520
TabIndex = 8
Top = 6360
Width = 1215
End
Begin VB.CommandButton Command7
Caption = "保护装置"
Height = 375
Left = 4320
TabIndex = 7
Top = 6360
Width = 1215
End
Begin VB.Frame Frame4
Caption = "远动运行情况"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 0
TabIndex = 1
Top = 5160
Width = 8535
Begin VB.TextBox Text19
BackColor = &H00C0C0C0&
Height = 375
Left = 2280
TabIndex = 4
Top = 320
Width = 1215
End
Begin VB.TextBox Text20
BackColor = &H00C0C0C0&
Height = 375
Left = 5640
TabIndex = 3
Top = 320
Width = 1455
End
Begin VB.CommandButton Command8
Caption = "确定"
Height = 375
Left = 7440
TabIndex = 2
Top = 300
Width = 855
End
Begin VB.Label Label20
Caption = "远动正常运行率"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 6
Top = 390
Width = 1575
End
Begin VB.Label Label21
Caption = "主要YC量合格率"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3840
TabIndex = 5
Top = 390
Width = 1575
End
End
Begin VB.CommandButton Command9
Caption = "打印"
Height = 375
Left = 6000
TabIndex = 0
Top = 6360
Width = 1095
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 1920
TabIndex = 10
Top = 0
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CustomFormat = "yyyy-MM"
Format = 234881027
UpDown = -1 'True
CurrentDate = 37918
End
Begin VB.Label Label1
Caption = "月 份"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 480
TabIndex = 54
Top = 100
Width = 855
End
End
Attribute VB_Name = "frm累计主要经济技术指标"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Then
A = MsgBox("请完整填写数据", vbOKOnly, "错误")
Exit Sub
End If
If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) And IsNumeric(Text3.Text) And IsNumeric(Text4.Text) Then
Else
A = MsgBox("数据输入有问题，请检查输入！", vbOKOnly, "错误")
Exit Sub
End If
Call Open_link
sql1 = "select * from xdgl_ddyb_scrw where rq='" & DTPicker1.Value & "' "
Set RS = ZHCX.Execute(sql1, 0)
If RS.EOF Then
sql1 = "insert xdgl_ddyb_scrw (rq,gdl,wsl,zgfh,zdfh,zgfh_cxsj,zdfh_cxsj) values('" & DTPicker1.Value & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "'," & Trim(Text3.Text) & "," & Trim(Text4.Text) & "," & Trim(Text5.Text) & "," & Trim(Text6.Text) & ")"
Else
sql1 = "update xdgl_ddyb_scrw set gdl=" & Text1.Text & ",wsl=" & Text2.Text & ",zgfh=" & Text3.Text & ",zdfh=" & Text4.Text & ",zgfh_cxsj=" & Text5.Text & ",zdfh_cxsj=" & Text6.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 Command2_Click()
If Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text11.Text = "" Or Text13.Text = "" Then
A = MsgBox("请完整填写数据", vbOKOnly, "错误")
Exit Sub
End If
If IsNumeric(Text7.Text) And IsNumeric(Text8.Text) And IsNumeric(Text9.Text) And IsNumeric(Text10.Text) And IsNumeric(Text11.Text) And IsNumeric(Text12.Text) And IsNumeric(Text13.Text) Then
Else
A = MsgBox("数据输入有问题，请检查输入！", vbOKOnly, "错误")
Exit Sub
End If
Call Open_link
sql1 = "select * from xdgl_ddyb_mnsckh where rq='" & DTPicker1.Value & "' "
Set RS = ZHCX.Execute(sql1, 0)
If RS.EOF Then
sql1 = "insert xdgl_ddyb_mnsckh (rq,d_j,d_f,d_p,d_g,d_z,jfdl,yjhgl) values('" & DTPicker1.Value & "','" & Trim(Text7.Text) & "','" & Trim(Text8.Text) & "'," & Trim(Text9.Text) & "," & Trim(Text10.Text) & "," & Trim(Text11.Text) & "," & Trim(Text12.Text) & "," & Trim(Text13.Text) & ")"
Else
sql1 = "update xdgl_ddyb_mnsckh set d_j=" & Text7.Text & ",d_f=" & Text8.Text & ",d_p=" & Text9.Text & ",d_g=" & Text10.Text & ",d_z=" & Text11.Text & ",jfdl=" & Text12.Text & ",yjhgl=" & Trim(Text13.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 Command3_Click()
Call Open_link
sql1 = "select count(zxlph) from xdgl_zxczpzb where zxqk='已执行' and zxsj between '" & DTPicker1.Value & "' and '" & DateAdd("d", -1, DateAdd("m", 1, DTPicker1.Value)) & "'"
sql2 = "select count(zlph) from xdgl_zhczpzb where zxjg='已执行' and rq between '" & DTPicker1.Value & "' and '" & DateAdd("d", -1, DateAdd("m", 1, DTPicker1.Value)) & "'"
sql3 = "select count(zxlph) from xdgl_zxczpzb where pjqk='合格' and zxsj between '" & DTPicker1.Value & "' and '" & DateAdd("d", -1, DateAdd("m", 1, DTPicker1.Value)) & "'"
sql4 = "select count(zlph) from xdgl_zhczpzb where pjjg='已执行' and rq between '" & DTPicker1.Value & "' and '" & DateAdd("d", -1, DateAdd("m", 1, DTPicker1.Value)) & "'"
Set RS = ZHCX.Execute(sql1, 0)
If Not RS.EOF Then
temp1 = RS(0)
End If
If RS.State Then
RS.Close
End If
Set RS = ZHCX.Execute(sql2, 0)
If Not RS.EOF Then
temp2 = RS(0)
End If
If RS.State Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -