mdljxcsystem.vb

VB写的进销存管理系统

Imports System.Data
Imports System.Data.SqlClient
Public Module mdlJXCSystem

    Public db As New SqlClient.SqlConnection
    Public CurrentTable As String
    Public UID As String
    Public PWD As String
    Public myDataBase As String
    Public myServer As String
    Public ReportTitle As String
    Public ReportDays As Int16
    Public BusinessmanTableOpened As Boolean
    Public ProductTableOpened As Boolean
    Public FactoryTableOpened As Boolean
    Public CustomerTableOpened As Boolean
    Public StoreTableOpened As Boolean
    Public InputTableOpened As Boolean
    Public OutputTableOpened As Boolean
    Public RetreatTableOpened As Boolean
    Public WhatToOrder As String
    Public RowsInTable As Long
    Public frmMain1 As New FrmMain
    Public Mainmenu1 As New MainMenu

    Sub main()
        frmMain1.Show()
        Application.Run()
    End Sub

    Public Sub TableMenuEnable()
        With frmMain1
            If BusinessmanTableOpened Then
                .mnuDatabase.MenuItems(0).Enabled = False
            Else
                .mnuDatabase.MenuItems(0).Enabled = True
            End If
            If ProductTableOpened Then
                .mnuDatabase.MenuItems(3).Enabled = False
            Else
                .mnuDatabase.MenuItems(3).Enabled = True
            End If
            If FactoryTableOpened Then
                .mnuDatabase.MenuItems(2).Enabled = False
            Else
                .mnuDatabase.MenuItems(2).Enabled = True
            End If
            If CustomerTableOpened Then
                .mnuDatabase.MenuItems(1).Enabled = False
            Else
                .mnuDatabase.MenuItems(1).Enabled = True
            End If
            If StoreTableOpened Then
                .mnuDatabase.MenuItems(7).Enabled = False
            Else
                .mnuDatabase.MenuItems(7).Enabled = True
            End If
            If InputTableOpened Then
                .mnuDatabase.MenuItems(4).Enabled = False
            Else
                .mnuDatabase.MenuItems(4).Enabled = True
            End If
            If OutputTableOpened Then
                .mnuDatabase.MenuItems(5).Enabled = False
            Else
                .mnuDatabase.MenuItems(5).Enabled = True
            End If
            If RetreatTableOpened Then
                .mnuDatabase.MenuItems(6).Enabled = False
            Else
                .mnuDatabase.MenuItems(6).Enabled = True
            End If
        End With
    End Sub

    Public Sub ShowErr()
        MsgBox("操作有误。" & vbCrLf & vbCrLf & Err.Description, vbOKOnly + vbCritical, "错误提示")
    End Sub

    Public Sub ShowStatus(ByVal Status1 As String, ByVal status2 As String)
        frmMain1.StatusBar1.Panels(0).Text = Status1
        frmMain1.StatusBar1.Panels(1).Text = status2
    End Sub

End Module