frmtjc.frm

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

VERSION 5.00
Begin VB.Form FrmTJC 
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   1650
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5400
   LinkTopic       =   "Form1"
   ScaleHeight     =   1650
   ScaleWidth      =   5400
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H00A56E3A&
      Height          =   1515
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   5295
      Begin VB.TextBox TxtPwd_TJC 
         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        =   4
         Text            =   "Text1"
         Top             =   240
         Width           =   1455
      End
      Begin VB.TextBox TxTtjc_TJC 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0FFFF&
         Height          =   285
         Left            =   1200
         TabIndex        =   3
         Text            =   "Text1"
         Top             =   240
         Width           =   1395
      End
      Begin VB.CommandButton cmdExit_TJC 
         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         =   "FrmTJC.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   840
         Width           =   1455
      End
      Begin VB.CommandButton CmdEnt_TJC 
         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         =   "FrmTJC.frx":07DA
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Label7 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "批  准  人"
         Height          =   225
         Index           =   0
         Left            =   120
         TabIndex        =   6
         Top             =   300
         Width           =   1035
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BackStyle       =   0  'Transparent
         Caption         =   "密    码"
         Height          =   225
         Index           =   0
         Left            =   2700
         TabIndex        =   5
         Top             =   300
         Width           =   885
      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 = "FrmTJC"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_result As Boolean
Public Property Get result() As Boolean '免服务费
    result = m_result
End Property
Private Sub CmdEnt_TJC_Click()
    If chkUser = False Then
        MsgBox "用户没有权限操作此项!请联系系统管理员!", vbOKOnly, "信息提示"
        Exit Sub
    End If
    m_result = True
    Unload Me
End Sub
Private Sub cmdExit_TJC_Click()
    m_result = False
    Unload Me
End Sub
Private Sub Form_Activate()
    Call initFrm
    TxTtjc_TJC.SetFocus
End Sub
Private Sub initFrm()
    TxTtjc_TJC = ""
    TxtPwd_TJC = ""
End Sub
Private Function chkUser() As Boolean

    chkUser = GetqtRight(Trim(TxTtjc_TJC), Trim(TxtPwd_TJC), 6)
End Function