frmmain.vb

本文件为进销存管理系统的代码 在VB的环境下运行 用比较简单的结构完成的

        'MenuItem33
        '
        Me.MenuItem33.Index = 0
        Me.MenuItem33.Text = "入库单管理"
        '
        'MenuItem34
        '
        Me.MenuItem34.Index = 1
        Me.MenuItem34.Text = "出库单管理"
        '
        'MenuItem35
        '
        Me.MenuItem35.Index = 1
        Me.MenuItem35.Text = "库存盘点"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 3
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem11, Me.MenuItem24, Me.MenuItem5})
        Me.MenuItem4.Text = "财务管理(&B)"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 0
        Me.MenuItem11.Text = "收款管理(&I)"
        '
        'MenuItem24
        '
        Me.MenuItem24.Index = 1
        Me.MenuItem24.Text = "付款管理(&O)"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 2
        Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem40, Me.MenuItem41})
        Me.MenuItem5.Text = "财务分析报表(&R)"
        '
        'MenuItem40
        '
        Me.MenuItem40.Index = 0
        Me.MenuItem40.Text = "销售报表"
        '
        'MenuItem41
        '
        Me.MenuItem41.Index = 1
        Me.MenuItem41.Text = "采购报表"
        '
        'MenuItem30
        '
        Me.MenuItem30.Index = 4
        Me.MenuItem30.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem31, Me.MenuItem32, Me.MenuItem38, Me.MenuItem39})
        Me.MenuItem30.Text = "帮助(&H)"
        '
        'MenuItem31
        '
        Me.MenuItem31.Index = 0
        Me.MenuItem31.Text = "关于(&A)..."
        '
        'MenuItem32
        '
        Me.MenuItem32.Index = 1
        Me.MenuItem32.Text = "-"
        '
        'MenuItem38
        '
        Me.MenuItem38.Index = 2
        Me.MenuItem38.Text = "计算器(&C)"
        '
        'MenuItem39
        '
        Me.MenuItem39.Index = 3
        Me.MenuItem39.Text = "写字版(&N)"
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 1000
        '
        'frmMain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(744, 449)
        Me.Controls.Add(Me.StatusBar1)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "frmMain"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "进销存系统"
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel5, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    'Timer事件
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        StatusBarPanel5.Text = DateTime.Now
    End Sub


    '加载窗体事件
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        StatusBarPanel5.Text = DateTime.Now
        StatusBarPanel2.Text = AdminName
    End Sub

    '/////////////////////////////////////////////系统管理菜单/////////////////////////////////////////////////////

    '用户设置
    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        storename = "ShowUsersInfo"
        Dim fm1 As New UsersSettings
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '修改密码
    Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
        Dim fm1 As New ChangePwd
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '数据库备分恢复
    Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim fm1 As New BackUp
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '退出系统
    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
        End
    End Sub
    '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////


    '////////////////////////////////////////////////////基本资料信息管理菜单//////////////////////////////////////////////

 
    '客户信息设置
    '供应尚
    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        buy = True
        storename = "ShowClientInfo"
        Dim fm1 As New ClientInfo
        fm1.MdiParent = Me
        fm1.Show()

    End Sub

    '购货商
    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        buy = False
        storename = "ShowCustomerInfo"
        Dim fm1 As New ClientInfo
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '货品信息设置
    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        storename = "ShowGoodsInfo"
        Dim fm1 As New GoodsInfo
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '货品类别设置
    Private Sub MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim fm1 As New GoodsGroup
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '仓库信息设置
    Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        storename = "ShowStockRoom"
        Dim fm1 As New StockRooms
        fm1.MdiParent = Me
        fm1.Show()
    End Sub
    '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


    '///////////////////////////////////////////进销存信息管理菜单///////////////////////////////////////////////////////

    '采购订单管理
    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click
        ClickBuy = True
        Dim fm1 As New TradeReport
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '采购退货信息设置
    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
        ClickBuy = True
        Dim fm1 As New TradeBackaReport
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '采购提醒
    Private Sub MenuItem36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem36.Click
        ClickBuy = True
        Dim fm1 As New Warning
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '销售订单管理
    Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem27.Click
        ClickBuy = False
        Dim fm1 As New TradeReport
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '销售退货信息设置
    Private Sub MenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem28.Click
        ClickBuy = False
        Dim fm1 As New TradeBackaReport
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '促销提醒
    Private Sub MenuItem37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem37.Click
        ClickBuy = False
        Dim fm1 As New Warning
        fm1.MdiParent = Me
        fm1.Show()
    End Sub


    '入库单信息设置
    Private Sub MenuItem33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem33.Click
        ClickInput = True
        Dim fm1 As New IOStockInfo
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '出库单设置
    Private Sub MenuItem34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem34.Click
        ClickInput = False
        Dim fm1 As New IOStockInfo
        fm1.MdiParent = Me
        fm1.Show()
    End Sub
    '库存盘点
    Private Sub MenuItem35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem35.Click
        Dim fm1 As New StockCheck
        fm1.MdiParent = Me
        fm1.Show()
    End Sub
    '///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


    '////////////////////////////////////////////////////////////帐单管理///////////////////////////////////////////////////

    '收款
    Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
        ClickBuy = False
        Dim fm1 As New Bills
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '付款
    Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click
        ClickBuy = True
        Dim fm1 As New Bills
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '采购报表
    Private Sub MenuItem41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem41.Click
        ClickBuy = True
        Dim fm1 As New BillReport
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '销售报表
    Private Sub MenuItem40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem40.Click
        ClickBuy = False
        Dim fm1 As New BillReport
        fm1.MdiParent = Me
        fm1.Show()
    End Sub
    '////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////


    '////////////////////////////////////////////////////帮助菜单///////////////////////////////////////////////////////////

    '关于
    Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem31.Click
        Dim fm1 As New About
        fm1.MdiParent = Me
        fm1.Show()
    End Sub

    '计算器
    Private Sub MenuItem38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem38.Click
        Shell("C:\WINDOWS\system32\calc.exe", AppWinStyle.NormalFocus)
    End Sub

    '写字板
    Private Sub MenuItem39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem39.Click
        Shell("C:\WINDOWS\system32\notepad.exe", AppWinStyle.NormalFocus)
    End Sub
    '//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////






End Class