Universal Accounting Manager - MainView.vb

MainView.vb

1. Public Class MainView
2.     Dim ProgramName As String = My.Application.Info.AssemblyName
3.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
4.     Dim ProductPath As String = DataPath & "\Products" '
5.     Dim ServicesPath As String = DataPath & "\Services"
6.     Dim CatPath As String = DataPath & "\Categories"
7.     Dim StoresPath As String = DataPath & "\Stores"
8.     Dim CustomersPath As String = DataPath & "\Customers"
9.     Dim CompanyPath As String = DataPath & "\Company"
10.     Dim MovmentPath As String = DataPath & "\Movment"
11.     Dim RequestsPath As String = DataPath & "\Requests"
12.     Dim VendorsPath As String = DataPath & "\Vendors"
13.     Private Shared MainViewInstance As MainView
14.     Public Shared Function GetInstance() As MainView
15.         If (MainViewInstance Is Nothing) Then
16.             MainViewInstance = New MainView
17.         End If
18.         Return MainViewInstance
19.     End Function
20.     Private Sub MainView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
21.         On Error Resume Next
22.         AddHandler VendorPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
23.         AddHandler VendorPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
24.         AddHandler VendorPIC.MouseDown, AddressOf StartUp.PicMouseDown
25.         AddHandler VendorPIC.MouseUp, AddressOf StartUp.PicMouseUp
26.         AddHandler BuyPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
27.         AddHandler BuyPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
28.         AddHandler BuyPIC.MouseDown, AddressOf StartUp.PicMouseDown
29.         AddHandler BuyPIC.MouseUp, AddressOf StartUp.PicMouseUp
30.         AddHandler StorePIC.MouseEnter, AddressOf StartUp.PicMouseEnter
31.         AddHandler StorePIC.MouseLeave, AddressOf StartUp.PicMouseLeave
32.         AddHandler StorePIC.MouseDown, AddressOf StartUp.PicMouseDown
33.         AddHandler StorePIC.MouseUp, AddressOf StartUp.PicMouseUp
34.         AddHandler SellPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
35.         AddHandler SellPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
36.         AddHandler SellPIC.MouseDown, AddressOf StartUp.PicMouseDown
37.         AddHandler SellPIC.MouseUp, AddressOf StartUp.PicMouseUp
38.         AddHandler CustomerPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
39.         AddHandler CustomerPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
40.         AddHandler CustomerPIC.MouseDown, AddressOf StartUp.PicMouseDown
41.         AddHandler CustomerPIC.MouseUp, AddressOf StartUp.PicMouseUp
42.     End Sub
43.     Private Sub VendorPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles VendorPIC.MouseEnter
44.         HideSubPic()
45.         VendorL1PIC.Visible = True
46.         VendorL2PIC.Visible = True
47.         VendorL1LBL.Visible = True
48.         VendorL2LBL.Visible = True
49.         VendorTXTPIC.Top += 7
50.     End Sub
51.     Private Sub VendorPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles VendorPIC.MouseLeave
52.         VendorTXTPIC.Top -= 7
53.     End Sub
54.     Private Sub BuyPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles BuyPIC.MouseEnter
55.         HideSubPic()
56.         BuyL1PIC.Visible = True
57.         BuyL2PIC.Visible = True
58.         BuyL1LBL.Visible = True
59.         BuyL2LBL.Visible = True
60.         BuyTXTPIC.Top += 7
61.     End Sub
62.     Private Sub BuyPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles BuyPIC.MouseLeave
63.         BuyTXTPIC.Top -= 7
64.     End Sub
65.     Private Sub StorePIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles StorePIC.MouseEnter
66.         HideSubPic()
67.         StoreL0PIC.Visible = True
68.         StoreL1PIC.Visible = True
69.         StoreL2PIC.Visible = True
70.         StoreL3PIC.Visible = True
71.         StoreL4PIC.Visible = True
72.         StoreL5PIC.Visible = True
73.         StoreL0LBL.Visible = True
74.         StoreL1LBL.Visible = True
75.         StoreL2LBL.Visible = True
76.         StoreL3LBL.Visible = True
77.         StoreL4LBL.Visible = True
78.         StoreL5LBL.Visible = True
79.         StoreTXTPIC.Top += 7
80.     End Sub
81.     Private Sub StorePIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles StorePIC.MouseLeave
82.         StoreTXTPIC.Top -= 7
83.     End Sub
84.     Private Sub SellPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles SellPIC.MouseEnter
85.         HideSubPic()
86.         SellL1PIC.Visible = True
87.         SellL2PIC.Visible = True
88.         SellL3PIC.Visible = True
89.         SellL1LBL.Visible = True
90.         SellL2LBL.Visible = True
91.         SellL3LBL.Visible = True
92.         SellTXTPIC.Top += 7
93.     End Sub
94.     Private Sub SellPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles SellPIC.MouseLeave
95.         SellTXTPIC.Top -= 7
96.     End Sub
97.     Private Sub CustomerPIC_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles CustomerPIC.MouseEnter
98.         HideSubPic()
99.         CustomerL1PIC.Visible = True
100.         CustomerL2PIC.Visible = True
101.         CustomerL1LBL.Visible = True
102.         CustomerL2LBL.Visible = True
103.         CustomerTXTPIC.Top += 7
104.     End Sub
105.     Private Sub CustomerPIC_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles CustomerPIC.MouseLeave
106.         CustomerTXTPIC.Top -= 7
107.     End Sub
108.     Public Sub HideSubPic()
109.         VendorL1PIC.Visible = False
110.         VendorL2PIC.Visible = False
111.         VendorL1LBL.Visible = False
112.         VendorL2LBL.Visible = False
113.         '.........................
114.         BuyL1PIC.Visible = False
115.         BuyL2PIC.Visible = False
116.         BuyL1LBL.Visible = False
117.         BuyL2LBL.Visible = False
118.         '.........................
119.         StoreL0PIC.Visible = False
120.         StoreL1PIC.Visible = False
121.         StoreL2PIC.Visible = False
122.         StoreL3PIC.Visible = False
123.         StoreL4PIC.Visible = False
124.         StoreL5PIC.Visible = False
125.         StoreL0LBL.Visible = False
126.         StoreL1LBL.Visible = False
127.         StoreL2LBL.Visible = False
128.         StoreL3LBL.Visible = False
129.         StoreL4LBL.Visible = False
130.         StoreL5LBL.Visible = False
131.         '.........................
132.         SellL1PIC.Visible = False
133.         SellL2PIC.Visible = False
134.         SellL3PIC.Visible = False
135.         SellL1LBL.Visible = False
136.         SellL2LBL.Visible = False
137.         SellL3LBL.Visible = False
138.         '.........................
139.         CustomerL1PIC.Visible = False
140.         CustomerL2PIC.Visible = False
141.         CustomerL1LBL.Visible = False
142.         CustomerL2LBL.Visible = False
143.     End Sub
144.     Private Sub MainView_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
145.         HideSubPic()
146.     End Sub
147.     Private Sub StoreL0LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL0LBL.Click
148.         StartUp.OpenNewTab(NewProduct.GetInstance)
149.     End Sub
150.     Private Sub StoreL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL2LBL.Click
151.         StartUp.OpenNewTab(ListProducts.GetInstance)
152.     End Sub
153.     Private Sub SellL3LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL3LBL.Click
154.         StartUp.OpenNewTab(NewSell.GetInstance)
155.     End Sub
156.     Private Sub SellL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL2LBL.Click
157.         StartUp.OpenNewTab(ListSell.GetInstance)
158.     End Sub
159.     Private Sub SellL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL1LBL.Click
160.         StartUp.OpenNewTab(Requests.GetInstance)
161.     End Sub
162.     Private Sub CustomerL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL2LBL.Click
163.         StartUp.OpenNewTab(NewCustomer.GetInstance)
164.     End Sub
165.     Private Sub CustomerL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL1LBL.Click
166.         StartUp.OpenNewTab(ListCustomers.GetInstance)
167.     End Sub
168.     Private Sub VendorL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL1LBL.Click
169.         StartUp.OpenNewTab(ListMerchant.GetInstance)
170.     End Sub
171.     Private Sub VendorL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL2LBL.Click
172.         StartUp.OpenNewTab(NewMerchant.GetInstance)
173.     End Sub
174.     Private Sub BuyL2LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL2LBL.Click
175.         StartUp.OpenNewTab(NewBuy.GetInstance)
176.     End Sub
177.     Private Sub BuyL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL1LBL.Click
178.         StartUp.OpenNewTab(ListBuy.GetInstance)
179.     End Sub
180.     Private Sub StoreL4LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL4LBL.Click
181.         StartUp.OpenNewTab(AdjustStore.GetInstance)
182.     End Sub
183.     Private Sub StoreL3LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL3LBL.Click
184.         StartUp.OpenNewTab(StoreCat.GetInstance)
185.     End Sub
186.     Private Sub StoreL1LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL1LBL.Click
187.         CreateNewStore()
188.     End Sub
189.     Private Sub StoreL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL1PIC.Click
190.         CreateNewStore()
191.     End Sub
192.     Private Sub StoreL5LBL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL5LBL.Click
193.         CreateNewCat()
194.     End Sub
195.     Private Sub StoreL5PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL5PIC.Click
196.         CreateNewCat()
197.     End Sub
198.     Public Sub CreateNewStore()
199.         Dim SName As String = ""
200.         Dim SDesc As String = ""
201.         SName = InputBox("إسم المخزن الجديد الذي ترغب بإضافته :", "إضافة مخزن جديد", "")
202.         If SName <> Nothing And My.Computer.FileSystem.DirectoryExists(StoresPath & "\" & SName) = False Then
203.             SDesc = InputBox("وصف سريع لمخزن " & SName & " الجديد :", "وصف مخزن " & SName, "")
204.             If SDesc <> Nothing Then
205.                 My.Computer.FileSystem.CreateDirectory(StoresPath & "\" & SName)
206.                 My.Computer.FileSystem.WriteAllText(StoresPath & "\" & SName & ".dat", SDesc, False, System.Text.Encoding.GetEncoding(0))
207.                 MsgBox("تم إنشاء مخزن " & SName & " بنجاح" & System.Environment.NewLine & "وصف مخزن " & SName & " : " & SDesc)
208.                 If My.Computer.FileSystem.GetDirectories(StoresPath).Count = 1 Then My.Computer.FileSystem.WriteAllText(DataPath & "\defaultstore.dat", SName, False, System.Text.Encoding.GetEncoding(0))
209.             End If
210.         End If
211.     End Sub
212.     Public Sub CreateNewCat()
213.         Dim SName As String = ""
214.         SName = InputBox("إسم التصنيف الجديد الذي ترغب بإضافته :", "إضافة تصنيف جديد", "")
215.         If SName <> Nothing And My.Computer.FileSystem.FileExists(CatPath & "\" & SName & ".dat") = False Then
216.             My.Computer.FileSystem.WriteAllText(CatPath & "\" & SName & ".dat", "", False, System.Text.Encoding.GetEncoding(0))
217.             MsgBox("تم إنشاء تصنيف " & SName & " بنجاح")
218.         End If
219.     End Sub
220.     Private Sub VendorL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL2PIC.Click
221.         StartUp.OpenNewTab(NewMerchant.GetInstance)
222.     End Sub
223.     Private Sub VendorL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VendorL1PIC.Click
224.         StartUp.OpenNewTab(ListMerchant.GetInstance)
225.     End Sub
226.     Private Sub BuyL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL2PIC.Click
227.         StartUp.OpenNewTab(NewBuy.GetInstance)
228.     End Sub
229.     Private Sub BuyL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuyL1PIC.Click
230.         StartUp.OpenNewTab(ListBuy.GetInstance)
231.     End Sub
232.     Private Sub StoreL4PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL4PIC.Click
233.         StartUp.OpenNewTab(AdjustStore.GetInstance)
234.     End Sub
235.     Private Sub StoreL3PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL3PIC.Click
236.         StartUp.OpenNewTab(StoreCat.GetInstance)
237.     End Sub
238.     Private Sub StoreL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL2PIC.Click
239.         StartUp.OpenNewTab(ListProducts.GetInstance)
240.     End Sub
241.     Private Sub StoreL0PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreL0PIC.Click
242.         StartUp.OpenNewTab(NewProduct.GetInstance)
243.     End Sub
244.     Private Sub SellL3PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL3PIC.Click
245.         StartUp.OpenNewTab(NewSell.GetInstance)
246.     End Sub
247.     Private Sub SellL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL2PIC.Click
248.         StartUp.OpenNewTab(ListSell.GetInstance)
249.     End Sub
250.     Private Sub SellL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SellL1PIC.Click
251.         StartUp.OpenNewTab(Requests.GetInstance)
252.     End Sub
253.     Private Sub CustomerL2PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL2PIC.Click
254.         StartUp.OpenNewTab(NewCustomer.GetInstance)
255.     End Sub
256.     Private Sub CustomerL1PIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerL1PIC.Click
257.         StartUp.OpenNewTab(ListCustomers.GetInstance)
258.     End Sub
259. End Class