frmsy.frm

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

VERSION 5.00
Begin VB.Form frmSy 
   BackColor       =   &H00C0FFFF&
   BorderStyle     =   0  'None
   ClientHeight    =   1905
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5265
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   1905
   ScaleWidth      =   5265
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1 
      BackColor       =   &H00A56E3A&
      Height          =   1755
      Left            =   60
      TabIndex        =   5
      Top             =   60
      Width           =   5115
      Begin VB.CommandButton CmdEnt_sy 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   840
         Picture         =   "frmSy.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   1170
         Width           =   1455
      End
      Begin VB.CommandButton cmdCancel_sy 
         Appearance      =   0  'Flat
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   450
         Left            =   2940
         Picture         =   "frmSy.frx":07C7
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   1170
         Width           =   1455
      End
      Begin VB.TextBox TxtSkr_sy 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0FFFF&
         Height          =   285
         Left            =   1080
         TabIndex        =   0
         Text            =   "Text1"
         Top             =   300
         Width           =   1365
      End
      Begin VB.TextBox TxtMoney_sy 
         Appearance      =   0  'Flat
         BackColor       =   &H00C0FFFF&
         Height          =   285
         Left            =   2280
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   720
         Width           =   1425
      End
      Begin VB.TextBox TxtPswd_sy 
         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            =   3450
         PasswordChar    =   "*"
         TabIndex        =   1
         Text            =   "Text1"
         Top             =   300
         Width           =   1365
      End
      Begin VB.Label Label7 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "交款人："
         Height          =   225
         Left            =   240
         TabIndex        =   8
         Top             =   360
         Width           =   825
      End
      Begin VB.Label Label14 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "交款金额："
         Height          =   225
         Left            =   1260
         TabIndex        =   7
         Top             =   780
         Width           =   945
      End
      Begin VB.Label Label6 
         Alignment       =   2  'Center
         BackStyle       =   0  'Transparent
         Caption         =   "密码："
         Height          =   225
         Left            =   2580
         TabIndex        =   6
         Top             =   360
         Width           =   825
      End
      Begin VB.Shape Shape2 
         FillColor       =   &H00C0FFFF&
         FillStyle       =   0  'Solid
         Height          =   285
         Left            =   180
         Top             =   300
         Width           =   825
      End
      Begin VB.Shape Shape3 
         FillColor       =   &H00C0FFFF&
         FillStyle       =   0  'Solid
         Height          =   285
         Left            =   2520
         Top             =   300
         Width           =   825
      End
      Begin VB.Shape Shape4 
         FillColor       =   &H00C0FFFF&
         FillStyle       =   0  'Solid
         Height          =   285
         Left            =   1140
         Top             =   720
         Width           =   1065
      End
   End
End
Attribute VB_Name = "frmSy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_result As Boolean
Private m_money As Double
Private m_skr As String
Private m_pswd As String
Public Property Get money() As Double
'返回金额
    money = m_money
End Property
Public Property Get skr() As String
 '返回收款人
    skr = m_skr
End Property
Public Property Get pswd() As String
'返回密码
    pswd = m_pswd
End Property
Public Property Get result() As Boolean
' 按确定键返回TRUE 按取消键返回FALSE
    result = m_result
End Property
Private Sub cmdCancel_sy_Click()
    m_result = False
    Unload Me
End Sub
Private Sub CmdEnt_sy_Click()
    If chkUser = False Then
        MsgBox "用户不存在,或密码错误", vbOKOnly, "信息提示"
        Exit Sub
    End If
    m_money = Val(noComma(TxtMoney_sy))
    m_skr = Trim(TxtSkr_sy)
    m_pswd = Trim(TxtPswd_sy)
    m_result = True
    Me.Hide
End Sub

Private Sub initFld()
    TxtSkr_sy = ""
    TxtPswd_sy = ""
    TxtMoney_sy = Format(0, kfmtc)
End Sub

Private Sub Form_Load()
    Call initFld
End Sub

Private Sub TxtSkr_sy_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Call SendKeys("{TAB}")
    End If
End Sub
Private Sub TxtPswd_sy_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Call SendKeys("{TAB}")
    End If
End Sub
Private Sub TxtMoney_sy_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        Call SendKeys("{TAB}")
    End If
End Sub
Private Sub TxtMoney_sy_GotFocus()
    TxtMoney_sy = Val(noComma(TxtMoney_sy))
End Sub
Private Sub TxtMoney_sy_LostFocus()
    TxtMoney_sy = Format(Val(noComma(TxtMoney_sy)), kfmtc)
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(TxtSkr_sy) & "'"
    wksql = wksql & " AND pwd='" & Trim(TxtPswd_sy) & "'"
    Set rs = GetRsBySQL(wksql)
    If rs.RecordCount <= 0 Then Exit Function
    chkUser = True
    Exit Function
errProc:
End Function