📄 browseuser.frm
字号:
Alignment = 1
SubItemIndex = 10
Text = "调整金额"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 11
Text = "滞纳金"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 12
Text = "本次电费"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(14) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 13
Text = "电建基金"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(15) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 14
Text = "三峡基金"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(16) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 15
Text = "合计电费"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(17) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 16
Text = "发票打印"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(18) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 17
Text = "交费"
Object.Width = 1058
EndProperty
End
End
Begin VB.Frame Frame7
Height = 5445
Left = 120
TabIndex = 9
Top = 330
Width = 11280
Begin MSComctlLib.ListView ListView3
Height = 5190
Left = 60
TabIndex = 10
Top = 180
Width = 2655
_ExtentX = 4683
_ExtentY = 9155
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "用户编码"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "用户名称"
Object.Width = 3000
EndProperty
End
Begin MSComctlLib.ListView ListView4
Height = 5190
Left = 2760
TabIndex = 13
Top = 150
Width = 8445
_ExtentX = 14896
_ExtentY = 9155
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483643
BackColor = 12615680
BorderStyle = 1
Appearance = 1
NumItems = 13
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "序号"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "辅助号"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "用户类型"
Object.Width = 1587
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "相数"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "全称"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "地址"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "台区"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 7
Text = "电价代码"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 8
Text = "电价类别"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 9
Text = "停用"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 10
Text = "定比表"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 11
Text = "多表户"
Object.Width = 1411
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 12
Text = "状态"
Object.Width = 1411
EndProperty
End
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 = 165
TabIndex = 6
Top = 6075
Width = 8340
End
End
Attribute VB_Name = "BrowseUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As Recordset
Private Sub Form_Load()
On Error Resume Next
If Screen.Width \ Screen.TwipsPerPixelX = 800 And Screen.Height \ Screen.TwipsPerPixelY = 600 Then
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 1 - 800
Else
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End If
DoEvents
Me.ZOrder
OpenMdb
Set rs = NdMd.OpenRecordset("SELECT 用户编码,用户名称 From 用户电费 WHERE trim(镇村代码)='" & UserSeek & "' and 多表序号='" & 1 & "' order by 用户电费.组合编码 asc")
SSTab1.Tab = 1
Option1.Visible = False
Option2.Visible = False
Text25.Visible = False
Text26.Visible = False
Check1.Visible = False
Call CotrlDrig1(ListView1)
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Label14.Visible = False
Option1.Visible = True
Option2.Visible = True
Text25.Visible = True
Text26.Visible = True
Option1.Value = True
Check1.Visible = True
Text25 = ""
Text26 = ""
Text25.SetFocus
If Text25 <> "" Then
Call Text25_keyPress(13)
Text25 = ""
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -