Universal Accounting Manager - Requests.vb

Requests.vb

1. Public Class Requests
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 FItem As ListViewItem
13.     Private Shared RequestsInstance As Requests
14.     Public Shared Function GetInstance() As Requests
15.         If (RequestsInstance Is Nothing) Then
16.             RequestsInstance = New Requests
17.         End If
18.         Return RequestsInstance
19.     End Function
20.     Private Sub Requests_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("الكمية المتوفرة")