form2.frm

这是一个仓库管理系统做不全

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "修改密码"
   ClientHeight    =   3540
   ClientLeft      =   3810
   ClientTop       =   3795
   ClientWidth     =   6495
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   Picture         =   "Form2.frx":0000
   ScaleHeight     =   3540
   ScaleWidth      =   6495
   Begin VB.CommandButton Command2 
      Caption         =   "返回"
      Height          =   375
      Left            =   4680
      TabIndex        =   7
      Top             =   2880
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Left            =   3360
      TabIndex        =   6
      Top             =   2880
      Width           =   1095
   End
   Begin VB.TextBox Text3 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1800
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   2160
      Width           =   4095
   End
   Begin VB.TextBox Text2 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1800
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1320
      Width           =   4095
   End
   Begin VB.TextBox Text1 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1800
      PasswordChar    =   "*"
      TabIndex        =   0
      Top             =   600
      Width           =   4095
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "重新输入新密码："
      Height          =   180
      Left            =   360
      TabIndex        =   5
      Top             =   2280
      Width           =   1440
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "新密码："
      Height          =   180
      Left            =   1080
      TabIndex        =   4
      Top             =   1440
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "旧密码："
      Height          =   180
      Left            =   1080
      TabIndex        =   3
      Top             =   600
      Width           =   720
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim str As String
Private Sub Command1_Click()
If Text1 = Form1.txtPwd Then
Dim a As String
a = Trim(Form1.txtName.Text)
Set rs = New Recordset
str = "select * from dl where mc = '" & Trim(Form1.txtName.Text) & "'"
Call lian(str, cn, rs)
If Text2.Text = Text3.Text Then
'rs.Fields("mm").Value = " & Trim(Text2.Text) & "
rs!mm = Text2.Text
rs.Update
MsgBox "修改成功！", vbInformation, "成功"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command2.SetFocus
Else
MsgBox "新密码不同，请查看后重新输入！", vbCritical, "错误"
Text3.Text = ""
Text3.SetFocus
End If
Else
MsgBox "您输入的密码不正确，请重新输入！", vbCritical, "错误"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Call sh
End Sub