Universal Accounting Manager - ListMerchant.vb

ListMerchant.vb

1. Public Class ListMerchant
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 ListPurchInstance As ListMerchant
14.     Public Shared Function GetInstance() As ListMerchant
15.         If (ListPurchInstance Is Nothing) Then
16.             ListPurchInstance = New ListMerchant
17.         End If
18.         Return ListPurchInstance
19.     End Function
20.     Private Sub ListPurch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
21.         LV.Columns.Add("إسم التاجر")
22.         LV.Columns.Add("رقم الهاتف")
23.         LV.Columns.Add("العنوان")
24.         LV.Columns.Add("مجموع المشتريات منه")
25.         LV.Columns.Add("مجموع الديون له")
26.         LoadVendors()
27.         Refresher.Enabled = True
28.     End Sub
29.     Public Sub LoadVendors()
30.         On Error Resume Next
31.         LV.Items.Clear()
32.         Dim Addad As Integer = 0
33.         For Addad = 0 To My.Computer.FileSystem.GetDirectories(VendorsPath).Count - 1
34.             Dim WDir As String = My.Computer.FileSystem.GetDirectories(VendorsPath).Item(Addad)
35.             Dim CName As String = My.Computer.FileSystem.ReadAllText(WDir & "\name.dat", System.Text.Encoding.GetEncoding(0))
36.             Dim CTel As String = My.Computer.FileSystem.ReadAllText(WDir & "\tel.dat", System.Text.Encoding.GetEncoding(0))
37.             Dim CAddress As String = My.Computer.FileSystem.ReadAllText(WDir & "\address.dat", System.Text.Encoding.GetEncoding(0))
38.             Dim TotalPayment As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\totalpayment.dat", System.Text.Encoding.GetEncoding(0)))
39.             Dim TotalDept As Double = Val(My.Computer.FileSystem.ReadAllText(WDir & "\totaldept.dat", System.Text.Encoding.GetEncoding(0)))
40.             If CName.Contains(SearchTXT.Text) = False Then GoTo SkipThis
41.             LV.Items.Add(CName)
42.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CTel)
43.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(CAddress)
44.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalPayment)
45.             LV.Items.Item(LV.Items.Count - 1).SubItems.Add(TotalDept)
46. SkipThis:
47.         Next
48.         LV.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
49.     End Sub
50.     Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick
51.         NewMerchant.GetInstance.LoadVendorInfo(LV.FocusedItem.Text)
52.         StartUp.OpenNewTab(NewMerchant.GetInstance)
53.     End Sub
54.     Private Sub ProductShowBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductShowBTN.Click
55.         NewMerchant.GetInstance.LoadVendorInfo(LV.FocusedItem.Text)
56.         StartUp.OpenNewTab(NewMerchant.GetInstance)
57.     End Sub
58.     Private Sub ProductCancleBTN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductCancleBTN.Click
59.         StartUp.CloseTabs()
60.     End Sub
61.     Private Sub Refresher_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Refresher.Tick
62.         LoadVendors()
63.     End Sub
64.     Private Sub SearchTXT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchTXT.TextChanged
65.         LoadVendors()
66.     End Sub
67. End Class