📄 frm_userinfo.frm
字号:
Top = 4650
Width = 1245
_extentx = 2196
_extenty = 926
captiontitle = "取 消 "
buttonbackcolor = 16744576
font = "Frm_userinfo.frx":63F4
font = "Frm_userinfo.frx":6418
End
Begin 工程1.GurhanCoolButton GurhanCoolButton6
Height = 435
Left = 4080
TabIndex = 29
Top = 4650
Width = 1245
_extentx = 2990
_extenty = 926
captiontitle = "退 出 "
buttonbackcolor = 16744576
font = "Frm_userinfo.frx":643C
font = "Frm_userinfo.frx":6460
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "工作组："
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 930
TabIndex = 10
Top = 3120
Width = 1320
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "确 认："
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 930
TabIndex = 8
Top = 2540
Width = 1140
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码："
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 930
TabIndex = 6
Top = 1960
Width = 1320
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户名："
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 315
Left = 930
TabIndex = 4
Top = 1380
Width = 1320
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户信息"
BeginProperty Font
Name = "隶书"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 435
Left = 450
TabIndex = 3
Top = 450
Width = 1800
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BackColor = &H00FF8080&
ForeColor = &H80000008&
Height = 6585
Left = 0
TabIndex = 1
Top = 990
Width = 2565
Begin MSDataListLib.DataList DataList1
Bindings = "Frm_userinfo.frx":6484
DataField = "操作员姓名"
DataSource = "Adodc1"
Height = 3855
Left = 600
TabIndex = 13
Top = 2250
Visible = 0 'False
Width = 1305
_ExtentX = 2302
_ExtentY = 6800
_Version = 393216
ListField = "操作员姓名"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "隶书"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.GurhanCoolButton GurhanCoolButton7
Height = 585
Left = 330
TabIndex = 31
Top = 660
Width = 1875
_extentx = 3307
_extenty = 1032
captiontitle = "创建用户 "
buttonbackcolor = 16744576
font = "Frm_userinfo.frx":6499
font = "Frm_userinfo.frx":64BD
End
Begin 工程1.GurhanCoolButton GurhanCoolButton8
Height = 585
Left = 330
TabIndex = 32
Top = 1410
Width = 1875
_extentx = 3307
_extenty = 1032
captiontitle = "修改帐户 "
buttonbackcolor = 16744576
font = "Frm_userinfo.frx":64E1
font = "Frm_userinfo.frx":6505
End
End
Begin VB.PictureBox Picture1
BackColor = &H00FF8080&
Height = 1035
Left = 0
ScaleHeight = 975
ScaleWidth = 8985
TabIndex = 0
Top = 0
Width = 9045
Begin VB.Label Label14
BackColor = &H00FF8080&
Caption = "选择一个任务！"
BeginProperty Font
Name = "幼圆"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 645
Left = 870
TabIndex = 30
Top = 240
Width = 3765
End
End
End
Attribute VB_Name = "Frm_userinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub DataList1_Click()
Adodc1.RecordSource = "select * from tab_power where 操作员姓名 = '" + Trim(DataList1.Text) + "'"
Adodc1.Refresh
With Adodc1.Recordset
If Frm_load.group = "1" Then
Text5.Text = Trim(.Fields(3))
End If
Text6.Text = Trim(.Fields(0))
Combo2.Text = Trim(.Fields(1))
End With
End Sub
Private Sub Form_Load()
Call us_clear
Call fit_clear
End Sub
Private Sub GurhanCoolButton1_CLICKED()
Dim ggg As String
Adodc1.Recordset.AddNew
With Adodc1.Recordset
If Text2.Text = Text3.Text Then
.Fields(0) = Trim(Text1.Text)
.Fields(1) = Trim(Combo1.Text)
.Fields(3) = Trim(Text2.Text)
ggg = Trim(Combo1.Text)
Select Case gg
Case ggg = "管理员"
.Fields(2) = "1"
Case ggg = "用户"
.Fields(2) = "2"
Case ggg = "来宾"
.Fields(3) = "3"
End Select
Else
MsgBox "您两次输入的新密码不同，请重新输入！"
Text2.Text = ""
Text3.Text = ""
Text4.SetFocus
End If
End With
Adodc1.Recordset.Update
Call us_clear
MsgBox "创建帐户信息成功！"
End Sub
Private Sub GurhanCoolButton2_CLICKED()
Call us_clear
End Sub
Private Sub GurhanCoolButton3_CLICKED()
Dim gg As String
With Adodc1.Recordset
If Text5.Text = Trim(.Fields(3)) Then
If Text4.Text = Text7.Text Then
.Fields(0) = Trim(Text6.Text)
.Fields(1) = Trim(Combo2.Text)
.Fields(3) = Trim(Text4.Text)
gg = Trim(Combo2.Text)
Select Case gg
Case gg = "管理员"
.Fields(2) = "1"
Case gg = "用户"
.Fields(2) = "2"
Case gg = "来宾"
.Fields(3) = "3"
End Select
Else
MsgBox "您两次输入的新密码不同，请重新输入！"
Text4.Text = ""
Text7.Text = ""
Text4.SetFocus
End If
Else
MsgBox "你输入的旧密码不对，请重新输入！"
Text5.Text = ""
Text5.SetFocus
End If
End With
Adodc1.Recordset.Update
Adodc1.RecordSource = "select * from tab_power"
Adodc1.Refresh
Call fit_clear
End Sub
Private Sub GurhanCoolButton4_CLICKED()
Call fit_clear
End Sub
Private Sub GurhanCoolButton5_CLICKED()
Unload Me
End Sub
Private Sub GurhanCoolButton6_CLICKED()
Unload Me
End Sub
Private Sub GurhanCoolButton7_CLICKED()
Frame2.Visible = True
Frame3.Visible = False
DataList1.Visible = False
Call us_clear
End Sub
Private Sub GurhanCoolButton7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame2.Visible = True
Frame3.Visible = False
DataList1.Visible = False
Call us_clear
End Sub
Private Sub GurhanCoolButton8_CLICKED()
Adodc1.RecordSource = "select * from tab_power"
Adodc1.Refresh
Frame3.Visible = True
DataList1.Visible = True
Frame2.Visible = False
Call fit_clear
End Sub
Private Sub GurhanCoolButton8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Adodc1.RecordSource = "select * from tab_power"
Adodc1.Refresh
Frame3.Visible = True
DataList1.Visible = True
Frame2.Visible = False
Call fit_clear
End Sub
Private Sub Label2_Click()
End Sub
Private Sub us_clear()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
End Sub
Private Sub fit_clear()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo2.Text = ""
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -