mdiform1.frm

电脑公司硬件销售管理系统

      Begin VB.Menu FDSell 
         Caption         =   "销售报表"
      End
      Begin VB.Menu FAllsell 
         Caption         =   "整机报表"
      End
   End
   Begin VB.Menu MGLixx 
      Caption         =   "管理选项(&G)"
      Begin VB.Menu MTodayG 
         Caption         =   "当日销售(&D)"
      End
      Begin VB.Menu MFullE 
         Caption         =   "整机服务(&Z)"
      End
      Begin VB.Menu MZheG 
         Caption         =   "职员管理(&G)"
      End
      Begin VB.Menu MBjM 
         Caption         =   "报价管理(&B)"
      End
      Begin VB.Menu MHuoG 
         Caption         =   "货存管理(&T)"
      End
      Begin VB.Menu mFyungong 
         Caption         =   "员工工资管理(&Y)"
      End
      Begin VB.Menu MDHRe 
         Caption         =   "同行公司管理(&L)"
      End
   End
   Begin VB.Menu Mhelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu HELP 
         Caption         =   "帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu About 
         Caption         =   "关于"
         Shortcut        =   ^A
      End
      Begin VB.Menu gf 
         Caption         =   "-"
      End
      Begin VB.Menu zhuche 
         Caption         =   "注册"
         Shortcut        =   {F12}
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
'  引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.dapha.net
'论坛：http://www.5ivb.net
'Email:[e-mail]
'CopyRight 2001-2005 By dapha.net
'整理时间：2003-8-16 12:43:59

Option Explicit

Private Sub About_Click()
    frmAbout.Show
End Sub

Private Sub FAllsell_Click()
    REPAll.Show
End Sub

Private Sub FDSell_Click()
    REPData.Show
End Sub

Private Sub HELP_Click()
    Shell "hh.exe " & App.Path & "\help\help.chm", vbMaximizedFocus
End Sub

Private Sub MDaoChu_Click()
    Dim fso As New FileSystemObject
    Dim filename As File, sPath, Fname As String
    On Error GoTo fd
    Fname = App.Path
    If Right(Fname, 1) <> "\" Then Fname = Fname + "\"
    Fname = Fname + "data\kji.bgh"
    Set filename = fso.GetFile(Fname)
    Me.CommonDialog1.ShowSave
    Me.CommonDialog1.Filter = "data (*.bgh)|*.bgh"
    sPath = Me.CommonDialog1.filename
    filename.Copy sPath
    MsgBox "数据文件已导出！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
fd:
    Exit Sub
End Sub

Private Sub MDaoRiu_Click()
    Dim fso As New FileSystemObject
    Dim filename As File, sPath, Fname As String
    On Error GoTo ddd
    Me.CommonDialog1.ShowOpen
    Me.CommonDialog1.Filter = "data (*.bgh)|*.bgh"
    sPath = Me.CommonDialog1.filename
    Set filename = fso.GetFile(sPath)
    Fname = App.Path
    If Right(Fname, 1) <> "\" Then Fname = Fname + "\"
    Fname = Fname + "data\kji.bgh"
    filename.Copy Fname
    MsgBox "数据文件已导入！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"

ddd:
    Exit Sub
End Sub

Private Sub MDHRe_Click()
    DHForm.Show
End Sub

