📄 electprice.frm
字号:
Caption = "修改"
Key = "修"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "退"
ImageIndex = 6
EndProperty
EndProperty
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 8250
Top = 5445
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ElectPrice.frx":0E32
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ElectPrice.frx":114E
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ElectPrice.frx":146A
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ElectPrice.frx":1D46
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ElectPrice.frx":2622
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "ElectPrice.frx":2EFE
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 4050
Left = 45
TabIndex = 4
ToolTipText = "双击后展开子项"
Top = 960
Width = 4290
_ExtentX = 7567
_ExtentY = 7144
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
LineStyle = 1
Style = 5
ImageList = "ImageList2"
Appearance = 1
End
Begin MSComctlLib.ListView ListView1
Height = 4080
Left = 4425
TabIndex = 5
Top = 915
Width = 4620
_ExtentX = 8149
_ExtentY = 7197
View = 3
LabelEdit = 1
Sorted = -1 'True
LabelWrap = 0 'False
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
SmallIcons = "ImageList2"
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 12
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "电价代码"
Object.Width = 1942
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "价区类别"
Object.Width = 2999
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 2
Text = "电价"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 3
Text = "电压等级"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 4
Text = "所属类别"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 5
Text = "是否附加"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 6
Text = "三峡基金"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 7
Text = "电建基金"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 8
Text = "城建基金"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 9
Text = "当前状态"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 10
Text = "建立日期"
Object.Width = 2118
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 11
Text = "操作员"
Object.Width = 1764
EndProperty
End
End
Attribute VB_Name = "ElectPrice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'PriceName(Combo1.Text, ".")
'PriceStr(Combo1.Text, ".")
Private Sub Form_Load()
Dim i As Integer
Dim node1 As node
Dim node2 As node
Dim Cdm As Recordset
Dim djdm As String
OpenMdb
DoEvents
Me.Height = 5445
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
'If GetSetting(App.EXEName, "SysStart", "Start", "") = "One" Then
' Call TbStaEF(False)
'Else
Set MdbR = NdMd.OpenRecordset("电价档案")
ListView1.Sorted = True
Dim DatItem As ListItem
If MdbR.RecordCount <> 0 Then
With MdbR
.MoveLast
.MoveFirst
For i = 0 To .RecordCount - 1
If .Fields!状态 = True Then
Set DatItem = ListView1.ListItems.Add(, , .Fields!电价ID, , 2)
DatItem.SubItems(1) = .Fields!价区类别
DatItem.SubItems(2) = Format(.Fields!电价, "0.000")
DatItem.SubItems(3) = .Fields!电压等级 & ""
DatItem.SubItems(4) = .Fields!电价类别 & ""
DatItem.SubItems(5) = IIf(.Fields!是否附加 = True, "是", "否")
DatItem.SubItems(6) = Format(.Fields!三峡, "0.000")
DatItem.SubItems(7) = Format(.Fields!电建, "0.000")
DatItem.SubItems(8) = Format(.Fields!城建, "0.000")
DatItem.SubItems(9) = IIf(.Fields!状态 = True, "启用", "停用")
DatItem.SubItems(10) = .Fields!建立日期 & ""
DatItem.SubItems(11) = .Fields!操作员 & ""
Else
Set DatItem = ListView1.ListItems.Add(, , .Fields!电价ID, , 2)
DatItem.ForeColor = vbRed
DatItem.SubItems(1) = .Fields!价区类别
DatItem.ListSubItems(1).ForeColor = vbRed
DatItem.SubItems(2) = Format(.Fields!电价, "0.000")
DatItem.ListSubItems(2).ForeColor = vbRed
DatItem.SubItems(3) = .Fields!电压等级 & ""
DatItem.ListSubItems(3).ForeColor = vbRed
DatItem.SubItems(4) = .Fields!电价类别 & ""
DatItem.ListSubItems(4).ForeColor = vbRed
DatItem.SubItems(5) = IIf(.Fields!是否附加 = True, "是", "否")
DatItem.ListSubItems(5).ForeColor = vbRed
DatItem.SubItems(6) = Format(.Fields!三峡, "0.000")
DatItem.ListSubItems(6).ForeColor = vbRed
DatItem.SubItems(7) = Format(.Fields!电建, "0.000")
DatItem.ListSubItems(7).ForeColor = vbRed
DatItem.SubItems(8) = Format(.Fields!城建, "0.000")
DatItem.ListSubItems(8).ForeColor = vbRed
DatItem.SubItems(9) = IIf(.Fields!状态 = True, "启用", "停用")
DatItem.ListSubItems(9).ForeColor = vbRed
DatItem.SubItems(10) = .Fields!建立日期 & ""
DatItem.ListSubItems(10).ForeColor = vbRed
DatItem.SubItems(11) = .Fields!操作员 & ""
DatItem.ListSubItems(11).ForeColor = vbRed
End If
.MoveNext
Next
End With
TreeView1.Sorted = True
Set MdbR = NdMd.OpenRecordset("SELECT distinct 电价代码 ,电价类别 FROM 电价档案 WHERE 状态=True")
While Not MdbR.eof
djdm = MdbR.Fields("电价代码")
Set node1 = TreeView1.Nodes.Add(, , , "(" & Trim(MdbR.Fields!电价代码) & ")" & MdbR.Fields!电价类别, 1, 2)
Set Cdm = NdMd.OpenRecordset("SELECT * FROM 电价档案 WHERE 电价代码= '" & djdm & "' ORDER BY 电价代码 ASC")
While Not Cdm.eof
If Cdm.Fields!状态 = False Then
Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, , "(" & Trim(Cdm.Fields("价区代码")) & ")" & Cdm.Fields("价区类别") & " " & Format(Cdm.Fields!电价, "0.000"), 4)
Else
Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, , "(" & Trim(Cdm.Fields("价区代码")) & ")" & Cdm.Fields("价区类别") & " " & Format(Cdm.Fields!电价, "0.000"), 3)
End If
Cdm.MoveNext
Wend
MdbR.MoveNext
node1.Expanded = True
Wend
Combo1.AddItem "不满1KV"
Combo1.AddItem "1-10KV"
Combo1.AddItem "35KV"
Combo1.AddItem "新增..."
Combo1.ListIndex = 0
Call Djfjef(False)
Else
Call TbStaEF(False)
End If
'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
Sub TbSata(Tbindex As Integer, TbName As String, Tbkey As String, Tbst As Boolean)
Toolbar1.Buttons(Tbindex).Caption = TbName
Toolbar1.Buttons(Tbindex).Key = Tbkey
Toolbar1.Buttons.Item(Tbindex).Enabled = Tbst
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Call Djfjef(True)
Case 1
Call Djfjef(False)
End Select
End Sub
Sub Djfjef(FjDien As Boolean)
Dim i As Integer
For i = 0 To 3
Text2(i).Enabled = FjDien
Next
End Sub
Private Sub Text1_Change(Index As Integer)
Select Case Index
Case 0
If Len(Trim(Text1(Index))) <> 0 Then
Call TbSata(1, "保存", "Saved", True)
Else
Call TbSata(1, "增加", "增", False)
End If
End Select
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Static Ck As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -