📄 inputhostmeter.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form InputHostmeter
BorderStyle = 3 'Fixed Dialog
Caption = "关口表示数抄录"
ClientHeight = 5685
ClientLeft = 45
ClientTop = 330
ClientWidth = 9045
Icon = "InputHostmeter.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5685
ScaleWidth = 9045
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command2
Caption = "保存数据(&S)"
Height = 330
Left = 6390
TabIndex = 5
Top = 5085
Width = 1200
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 315
Left = 4605
MaxLength = 7
TabIndex = 4
Top = 5085
Width = 1695
End
Begin VB.CommandButton Command1
Caption = "关闭窗口(&Q)"
Height = 330
Left = 7695
TabIndex = 3
Top = 5085
Width = 1140
End
Begin MSComctlLib.ImageList ImageList1
Left = 4230
Top = 2550
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 22
ImageHeight = 22
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 1
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "InputHostmeter.frx":0E42
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ListView ListView1
Height = 4770
Left = 150
TabIndex = 2
Top = 120
Width = 8730
_ExtentX = 15399
_ExtentY = 8414
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "代码"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "名称"
Object.Width = 2893
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Text = "上期示数"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 3
Text = "本期示数"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 4
Text = "倍率"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 5
Text = "计费电量"
Object.Width = 2540
EndProperty
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1935
Style = 2 'Dropdown List
TabIndex = 0
Top = 5100
Width = 2040
End
Begin VB.Image Image2
Height = 300
Left = 255
Picture = "InputHostmeter.frx":171C
Top = 5085
Width = 525
End
Begin VB.Label Label1
Caption = "请选择线路:"
Height = 285
Left = 840
TabIndex = 1
Top = 5145
Width = 1140
End
Begin VB.Shape Shape1
BorderColor = &H80000005&
Height = 5610
Index = 1
Left = 60
Top = 30
Width = 8940
End
Begin VB.Shape Shape1
BorderColor = &H80000003&
Height = 5610
Index = 0
Left = 45
Top = 15
Width = 8940
End
End
Attribute VB_Name = "InputHostmeter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 ' 2
OpenMdb
Set MdbR = NdMd.OpenRecordset("SELECT * From 乡镇档案 order by 镇代码")
If MdbR.RecordCount <> 0 Then
MdbR.MoveLast
MdbR.MoveFirst
Dim i As Integer
For i = 0 To MdbR.RecordCount - 1
Combo1.AddItem MdbR.Fields!镇代码 & vbTab & MdbR.Fields!全称
MdbR.MoveNext
Next
Combo1.ListIndex = 0
Command2.Enabled = False
Else
MsgBox "尚未建立线路或者乡镇信息！", vbInformation
Exit Sub
End If
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
'排序
On Error Resume Next
ListView1.SortKey = ColumnHeader.Index - 1
ListView1.Sorted = True
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
On Error Resume Next
If ListView1.SelectedItem.SubItems(3) = "" Then
Text1.Enabled = True
Text1 = ""
Text1.SetFocus
Else
Text1 = ListView1.SelectedItem.SubItems(3)
End If
End Sub
Private Sub Combo1_Click()
On Error Resume Next
Set MdbR = NdMd.OpenRecordset("SELECT 村档案.镇村代码,村档案.简称,村档案.[" & AAA & "] AS 上次, 村档案.[" & AA & "] AS 本次,村档案.倍率,村档案.[" & CC & "] AS 电量,村档案.[" & MM & "] AS 线损,村档案.[" & NN & "] AS 损失 FROM 村档案 where 镇代码='" & Left(Combo1.Text, 3) & "' order by 村代码")
Dim itm1 As ListItem
Dim intRecCount, intCounter As Integer
ListView1.SortKey = 0
ListView1.SortOrder = lvwAscending
ListView1.View = lvwReport
ListView1.ListItems.Clear
If Not MdbR.eof Then
MdbR.MoveLast
MdbR.MoveFirst
For intCounter = 0 To MdbR.RecordCount - 1
Set itm1 = ListView1.ListItems.Add(, , CStr(MdbR!镇村代码), , 1)
itm1.SubItems(1) = MdbR!简称 & ""
itm1.SubItems(2) = MdbR!上次 & ""
itm1.SubItems(3) = MdbR!本次 & ""
itm1.SubItems(4) = IIf(MdbR!倍率 = 0 Or IsNull(MdbR!倍率), "", MdbR!倍率)
itm1.SubItems(5) = IIf(MdbR!电量 = 0 Or IsNull(MdbR!电量), "", MdbR!电量)
'itm1.SubItems(6) = IIf(MdbR!合计电量 = 0, "", MdbR!合计电量)
'itm1.SubItems(7) = Format(MdbR!电价 & "", "0.000")
'itm1.SubItems(8) = IIf(MdbR!调整金额 = 0, "", Format(MdbR!调整金额, "0.00"))
'itm1.SubItems(9) = IIf(MdbR!本次电费 = 0, "", Format(MdbR!本次电费, "0.00"))
'itm1.SubItems(10) = IIf(MdbR!合计电费 = 0, "", Format(MdbR!合计电费, "0.00"))
MdbR.MoveNext
DoEvents
Next
ListView1.Sorted = True
Else
MsgBox XzName & XcName & GzYue & "月数据为空！", vbCritical
Exit Sub
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
'保存
Private Sub Command2_Click()
If Val(Text1) < Val(ListView1.SelectedItem.ListSubItems(2)) Then
MsgBox "本次抄录示数小于上次！", vbCritical
Exit Sub
Else
Set MdbR = NdMd.OpenRecordset("SELECT 村档案.镇村代码,村档案.简称,村档案.[" & AAA & "] AS 上次, 村档案.[" & AA & "] AS 本次,村档案.倍率,村档案.[" & CC & "] AS 电量,村档案.[" & MM & "] AS 线损,村档案.[" & NN & "] AS 损失 FROM 村档案 where 镇村代码='" & ListView1.SelectedItem & "' order by 村代码")
With MdbR
.Edit
.Fields!本次 = Val(Text1)
.Fields!电量 = (Val(Text1) - Val(ListView1.SelectedItem.ListSubItems(2))) * IIf(.Fields!倍率 = 0 Or IsNull(.Fields!倍率), 1, .Fields!倍率)
.Update
ListView1.SelectedItem.ListSubItems(3) = Text1
ListView1.SelectedItem.ListSubItems(5) = (Val(Text1) - Val(ListView1.SelectedItem.ListSubItems(2))) * IIf(.Fields!倍率 = 0 Or IsNull(.Fields!倍率), 1, .Fields!倍率)
End With
End If
End Sub
Private Sub Text1_Change()
If Len(Trim(Text1)) > 0 Then
Call CheckIsNumber(Text1)
Command2.Enabled = True
Else
Command2.Enabled = False
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command2_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -