main.frm

用visual basic 6.0 开发的超市管理信息系统！

Shape1(4).Visible = False
End If
If X <= 3400 And (Y >= 8800 And Y <= 10000) Then
Shape1(5).Visible = True
Else
Shape1(5).Visible = False
End If
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Timer1_Timer()
welcome.Left = welcome.Left + 3
If welcome.Left + welcome.Width >= 13000 Then
welcome.Left = main.Left
End If
End Sub






Private Sub leave1_Click()

If leave1.m_def_caption = "库存商品查询" Then
search1.Show
ElseIf leave1.m_def_caption = "商品日进销存统计" Then
search.Show
ElseIf leave1.m_def_caption = "商品档案管理" Then
商品档案管理.Show
End If
End Sub

Private Sub leave2_Click()
If leave2.m_def_caption = "商品入库" Then
tpaper.Show
ElseIf leave2.m_def_caption = "商品付款" Then
付款单.Show
ElseIf leave2.m_def_caption = "商品加工处理" Then
商品加工处理.Show
ElseIf leave2.m_def_caption = "商品月进销存统计" Then
search3.Show
ElseIf leave2.m_def_caption = "商品调价处理" Then
商品调价表.Show
End If
End Sub

Private Sub leave3_Click()

If leave3.m_def_caption = "商品收款" Then
tpaper2.Show
ElseIf leave3.m_def_caption = "商品调拨" Then
tpaper1.Show
ElseIf leave3.m_def_caption = "商品损溢处理" Then
tpaper3.Show
ElseIf leave3.m_def_caption = "商品销售排行统计" Then
search2.Show
ElseIf leave3.m_def_caption = "供应商档案管理" Then
供应商档案管理.Show
End If
End Sub

Private Sub leave4_Click()
If leave4.m_def_caption = "商品销售员条件查询" Then
search4.Show
ElseIf leave4.m_def_caption = "客户档案管理" Then
客户档案管理.Show
End If
End Sub

Private Sub leave5_Click()
If leave5.m_def_caption = "收银员档案管理" Then
收银员档案管理.Show
End If
End Sub

Private Sub leave6_Click()
If leave6.m_def_caption = "商品折扣处理" Then
商品折扣表.Show
End If
End Sub

Private Sub leave7_Click()
If leave7.m_def_caption = "商品特价处理" Then
特价表.Show
End If
End Sub

Private Sub UserControl21_gotfocus()
Label1.Caption = "进销管理"

leave1.Caption = ""
leave2.Caption = "商品调拨"
leave3.Caption = "商品入库"
leave4.Caption = ""
leave5.Caption = ""
leave6.Caption = ""
leave7.Caption = ""
leave1.m_def_caption = ""

leave4.m_def_caption = ""
leave5.m_def_caption = ""
leave6.m_def_caption = ""
leave7.m_def_caption = ""
leave2.m_def_caption = "商品入库"
leave3.m_def_caption = "商品调拨"
End Sub

Private Sub UserControl31_GotFocus()
Label1.Caption = "应收应付"

leave1.Caption = ""
leave2.Caption = "商品付款"
leave3.Caption = "商品收款"
leave4.Caption = ""
leave5.Caption = ""
leave6.Caption = ""
leave7.Caption = ""
leave1.m_def_caption = ""

leave4.m_def_caption = ""
leave5.m_def_caption = ""
leave6.m_def_caption = ""
leave7.m_def_caption = ""
leave2.m_def_caption = "商品付款"
leave3.m_def_caption = "商品收款"
End Sub

Private Sub UserControl41_GotFocus()
Label1.Caption = "存货管理"

leave1.Caption = "库存商品查询"
leave2.Caption = "商品加工处理"
leave3.Caption = "商品损溢处理"
leave4.Caption = ""
leave5.Caption = ""
leave6.Caption = ""
leave7.Caption = ""
leave1.m_def_caption = "库存商品查询"
leave2.m_def_caption = "商品加工处理"
leave3.m_def_caption = "商品损溢处理"
leave4.m_def_caption = ""
leave5.m_def_caption = ""
leave6.m_def_caption = ""
leave7.m_def_caption = ""

End Sub

Private Sub UserControl51_GotFocus()
Label1.Caption = "统计报表"
leave1.Caption = "商品日进销存统计"
leave2.Caption = "商品月进销存统计"
leave3.Caption = "商品销售排行统计"
leave4.Caption = "商品销售员条件查询"
leave5.Caption = ""
leave6.Caption = ""
leave7.Caption = ""
leave1.m_def_caption = "商品日进销存统计"
leave2.m_def_caption = "商品月进销存统计"
leave3.m_def_caption = "商品销售排行统计"
leave4.m_def_caption = "商品销售员条件查询"
leave5.m_def_caption = ""
leave6.m_def_caption = ""
leave7.m_def_caption = ""


End Sub

Private Sub UserControl61_GotFocus()
Label1.Caption = "基础档案"
leave1.Caption = "商品档案管理"
leave2.Caption = "商品调价处理"
leave3.Caption = "供应商档案管理"
leave4.Caption = "客户档案管理"
leave5.Caption = "收银员档案管理"
leave6.Caption = "商品折扣处理"
leave7.Caption = "商品特价处理"
leave1.m_def_caption = "商品档案管理"
leave2.m_def_caption = "商品调价处理"
leave3.m_def_caption = "供应商档案管理"
leave4.m_def_caption = "客户档案管理"
leave5.m_def_caption = "收银员档案管理"
leave6.m_def_caption = "商品折扣处理"
leave7.m_def_caption = "商品特价处理"

End Sub

Private Sub UserControl71_GotFocus()
Unload login
Unload main
Unload reg
Unload tpaper
Unload tpaper1
Unload tpaper2
Unload tpaper3
Unload search
Unload search1
Unload search2
Unload search3
Unload search4
Unload 付款单
Unload 供应商档案管理
Unload 客户档案管理
Unload 商品调价表
Unload 商品折扣表
Unload 特价表
End Sub