Universal Accounting Manager - ListProducts.vb

ListProducts.vb

1. Public Class ListProducts
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 RequestsPath As String = DataPath & "\Requests"
9.     Private Shared ListProductsInstance As ListProducts
10.     Public Shared Function GetInstance() As ListProducts
11.         If (ListProductsInstance Is Nothing) Then
12.             ListProductsInstance = New ListProducts
13.         End If
14.         Return ListProductsInstance
15.     End Function
16.     Private Sub ListProducts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Universal Accounting Manager - ListProducts.Designer.vb

ListProducts.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class ListProducts
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  

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

Universal Accounting Manager - ListMerchant.Designer.vb

ListMerchant.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class ListMerchant
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.

Universal Accounting Manager - ListCustomers.vb

ListCustomers.vb

1. Public Class ListCustomers
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.     Private Shared ListCustomersInstance As ListCustomers
13.     Public Shared Function GetInstance() As ListCustomers
14.         If (ListCustomersInstance Is Nothing) Then
15.             ListCustomersInstance = New ListCustomers
16.         End If
17.         Return ListCustomersInstance
18.     End Function
19.     Private Sub ListCustomers_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Universal Accounting Manager - ListCustomers.Designer.vb

ListCustomers.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class ListCustomers
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  

Universal Accounting Manager - ListBuy.vb

ListBuy.vb

1. Public Class ListBuy
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 VendorsPath As String = DataPath & "\Vendors"
12.     Dim YearSTR As String = Date.Now.Year
13.     Dim MonthSTR As String = Date.Now.Month
14.     Dim DaySTR As String = Date.Now.Day
15.     Private Shared ListBuyInstance As ListBuy
16.     Public Shared Function GetInstance() As ListBuy
17.         If (ListBuyInstance Is Nothing) Then
18.             ListBuyInstance = New ListBuy
19.         End If

Universal Accounting Manager - ListBuy.Designer.vb

ListBuy.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class ListBuy
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  

Universal Accounting Manager - FLV.vb

FLV.vb

1. Public Class FLV
2.     Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
3.         MyBase.OnPaint(e)
4.         Dim buttonPath As New System.Drawing.Drawing2D.GraphicsPath
5.         Dim newRectangle As Rectangle = Me.ClientRectangle
6.         'newRectangle.Inflate(-1, -1)
7.         newRectangle.Inflate(1, 10)
8.         buttonPath.AddEllipse(newRectangle)
9.         e.Graphics.DrawPath(Pens.Black, buttonPath)

Universal Accounting Manager - FLV.Designer.vb

FLV.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class FLV
3.     Inherits System.Windows.Forms.Form
4.  
5.     'Form overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  
17.     'NOTE: The following procedure is required by the Windows Form Designer
18.     'It can be modified using the Windows Form Designer.  
19.     'Do not modify it using the code editor.

Universal Accounting Manager - Charts.vb

Charts.vb

1. Imports System.Windows.Forms.DataVisualization.Charting
2. Public Class Charts
3.     Dim ProgramName As String = My.Application.Info.AssemblyName
4.     Dim DataPath As String = System.Environment.CurrentDirectory & "\UAM"
5.     Dim ProductPath As String = DataPath & "\Products" '
6.     Dim ServicesPath As String = DataPath & "\Services"
7.     Dim CatPath As String = DataPath & "\Categories"
8.     Dim StoresPath As String = DataPath & "\Stores"
9.     Dim CustomersPath As String = DataPath & "\Customers"
10.     Dim CompanyPath As String = DataPath & "\Company"
11.     Dim MovmentPath As String = DataPath & "\Movment"
12.     Dim RequestsPath As String = DataPath & "\Requests"
13.     Dim VendorsPath As String = DataPath & "\Vendors"
14.     Dim BoxPath As String = DataPath & "\Box"
15.     Dim YearSTR As String = Date.Now.Year
16.     Dim MonthSTR As String = Date.Now.Month
17.     Dim DaySTR As String = Date.Now.Day
18.     Private Shared ChartsInstance As Charts
19.     Public Shared Function GetInstance() As Charts
20.         If (ChartsInstance Is Nothing) Then
21.             ChartsInstance = New Charts

Universal Accounting Manager - Charts.Designer.vb

Charts.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class Charts
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         Try
9.             If disposing AndAlso components IsNot Nothing Then
10.                 components.Dispose()
11.             End If
12.         Finally
13.             MyBase.Dispose(disposing)
14.         End Try
15.     End Sub
16.  
17.     'Required by the Windows Form Designer
18.     Private components As System.ComponentModel.IContainer
19.  

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

Universal Accounting Manager- All.Designer.vb

All.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class All
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  
14.     'Required by the Windows Form Designer
15.     Private components As System.ComponentModel.IContainer
16.  

Universal Accounting Manager - AdjustStore.vb

 AdjustStore.vb

1. Public Class AdjustStore
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 AdjustStoreInstance As AdjustStore
14.     Public Shared Function GetInstance() As AdjustStore

Universal Accounting Manager - AdjustStore.Designer.vb

AdjustStore.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class AdjustStore
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.  

Universal Accounting Manager - About.vb

About.vb

1. Public Class About
2.     Private Shared AboutInstance As About
3.     Public Shared Function GetInstance() As About
4.         If (AboutInstance Is Nothing) Then
5.             AboutInstance = New About
6.         End If
7.         Return AboutInstance
8.     End Function

Universal Accounting Manager - About.Designer.vb

About.Designer.vb

1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
2. Partial Class About
3.     Inherits System.Windows.Forms.UserControl
4.  
5.     'UserControl overrides dispose to clean up the component list.
6.     <System.Diagnostics.DebuggerNonUserCode()> _
7.     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
8.         If disposing AndAlso components IsNot Nothing Then
9.             components.Dispose()
10.         End If
11.         MyBase.Dispose(disposing)
12.     End Sub
13.