📄 frm通信故障.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 frm通信故障
Caption = "通信故障记录"
ClientHeight = 6390
ClientLeft = 60
ClientTop = 345
ClientWidth = 7290
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6390
ScaleWidth = 7290
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 = 0
TabIndex = 10
Top = 480
Width = 1215
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 = 0
TabIndex = 9
Top = 3360
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "添加"
Height = 375
Left = 360
TabIndex = 5
Top = 5640
Width = 975
End
Begin VB.CommandButton Command2
Caption = "删除"
Height = 375
Left = 2040
TabIndex = 4
Top = 5640
Width = 975
End
Begin VB.CommandButton Command3
Caption = "查询"
Height = 375
Left = 3840
TabIndex = 3
Top = 5640
Width = 975
End
Begin VB.CheckBox Check1
Caption = "全选"
Height = 375
Left = 720
TabIndex = 2
Top = 120
Width = 735
End
Begin VB.CheckBox Check2
Caption = "全选"
Height = 375
Left = 600
TabIndex = 1
Top = 3000
Width = 735
End
Begin VB.CommandButton Command5
Caption = "打印"
Height = 375
Left = 5640
TabIndex = 0
Top = 5640
Width = 1095
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 375
Left = 5160
TabIndex = 6
Top = 0
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 = 64815105
CurrentDate = 37894
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 375
Left = 2640
TabIndex = 7
Top = 0
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 = 64815105
CurrentDate = 37894
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "frm通信故障.frx":0000
Height = 4935
Left = 1560
TabIndex = 8
Top = 480
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 = 1920
Top = 6000
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_txgz"
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.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 = 0
TabIndex = 14
Top = 120
Width = 615
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 = 0
TabIndex = 13
Top = 3000
Width = 615
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 = 1560
TabIndex = 12
Top = 120
Width = 1095
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 = 4200
TabIndex = 11
Top = 120
Width = 975
End
End
Attribute VB_Name = "frm通信故障"
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_TXgz where fssj BETWEEN '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "' order by fssj"
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_txgz where cz='" & Trim(List1.Text) & "' and fssj BETWEEN '" & DTPicker1.Value & "' and '" & DTPicker2.Value & "' order by fssj"
If Check2.Value Then
Adodc1.RecordSource = sql3
Adodc1.Refresh
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -