frmmain.vb

VB写的进销存管理系统

Public Class FrmMain
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
    Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents StatusBarPanel2 As System.Windows.Forms.StatusBarPanel
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents mnuUser As System.Windows.Forms.MenuItem
    Friend WithEvents mnuLogout As System.Windows.Forms.MenuItem
    Friend WithEvents mnuLogin As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
    Friend WithEvents mnuDatabase As System.Windows.Forms.MenuItem
    Friend WithEvents mnuBusinessman As System.Windows.Forms.MenuItem
    Friend WithEvents mnuCustomer As System.Windows.Forms.MenuItem
    Friend WithEvents mnuFactory As System.Windows.Forms.MenuItem
    Friend WithEvents mnuProduct As System.Windows.Forms.MenuItem
    Friend WithEvents mnuProductInput As System.Windows.Forms.MenuItem
    Friend WithEvents mnuProductOutput As System.Windows.Forms.MenuItem
    Friend WithEvents mnuRetreat As System.Windows.Forms.MenuItem
    Friend WithEvents mnuStore As System.Windows.Forms.MenuItem
    Friend WithEvents mnuInput As System.Windows.Forms.MenuItem
    Friend WithEvents mnuOutput As System.Windows.Forms.MenuItem
    Friend WithEvents mnuReturn As System.Windows.Forms.MenuItem
    Friend WithEvents mnuITC As System.Windows.Forms.MenuItem
    Friend WithEvents mnuCBC As System.Windows.Forms.MenuItem
    Friend WithEvents mnuPOC As System.Windows.Forms.MenuItem
    Friend WithEvents mnuPRC As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
    Friend WithEvents mnuBT As System.Windows.Forms.MenuItem
    Friend WithEvents mnuBS As System.Windows.Forms.MenuItem
    Friend WithEvents mnuTWSR As System.Windows.Forms.MenuItem
    Friend WithEvents mnuTMSR As System.Windows.Forms.MenuItem
    Friend WithEvents mnuWindow As System.Windows.Forms.MenuItem
    Friend WithEvents mnuWindowCascade As System.Windows.Forms.MenuItem
    Friend WithEvents mnuWindowTileHorizontal As System.Windows.Forms.MenuItem
    Friend WithEvents mnuWindowTileVertical As System.Windows.Forms.MenuItem
    Friend WithEvents mnuHelp As System.Windows.Forms.MenuItem
    Friend WithEvents mnuHelpAbout As System.Windows.Forms.MenuItem
    Friend WithEvents mnuTrade As System.Windows.Forms.MenuItem
    Friend WithEvents mnuStatistics As System.Windows.Forms.MenuItem
    Friend WithEvents mnuReport As System.Windows.Forms.MenuItem
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.StatusBar1 = New System.Windows.Forms.StatusBar
        Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel
        Me.StatusBarPanel2 = New System.Windows.Forms.StatusBarPanel
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.mnuUser = New System.Windows.Forms.MenuItem
        Me.mnuLogin = New System.Windows.Forms.MenuItem
        Me.mnuLogout = New System.Windows.Forms.MenuItem
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.mnuExit = New System.Windows.Forms.MenuItem
        Me.mnuTrade = New System.Windows.Forms.MenuItem
        Me.mnuInput = New System.Windows.Forms.MenuItem
        Me.mnuOutput = New System.Windows.Forms.MenuItem
        Me.mnuReturn = New System.Windows.Forms.MenuItem
        Me.mnuDatabase = New System.Windows.Forms.MenuItem
        Me.mnuBusinessman = New System.Windows.Forms.MenuItem
        Me.mnuCustomer = New System.Windows.Forms.MenuItem
        Me.mnuFactory = New System.Windows.Forms.MenuItem
        Me.mnuProduct = New System.Windows.Forms.MenuItem
        Me.mnuProductInput = New System.Windows.Forms.MenuItem
        Me.mnuProductOutput = New System.Windows.Forms.MenuItem
        Me.mnuRetreat = New System.Windows.Forms.MenuItem
        Me.mnuStore = New System.Windows.Forms.MenuItem
        Me.mnuStatistics = New System.Windows.Forms.MenuItem
        Me.mnuITC = New System.Windows.Forms.MenuItem
        Me.mnuCBC = New System.Windows.Forms.MenuItem
        Me.mnuPOC = New System.Windows.Forms.MenuItem
        Me.mnuPRC = New System.Windows.Forms.MenuItem
        Me.MenuItem20 = New System.Windows.Forms.MenuItem
        Me.mnuBT = New System.Windows.Forms.MenuItem
        Me.mnuBS = New System.Windows.Forms.MenuItem
        Me.mnuReport = New System.Windows.Forms.MenuItem
        Me.mnuTWSR = New System.Windows.Forms.MenuItem
        Me.mnuTMSR = New System.Windows.Forms.MenuItem
        Me.mnuWindow = New System.Windows.Forms.MenuItem
        Me.mnuWindowCascade = New System.Windows.Forms.MenuItem
        Me.mnuWindowTileHorizontal = New System.Windows.Forms.MenuItem
        Me.mnuWindowTileVertical = New System.Windows.Forms.MenuItem
        Me.mnuHelp = New System.Windows.Forms.MenuItem
        Me.mnuHelpAbout = New System.Windows.Forms.MenuItem
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 265)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(656, 24)
        Me.StatusBar1.TabIndex = 2
        Me.StatusBar1.Text = "StatusBar1"
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.Text = "StatusBarPanel1"
        Me.StatusBarPanel1.Width = 500
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Text = "StatusBarPanel2"
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuUser, Me.mnuDatabase, Me.mnuTrade, Me.mnuStatistics, Me.mnuReport, Me.mnuWindow, Me.mnuHelp})
        '
        'mnuUser
        '
        Me.mnuUser.Index = 0
        Me.mnuUser.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuLogin, Me.mnuLogout, Me.MenuItem1, Me.mnuExit})
        Me.mnuUser.Shortcut = System.Windows.Forms.Shortcut.CtrlU
        Me.mnuUser.Text = "用户"
        '
        'mnuLogin
        '
        Me.mnuLogin.Index = 0
        Me.mnuLogin.Shortcut = System.Windows.Forms.Shortcut.CtrlL
        Me.mnuLogin.Text = "登陆"
        '
        'mnuLogout
        '
        Me.mnuLogout.Index = 1
        Me.mnuLogout.Shortcut = System.Windows.Forms.Shortcut.CtrlZ
        Me.mnuLogout.Text = "注销"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 2
        Me.MenuItem1.Text = "-"
        '
        'mnuExit
        '
        Me.mnuExit.Index = 3
        Me.mnuExit.Shortcut = System.Windows.Forms.Shortcut.CtrlX
        Me.mnuExit.Text = "退出"
        '
        'mnuTrade
        '
        Me.mnuTrade.Index = 2
        Me.mnuTrade.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuInput, Me.mnuOutput, Me.mnuReturn})
        Me.mnuTrade.Text = "交易"
        '
        'mnuInput
        '
        Me.mnuInput.Index = 0
        Me.mnuInput.Text = "进货登记"
        '
        'mnuOutput
        '
        Me.mnuOutput.Index = 1
        Me.mnuOutput.Text = "销售登记"
        '
        'mnuReturn
        '
        Me.mnuReturn.Index = 2
        Me.mnuReturn.Text = "退货登记"
        '
        'mnuDatabase
        '
        Me.mnuDatabase.Index = 1
        Me.mnuDatabase.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuBusinessman, Me.mnuCustomer, Me.mnuFactory, Me.mnuProduct, Me.mnuProductInput, Me.mnuProductOutput, Me.mnuRetreat, Me.mnuStore})
        Me.mnuDatabase.Text = "数据库"
        '
        'mnuBusinessman
        '
        Me.mnuBusinessman.Index = 0
        Me.mnuBusinessman.Text = "业务员数据表"
        '
        'mnuCustomer
        '
        Me.mnuCustomer.Index = 1
        Me.mnuCustomer.Text = "客户数据表"
        '
        'mnuFactory
        '
        Me.mnuFactory.Index = 2
        Me.mnuFactory.Text = "厂商数据表"
        '
        'mnuProduct
        '
        Me.mnuProduct.Index = 3
        Me.mnuProduct.Text = "商品数据表"
        '
        'mnuProductInput
        '
        Me.mnuProductInput.Index = 4
        Me.mnuProductInput.Text = "进货数据表"
        '
        'mnuProductOutput
        '
        Me.mnuProductOutput.Index = 5
        Me.mnuProductOutput.Text = "销售数据表"
        '
        'mnuRetreat
        '
        Me.mnuRetreat.Index = 6
        Me.mnuRetreat.Text = "退货数据表"
        '
        'mnuStore
        '
        Me.mnuStore.Index = 7
        Me.mnuStore.Text = "库存数据表"
        '
        'mnuStatistics
        '
        Me.mnuStatistics.Index = 3
        Me.mnuStatistics.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuITC, Me.mnuCBC, Me.mnuPOC, Me.mnuPRC, Me.MenuItem20, Me.mnuBT, Me.mnuBS})
        Me.mnuStatistics.Text = "统计"
        '
        'mnuITC
        '
        Me.mnuITC.Index = 0
        Me.mnuITC.Text = "进货交易金额"
        '
        'mnuCBC
        '
        Me.mnuCBC.Index = 1
        Me.mnuCBC.Text = "客户购买金额"
        '
        'mnuPOC
        '
        Me.mnuPOC.Index = 2
        Me.mnuPOC.Text = "商品销售量"
        '
        'mnuPRC
        '
        Me.mnuPRC.Index = 3
        Me.mnuPRC.Text = "商品退货量"
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 4
        Me.MenuItem20.Text = "-"
        '
        'mnuBT
        '
        Me.mnuBT.Index = 5
        Me.mnuBT.Text = "业务员业绩"
        '
        'mnuBS
        '
        Me.mnuBS.Index = 6
        Me.mnuBS.Text = "业务员月薪"
        '
        'mnuReport
        '
        Me.mnuReport.Index = 4
        Me.mnuReport.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuTWSR, Me.mnuTMSR})
        Me.mnuReport.Text = "报表"
        '
        'mnuTWSR
        '
        Me.mnuTWSR.Index = 0
        Me.mnuTWSR.Text = "上周销售报表"
        '
        'mnuTMSR
        '
        Me.mnuTMSR.Index = 1
        Me.mnuTMSR.Text = "上月销售报表"
        '
        'mnuWindow
        '
        Me.mnuWindow.Index = 5
        Me.mnuWindow.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuWindowCascade, Me.mnuWindowTileHorizontal, Me.mnuWindowTileVertical})
        Me.mnuWindow.Text = "窗口"