Universal Accounting Manager - All.vb

All.vb

1. Public Class All
2.     Private Shared AllInstance As All
3.     Public Shared Function GetInstance() As All
4.         If (AllInstance Is Nothing) Then
5.             AllInstance = New All
6.         End If
7.         Return AllInstance
8.     End Function
9.     Private Sub All_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
10.         StartUp.CloseTabs()
11.     End Sub
12.     Private Sub VendorL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL2LBL.Click
13.         StartUp.OpenNewTab(NewMerchant.GetInstance)
14.     End Sub
15.     Private Sub VendorL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL2PIC.Click
16.         StartUp.OpenNewTab(NewMerchant.GetInstance)
17.     End Sub
18.     Private Sub VendorL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL1LBL.Click
19.         StartUp.OpenNewTab(ListMerchant.GetInstance)
20.     End Sub
21.     Private Sub VendorL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL1PIC.Click
22.         StartUp.OpenNewTab(ListMerchant.GetInstance)
23.     End Sub
24.     Private Sub BuyL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL2LBL.Click
25.         StartUp.OpenNewTab(NewBuy.GetInstance)
26.     End Sub
27.     Private Sub BuyL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL2PIC.Click
28.         StartUp.OpenNewTab(NewBuy.GetInstance)
29.     End Sub
30.     Private Sub BuyL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL1LBL.Click
31.         StartUp.OpenNewTab(ListBuy.GetInstance)
32.     End Sub
33.     Private Sub BuyL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL1PIC.Click
34.         StartUp.OpenNewTab(ListBuy.GetInstance)
35.     End Sub
36.     Private Sub StoreL4LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL4LBL.Click
37.         StartUp.OpenNewTab(AdjustStore.GetInstance)
38.     End Sub
39.     Private Sub StoreL4PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL4PIC.Click
40.         StartUp.OpenNewTab(AdjustStore.GetInstance)
41.     End Sub
42.     Private Sub StoreL3LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL3LBL.Click
43.         StartUp.OpenNewTab(StoreCat.GetInstance)
44.     End Sub
45.     Private Sub StoreL3PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL3PIC.Click
46.         StartUp.OpenNewTab(StoreCat.GetInstance)
47.     End Sub
48.     Private Sub StoreL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL2LBL.Click
49.         StartUp.OpenNewTab(ListProducts.GetInstance)
50.     End Sub
51.     Private Sub StoreL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL2PIC.Click
52.         StartUp.OpenNewTab(ListProducts.GetInstance)
53.     End Sub
54.     Private Sub StoreL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL1LBL.Click
55.         MainView.GetInstance.CreateNewStore()
56.     End Sub
57.     Private Sub StoreL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL1PIC.Click
58.         MainView.GetInstance.CreateNewStore()
59.     End Sub
60.     Private Sub StoreL5LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL5LBL.Click
61.         MainView.GetInstance.CreateNewCat()
62.     End Sub
63.     Private Sub StoreL5PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL5PIC.Click
64.         MainView.GetInstance.CreateNewCat()
65.     End Sub
66.     Private Sub StoreL0LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL0LBL.Click
67.         StartUp.OpenNewTab(NewProduct.GetInstance)
68.     End Sub
69.     Private Sub StoreL0PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL0PIC.Click
70.         StartUp.OpenNewTab(NewProduct.GetInstance)
71.     End Sub
72.     Private Sub SellL3LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL3LBL.Click
73.         StartUp.OpenNewTab(NewSell.GetInstance)
74.     End Sub
75.     Private Sub SellL3PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL3PIC.Click
76.         StartUp.OpenNewTab(NewSell.GetInstance)
77.     End Sub
78.     Private Sub SellL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL2LBL.Click
79.         StartUp.OpenNewTab(ListSell.GetInstance)
80.     End Sub
81.     Private Sub SellL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL2PIC.Click
82.         StartUp.OpenNewTab(ListSell.GetInstance)
83.     End Sub
84.     Private Sub SellL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL1LBL.Click
85.         StartUp.OpenNewTab(Requests.GetInstance)
86.     End Sub
87.     Private Sub SellL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL1PIC.Click
88.         StartUp.OpenNewTab(Requests.GetInstance)
89.     End Sub
90.     Private Sub CustomerL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL2LBL.Click
91.         StartUp.OpenNewTab(NewCustomer.GetInstance)
92.     End Sub
93.     Private Sub CustomerL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL2PIC.Click
94.         StartUp.OpenNewTab(NewCustomer.GetInstance)
95.     End Sub
96.     Private Sub CustomerL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL1LBL.Click
97.         StartUp.OpenNewTab(ListCustomers.GetInstance)
98.     End Sub
99.     Private Sub CustomerL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL1PIC.Click
100.         StartUp.OpenNewTab(ListCustomers.GetInstance)
101.     End Sub
102. End Class