📄 frmcbqpass.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmCBQpass
BorderStyle = 3 'Fixed Dialog
Caption = "抄表器密码设置"
ClientHeight = 4515
ClientLeft = 45
ClientTop = 330
ClientWidth = 6180
Icon = "FrmCBQpass.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4515
ScaleWidth = 6180
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.ImageList ImageList1
Left = 2760
Top = 3930
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmCBQpass.frx":038A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmCBQpass.frx":0C66
Key = ""
EndProperty
EndProperty
End
Begin VB.CommandButton Command2
Caption = "退出(&E)"
Height = 330
Left = 5115
TabIndex = 4
Top = 4050
Width = 885
End
Begin VB.Frame Frame1
Height = 2445
Left = 2850
TabIndex = 2
Top = 1455
Width = 3135
Begin VB.TextBox Text1
Height = 315
Left = 390
TabIndex = 3
Top = 1785
Width = 2370
End
Begin VB.Label Label3
BackColor = &H8000000E&
BorderStyle = 1 'Fixed Single
ForeColor = &H00FF0000&
Height = 315
Left = 390
TabIndex = 9
Top = 810
Width = 2385
End
Begin VB.Label Label5
Caption = "抄表员："
Height = 255
Left = 315
TabIndex = 8
Top = 540
Width = 720
End
Begin VB.Label Label1
Caption = "密码(&P)："
Height = 240
Left = 300
TabIndex = 5
Top = 1380
Width = 1320
End
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
Height = 330
Left = 3735
TabIndex = 1
Top = 4065
Width = 930
End
Begin MSComctlLib.TreeView TreeView1
Height = 4350
Left = 120
TabIndex = 0
Top = 75
Width = 2535
_ExtentX = 4471
_ExtentY = 7673
_Version = 393217
LabelEdit = 1
Style = 7
ImageList = "ImageList1"
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
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = " 注意:抄表器密码设置需要由系统管理员来设置!密码为4位,只能为数字,不能为其他字符!"
ForeColor = &H00000000&
Height = 870
Left = 3840
TabIndex = 7
Top = 315
Width = 1905
End
Begin VB.Image Image1
Height = 480
Left = 3045
Picture = "FrmCBQpass.frx":1542
Top = 210
Width = 480
End
Begin VB.Label Label2
BackColor = &H00CCB400&
BorderStyle = 1 'Fixed Single
Height = 1365
Left = 2880
TabIndex = 6
Top = 30
Width = 3150
End
End
Attribute VB_Name = "FrmCBQpass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
On Error Resume Next
If XzCode <> "" Then
If Text1.Tag <> Text1.Text Then
If MsgBox("确定当前操作吗?", vbYesNo + vbQuestion) = vbYes Then
MdbR.Edit
MdbR.Fields!抄表密码 = Text1
MdbR.Update
End If
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim node1 As node
Dim node2 As node
Dim Node3 As node
Dim Cdm As Recordset
Dim Cdmhs As Recordset
Dim Zdm As String
Dim Zzhhs As Long
On Error Resume Next
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
TreeView1.Nodes.Clear
TreeView1.Refresh
TreeView1.Sorted = True
OpenMdb
Set MdbR = NdMd.OpenRecordset("乡镇档案")
While Not MdbR.eof
Zdm = MdbR.Fields("镇代码")
Set node1 = TreeView1.Nodes.Add(, , , "(" & Trim(MdbR.Fields("镇代码")) & ")" & MdbR.Fields("简称"), 1)
Set Cdm = NdMd.OpenRecordset("SELECT * FROM 村档案 WHERE 村档案.镇代码= '" & Trim(Zdm) & "' ORDER BY 村代码 ASC")
While Not Cdm.eof
Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, , "(" & Trim(Cdm.Fields("村代码")) & ")" & Cdm.Fields("简称"), 2)
Cdm.MoveNext
Wend
node1.Expanded = True
MdbR.MoveNext
Wend
MdbR.MoveFirst
Exit Sub
RefErr:
MsgBox "系统无数据！", vbCritical
Exit Sub
End Sub
Private Sub Text1_Change()
If Len(Trim(Text1)) > 4 Then
MsgBox "抄表器密码长度大于4位！", 48
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
If KeyAscii = 13 Then
If MsgBox("确定当前操作吗?", vbYesNo + vbQuestion) = vbYes Then
MdbR.Edit
MdbR.Fields!抄表密码 = Text1
MdbR.Update
End If
End If
End Sub
Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.node)
On Error Resume Next
TreeView1.Tag = ""
XzCode = ""
XcCode = ""
XzCode = Mid(TreeView1.SelectedItem.Parent, 2, 3)
If XzCode <> "" Then
XcCode = Mid(TreeView1.SelectedItem, 2, 3)
UserSeek = XzCode + XcCode
Set MdbR = NdMd.OpenRecordset("SELECT 抄表员,抄表密码 FROM 村档案 WHERE 镇村代码= '" & UserSeek & "'")
Label3.Caption = MdbR.Fields!抄表员 & ""
Text1.Text = MdbR.Fields!抄表密码 & ""
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
Text1.Tag = Text1.Text
Else
UserSeek = ""
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -