frm_main.frm

商品进销存管理系统 采用VB和SQL2000开发 具有很强的实用性

        If rs1.Fields(6) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_kcgl_jggl
            main_kcgl_jggl.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m8_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(7) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_cxtj_rkcx
            main_cxtj_rkcx.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m9_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(8) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_cxtj_rkthcx
            main_cxtj_rkthcx.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m10_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(9) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_cxtj_xscx
            main_cxtj_xscx.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m11_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(10) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_cxtj_xsthcx
            main_cxtj_xsthcx.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m12_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(11) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_jbzl_yp
            main_jbzl_yp.Show 1
            '      frm_main.Enabled = False
        End If
    End If
    rs1.Close
End Sub
Private Sub m14_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(13) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_jbzl_kh
            main_jbzl_kh.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m15_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(14) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_jbzl_rygl
            main_jbzl_rygl.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m16_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(15) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_jbzl_myunits
            main_jbzl_myunits.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m17_Click()
    mm = 2
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(16) = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_xtgl_czqx
            main_xtgl_czqx.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m18_Click()   '数据库备份与恢复
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(18).Value = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Shell App.Path & "\数据库备份与恢复.exe", vbNormalFocus
            End
        End If
    End If
    rs1.Close
End Sub
Private Sub m19_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(19).Value = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_xtgl_sjcsh
            main_xtgl_sjcsh.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m20_Click()
    rs1.Open "select * from tb_power where 操作员='" & OP & "'", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If rs1.Fields(20).Value = False Then
            MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示"
        Else
            Load main_xtgl_xtrz
            main_xtgl_xtrz.Show 1
        End If
    End If
    rs1.Close
End Sub
Private Sub m21_Click()
    Dim reval
    reval = Shell("CALC.EXE", 1)
End Sub
Private Sub m22_Click()
    Load main_fzgj_jsb
    main_fzgj_jsb.Show 1
End Sub
Private Sub m23_Click()
    Load main_fzgj_addressList
    main_fzgj_addressList.Show 1
End Sub
Private Sub m24_Click()
    Load main_fzgj_yhgl
    main_fzgj_yhgl.Show 1
End Sub
Private Sub m26_Click()
    Load frm_about
    frm_about.Show 1
End Sub

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lbl2.Visible = False
    Select Case picTag
    Case 1
        '商品入库
        If X > 990 And X < 2100 Then
            lbl2.Move 900, 2070
            lbl2.Visible = True
            mytag = "m1"
        End If
        '商品销售
        If X > 5700 And X < 6700 Then
            lbl2.Move 5580, 2085
            lbl2.Visible = True
            mytag = "m2"
        End If
        '销售退货
        If X > 3330 And X < 4500 Then
            If Y > 30 And Y < 920 Then
                lbl2.Move 3270, 75
                lbl2.Visible = True
                mytag = "m3"
            End If
        End If
        '入库退货
        If X > 3330 And X < 4500 Then
            If Y > 4200 And Y < 5200 Then
                lbl2.Move 3240, 4200
                lbl2.Visible = True
                mytag = "m4"
            End If
        End If
    Case 2
        If X > 3330 And X < 4500 Then
            If Y > 30 And Y < 920 Then
                lbl2.Move 3270, 75
                lbl2.Visible = True
                mytag = "m5"
            End If
        End If
        If X > 990 And X < 2100 Then
            lbl2.Move 900, 2070
            lbl2.Visible = True
            mytag = "m6"
        End If
        If X > 5700 And X < 6700 Then
            lbl2.Move 5580, 2085
            lbl2.Visible = True
            mytag = "m7"
        End If
    Case 3
        If X > 1900 And X < 3380 Then
            lbl2.Move 1965, 1140
            lbl2.Visible = True
            mytag = "m8"
        End If
        If X > 4350 And X < 5700 Then
            lbl2.Move 4320, 1140
            lbl2.Visible = True
            mytag = "m9"
        End If
        If X > 1900 And X < 3380 Then
            If Y > 2880 And Y < 3980 Then
                lbl2.Move 1920, 3045
                lbl2.Visible = True
                mytag = "m10"
            End If
        End If
        If X > 4350 And X < 5550 Then
            If Y > 2880 And Y < 3980 Then
                lbl2.Move 4320, 3045
                lbl2.Visible = True
                mytag = "m11"
            End If
        End If
    Case 4
        If X > 2300 And X < 3400 Then
            If Y > 1050 And Y < 2000 Then
                lbl2.Move 2115, 1140
                lbl2.Visible = True
                mytag = "m12"
            End If
        End If
        If X > 4500 And X < 5700 Then
            If Y > 1050 And Y < 2000 Then
                lbl2.Move 4380, 1170
                lbl2.Visible = True
                mytag = "m13"
            End If
        End If
        If X > 1110 And X < 2100 Then
            lbl2.Move 1110, 3060
            lbl2.Visible = True
            mytag = "m14"
        End If
        If X > 3500 And X < 4400 Then
            If Y > 3000 And Y < 4000 Then
                lbl2.Move 3315, 3045
                lbl2.Visible = True
                mytag = "m15"
            End If
        End If
        If X > 5500 And X < 6800 Then
            lbl2.Move 5565, 3060
            lbl2.Visible = True
            mytag = "m16"
        End If
    Case 5
        If X > 1900 And X < 3380 Then
            lbl2.Move 1965, 1140
            lbl2.Visible = True
            mytag = "m17"
        End If
        If X > 4350 And X < 5700 Then
            lbl2.Move 4320, 1140
            lbl2.Visible = True
            mytag = "m18"
        End If
        If X > 1900 And X < 3380 Then
            If Y > 2880 And Y < 3980 Then
                lbl2.Move 1920, 3045
                lbl2.Visible = True
                mytag = "m19"
            End If
        End If
        If X > 4350 And X < 5550 Then
            If Y > 2880 And Y < 3980 Then
                lbl2.Move 4320, 3045
                lbl2.Visible = True
                mytag = "m20"
            End If
        End If
    Case 6
        If X > 1900 And X < 3380 Then
            lbl2.Move 1965, 1140
            lbl2.Visible = True
            mytag = "m21"
        End If
        If X > 4350 And X < 5700 Then
            lbl2.Move 4320, 1140
            lbl2.Visible = True
            mytag = "m22"
        End If
        If X > 1900 And X < 3380 Then
            If Y > 2880 And Y < 3980 Then
                lbl2.Move 1920, 3045
                lbl2.Visible = True
                mytag = "m23"
            End If
        End If
        If X > 4350 And X < 5550 Then
            If Y > 2880 And Y < 3980 Then
                lbl2.Move 4320, 3045
                lbl2.Visible = True
                mytag = "m24"
            End If
        End If
    End Select
End Sub