📄 formyhsz.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form FormYHGL
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 4935
ClientLeft = 45
ClientTop = 435
ClientWidth = 7935
BeginProperty Font
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4935
ScaleWidth = 7935
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H8000000D&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 375
Left = 0
ScaleHeight = 375
ScaleWidth = 9135
TabIndex = 14
Top = 0
Width = 9135
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "用户管理"
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 285
TabIndex = 15
Top = 45
Width = 1335
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "用户管理"
BeginProperty Font
Name = "Tahoma"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 375
Left = 320
TabIndex = 16
Top = 75
Width = 1335
End
End
Begin VB.Frame Frame1
Height = 4215
Left = 4920
TabIndex = 1
Top = 480
Width = 2895
Begin VB.CommandButton cmdDEL
Caption = "删除"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
TabIndex = 9
Top = 3000
Width = 975
End
Begin VB.CommandButton cmdXZ
Caption = "新增"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 8
Top = 3000
Width = 975
End
Begin VB.ComboBox Combo1
Height = 330
Left = 1200
TabIndex = 7
Top = 2400
Width = 1455
End
Begin VB.TextBox txtCF
Height = 320
IMEMode = 3 'DISABLE
Left = 1200
PasswordChar = "*"
TabIndex = 6
Top = 1920
Width = 1455
End
Begin VB.TextBox txtDL
Height = 320
IMEMode = 3 'DISABLE
Left = 1200
PasswordChar = "*"
TabIndex = 5
Top = 1440
Width = 1455
End
Begin VB.TextBox txtYHM
Height = 320
Left = 1200
TabIndex = 4
Top = 960
Width = 1455
End
Begin VB.TextBox txtYID
Height = 320
Left = 1200
Locked = -1 'True
TabIndex = 2
Top = 480
Width = 1455
End
Begin VB.Label Label5
Caption = "用户类别"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 13
Top = 2400
Width = 735
End
Begin VB.Label Label4
Caption = "重复密码"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 12
Top = 1920
Width = 735
End
Begin VB.Label Label3
Caption = "登陆密码"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 11
Top = 1440
Width = 735
End
Begin VB.Label Label2
Caption = "用 户 名"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 10
Top = 960
Width = 735
End
Begin VB.Label Label1
Caption = "用户编号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 3
Top = 480
Width = 735
End
End
Begin MSComctlLib.ListView ListView1
Height = 4095
Left = 120
TabIndex = 0
Top = 600
Width = 4695
_ExtentX = 8281
_ExtentY = 7223
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
End
Attribute VB_Name = "FormYHGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim addlist As ListItem
Private Sub cmdDEL_Click()
If cmdXZ.Enabled = True Then Exit Sub
Call OpenConn
sql = "select * from xtyh where name='" & txtYHM.Text & "'"
rs.Open sql, cn, 3, 3
If rs.RecordCount > 0 Then
rs.Delete
End If
Call CloseConn
ListView1.ListItems.Clear
Call addXX
txtYID.Text = ""
txtYHM.Text = ""
txtDL.Text = ""
txtCF.Text = ""
Me.Combo1.Clear
End Sub
Private Sub cmdXZ_Click()
If txtYHM.Text = "" Then
MsgBox "登陆用户名不能为空！", 48, "错误提示"
txtYHM.SetFocus
Exit Sub
End If
If Me.Combo1.Text = "" Then
MsgBox "请选择用户类别！", 48, "错误提示"
Me.Combo1.SetFocus
Exit Sub
End If
If txtDL.Text <> txtCF.Text Then
MsgBox "两次输入的密码不一致！", 48, "错误提示"
txtDL.Text = ""
txtCF.Text = ""
txtDL.SetFocus
Exit Sub
End If
Call OpenConn
sql = "select * from xtyh"
rs.Open sql, cn, 3, 3
rs.AddNew
rs.Fields("yid") = txtYID.Text
rs.Fields("name") = txtYHM.Text
rs.Fields("pass") = zhuan(txtDL.Text)
rs.Fields("czdj") = Me.Combo1.Text
rs.Fields("cjrq") = Format(Date, yyyymmdd)
rs.Update
Call CloseConn
ListView1.ListItems.Clear
Call addXX
txtYID.Text = ""
txtYHM.Text = ""
txtDL.Text = ""
txtCF.Text = ""
Me.Combo1.Clear
Me.Combo1.AddItem "管理员"
Me.Combo1.AddItem "业务员"
Call zdbh
End Sub
Private Sub Combo1_LostFocus()
If Me.Combo1.Text = "管理员" Or Me.Combo1.Text = "业务员" Then
Exit Sub
Else
MsgBox "用户类别错误！请从列表中选取", 48, "错误提示"
Me.Combo1.Text = "管理员"
Exit Sub
End If
End Sub
Private Sub Form_Load()
Me.Icon = FormZY.Icon
Me.Caption = xtmc
Me.Combo1.AddItem "管理员"
Me.Combo1.AddItem "业务员"
Call zdbh
With ListView1
.View = lvwReport
.ColumnHeaders.Add = "编号"
.ColumnHeaders.Add = "用户名"
.ColumnHeaders.Add = "用户类别"
.ColumnHeaders.Add = "创建日期"
.ColumnHeaders(1).Width = 700
.ColumnHeaders(3).Width = 1100
End With
Call addXX
End Sub
Private Sub zdbh()
'自动编号~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Call OpenConn
sql = "select yid from xtyh ORDER BY yid"
rs.Open sql, cn, 1, 1
If rs.RecordCount > 0 Then
rs.MoveLast
txtYID.Text = "Y" & Format(Val(Right(rs.Fields("yid"), 2) + 1), "00")
Else
txtYID.Text = "Y01"
End If
Call CloseConn
End Sub
Private Sub addXX()
Call OpenConn
sql = "select * from xtyh order by yid"
rs.Open sql, cn, 1, 1
Do While Not rs.EOF
Set addlist = ListView1.ListItems.Add(, , rs.Fields("yid"))
addlist.SubItems(1) = rs.Fields("name")
addlist.SubItems(2) = rs.Fields("czdj")
addlist.SubItems(3) = rs.Fields("cjrq")
rs.MoveNext
Loop
Call CloseConn
End Sub
Private Sub ListView1_DblClick()
If ListView1.ListItems.Count <= 0 Then Exit Sub
cmdXZ.Enabled = False
txtYID.Text = ListView1.SelectedItem
txtYHM.Text = ListView1.SelectedItem.SubItems(1)
Me.Combo1.Text = ListView1.SelectedItem.SubItems(2)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -