📄 form4.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form Form4
BackColor = &H008080FF&
BorderStyle = 1 'Fixed Single
Caption = "增加用户"
ClientHeight = 8205
ClientLeft = 45
ClientTop = 435
ClientWidth = 12120
ForeColor = &H008080FF&
Icon = "Form4.frx":0000
LinkTopic = "Form4"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 8205
ScaleWidth = 12120
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 735
Left = 0
TabIndex = 10
Top = 7470
Width = 12120
_ExtentX = 21378
_ExtentY = 1296
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 3
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 8114
MinWidth = 8114
Text = " 增加用户"
TextSave = " 增加用户"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Object.Width = 8114
MinWidth = 8114
TextSave = "12:11"
Key = ""
Object.Tag = ""
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 6
Object.Width = 8114
MinWidth = 8114
TextSave = "2007-7-8"
Key = ""
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "Form4.frx":0442
Left = 4320
List = "Form4.frx":0444
TabIndex = 9
Top = 3840
Width = 3615
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
IMEMode = 3 'DISABLE
Left = 4320
PasswordChar = "*"
TabIndex = 8
Top = 2880
Width = 3375
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
IMEMode = 3 'DISABLE
Left = 4320
PasswordChar = "*"
TabIndex = 7
Top = 1920
Width = 3375
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 4320
TabIndex = 6
Top = 960
Width = 3375
End
Begin VB.CommandButton Command2
BackColor = &H00FFFF00&
Caption = "取消"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 7200
Style = 1 'Graphical
TabIndex = 5
Top = 6360
Width = 2055
End
Begin VB.CommandButton Command1
BackColor = &H00FFFF00&
Caption = "确定"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 3720
Style = 1 'Graphical
TabIndex = 4
Top = 6360
Width = 2055
End
Begin VB.Image Image1
Height = 3465
Left = 8400
Picture = "Form4.frx":0446
Stretch = -1 'True
Top = 840
Width = 3120
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "选择权限"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
TabIndex = 3
Top = 3840
Width = 1935
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "确认密码"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
TabIndex = 2
Top = 2880
Width = 1935
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "输入密码"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
TabIndex = 1
Top = 1920
Width = 1935
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "输入用户名"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 1080
TabIndex = 0
Top = 960
Width = 1935
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
If Text1 = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, "" 'vbOKOnly + vbExclamation弹出的对话框
Text1.SetFocus
Else
sql = "select * from 系统管理表"
cn.Open "Driver={SQL Server};Server=.;Database=bookmdb;Uid=sa;Pwd=" '连接SQL数据库
rs.Open "系统管理表", cn, adOpenKeyset, adLockOptimistic
While (rs.EOF = False)
If Trim(rs.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已有这个用户 ", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Exit Sub
Else
rs.MoveNext
End If
Wend '结束循环结构
If Text2.Text <> Text3.Text Then
MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2 = ""
Text3 = ""
Exit Sub
Else
rs.AddNew
rs.Fields(0) = Text1.Text
rs.Fields(1) = Text2.Text
rs.Fields(2) = Combo1.Text
rs.Update
rs.Close
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
'Form4.Hide
End Sub
Private Sub Form_Load()
Combo1.AddItem "整书，管理"
Combo1.AddItem "值班"
Combo1.AddItem "读，整"
Combo1.AddItem "其他"
Combo1.AddItem "读书"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -