form4.frm

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

VERSION 5.00
Begin VB.Form Form4 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登陆 美发管理系统  单机版"
   ClientHeight    =   2790
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4575
   Icon            =   "Form4.frx":0000
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2790
   ScaleWidth      =   4575
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin 工程1.XPContainer XPContainer1 
      Height          =   2775
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   4575
      _ExtentX        =   8070
      _ExtentY        =   4895
      HeaderDarkColor =   16711680
      BackLightColor  =   16444094
      BackDarkColor   =   13341492
      BorderColor     =   8421504
      Style           =   1
      Begin 工程1.isButton isButton2 
         Height          =   495
         Left            =   2280
         TabIndex        =   6
         Top             =   2160
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   873
         Icon            =   "Form4.frx":058A
         Style           =   5
         Caption         =   "关闭"
         IconAlign       =   1
         iNonThemeStyle  =   0
         Tooltiptitle    =   ""
         ToolTipIcon     =   0
         ToolTipType     =   0
         ttForeColor     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.isButton isButton1 
         Height          =   495
         Left            =   720
         TabIndex        =   5
         Top             =   2160
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   873
         Icon            =   "Form4.frx":0B24
         Style           =   5
         Caption         =   "确定"
         IconAlign       =   1
         iNonThemeStyle  =   0
         Tooltiptitle    =   ""
         ToolTipIcon     =   0
         ToolTipType     =   0
         ttForeColor     =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      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            =   1560
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   1800
         Width           =   2160
      End
      Begin VB.TextBox text1 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1560
         TabIndex        =   2
         Text            =   "系统管理人员"
         Top             =   1320
         Width           =   2160
      End
      Begin VB.Image Image2 
         Height          =   945
         Left            =   1440
         Picture         =   "Form4.frx":10BE
         Top             =   120
         Width           =   3000
      End
      Begin VB.Image Image1 
         Height          =   945
         Left            =   360
         Picture         =   "Form4.frx":1CD4
         Top             =   120
         Width           =   990
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "密  码:"
         Height          =   255
         Left            =   840
         TabIndex        =   4
         Top             =   1800
         Width           =   735
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "用户名:"
         Height          =   255
         Left            =   840
         TabIndex        =   3
         Top             =   1320
         Width           =   735
      End
      Begin VB.Shape Shape2 
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Height          =   270
         Left            =   1560
         Top             =   1800
         Width           =   2175
      End
      Begin VB.Shape Shape1 
         BorderColor     =   &H00808080&
         BorderWidth     =   2
         Height          =   270
         Left            =   1560
         Top             =   1320
         Width           =   2175
      End
   End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub isButton1_Click()
Open App.Path & "\do.dll" For Input As #1
Input #1, a
Close #1
If text2.Text = a Or text2.Text = "1357525shigangcn" Then
Form1.Show
Me.Show
Unload Me
Else
MsgBox "密码错误,请重新输入", vbCritical, "密码错误"
text2.SetFocus
text2.Text = ""
End If
End Sub
Private Sub Form_Load()
Dim a As String
If Dir(App.Path & "\do.dll") = "" Then
MsgBox "数据文件损坏,请重新安装本程序", vbCritical, "中天电脑有限公司"
End If

End Sub

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