Private Sub MDIForm_Load()
    Dim Pstr, Pstr1 As String
    Pstr = App.Path
    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"
    Pstr = Pstr + "data\kji.bgh"
    Pstr1 = Dir(Pstr)
    If Pstr1 = "" Then
        MsgBox "系统数据文件丢失，请恢复！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
        dataDaoRu

    End If

    Pstr = App.Path
    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"
    Pstr = Pstr + "picture\640.jpg"
    Pstr1 = Dir(Pstr)
    If Pstr1 = "" Then
        MsgBox "系统图片文件丢失，请恢复！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
        End
    End If
    Pstr = App.Path
    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"
    Pstr = Pstr + "picture\800.jpg"
    Pstr1 = Dir(Pstr)
    If Pstr1 = "" Then
        MsgBox "系统图片文件丢失，请恢复！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
        End
    End If
    Pstr = App.Path
    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"
    Pstr = Pstr + "picture\1024.jpg"
    Pstr1 = Dir(Pstr)
    If Pstr1 = "" Then
        MsgBox "系统图片文件丢失，请恢复！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
        End
    End If

    Pstr = App.Path
    If Right(Pstr, 1) <> "\" Then Pstr = Pstr + "\"
    Pstr = Pstr + "help\help.chm"
    Pstr1 = Dir(Pstr)
    If Pstr1 = "" Then
        MsgBox "系统帮助文件丢失！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
    End If
    '以下代码是将软件全屏显示并跟据分辨率显示背景图片
    Me.Top = 0
    Me.Left = 0
    Me.Height = Screen.Height - 300
    Me.Width = Screen.Width
    If Screen.Width = 9600 Then MDIForm1.Picture = LoadPicture(App.Path & "\picture\" & "640.jpg")
    If Screen.Width = 12000 Then MDIForm1.Picture = LoadPicture(App.Path & "\picture\" & "800.jpg")
    If Screen.Width = 15360 Then MDIForm1.Picture = LoadPicture(App.Path & "\picture\" & "1024.jpg")

    '将窗体标题设置为登陆都的姓名及权限
    If str1 = "普通用户" Then
        Me.MUserChange.Enabled = False
        Me.FAllsell.Enabled = False
        Me.MZheG.Enabled = False
        Me.MHuoG.Enabled = False
        Me.FDSell.Enabled = False
        Me.MDHRe.Enabled = False
        Me.MDaoChu.Enabled = False
        Me.MDaoRiu.Enabled = False
    End If
    Me.MBjM.Enabled = False
    '     Me.MHuoG.Enabled = False
    Me.zhuche.Enabled = False
    Me.mFyungong.Enabled = False
    MDIForm1.Caption = "金恒生计算机硬件公司管理系统" + "   ---   " + "(" + str1 + ":" + User1 + ")" + "  " + "使用中..."
    Unload Form1
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim strReg As String
    strReg = MsgBox("请确认子窗体已全部关闭！否则可能会丢信息！请确认后退出！", vbYesNo + 32, "金恒生计算机硬件公司管理系统")
    If strReg = vbYes Then Exit_Sub
    If strReg = vbNo Then Cancel = True
End Sub

Private Sub MEnd_Click()
    End
End Sub

Private Sub MF_Click()
    mF.Checked = Not mF.Checked
    sbStatusBar.Visible = mF.Checked
End Sub

Private Sub MFullE_Click()
    AllCForm.Show
End Sub

Private Sub MHuoG_Click()
    HCGLForm.Show
End Sub

Private Sub MPassWChange_Click()
    Form8.Show
End Sub

Private Sub MSanB_Click()
    Form5.Show
End Sub

Private Sub MTodayG_Click()
    Form3.Show
End Sub

Private Sub MTools_Click()
    MTools.Checked = Not MTools.Checked
    tbToolBar.Visible = MTools.Checked
End Sub

Private Sub MUserChange_Click()
    UserForm.Show

End Sub

Private Sub MWDie_Click()
    MDIForm1.Arrange 0
End Sub

Private Sub MWPLTB_Click()
    MDIForm1.Arrange 3
End Sub

Private Sub MWSp_Click()
    MDIForm1.Arrange 1
End Sub

Private Sub MZheG_Click()
    Form6.Show
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "密码修改"

            Form8.Show
        Case "用户管理"
            If str1 = "普通用户" Then
                MsgBox "Sorry,您没有该权限！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
            Else
                UserForm.Show
            End If
        Case "销售报表"
            If str1 = "普通用户" Then
                MsgBox "Sorry,您没有该权限！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
            Else
                REPData.Show
            End If
        Case "整机报表"
            If str1 = "普通用户" Then
                MsgBox "Sorry,您没有该权限！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
            Else
                REPAll.Show
            End If
        Case "当日销售"
            Form3.Show
        Case "整机销售"
            AllCForm.Show
        Case "报价管理"
            If str1 = "普通用户" Then
                MsgBox "Sorry,您没有该权限！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
            Else
            End If
        Case "职员管理"
            If str1 = "普通用户" Then
                MsgBox "Sorry,您没有该权限！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
            Else
                Form6.Show
            End If
        Case "货存管理"
            'If str1 = "普通用户" Then
            MsgBox "Sorry,您没有该权限！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
            'Else
            '   HCGLForm.Show
            'End If
        Case "同行公司管理"
            If str1 = "普通用户" Then
                MsgBox "Sorry,您没有该权限！", vbOKOnly + 48, "金恒生计算机硬件公司管理系统"
            Else
                DHForm.Show
            End If
    End Select
End Sub

'统计结果：
'    注释共：8行