form1.frm

1） 用户管理功能：用户权限、用户添加、修改及登录 2） 药品名称管理：药品名称的添加、修改和删除 3） 药品价格管理：价格初始

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "欢迎进入医院药品进销存系统"
   ClientHeight    =   5400
   ClientLeft      =   3945
   ClientTop       =   2385
   ClientWidth     =   8145
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   5400
   ScaleWidth      =   8145
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   960
      TabIndex        =   0
      Top             =   1920
      Width           =   2655
      Begin VB.TextBox Text1 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   960
         TabIndex        =   4
         Top             =   240
         Width           =   1455
      End
      Begin VB.TextBox Text2 
         Height          =   375
         IMEMode         =   3  'DISABLE
         Left            =   960
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   960
         Width           =   1455
      End
      Begin VB.CommandButton Command1 
         Cancel          =   -1  'True
         Caption         =   "登录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   240
         TabIndex        =   2
         Top             =   1560
         Width           =   855
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1560
         TabIndex        =   1
         Top             =   1560
         Width           =   855
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "姓名："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   720
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         Caption         =   "密码："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   240
         Left            =   240
         TabIndex        =   5
         Top             =   1080
         Width           =   720
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
  Dim sql As String
  Dim rs1 As New ADODB.Recordset
  Dim sql1 As String
  If Text1.Text = "" Then
    MsgBox "请输入您的姓名!", vbOKOnly + vbExclamation, "警告！"
    Text1.SetFocus
  Else
    sql = "select * from 管理员 where 员工姓名='" & Text1.Text & "'"
    rs.Open sql, con, adOpenKeyset, adLockPessimistic
    If rs.RecordCount <= 0 Then
      MsgBox "该用户不存在！", vbOKOnly + vbExclamation, "警告！"
    Text1.Text = ""
    Text2.Text = ""
    Text1.SetFocus
    Else
      If Text2.Text = rs.Fields(4) Then
        user = Text1.Text
        Me.Hide
        Form2.Show
      Else
         MsgBox "密码错误，请重新输入", vbOKOnly + vbExclamation, "警告！"
         Text2.Text = ""
         Text2.SetFocus
      End If
    End If
  End If
   sql1 = "select * from 管理员 where 员工姓名='" & Text1.Text & "'"
  rs1.Open sql1, con, adOpenKeyset, adLockPessimistic
  If rs1.Fields(5) = "员工" Then
     Me.Hide
     Form2.Show
     Form2.administer.Enabled = False
     Form2.change.Enabled = False
    End If
    
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
 Dim conn As String
 conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=药品管理.mdb"      '连接数据库
  con.Open conn
End Sub