frmmd.frm

餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段类型 字段长度 （0表示不允许NULL

VERSION 5.00
Begin VB.Form frmMD 
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   0  'None
   ClientHeight    =   1665
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5430
   LinkTopic       =   "Form1"
   ScaleHeight     =   1665
   ScaleWidth      =   5430
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H00A56E3A&
      Height          =   1515
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   5295
      Begin VB.CommandButton CmdEnt_md 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   840
         Picture         =   "frmMD.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   840
         Width           =   1455
      End
      Begin VB.CommandButton cmdExit_md 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "MS Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   2880
         Picture         =   "frmMD.frx":07C7
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   840
         Width           =   1455
      End
      Begin VB.TextBox Txtpzmdr_md 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0FFFF&
         Height          =   285
         Left            =   1200
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   240
         Width           =   1395
      End
      Begin VB.TextBox TxtPwd_md 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0FFFF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         IMEMode         =   3  'DISABLE
         Left            =   3660
         PasswordChar    =   "*"
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "密    码"
         Height          =   225
         Index           =   0
         Left            =   2700
         TabIndex        =   6
         Top             =   300
         Width           =   885
      End
      Begin VB.Label Label7 
         BackStyle       =   0  'Transparent
         Caption         =   "批准免单人"
         Height          =   225
         Index           =   0
         Left            =   180
         TabIndex        =   5
         Top             =   300
         Width           =   1035
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00C0FFFF&
         BackStyle       =   1  'Opaque
         FillColor       =   &H00C0FFFF&
         FillStyle       =   0  'Solid
         Height          =   285
         Index           =   0
         Left            =   120
         Top             =   240
         Width           =   1035
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0FFFF&
         FillStyle       =   0  'Solid
         Height          =   285
         Index           =   0
         Left            =   2640
         Top             =   240
         Width           =   975
      End
   End
End
Attribute VB_Name = "frmMD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_pzmdr As String
Private m_result As Boolean
Public Property Get pzmdr() As String '批准打折人
    pzmdr = m_pzmdr
End Property
Public Property Get result() As Boolean '免服务费
    result = m_result
End Property
Private Sub CmdEnt_md_Click()
    If chkUser = False Then
        MsgBox "用户没有权限操作此项!请联系系统管理员!", vbOKOnly, "信息提示"
        Exit Sub
    End If
    m_pzmdr = Trim(Txtpzmdr_md)
    m_result = True
    Me.Hide
End Sub
Private Sub cmdExit_md_Click()
    m_result = False
    Unload Me
End Sub


Private Sub Form_Activate()
    Call initFrm
    Txtpzmdr_md.SetFocus
End Sub
Private Sub initFrm()
    Txtpzmdr_md = ""
    TxtPwd_md = ""
End Sub
Private Function chkUser() As Boolean
'    Dim wksql As String
'    Dim rs As New ADODB.Recordset
'On Error GoTo errProc
'    chkUser = False
'    wksql = "SELECT 1 FROM employees "
'    wksql = wksql & " WHERE employee_id='" & Trim(Txtpzmdr_md) & "'"
'    wksql = wksql & " AND pwd='" & Trim(TxtPwd_md) & "'"
'    Set rs = GetRsBySQL(wksql)
'    If rs.RecordCount <= 0 Then Exit Function
'    chkUser = True
'    Exit Function
'errProc:
    chkUser = GetqtRight(Trim(Txtpzmdr_md), Trim(TxtPwd_md), 5)
End Function