f0.frm

vb下的数据库编程,医药销售管理系统

VERSION 5.00
Begin VB.Form f0 
   BackColor       =   &H00FFC0C0&
   Caption         =   "f0"
   ClientHeight    =   4800
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   8355
   LinkTopic       =   "Form1"
   ScaleHeight     =   4800
   ScaleWidth      =   8355
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   3480
      TabIndex        =   3
      Top             =   1920
      Width           =   1455
   End
   Begin VB.TextBox Text2 
      BackColor       =   &H00E0E0E0&
      Height          =   375
      Left            =   3480
      TabIndex        =   2
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确   定"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   3480
      Width           =   1935
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取   消"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4680
      TabIndex        =   0
      Top             =   3480
      Width           =   1695
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFC0C0&
      Caption         =   "请输入药品销售管理员账户及密码"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1440
      TabIndex        =   6
      Top             =   600
      Width           =   5535
   End
   Begin VB.Label Label2 
      BackColor       =   &H00FFC0C0&
      Caption         =   "账 号"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2520
      TabIndex        =   5
      Top             =   2040
      Width           =   615
   End
   Begin VB.Label Label3 
      BackColor       =   &H00FFC0C0&
      Caption         =   "密 码"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2520
      TabIndex        =   4
      Top             =   2640
      Width           =   615
   End
End
Attribute VB_Name = "f0"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim conn As Connection
    Dim rst As Recordset

    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset

    conn.ConnectionString = "Provider=MSDASQL.1;Password=19871111;Persist Security Info=True;User ID=sa;Data Source=medicine"
    conn.Open


    Set rst.ActiveConnection = conn
    rst.LockType = adLockOptimistic
    rst.CursorType = adOpenKeyset
    'rst.Open "select *from l_guanly where Zhao = '" & Text1.Text & "'" and mima =  '" & Text2.Text & "'
     rst.Open "select *from l_guanly where Zhao = '" & Text1.Text & "' and  mima = '" & Text2.Text & "'"
    'Set DataGrid1.DataSource = rst
    loginzh = Text1.Text
    'Set rst = Nothing
   'Set conn = Nothing
    If Trim(rst.RecordCount) = 1 Then
    main.Show vbmodel
    Unload Me
    Else
    MsgBox "账号或密码不正确！"
    End If
    rst.Close
    
End Sub

Private Sub Command2_Click()
         Unload Me
End Sub