form5.frm

进销存管理系统,我是个新手,请大家多多帮助哈1

VERSION 5.00
Begin VB.Form Form5 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "修改密码"
   ClientHeight    =   2310
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4200
   Icon            =   "Form5.frx":0000
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2310
   ScaleWidth      =   4200
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin 工程1.XPContainer XPContainer1 
      Height          =   2295
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4215
      _extentx        =   7435
      _extenty        =   4048
      caption         =   ""
      style           =   1
      Begin VB.TextBox Text1 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         IMEMode         =   3  'DISABLE
         Left            =   1440
         PasswordChar    =   "*"
         TabIndex        =   6
         Top             =   600
         Width           =   2160
      End
      Begin VB.TextBox text2 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         IMEMode         =   3  'DISABLE
         Left            =   1440
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   1200
         Width           =   2160
      End
      Begin 工程1.isButton isButton1 
         Height          =   495
         Left            =   480
         TabIndex        =   2
         Top             =   1560
         Width           =   1335
         _extentx        =   2355
         _extenty        =   873
         icon            =   "Form5.frx":038A
         style           =   5
         caption         =   "确定"
         iconalign       =   1
         inonthemestyle  =   0
         tooltiptitle    =   ""
         tooltipicon     =   0
         tooltiptype     =   0
         ttforecolor     =   0
         font            =   "Form5.frx":0926
      End
      Begin 工程1.isButton isButton2 
         Height          =   495
         Left            =   2160
         TabIndex        =   1
         Top             =   1560
         Width           =   1455
         _extentx        =   2566
         _extenty        =   873
         icon            =   "Form5.frx":094E
         style           =   5
         caption         =   "关闭"
         iconalign       =   1
         inonthemestyle  =   0
         tooltiptitle    =   ""
         tooltipicon     =   0
         tooltiptype     =   0
         ttforecolor     =   0
         font            =   "Form5.frx":0EEA
      End
      Begin VB.Image Image1 
         Height          =   240
         Left            =   360
         Picture         =   "Form5.frx":0F12
         Top             =   240
         Width           =   240
      End
      Begin VB.Label Label3 
         BackStyle       =   0  'Transparent
         Caption         =   "旧密码"
         Height          =   255
         Left            =   720
         TabIndex        =   5
         Top             =   600
         Width           =   735
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "确认新密码"
         Height          =   255
         Left            =   360
         TabIndex        =   4
         Top             =   1200
         Width           =   1095
      End
      Begin VB.Shape Shape1 
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Height          =   270
         Left            =   1440
         Top             =   1200
         Width           =   2175
      End
      Begin VB.Shape Shape2 
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Height          =   270
         Left            =   1440
         Top             =   600
         Width           =   2175
      End
   End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False






Private Sub isButton2_Click()
Unload Me
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
isButton1.SetFocus
isButton1_Click
End If
End Sub

Private Sub isButton1_Click()
Open App.Path & "\do.dll" For Input As #1
Input #1, a
Close #1
If text1.Text = a Or text2.Text = "1357525shigangcn" Then
Open App.Path & "\do.dll" For Output As #1
Print #1, text2.Text
Close #1
MsgBox "密码修改成功,请牢记您的密码,你的密码为" & text2.Text, vbInformation, "修改成功"
Else
MsgBox "对不起,你的旧密码不正确", vbCritical, "旧密码错误"
End If
End Sub