VB编程、数据库实现销售管理系统

clothes6388 12 0 RAR 2021-04-27 07:04:23

Private Sub Combo2_Change() If Combo2.Text = "员工信息" Then Form6.Show Me.Hide End If End Sub Private Sub Command1_Click() If Combo1.Text = "员工信息" Then Form4.Show Me.Hide End If If Combo1.Text = "商品信息" Then Form5.Show Me.Hide End If If Combo1.Text = "供应商信息" Then Form6.Show Me.Hide End If End Sub Private Sub Command2_Click() If Combo2.Text = "员工信息" Then Form7.Show Me.Hide End If If Combo2.Text = "商品信息" Then Form8.Show Me.Hide End If If Combo2.Text = "供应商信息" Then Form9.Show Me.Hide End If If Combo2.Text = "进货信息" Then Form16.Show Me.Hide End If If Combo2.Text = "销售信息" Then Form17.Show Me.Hide End If End Sub Private Sub Command3_Click() If Combo3.Text = "员工信息" Then Form10.Show Me.Hide End If If Combo3.Text = "商品信息" Then Form11.Show Me.Hide End If If Combo3.Text = "供应商信息" Then Form12.Show Me.Hide End If End Sub Private Sub Command4_Click() If Combo4.Text = "员工信息" Then Form13.Show Me.Hide End If If Combo4.Text = "商品信息" Then Form14.Show Me.Hide End If If Combo4.Text = "供应商信息" Then Form15.Show Me.Hide End If End Sub Private Sub Command6_Click() Unload Me Form2.Show End Sub