mdiform1.frm

本人自己开发的超市管理系统

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   " Jx654  Corp."
   ClientHeight    =   8445
   ClientLeft      =   2775
   ClientTop       =   1785
   ClientWidth     =   9840
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin VB.Menu DL 
      Caption         =   "登录"
      Begin VB.Menu DL_1 
         Caption         =   "登录"
      End
      Begin VB.Menu LO1 
         Caption         =   "-"
      End
      Begin VB.Menu XM 
         Caption         =   "修改密码"
      End
      Begin VB.Menu XQ 
         Caption         =   "权限修改"
      End
      Begin VB.Menu LO2 
         Caption         =   "-"
      End
      Begin VB.Menu E1 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu YG 
      Caption         =   "员工管理"
      Begin VB.Menu YG_1 
         Caption         =   "新聘员工"
      End
      Begin VB.Menu YG_2 
         Caption         =   "调整岗位"
      End
      Begin VB.Menu YG_3 
         Caption         =   "辞退员工"
      End
      Begin VB.Menu YG_4 
         Caption         =   "薪水管理"
      End
   End
   Begin VB.Menu SH 
      Caption         =   "售货"
   End
   Begin VB.Menu JH 
      Caption         =   "进货"
   End
   Begin VB.Menu HE 
      Caption         =   "帮助"
      Begin VB.Menu HE_1 
         Caption         =   "内容"
      End
      Begin VB.Menu HE_2 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub DL1_Click()
    
    FormLOGIN.Show 1
    
End Sub

Private Sub DL_1_Click()
    
    FormLOGIN.Show 1
    
End Sub

Private Sub E1_Click()
    
    Unload Me
    
End Sub

Private Sub HE_1_Click()

End Sub

Private Sub HE_2_Click()
    
    frmAbout.Show 1
    
End Sub

Private Sub JH_Click()

End Sub

Public Sub MDIForm_Load()
    
    YG.Visible = False
    SH.Visible = False
    JH.Visible = False
    XM.Visible = False
    XQ.Visible = False
    
    
     If GL = 0 Then
    On Error GoTo L1
    J.Open "driver={SQL Server};server=LENOVO;uid=jx654;pwd=waihanxiao;database=CSGL"
    
    On Error GoTo L1
    x.Open "driver={SQL Server};server=LENOVO;uid=jx654;pwd=waihanxiao;database=CSGL"
    GoTo L
       
L1:    MsgBox "系统故障！", , "警告"
    Exit Sub
End If
    
L:
    GL = 1
    
    
    
    If msk1 <> 0 Then
        MDIForm1.Caption = "织金煤炭局系统软件（当前操作员 - - " & mm & "）"
        DL_1.Visible = False
    End If
    
    
    
    
    
    
    If msk = 1 Then
        YG.Visible = True
        XM.Visible = True
        XQ.Visible = True
    End If
    
    If msk = 2 Then
        YG.Visible = False
        JH.Visible = False
        SH.Visible = True
        XM.Visible = True
    End If
    
    If msk = 3 Then
        YG.Visible = False
        SH.Visible = False
        JH.Visible = True
        XM.Visible = True
    End If
    
    
    
    
    
End Sub

Private Sub SH_Click()

End Sub

Private Sub XM_Click()
    
    FormXGM.Show 1, MDIForm1
    
End Sub

Private Sub YG_1_Click()
    
    Form2_1.Show
    
End Sub

Private Sub YG_2_Click()
    
    Form2_2.Show
    
End Sub

Private Sub YG_3_Click()
    
    Form2_3.Show
    
End Sub

Private Sub YG_4_Click()
    
    Form2_4.Show
    
End Sub