fmmain.vb

用vb.net写的基于c/s结构的进销存程序设计源代码

                fmBA140.ShowDialog()
            Case "BA150"
                'BA150银行资料维护
                Dim fmBA150 As New fmBA150()
                fmBA150.ShowDialog()
            Case "BA210"
                'BA210业务员基本数据表
                Dim fmBA210Report As New fmBA210Report()
                fmBA210Report.ShowDialog()
            Case "BA220"
                'BA220客户基本数据表
                Dim fmBA220Report As New fmBA220Report()
                fmBA220Report.ShowDialog()
            Case "BA230"
                'BA230供货商基本数据表
                Dim fmBA230Report As New fmBA230Report()
                fmBA230Report.ShowDialog()
            Case "BA240"
                'BA240商品基本资料表
                Dim fmBA240Report As New fmBA240Report()
                fmBA240Report.ShowDialog()
            Case "BA250"
                'BA250银行编号对照表
                Dim fmBA250Report As New fmBA250Report()
                fmBA250Report.ShowDialog()
            Case "PR110"
                'PR110进货单维护
                Dim fmPR110 As New fmPR110()
                fmPR110.ShowDialog()
            Case "PR210"
                'PR210进货明细表
                Dim fmPR210Dlg As New fmPR210Dlg()
                fmPR210Dlg.ShowDialog()
            Case "PR220"
                'PR220进货统计表
                Dim fmPR220Dlg As New fmPR220Dlg()
                fmPR220Dlg.ShowDialog()
            Case "PR230"
                'PR230进货排行榜
                Dim fmPR230Dlg As New fmPR230Dlg()
                fmPR230Dlg.ShowDialog()
            Case "PR240"
                'PR240进货年统计表
                Dim fmPR240Dlg As New fmPR240Dlg()
                fmPR240Dlg.ShowDialog()
            Case "DL110"
                'DL110出货单维护
                Dim fmDL110 As New fmDL110()
                fmDL110.ShowDialog()
            Case "DL210"
                'DL210出货明细表
                Dim fmDL210Dlg As New fmDL210Dlg()
                fmDL210Dlg.ShowDialog()
            Case "DL220"
                'DL220出货统计表
                Dim fmdDL220Dlg As New fmDL220Dlg()
                fmDL220Dlg.ShowDialog()
            Case "DL230"
                'DL230出货排行榜
                Dim fmDL230Dlg As New fmDL230Dlg()
                fmDL230Dlg.ShowDialog()
            Case "DL240"
                'DL240出货年统计表
                Dim fmDL240Dlg As New fmDL240Dlg()
                fmDL240Dlg.ShowDialog()
            Case "IN110"
                'IN110存货异动单维护
                Dim fmIN110 As New fmIN110()
                fmIN110.ShowDialog()
            Case "IN210"
                'IN210库存盘点表
                Dim fmIN210Report As New fmIN210Report()
                fmIN210Report.ShowDialog()
            Case "IN220"
                'IN220商品异动明细表
                Dim fmIN220Dlg As New fmIN220Dlg()
                fmIN2200Dlg.ShowDialog()
            Case "IN230"
                'IN230商品异动汇总表
                Dim fmIN230Dlg As New fmIN230Dlg()
                fmIN230Dlg.ShowDialog()
            Case "IN240"
                'IN240商品低于安全存量表
                Dim fmIN240Dlg As New fmIN240Dlg()
                fmIN2400Dlg.ShowDialog()
            Case "IN250"
                'IN250商品滞销分析表
                Dim fmIN250Dlg As New fmIN250Dlg()
                fmIN250Dlg.ShowDialog()
            Case "AP110"
                'AP110付款冲帐作业
                Dim fmAP110 As New fmAP110()
                fmAP110.ShowDialog()
            Case "AP210"
                'AP210付款日报表
                Dim fmAP210 As New fmAP210()
                fmAP210.ShowDialog()
            Case "AP220"
                'AP220付款对账单
                Dim fmAP220 As New fmAP220()
                fmAP220.ShowDialog()
            Case "AP230"
                'AP230应付帐款统计表
                Dim fmAP230Dlg As New fmAP230Dlg()
                fmAP230Dlg.ShowDialog()
            Case "AP240"
                'AP240暂付款统计表
                Dim fmAP240Dlg As New fmAP240Dlg()
                fmAP240Dlg.ShowDialog()
            Case "AP250"
                'AP250应付帐款帐龄分析表
                Dim fmAP250Dlg As New fmAP250dlg()
                fmAP250Dlg.ShowDialog()
            Case "AP260"
                'AP260逾期应付帐款统计表
                Dim fmAP260Dlg As New fmAP260Dlg()
                fmAP260Dlg.ShowDialog()
            Case "AR270"
                'AR270供货商应付帐款异动表
                Dim fmAR270Dlg As New fmAR270dlg()
                fmAR270Dlg.ShowDialog()
            Case "AR110"
                'AR110收款冲帐作业
                Dim fmAR110 As New fmAR110()
                fmAR110.ShowDialog()
            Case "AR210"
                'AR210收款日报表
                Dim fmAR210 As New fmAR210()
                fmAR210.ShowDialog()
            Case "AR220"
                'AR220请款单
                Dim fmAR220 As New fmAR220()
                fmAR220.ShowDialog()
            Case "AR230"
                'AR230应收帐款统计表
                Dim fmAR230Dlg As New fmAR230Dlg()
                fmAR230Dlg.ShowDialog()
            Case "AR240"
                'AR240暂收款统计表
                Dim fmAR240Dlg As New fmAR240Dlg()
                fmAR240Dlg.ShowDialog()
            Case "AR250"
                'AR250应收帐款帐龄分析表
                Dim fmAR250Dlg As New fmAR250dlg()
                fmAR250Dlg.ShowDialog()
            Case "AR260"
                'AR260逾期应收帐款统计表
                Dim fmAR260Dlg As New fmAR260Dlg()
                fmAR260Dlg.ShowDialog()
            Case "AR270"
                'AR270客户应收帐款异动表
                Dim fmAR270Dlg As New fmAR270dlg()
                fmAR270Dlg.ShowDialog()
            Case "AR280"
                'AR280信用额度超限明细表
                Dim fmAR280Report As New fmAR280Report()
                fmAR280Report.ShowDialog()
            Case "SY110"
                'SY110用户数据维护
                Dim fmSY110 As New fmSY110()
                fmSY110.ShowDialog()
            Case "SY120"
                'SY120程序使用权限维护
                Dim fmSY120 As New fmSY120()
                fmSY120.ShowDialog()
            Case "SY130"
                'SY130用户使用权限维护
                Dim fmSY130 As New fmSY130()
                fmSY130.ShowDialog()
            Case "SY140"
                'SY140用户密码变更
                Dim fmSY140 As New fmSY140()
                '传入用户的代号
                fmSY140.MyUser = strUserID
                fmSY140.ShowDialog()
            Case "SY210"
                'SY210用户基本数据表
                Dim fmSY210Report As New fmSY210Report()
                fmSY210Report.ShowDialog()
            Case "SY220"
                'SY220程序编号对照表
                Dim fmSY220Report As New fmSY220Report()
                fmSY220Report.ShowDialog()
            Case "SY230"
                'SY230用户使用权限明细表
                Dim fmSY230Report As New fmSY230Report()
                fmSY230Report.ShowDialog()
            Case "SY240"
                'SY240程序使用权限明细表
                Dim fmSY240Report As New fmSY240Report()
                fmSY240Report.ShowDialog()
            Case Else
                MessageBox.Show("请选择作业项目!", "讯息", _
                    MessageBoxButtons.OK, MessageBoxIcon.Information)
        End Select
    End Sub


End Class