📄 frm_dataquery.frm
字号:
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "蓄水量"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "出库流量"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 6
Text = "库水特征"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "水势"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 8
Text = "时段长"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 9
Text = "测法"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 10
Text = "设备类别"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 11
Text = "设备编号"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 12
Text = "开启孔数"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 13
Text = "开启高度"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 14
Text = "过闸流量"
Object.Width = 1852
EndProperty
End
Begin VB.Label Lab_Rec
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "记录"
ForeColor = &H00FF0000&
Height = 210
Left = 14640
TabIndex = 8
Top = 1320
Width = 420
End
Begin VB.Label Lab_Where
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "查询："
ForeColor = &H00FF0000&
Height = 210
Left = 3120
TabIndex = 7
Top = 1320
Width = 630
End
End
Attribute VB_Name = "Frm_DataQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Node_Name As String '表示节点名字
Private Sub Command2_Click()
'打印
On Error GoTo Err:
Me.MousePointer = 11
Dim ex As New Excel.Application
Dim exbook As New Excel.Workbook
Dim exsheet As New Excel.Worksheet
Set ex = CreateObject("Excel.Application")
Set exbook = ex.Workbooks().Add
Set exsheet = exbook.Worksheets("sheet1")
ex.Range("a1:o1").MergeCells = True
ex.Range("a1:o1").HorizontalAlignment = xlCenter
exsheet.Cells(1, 1).Value = "水库水情检索表"
ex.Range("a2:o2").MergeCells = True
ex.Range("a2:o2").HorizontalAlignment = xlLeft
exsheet.Cells(2, 1).Value = "监测站：" & Node_Name
ex.Range("1:1").Font.Size = 14
ex.Range("1:1").Font.Bold = True
exsheet.Cells(3, 1) = "序 号"
exsheet.Cells(3, 2) = "时 间"
exsheet.Cells(3, 3) = "库水位"
exsheet.Cells(3, 4) = "入 库流 量"
exsheet.Cells(3, 5) = "蓄水量"
exsheet.Cells(3, 6) = "出 库流 量"
exsheet.Cells(3, 7) = "库 水特 征"
exsheet.Cells(3, 8) = "水势"
exsheet.Cells(3, 9) = "时段长"
exsheet.Cells(3, 10) = "测法"
exsheet.Cells(3, 11) = "设 备类 别"
exsheet.Cells(3, 12) = "设 备编 号"
exsheet.Cells(3, 13) = "开 启孔 数"
exsheet.Cells(3, 14) = "开 启高 度"
exsheet.Cells(3, 15) = "过 闸流 量"
For i = 1 To ListView1.ListItems.Count - 1
exsheet.Cells(i + 3, 1) = i
For j = 1 To ListView1.ColumnHeaders.Count - 1
exsheet.Cells(i + 3, j + 1) = Trim(ListView1.ListItems(i).SubItems(j))
Next j
Next i
ex.Columns("B:B").ColumnWidth = 16.8
ex.Columns("C:o").ColumnWidth = 6.25
ex.Range("a3:o" & ListView1.ListItems.Count + 2).Borders.LineStyle = xlContinuous
ex.Rows("3:3").Font.Bold = True
ex.Rows("3:3").VerticalAlignment = xlCenter
ex.Rows("3:3").HorizontalAlignment = xlCenter
With ex.Columns("D:o")
.WrapText = True
End With
With exsheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.78740157480315)
.RightMargin = Application.InchesToPoints(0.78740157480315)
.TopMargin = Application.InchesToPoints(0.551181102362205)
.BottomMargin = Application.InchesToPoints(0.551181102362205)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.CenterHorizontally = True
.PaperSize = xlPaperA4
.Zoom = 100
.PrintTitleRows = "$1:$3"
' .PrintTitleColumns = "$A:$B"
.Orientation = xlLandscape
End With
ChDir App.Path
ex.Visible = True
Set exsheet = Nothing
Set exbook = Nothing
Set ex = Nothing
Dim retval
Me.MousePointer = 0
Exit Sub
Err:
Unload Me
Me.MousePointer = 0
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Set ListView1.SmallIcons = Frm_Main.ImageList1
DTPicker1.Value = Year(Date) & "-1-1"
DTPicker2.Value = Date
LoadDataToTree TreeView1
If TreeView1.Nodes.Count > 1 Then Node_Name = TreeView1.Nodes(2).Text
Command1_Click
End Sub
Private Sub Command1_Click()
On Error GoTo Err:
'查询
Me.MousePointer = 11
ListView1.ListItems.Clear
Open_Data ("select * from ST_River_R,ST_STBPRP_B where ST_River_R.STCD=ST_STBPRP_B.STCD AND tm>='" & DTPicker1.Value & " 00:00:00' and tm<'" & DTPicker2.Value & " 23:59:59' AND ST_STBPRP_B.STNM='" & Node_Name & "' order by tm")
Lab_Where = "查询：" & Node_Name
Lab_Rec.Caption = "共查询到 " & rs.RecordCount & " 条记录"
If rs.RecordCount > 0 Then
i = 1
While Not rs.EOF
Set ite = ListView1.ListItems.Add(, , i)
For j = 1 To 14
ite.SubItems(j) = Trim(rs.Fields(j) & "")
If j = 1 Then ite.SubItems(j) = Format(ite.SubItems(j), "yyyy-mm-dd hh:mm")
Next j
rs.MoveNext
i = i + 1
Wend
Else
End If
Err:
Me.MousePointer = 0
End Sub
Private Sub Command4_Click()
ListView1.ListItems.Clear
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Node_Name = Node.Text
If Node.Text = "所有监测点" Then
Me.Caption = "数据查询：请选择监测站"
Else
Me.Caption = "数据查询：" & Node.Text
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -