zhujiemian.frm

随着市场经济的发展

         Shortcut        =   ^C
      End
   End
   Begin VB.Menu xsgl 
      Caption         =   "销售管理(&X)"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu djxsd 
         Caption         =   "登记销售单"
         Shortcut        =   ^D
      End
      Begin VB.Menu xsdcx 
         Caption         =   "销售单查询"
         Shortcut        =   ^E
      End
      Begin VB.Menu xshz 
         Caption         =   "销售汇总"
         Shortcut        =   ^I
      End
   End
   Begin VB.Menu ckgl 
      Caption         =   "仓库管理(&C)"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu djrkd 
         Caption         =   "登记入库单"
         Shortcut        =   ^N
      End
      Begin VB.Menu kccx 
         Caption         =   "库存查询"
         Shortcut        =   ^Q
      End
      Begin VB.Menu kcbjsz 
         Caption         =   "库存报警设置"
         Shortcut        =   ^R
      End
   End
   Begin VB.Menu xtsz 
      Caption         =   "系统设置(&S)"
      NegotiatePosition=   2  'Middle
      Begin VB.Menu jczlsz 
         Caption         =   "基础资料设置"
         Shortcut        =   ^W
      End
      Begin VB.Menu spzlsz 
         Caption         =   "商品资料设置"
         Shortcut        =   ^X
      End
      Begin VB.Menu yhqxsz 
         Caption         =   "用户权限设置"
         Shortcut        =   ^Y
      End
   End
   Begin VB.Menu bz 
      Caption         =   "帮助(&B)"
      Begin VB.Menu bzzt 
         Caption         =   "帮助主题"
         Shortcut        =   ^P
      End
      Begin VB.Menu gybxt 
         Caption         =   "关于本系统"
         Shortcut        =   ^Z
      End
   End
End
Attribute VB_Name = "主界面"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub bzzt_Click()
帮助主题.Show
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer
        主界面.Enabled = False
        i = MsgBox("确定要切换用户吗？", vbYesNo + vbQuestion + vbDefaultButton2 + vbapplicationmodale, "确认提示")
        If i = 6 Then
          denglujiemian.Show
          Unload 登记销售单
          Unload 登记入库单
          Unload 基础资料设置
          Unload 库存报警设置
          Unload 库存查询
          Unload 切换用户
          Unload 商品资料设置
          Unload 销售单查询
          Unload 销售汇总
          Unload 修改密码
          Unload 用户权限设置
          Unload 主界面
          Unload 注册
        ElseIf i = 7 Then
          主界面.Enabled = True
        End If
End Sub

Private Sub CommandButton2_Click()
商品资料设置.Show
End Sub

Private Sub CommandButton3_Click()
登记销售单.Show
End Sub

Private Sub CommandButton4_Click()
销售单查询.Show
End Sub

Private Sub CommandButton5_Click()
入库单查询.Show
End Sub

Private Sub CommandButton6_Click()
登记入库单.Show
End Sub

Private Sub CommandButton7_Click()
库存查询.Show
End Sub

Private Sub CommandButton8_Click()
  Dim i As Integer
   i = MsgBox("确定要退出吗？", vbYesNo + vbQuestion + vbDefaultButton2, "")
   If i = 6 Then
  Unload denglujiemian
  Unload 登记销售单
  Unload 登记入库单
  Unload 基础资料设置
  Unload 库存报警设置
  Unload 库存查询
  Unload 商品资料设置
  Unload 销售单查询
  Unload 销售汇总
  Unload 修改密码
  Unload 用户权限设置
  Unload 主界面
  Unload 注册
  Unload 帮助主题
  Unload 关于本系统
End If
End Sub

Private Sub djrkd_Click()
登记入库单.Show
End Sub

Private Sub djxsd_Click()
登记销售单.Show
End Sub


Private Sub Form_Load()
Label5.Caption = Date
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from yhxxb where yhm='" & yhm & "'"
Set rs = exesql(sql)
czr.Caption = Trim(rs.Fields("xm")) '显示操作员姓名
  If Trim(rs.Fields("yhsf")) = "待定用户" Then   '若身份为待定用户，锁定权限之外的功能
        xsgl.Enabled = False
        ckgl.Enabled = False
        xtsz.Enabled = False
        CommandButton2.Enabled = False
        CommandButton3.Enabled = False
        CommandButton4.Enabled = False
        CommandButton6.Enabled = False
        CommandButton7.Enabled = False
  ElseIf Trim(rs.Fields("yhsf")) = "采购人员" Then   '若身份为采购人员，锁定权限之外的功能
        xsgl.Enabled = False
        kcbjsz.Enabled = False
        xtsz.Enabled = False
        CommandButton3.Enabled = False
        CommandButton4.Enabled = False
        CommandButton2.Enabled = False
  ElseIf Trim(rs.Fields("yhsf")) = "销售人员" Then  '若身份为销售人员，锁定权限之外的功能
        ckgl.Enabled = False
        xtsz.Enabled = False
        CommandButton6.Enabled = False
        CommandButton7.Enabled = False
        CommandButton2.Enabled = False
  ElseIf Trim(rs.Fields("yhsf")) = "仓库管理员" Then  '若身份为仓库管理员，锁定权限之外的功能
        xsgl.Enabled = False
        xtsz.Enabled = False
        CommandButton2.Enabled = False
        CommandButton3.Enabled = False
        CommandButton4.Enabled = False
  End If
  sql = "select * from cszlb"
  Set rs = exesql(sql)
  If rs.RecordCount > 0 Then
  Label6.Caption = Trim(rs.Fields("csmc"))    '显示超市名称
  End If
Set rs = Nothing
End Sub

Private Sub gybxt_Click()
关于本系统.Show
End Sub

Private Sub jczlsz_Click()
基础资料设置.Show
End Sub

Private Sub kcbjsz_Click()
库存报警设置.Show
End Sub

Private Sub kccx_Click()
库存查询.Show
End Sub

Private Sub qhyh_Click()
 Dim i As Integer
        主界面.Enabled = False
        i = MsgBox("确定要切换用户吗？", vbYesNo + vbQuestion + vbDefaultButton2 + vbapplicationmodale, "确认提示")
        If i = 6 Then
          denglujiemian.Show
          Unload 登记销售单
          Unload 登记入库单
          Unload 基础资料设置
          Unload 库存报警设置
          Unload 库存查询
          Unload 商品资料设置
          Unload 销售单查询
          Unload 销售汇总
          Unload 修改密码
          Unload 用户权限设置
          Unload 主界面
          Unload 注册
        ElseIf i = 7 Then
          主界面.Enabled = True
        End If
End Sub

Private Sub rkdcx_Click()
入库单查询.Show
End Sub

Private Sub spzlsz_Click()
商品资料设置.Show
End Sub


Private Sub tmrclock_Timer()
Label4.Caption = Time$
End Sub

Private Sub xgmm_Click()
修改密码.Show
End Sub

Private Sub xsdcx_Click()
销售单查询.Show
End Sub

Private Sub xshz_Click()
销售汇总.Show
End Sub

Private Sub yhqxsz_Click()
用户权限设置.Show
End Sub