📄 main_mima.frm

📁 用vb做的一套餐饮管理系统的,可以方便的实现餐饮行业的管理
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      Caption         =   "腾龙餐饮管理系统"
      BeginProperty Font 
         Name            =   "方正姚体简体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   390
      Left            =   2700
      TabIndex        =   8
      Top             =   30
      Width           =   3270
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "在下面选择用来登陆的身份："
      Height          =   420
      Left            =   180
      TabIndex        =   7
      Top             =   90
      Width           =   2955
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "密  码：         "
      Height          =   300
      Left            =   195
      TabIndex        =   4
      Top             =   3300
      Width           =   855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "操作员：                       员工类别："
      Height          =   195
      Left            =   195
      TabIndex        =   3
      Top             =   2865
      Width           =   3690
   End
End
Attribute VB_Name = "main_mima"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim itmX As ListItem
Dim TIM, a As Integer     '定义整型变量
Dim myval, key, list As String     '定义字符串变量
Private Sub Form_Activate()
 '初始化设置
 Me.Caption = App.Title & "  版本： V" & App.Major & "." & App.Minor & "." & App.Revision
 Adodc1.RecordSource = "select * from 权限信息表 "
 Adodc1.Refresh
 If Adodc1.Recordset.RecordCount = 0 Then
    MsgBox ("您还没有设置操作员密码和权限，请设置操作员密码和权限!")
    Load frm_main
    frm_main.Show
    Unload Me
  Else
   ListView1.SetFocus
   frm_main.qtgl.Enabled = False
   frm_main.ktgl.Enabled = False
   frm_main.mdgl.Enabled = False
   frm_main.rjzfx.Enabled = False
   frm_main.rjsgl.Enabled = False
   frm_main.htgl.Enabled = False
   frm_main.czgl.Enabled = False
   frm_main.ysyf.Enabled = False
   frm_main.xtcs.Enabled = False
   frm_main.xtgl.Enabled = False
   frm_main.Toolbar1.Buttons(1).Enabled = False
   frm_main.Toolbar1.Buttons(3).Enabled = False
   frm_main.Toolbar1.Buttons(5).Enabled = False
   frm_main.Toolbar1.Buttons(7).Enabled = False
   frm_main.Toolbar1.Buttons(9).Enabled = False
   frm_main.Toolbar1.Buttons(11).Enabled = False
   frm_main.Toolbar1.Buttons(13).Enabled = False
   '添加操作员列表
   Adodc1.Recordset.MoveFirst
   czy.Caption = Trim(Adodc1.Recordset.Fields("操作员姓名"))
   czyjb.Caption = Trim(Adodc1.Recordset.Fields("员工级别"))
   Do While Adodc1.Recordset.EOF = False
    key = Trim(Adodc1.Recordset.Fields("操作员姓名"))
    Set itmX = ListView1.ListItems.Add(, , key, 1)
    Adodc1.Recordset.MoveNext
   Loop
 End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
End Sub
Private Sub ListView1_Click()
  If ListView1.ListItems.Count > 0 Then
     list = ListView1.SelectedItem
     '查询操作员信息
     Adodc1.RecordSource = "select * from 权限信息表 where 操作员姓名='" + list + "'"
     Adodc1.Refresh
     If Adodc1.Recordset.RecordCount > 0 Then
        czy.Caption = Trim(Adodc1.Recordset.Fields("操作员姓名"))
        czyjb.Caption = Trim(Adodc1.Recordset.Fields("员工级别"))
     End If
  End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
 If KeyCode = vbKeyReturn Then Comyes.SetFocus     '按回车键Comyes获得焦点
End Sub
Private Sub comyes_Click()
  Dim MESSAGE As String
  Textime.text = TIM
  Adodc1.RecordSource = "select * from 权限信息表 where 操作员姓名 = '" + Trim(czy.Caption) + "'"
  Adodc1.Refresh
  '判断操作员及密码
  If czy.Caption <> "" And Text1.text = Trim(Adodc1.Recordset.Fields("密码")) Then
     Load frm_main
     frm_main.Show
     '设置操作员权限
     If Trim(Adodc1.Recordset.Fields("权限")) = "A" Then
        frm_main.qtgl.Enabled = True
        frm_main.ktgl.Enabled = True
        frm_main.mdgl.Enabled = True
        frm_main.rjzfx.Enabled = True
        frm_main.rjsgl.Enabled = True
        frm_main.htgl.Enabled = True
        frm_main.czgl.Enabled = True
        frm_main.ysyf.Enabled = True
        frm_main.xtcs.Enabled = True
        frm_main.xtgl.Enabled = True
        frm_main.Toolbar1.Buttons(1).Enabled = True
        frm_main.Toolbar1.Buttons(3).Enabled = True
        frm_main.Toolbar1.Buttons(5).Enabled = True
        frm_main.Toolbar1.Buttons(7).Enabled = True
        frm_main.Toolbar1.Buttons(9).Enabled = True
        frm_main.Toolbar1.Buttons(11).Enabled = True
        frm_main.Toolbar1.Buttons(13).Enabled = True
     End If
     If Trim(Adodc1.Recordset.Fields("权限")) = "B" Then
        frm_main.qtgl.Enabled = True
        frm_main.ktgl.Enabled = True
        frm_main.mdgl.Enabled = True
        frm_main.rjzfx.Enabled = True
        frm_main.rjsgl.Enabled = True
        frm_main.htgl.Enabled = True
        frm_main.czgl.Enabled = True
        frm_main.ysyf.Enabled = True
        frm_main.xtcs.Enabled = True
        frm_main.Toolbar1.Buttons(1).Enabled = True
        frm_main.Toolbar1.Buttons(3).Enabled = True
        frm_main.Toolbar1.Buttons(5).Enabled = True
        frm_main.Toolbar1.Buttons(7).Enabled = True
        frm_main.Toolbar1.Buttons(9).Enabled = True
        frm_main.Toolbar1.Buttons(11).Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "K") > 0 Then
        frm_main.qtgl.Enabled = True
        frm_main.ktgl.Enabled = True
        frm_main.Toolbar1.Buttons(5).Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "S") > 0 Then
        frm_main.qtgl.Enabled = True
        frm_main.mdgl.Enabled = True
        frm_main.Toolbar1.Buttons(7).Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "R") > 0 Then
        frm_main.qtgl.Enabled = True
        frm_main.rjsgl.Enabled = True
        frm_main.Toolbar1.Buttons(1).Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "J") > 0 Then
        frm_main.qtgl.Enabled = True
        frm_main.rjzfx.Enabled = True
        frm_main.Toolbar1.Buttons(3).Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "Q") > 0 Then
        frm_main.qtgl.Enabled = True
        frm_main.ktgl.Enabled = True
        frm_main.mdgl.Enabled = True
        frm_main.rjzfx.Enabled = True
        frm_main.rjsgl.Enabled = True
        frm_main.Toolbar1.Buttons(1).Enabled = True
        frm_main.Toolbar1.Buttons(3).Enabled = True
        frm_main.Toolbar1.Buttons(5).Enabled = True
        frm_main.Toolbar1.Buttons(7).Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "H") > 0 Then
        frm_main.htgl.Enabled = True
        frm_main.xtcs.Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "C") > 0 Then
        frm_main.czgl.Enabled = True
        frm_main.Toolbar1.Buttons(9).Enabled = True
     End If
     If InStr(Trim(Adodc1.Recordset.Fields("权限")), "Y") > 0 Then
        frm_main.ysyf.Enabled = True
        frm_main.Toolbar1.Buttons(11).Enabled = True
     End If
     frm_main.St1.Panels(3).text = czy.Caption
     Unload Me
  Else
     If TIM = 3 Then
        MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "")
        If MESSAGE = vbOK Then End
     End If
     If czy.Caption = "" Then
        MsgBox ("请选择操作员!")
        ListView1.SetFocus
      Else
        If Text1.text <> Adodc1.Recordset.Fields("密码") Then
           MsgBox ("密码错误,请重新输入密码!")
           TIM = TIM + 1
           Text1.SetFocus
        End If
     End If
  End If
End Sub
Private Sub comend_Click()
 End
End Sub
上一页 12
💿 文件大小 1172 K
👤 上传用户 lizibb
📂 所属分类企业管理
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -