mainform.vb

一个商品销售管理系统

        Dim MyDlg As New SupplierForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 商品信息设置ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 商品信息设置ToolStripMenuItem.Click
        Dim MyDlg As New MerchandiseForm()
        MyDlg.ShowDialog()
    End Sub

    Private Sub 系统帮助信息ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 系统帮助信息ToolStripMenuItem.Click
        Dim MyDlg As New VersionForm()
        MyDlg.label1.Text = Me.MySlogan
        MyDlg.ShowDialog()
    End Sub

    Private Sub 退出系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系统ToolStripMenuItem.Click, 退出系统ToolStripButton.Click
        If (MessageBox.Show("您确定现在退出本系统吗？", "信息提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes) Then
            Me.Close()
        End If
    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '添加ThreadException事件关联程序
        AddHandler Application.ThreadException, AddressOf MyThreadException
        '从公司信息数据表中读取基本信息
        GetCompanyInformation()
        '显示登录对话框
        Dim MyDlg As New LoginForm()
        MyDlg.Text = "欢迎使用" + MySlogan
        MyDlg.ShowDialog(Me)
        Me.MyOperator = MyDlg.用户名称TextBox.Text
        '根据用户的操作权限配置系统菜单
        SetUserOperateMenu()
        '最大化显示系统主窗体
        If (MyOperator.Length > 0) Then
            Me.WindowState = FormWindowState.Maximized
        End If
        '设置系统背景图像信息
        Me.BackgroundImage = New Bitmap(Me.MyBgPhotoShow, True)
        '设置系统标题栏显示文字
        Me.Text = MySlogan
    End Sub
    '系统异常处理代码
    Public Sub MyThreadException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
        Dim MyInfo As String = "错误名称：" + e.Exception.Source + "，错误信息：" + e.Exception.Message
        MessageBox.Show(MyInfo, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    Protected Overrides Sub WndProc(ByRef SystemMessage As Message)
        If SystemMessage.Msg = 274 Then
            If ((SystemMessage.WParam) = 61536) Then
                退出系统ToolStripMenuItem_Click(Nothing, Nothing)
            Else
                MyBase.WndProc(SystemMessage)
            End If
        Else
            MyBase.WndProc(SystemMessage)
        End If
    End Sub
    '从公司信息数据表中读取基本信息
    Public Sub GetCompanyInformation()
        Dim MySQLConnectionString As String = My.Settings.MySaleConnectionString
        Dim MySQL As String = "Select  *  From 公司信息 Where 显示优先级=1"
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyTable As New DataTable()
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyTable)
        MyBgPhoto = Application.StartupPath + "\Data\" + MyTable.Rows(0)("管理系统背景照片")
        MyAddress = MyTable.Rows(0)("公司地址")
        MyTel = MyTable.Rows(0)("服务电话")
        MyCode = MyTable.Rows(0)("邮政编码")
        MyWeb = MyTable.Rows(0)("公司网站")
        MySlogan = MyTable.Rows(0)("管理系统显示名称")
        MyCompany = MyTable.Rows(0)("公司名称")
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        MyBgPhotoShow = Application.StartupPath + "\Data\Show" + MyTable.Rows(0)("管理系统背景照片")
    End Sub
    '   根据用户的操作权限配置系统菜单
    Public Sub SetUserOperateMenu()
        Dim MySQLConnectionString As String = My.Settings.MySaleConnectionString
        Dim MySQL As String = "Select  *  From 操作用户 Where 用户名称='" + Me.MyOperator + "'"
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyTable As New DataTable()
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyTable)
        If (MyTable.Rows(0)("采购管理之商品入库登记") = 0) Then
            Me.商品入库登记ToolStripMenuItem.Visible = False
            Me.商品入库登记ToolStripSeparator.Visible = False
            Me.商品入库登记ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("采购管理之商品退货登记") = 0) Then
            Me.商品退货登记ToolStripMenuItem.Visible = False
            Me.商品退货登记ToolStripSeparator.Visible = False
            Me.商品退货登记ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("采购管理之支付商品货款") = 0) Then
            Me.支付商品货款ToolStripMenuItem.Visible = False
            Me.支付商品货款ToolStripSeparator.Visible = False
            Me.支付商品货款ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("采购管理之收到商品退款") = 0) Then
            Me.收到商品退款ToolStripMenuItem.Visible = False
            Me.收到商品退款ToolStripSeparator.Visible = False
            Me.收到商品退款ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("采购管理之结转商品货款") = 0) Then
            Me.结转商品货款ToolStripMenuItem.Visible = False
            Me.收到商品退款ToolStripSeparator.Visible = False
            Me.结转商品货款ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("销售管理之销售出库登记") = 0) Then
            Me.销售出库登记ToolStripMenuItem.Visible = False
            Me.销售出库登记ToolStripSeparator.Visible = False
            Me.销售出库登记ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("销售管理之销售退货登记") = 0) Then
            Me.销售退货登记ToolStripMenuItem.Visible = False
            Me.销售退货登记ToolStripSeparator.Visible = False
            Me.销售退货登记ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("销售管理之收到销售货款") = 0) Then
            Me.收到销售货款ToolStripMenuItem.Visible = False
            Me.收到销售货款ToolStripSeparator.Visible = False
            Me.收到销售货款ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("销售管理之支付销售退款") = 0) Then
            Me.支付销售退款ToolStripMenuItem.Visible = False
            Me.支付销售退款ToolStripSeparator.Visible = False
            Me.支付销售退款ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("销售管理之结转销售货款") = 0) Then
            Me.结转销售货款ToolStripMenuItem.Visible = False
            Me.支付销售退款ToolStripSeparator.Visible = False
            Me.结转销售货款ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("报表管理之采购入库报表") = 0) Then
            Me.采购入库报表ToolStripMenuItem.Visible = False
            Me.采购入库报表ToolStripSeparator.Visible = False
            Me.采购入库报表ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("报表管理之供应商往来报表") = 0) Then
            Me.供应商往来报表ToolStripMenuItem.Visible = False
            Me.供应商往来报表ToolStripSeparator.Visible = False
            Me.供应商往来报表ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("报表管理之销售出库报表") = 0) Then
            Me.销售出库报表ToolStripMenuItem.Visible = False
            Me.销售出库报表ToolStripSeparator.Visible = False
            Me.销售出库报表ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("报表管理之采购商往来报表") = 0) Then
            Me.采购商往来报表ToolStripMenuItem.Visible = False
            Me.采购商往来报表ToolStripSeparator.Visible = False
            Me.采购商往来报表ToolStripButton1.Visible = False
        End If
        If (MyTable.Rows(0)("报表管理之商品汇总报表") = 0) Then
            Me.商品汇总报表ToolStripMenuItem.Visible = False
            Me.采购商往来报表ToolStripSeparator.Visible = False
            Me.商品汇总报表ToolStripButton.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之操作权限设置") = 0) Then
            Me.操作权限设置ToolStripMenuItem.Visible = False
            Me.操作权限设置ToolStripSeparator.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之公司信息设置") = 0) Then
            Me.公司信息设置ToolStripMenuItem.Visible = False
            Me.公司信息设置ToolStripSeparator.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之采购商信息设置") = 0) Then
            Me.采购商信息设置ToolStripMenuItem.Visible = False
            Me.采购商信息设置ToolStripSeparator.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之供应商信息设置") = 0) Then
            Me.供应商信息设置ToolStripMenuItem.Visible = False
            Me.供应商信息设置ToolStripSeparator.Visible = False
        End If
        If (MyTable.Rows(0)("系统管理之商品信息设置") = 0) Then
            Me.商品信息设置ToolStripMenuItem.Visible = False
            Me.商品信息设置ToolStripSeparator.Visible = False
        End If
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub

    Private Sub menuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles menuStrip1.ItemClicked

    End Sub
End Class