📄 frmlzxdb.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form frmlzxdb
Caption = "拉闸限电统计表"
ClientHeight = 6360
ClientLeft = 60
ClientTop = 345
ClientWidth = 7275
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6360
ScaleWidth = 7275
Begin VB.CommandButton Command5
Caption = "打印"
Height = 375
Left = 5760
TabIndex = 14
Top = 5760
Width = 1095
End
Begin VB.CheckBox Check2
Caption = "全选"
Height = 375
Left = 720
TabIndex = 9
Top = 3120
Width = 735
End
Begin VB.CheckBox Check1
Caption = "全选"
Height = 375
Left = 840
TabIndex = 8
Top = 240
Width = 735
End
Begin VB.CommandButton Command3
Caption = "查询"
Height = 375
Left = 3960
TabIndex = 7
Top = 5760
Width = 975
End
Begin VB.CommandButton Command2
Caption = "删除"
Height = 375
Left = 2160
TabIndex = 6
Top = 5760
Width = 975
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 375
Left = 480
TabIndex = 5
Top = 5760
Width = 975
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 5280
TabIndex = 4
Top = 120
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 23855105
CurrentDate = 37894
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 2760
TabIndex = 3
Top = 120
Width = 1455
_ExtentX = 2566
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 23855105
CurrentDate = 37894
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "frmlzxdb.frx":0000
Height = 4935
Left = 1680
TabIndex = 2
Top = 600
Width = 5415
_ExtentX = 9551
_ExtentY = 8705
_Version = 393216
AllowUpdate = -1 'True
BackColor = 16761024
ForeColor = 8388608
HeadLines = 1
RowHeight = 18
AllowAddNew = -1 'True
AllowDelete = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 2040
Top = 6120
Visible = 0 'False
Width = 4575
_ExtentX = 8070
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "PROVIDER=MSDASQL;dsn=ddmis;uid=mis;pwd=mis005;database=zhcx"
OLEDBString = "PROVIDER=MSDASQL;dsn=ddmis;uid=mis;pwd=mis005;database=zhcx"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from xdgl_lzxdb"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.ListBox List2
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 1980
Left = 120
TabIndex = 1
Top = 3480
Width = 1215
End
Begin VB.ListBox List1
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 2220
Left = 120
TabIndex = 0
Top = 600
Width = 1215
End
Begin VB.Label Label4
Caption = "结束时间"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 4320
TabIndex = 13
Top = 240
Width = 975
End
Begin VB.Label Label3
Caption = "开始时间"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 1680
TabIndex = 12
Top = 240
Width = 1095
End
Begin VB.Label Label2
Caption = "线路"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 375
Left = 120
TabIndex = 11
Top = 3120
Width = 615
End
Begin VB.Label Label1
Caption = "厂站"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 120
TabIndex = 10
Top = 240
Width = 615
End
End
Attribute VB_Name = "frmlzxdb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim sql4 As String
Dim dlqbh As String
Dim dydj As String
Dim RS As ADODB.Recordset
Private Sub Check1_Click()
sql3 = "select * from xdgl_lzxdb where tdsj BETWEEN '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "' order by tdsj"
If Check1.Value Then
Adodc1.RecordSource = sql3
Adodc1.Refresh
DataGrid1.Refresh
End If
Call sx
End Sub
Private Sub Check2_Click()
sql3 = "select * from xdgl_lzxdb where bdz='" & Trim(List1.Text) & "' and tdsj BETWEEN '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "' order by tdsj"
If Check2.Value Then
Adodc1.RecordSource = sql3
Adodc1.Refresh
DataGrid1.Refresh
End If
Call sx
End Sub
Private Sub command1_Click()
If Trim(List2.Text) <> "" Then
Else
A = MsgBox("线路不能为空", vbDefaultButton2)
Exit Sub
End If
Call Open_link
sql4 = "select max(id) from xdgl_lzxdb"
Set RS = ZHCX.Execute(sql4, 0)
If Not IsNull(RS(0)) Then
ID = RS(0) + 1
RS.MoveNext
Else
ID = 1
End If
If RS.State Then
RS.Close
End If
sql3 = "select cs01 from xdgl_sb_sbcsb where sbdl='" & Trim(List1.Text) & "' and sbmc='" & Trim(List2.Text) & "'"
Set RS = ZHCX.Execute(sql3, 0)
If Not IsNull(RS(0)) Then
dlqbh = RS(0)
Else
A = MsgBox("没有录入对应线路断路器编号", vbDefaultButton2)
Exit Sub
End If
If RS.State Then
RS.Close
End If
sql2 = "select cs02 from xdgl_sb_sbcsb where sbdl='" & Trim(List1.Text) & "' and sbmc='" & Trim(List2.Text) & "'"
Set RS = ZHCX.Execute(sql2, 0)
If Not IsNull(RS(0)) Then
dydj = RS(0)
Else
A = MsgBox("没有录入对应线路电压等级", vbDefaultButton2)
Exit Sub
End If
If RS.State Then
RS.Close
End If
If Err Then Err.Clear
Adodc1.Recordset.AddNew
DataGrid1.Columns(1).Value = Trim(List1.Text)
DataGrid1.Columns(2).Value = Trim(List2.Text)
DataGrid1.Columns(3).Value = Trim(dlqbh)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -