main.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        Me.MenuItem68.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem76, Me.MenuItem78})
        Me.MenuItem68.Text = "付款管理"
        '
        'MenuItem76
        '
        Me.MenuItem76.Index = 0
        Me.MenuItem76.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem79, Me.MenuItem81, Me.MenuItem80, Me.MenuItem83, Me.MenuItem85})
        Me.MenuItem76.Text = "下包工程付款管理"
        '
        'MenuItem79
        '
        Me.MenuItem79.Index = 0
        Me.MenuItem79.Text = "项目文员录入"
        '
        'MenuItem81
        '
        Me.MenuItem81.Index = 1
        Me.MenuItem81.Text = "项目经理审批"
        '
        'MenuItem80
        '
        Me.MenuItem80.Index = 2
        Me.MenuItem80.Text = "分公司经理"
        '
        'MenuItem83
        '
        Me.MenuItem83.Index = 3
        Me.MenuItem83.Text = "财务审核"
        '
        'MenuItem85
        '
        Me.MenuItem85.Index = 4
        Me.MenuItem85.Text = "总经理审批"
        '
        'MenuItem78
        '
        Me.MenuItem78.Index = 1
        Me.MenuItem78.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem36, Me.MenuItem39, Me.MenuItem41, Me.MenuItem77, Me.MenuItem82, Me.MenuItem84})
        Me.MenuItem78.Text = "工程材料付款管理"
        '
        'MenuItem36
        '
        Me.MenuItem36.Index = 0
        Me.MenuItem36.Text = "项目文员录入"
        '
        'MenuItem39
        '
        Me.MenuItem39.Index = 1
        Me.MenuItem39.Text = "项目经理审核"
        '
        'MenuItem41
        '
        Me.MenuItem41.Index = 2
        Me.MenuItem41.Text = "采购文员录入  "
        '
        'MenuItem77
        '
        Me.MenuItem77.Index = 3
        Me.MenuItem77.Text = "采购经理审批"
        '
        'MenuItem82
        '
        Me.MenuItem82.Index = 4
        Me.MenuItem82.Text = "财务经理审核"
        '
        'MenuItem84
        '
        Me.MenuItem84.Index = 5
        Me.MenuItem84.Text = "总经理审批"
        '
        'MenuItem116
        '
        Me.MenuItem116.Index = 3
        Me.MenuItem116.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem119, Me.MenuItem117, Me.MenuItem118})
        Me.MenuItem116.Text = "采购变更管理"
        '
        'MenuItem119
        '
        Me.MenuItem119.Index = 0
        Me.MenuItem119.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem120, Me.MenuItem121, Me.MenuItem122, Me.MenuItem124})
        Me.MenuItem119.Text = "请购变更管理"
        '
        'MenuItem120
        '
        Me.MenuItem120.Index = 0
        Me.MenuItem120.Text = "项目部文员"
        '
        'MenuItem121
        '
        Me.MenuItem121.Index = 1
        Me.MenuItem121.Text = "项目部经理"
        '
        'MenuItem122
        '
        Me.MenuItem122.Index = 2
        Me.MenuItem122.Text = "分公司经理"
        '
        'MenuItem124
        '
        Me.MenuItem124.Index = 3
        Me.MenuItem124.Text = "直接变更请购单"
        '
        'MenuItem117
        '
        Me.MenuItem117.Index = 1
        Me.MenuItem117.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem123, Me.MenuItem127, Me.MenuItem128})
        Me.MenuItem117.Text = "采购变更管理"
        '
        'MenuItem123
        '
        Me.MenuItem123.Index = 0
        Me.MenuItem123.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem125, Me.MenuItem126})
        Me.MenuItem123.Text = "采购部"
        '
        'MenuItem125
        '
        Me.MenuItem125.Index = 0
        Me.MenuItem125.Text = "采购文员"
        '
        'MenuItem126
        '
        Me.MenuItem126.Index = 1
        Me.MenuItem126.Text = "采购部经理审批"
        '
        'MenuItem127
        '
        Me.MenuItem127.Index = 1
        Me.MenuItem127.Text = "总经理审批"
        '
        'MenuItem128
        '
        Me.MenuItem128.Index = 2
        Me.MenuItem128.Text = "直接变更采购单"
        '
        'MenuItem118
        '
        Me.MenuItem118.Index = 2
        Me.MenuItem118.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem129, Me.MenuItem135})
        Me.MenuItem118.Text = "付款变更管理"
        '
        'MenuItem129
        '
        Me.MenuItem129.Index = 0
        Me.MenuItem129.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem130, Me.MenuItem131, Me.MenuItem132, Me.MenuItem133, Me.MenuItem134, Me.MenuItem136})
        Me.MenuItem129.Text = "下包工程付款管理"
        '
        'MenuItem130
        '
        Me.MenuItem130.Index = 0
        Me.MenuItem130.Text = "项目文员"
        '
        'MenuItem131
        '
        Me.MenuItem131.Index = 1
        Me.MenuItem131.Text = "项目经理审批"
        '
        'MenuItem132
        '
        Me.MenuItem132.Index = 2
        Me.MenuItem132.Text = "分公司经理"
        '
        'MenuItem133
        '
        Me.MenuItem133.Index = 3
        Me.MenuItem133.Text = "财务审核"
        '
        'MenuItem134
        '
        Me.MenuItem134.Index = 4
        Me.MenuItem134.Text = "总经理审批"
        '
        'MenuItem136
        '
        Me.MenuItem136.Index = 5
        Me.MenuItem136.Text = "直接变更付款"
        '
        'MenuItem135
        '
        Me.MenuItem135.Index = 1
        Me.MenuItem135.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem138, Me.MenuItem139, Me.MenuItem140, Me.MenuItem141, Me.MenuItem137})
        Me.MenuItem135.Text = "工程材料付款管理"
        '
        'MenuItem138
        '
        Me.MenuItem138.Index = 0
        Me.MenuItem138.Text = "采购文员  "
        '
        'MenuItem139
        '
        Me.MenuItem139.Index = 1
        Me.MenuItem139.Text = "采购经理审批"
        '
        'MenuItem140
        '
        Me.MenuItem140.Index = 2
        Me.MenuItem140.Text = "财务经理审核"
        '
        'MenuItem141
        '
        Me.MenuItem141.Index = 3
        Me.MenuItem141.Text = "总经理审批"
        '
        'MenuItem137
        '
        Me.MenuItem137.Index = 4
        Me.MenuItem137.Text = "直接变更付款"
        '
        'MenuItem28
        '
        Me.MenuItem28.Index = 4
        Me.MenuItem28.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem29, Me.MenuItem30})
        Me.MenuItem28.Text = "盘点和报销管理"
        '
        'MenuItem29
        '
        Me.MenuItem29.Index = 0
        Me.MenuItem29.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem61, Me.MenuItem62})
        Me.MenuItem29.Text = "工程盘点管理"
        '
        'MenuItem61
        '
        Me.MenuItem61.Index = 0
        Me.MenuItem61.Text = "盘点工作的录入"
        '
        'MenuItem62
        '
        Me.MenuItem62.Index = 1
        Me.MenuItem62.Text = "项目经理盘点确认"
        '
        'MenuItem30
        '
        Me.MenuItem30.Index = 1
        Me.MenuItem30.Text = "工程报销管理"
        '
        'MenuItem31
        '
        Me.MenuItem31.Index = 5
        Me.MenuItem31.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem32, Me.MenuItem91})
        Me.MenuItem31.Text = "报警管理"
        '
        'MenuItem32
        '
        Me.MenuItem32.Index = 0
        Me.MenuItem32.Text = "报警信息管理"
        '
        'MenuItem91
        '
        Me.MenuItem91.Index = 1
        Me.MenuItem91.Text = "查找需完成工作"
        '
        'MenuItem33
        '
        Me.MenuItem33.Index = 6
        Me.MenuItem33.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem34, Me.MenuItem35, Me.MenuItem37, Me.MenuItem38, Me.MenuItem42, Me.MenuItem90, Me.MenuItem40})
        Me.MenuItem33.Text = "查询管理"
        '
        'MenuItem34
        '
        Me.MenuItem34.Index = 0
        Me.MenuItem34.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem92, Me.MenuItem93, Me.MenuItem94, Me.MenuItem95})
        Me.MenuItem34.Text = "采购部文员查询"
        '
        'MenuItem92
        '
        Me.MenuItem92.Index = 0
        Me.MenuItem92.Text = "工程信息查询"
        '
        'MenuItem93
        '
        Me.MenuItem93.Index = 1
        Me.MenuItem93.Text = "业主信息查询"
        '
        'MenuItem94
        '
        Me.MenuItem94.Index = 2
        Me.MenuItem94.Text = "工程材料信息查询"
        '
        'MenuItem95
        '
        Me.MenuItem95.Index = 3
        Me.MenuItem95.Text = "银行信息查询"
        '
        'MenuItem35
        '
        Me.MenuItem35.Index = 1
        Me.MenuItem35.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem96, Me.MenuItem97, Me.MenuItem98, Me.MenuItem99})
        Me.MenuItem35.Text = "采购部经理查询"
        '
        'MenuItem96
        '
        Me.MenuItem96.Index = 0
        Me.MenuItem96.Text = "工程信息查询"
        '
        'MenuItem97
        '
        Me.MenuItem97.Index = 1
        Me.MenuItem97.Text = "业主信息查询"
        '
        'MenuItem98
        '
        Me.MenuItem98.Index = 2
        Me.MenuItem98.Text = "工程材料信息查询"
        '
        'MenuItem99
        '
        Me.MenuItem99.Index = 3
        Me.MenuItem99.Text = "银行信息查询"
        '
        'MenuItem37
        '
        Me.MenuItem37.Index = 2
        Me.MenuItem37.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem100, Me.MenuItem101, Me.MenuItem102, Me.MenuItem103})
        Me.MenuItem37.Text = "项目部文员查询"
        '
        'MenuItem100
        '
        Me.MenuItem100.Index = 0
        Me.MenuItem100.Text = "工程信息查询"
        '
        'MenuItem101