📄 查看用户档案.frm
字号:
BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 15
Text = "发票打印"
Object.Width = 1765
EndProperty
BeginProperty ColumnHeader(17) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 16
Text = "缴费情况"
Object.Width = 1765
EndProperty
BeginProperty ColumnHeader(18) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 17
Text = "比率1"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(19) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 18
Text = "比率1名称"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(20) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 19
Text = "比率1电价"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(21) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 20
Text = "比率1电量"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(22) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 21
Text = "比率1电费"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(23) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 22
Text = "比率2"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(24) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 23
Text = "比率2名称"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(25) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 24
Text = "比率2电价"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(26) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 25
Text = "比率2电量"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(27) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 26
Text = "比率2电费"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(28) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 27
Text = "抄表时间"
Object.Width = 4304
EndProperty
BeginProperty ColumnHeader(29) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 28
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ListView ListView1
Height = 6090
Left = -74910
TabIndex = 1
Top = 405
Width = 11535
_ExtentX = 20346
_ExtentY = 10742
View = 3
LabelEdit = 1
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
Icons = "ImageList1"
SmallIcons = "ImageList1"
ForeColor = 0
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 = 13
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "用户编码"
Object.Width = 1854
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 1
Text = "序号"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "辅助编码"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "用户名称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "地址"
Object.Width = 2716
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "台区"
Object.Width = 2559
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "电价代码"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Text = "电价类别"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 8
Text = "用户类型"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 9
Text = "定比表"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 10
Text = "用户状态"
Object.Width = 1501
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 11
Text = "多表户"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 12
Text = "运行"
Object.Width = 1411
EndProperty
End
End
Begin VB.Label Label14
Alignment = 2 'Center
BackColor = &H00808000&
BorderStyle = 1 'Fixed Single
Caption = "单击用户列表中的用户,会显示该户详细信息."
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Left = 90
TabIndex = 66
Top = 6765
Width = 4410
End
End
Attribute VB_Name = "UserSee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command2_Click()
Dim Seleitm As ListItem
Dim strFindMe As String
Dim intSelectedOption As Integer
If Option1(0).Value = True Then
strFindMe = Format(Trim(Text1), "0000")
intSelectedOption = lvwText
End If
If Option1(1).Value = True Then
strFindMe = Trim(Text1)
intSelectedOption = lvwSubItem
End If
Set Seleitm = ListView2.FindItem(strFindMe, intSelectedOption, , 1)
If Not (Seleitm Is Nothing) Then
Seleitm.EnsureVisible
Seleitm.Selected = True
ListView2.SetFocus
ShowData2
End If
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
Image1.Visible = False
SSTab1.Tab = 1
OpenMdb
Byxx
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
'////////////显示电费档案////////
Sub ShowData2()
Label8(0) = ListView2.SelectedItem
Label8(1) = ListView2.SelectedItem.SubItems(1)
Label8(2) = ListView2.SelectedItem.SubItems(2)
If Val(ListView2.SelectedItem.SubItems(4)) < Val(ListView2.SelectedItem.SubItems(3)) Then
Image1.Visible = True
Else
Image1.Visible = False
End If
Label8(3) = ListView2.SelectedItem.SubItems(3)
Label8(4) = ListView2.SelectedItem.SubItems(4)
Label8(5) = ListView2.SelectedItem.SubItems(5)
Label8(6) = ListView2.SelectedItem.SubItems(6)
Label8(7) = ListView2.SelectedItem.SubItems(7)
Label8(8) = ListView2.SelectedItem.SubItems(8)
Label8(9) = ListView2.SelectedItem.SubItems(9)
Label8(10) = ListView2.SelectedItem.SubItems(10)
Label8(14) = ListView2.SelectedItem.SubItems(11)
Label8(12) = ListView2.SelectedItem.SubItems(12)
Label8(13) = ListView2.SelectedItem.SubItems(13)
Label8(11) = ListView2.SelectedItem.SubItems(14)
If ListView2.SelectedItem.SubItems(15) = "已开" Then
Option5.Value = True
Else
Option6.Value = True
End If
If ListView2.SelectedItem.SubItems(16) = "已缴" Then
Option7.Value = True
Else
Option8.Value = True
End If
If Label8(14).Caption <> "" Then
Label6(0).Caption = ListView2.SelectedItem.SubItems(17)
Label6(1).Caption = ListView2.SelectedItem.SubItems(18)
Label6(2).Caption = ListView2.SelectedItem.SubItems(19)
Label6(3).Caption = ListView2.SelectedItem.SubItems(20)
Label6(4).Caption = ListView2.SelectedItem.SubItems(21)
Label6(5).Caption = ListView2.SelectedItem.SubItems(22)
Label6(6).Caption = ListView2.SelectedItem.SubItems(23)
Label6(7).Caption = ListView2.SelectedItem.SubItems(24)
Label6(8).Caption = ListView2.SelectedItem.SubItems(25)
Label6(9).Caption = ListView2.SelectedItem.SubItems(26)
End If
End Sub
'//////////显示电表档案///////////
Sub ShowData3()
On Error Resume Next
Label9(0) = ListView3.SelectedItem
Label9(1) = ListView3.SelectedItem.SubItems(1)
' Text40 = ListView3.SelectedItem.SubItems(13)
Label9(2) = ListView3.SelectedItem.SubItems(2)
Label9(3) = ListView3.SelectedItem.SubItems(3)
Label9(4) = ListView3.SelectedItem.SubItems(4)
Label9(5) = ListView3.SelectedItem.SubItems(5)
Label9(6) = ListView3.SelectedItem.SubItems(6)
Label9(7) = ListView3.SelectedItem.SubItems(7)
Label9(8) = ListView3.SelectedItem.SubItems(8)
Label9(9) = ListView3.SelectedItem.SubItems(9)
Label9(10) = ListView3.SelectedItem.SubItems(10)
Label9(11) = ListView3.SelectedItem.SubItems(11)
Label9(12) = ListView3.SelectedItem.SubItems(12)
End Sub
Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
On Error Resume Next
ListView2.SortKey = ColumnHeader.Index - 1
ListView2.Sorted = True
End Sub
Private Sub ListView2_ItemClick(ByVal Item As MSComctlLib.ListItem)
ShowData2
End Sub
Private Sub ListView3_ItemClick(ByVal Item As MSComctlLib.ListItem)
ShowData3
End Sub
Sub Bjxx()
On Error Resume Next
Set MdbR = NdMd.OpenRecordset("SELECT 用户电费.抄表码,用户电费.多表序号,用户电费.用户编码,用户电费.用户名称,表计档案.装表日期,表计档案.型号,表计档案.厂家,表计档案.编号,表计档案.相数,表计档案.电压,表计档案.电流,表计档案.精度,表计档案.常数,表计档案.性能 From 用户电费, 表计档案 WHERE 用户电费.组合编码=表计档案.组合编码 AND 表计档案.镇村代码='" & UserSeek & "' order by 用户电费.组合编码 asc")
Dim itm2 As ListItem
ListView3.ListItems.Clear
ListView3.View = lvwReport
If MdbR.RecordCount <> 0 Then
Command2.Enabled = True
MdbR.MoveFirst
End If
While Not MdbR.eof
Set itm2 = ListView3.ListItems.Add(, , CStr(MdbR!抄表码 & ""), , 1)
itm2.SubItems(1) = MdbR!多表序号 & ""
itm2.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -