📄 form2.frm
字号:
VERSION 5.00
Begin VB.Form Form_mm
BackColor = &H00C00000&
Caption = "Form2"
ClientHeight = 3555
ClientLeft = 5970
ClientTop = 4635
ClientWidth = 4995
LinkTopic = "Form2"
ScaleHeight = 3555
ScaleWidth = 4995
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 480
Visible = 0 'False
Width = 1815
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 240
Visible = 0 'False
Width = 1815
End
Begin VB.CommandButton Command2
Caption = "数据清零"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 600
TabIndex = 9
Top = 2880
Width = 1575
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
ItemData = "Form2.frx":0000
Left = 2520
List = "Form2.frx":0010
TabIndex = 7
Text = "一班"
Top = 240
Width = 1695
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 0
Visible = 0 'False
Width = 1860
End
Begin VB.CommandButton Command1
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 6
Top = 2880
Width = 1695
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
IMEMode = 3 'DISABLE
Left = 2520
PasswordChar = "*"
TabIndex = 5
Top = 2115
Width = 1695
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
IMEMode = 3 'DISABLE
Left = 2520
PasswordChar = "*"
TabIndex = 4
Top = 1515
Width = 1695
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
IMEMode = 3 'DISABLE
Left = 2520
PasswordChar = "*"
TabIndex = 3
Top = 915
Width = 1695
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 1440
TabIndex = 8
Top = 360
Width = 765
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "再次输入新密码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 420
TabIndex = 2
Top = 2160
Width = 1785
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "新密码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 1440
TabIndex = 1
Top = 1560
Width = 765
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "旧密码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 240
Left = 1440
TabIndex = 0
Top = 960
Width = 765
End
End
Attribute VB_Name = "Form_mm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Data1.RecordSource = "select * from mm where yonghu='" + Combo1.Text + "'"
Data1.Refresh
If Data1.Recordset.EOF = True Then
MsgBox "没有当前用户，请重新输入", vbOKOnly, "提示"
Exit Sub
End If
If guanli = False Then
If Data1.Recordset.Fields("mima") = Trim(Text1.Text) Then
If Text2.Text = "" Then
MsgBox "密码不能为空，请重新输入", vbOKOnly, "提示"
Exit Sub
End If
If Trim(Text2.Text) = Trim(Text3.Text) Then
Data1.Recordset.Edit
Data1.Recordset.Fields("mima") = Trim(Text3.Text)
Data1.Recordset.Update
Data1.Refresh
form_zhu.Enabled = True
form_zhu.Visible = True
MsgBox "密码修改成功", vbOKOnly, "提示"
Unload Form_mm
Else
MsgBox "两次新密码输入不一样，请重新输入", vbOKOnly, "提示"
End If
Else
MsgBox "旧密码输入不正确，请重新输入", vbOKOnly, "提示"
End If
Else
' Text1.Enabled = False
' Label1.Enabled = False
If Trim(Text2.Text) = Trim(Text3.Text) Then
If Text2.Text = "" Then
MsgBox "密码不能为空，请重新输入", vbOKOnly, "提示"
Exit Sub
End If
Data1.Recordset.Edit
Data1.Recordset.Fields("mima") = Trim(Text3.Text)
Data1.Recordset.Update
Data1.Refresh
form_zhu.Enabled = True
form_zhu.Visible = True
MsgBox "密码修改成功", vbOKOnly, "提示"
Unload Form_mm
Else
MsgBox "两次新密码输入不一样，请重新输入", vbOKOnly, "提示"
End If
End If
End Sub
Private Sub Command2_Click()
If MsgBox("请不要在交班时刻进行数据清零,当数据清零后请务必把仪表累计量也清零", vbYesNo, "警告") = vbYes Then
Data2.RecordSource = "select * from cunchu "
Data2.Recordset.Edit
Data2.Recordset.Fields("yihao") = 0
Data2.Recordset.Fields("erhao") = 0
Data2.Recordset.Fields("sanhao") = 0
Data2.Recordset.Fields("sihao") = 0
Data2.Recordset.Update
Data2.Refresh
Data3.RecordSource = "select * from cunchu2 "
Data3.Recordset.Edit
Data3.Recordset.Fields("yihaoL") = 0
Data3.Recordset.Fields("erhaoL") = 0
Data3.Recordset.Fields("sanhaoL") = 0
Data3.Recordset.Fields("sihaoL") = 0
Data3.Recordset.Update
Data3.Refresh
MsgBox "数据清零完毕", vbOKOnly, "提示"
End If
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\DB1.mdb"
Data1.RecordSource = "mm"
Data2.DatabaseName = App.Path + "\DB1.mdb"
Data2.RecordSource = "cunchu"
Data3.DatabaseName = App.Path + "\DB1.mdb"
Data3.RecordSource = "cunchu2"
If guanli = True Then
Command2.Enabled = True
Text1.Enabled = False
Label1.Enabled = False
Else
Command2.Enabled = False
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
form_zhu.Enabled = True
form_zhu.Visible = True
Text1.Enabled = True
Label1.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -