Process Modules Project

Process Modules Project source code and complete project in "Process Modules and ProcessName Collecter" e-learning section.
Coded by: Wesam Naffaa

Puzzle Game project

Full Puzzle Game source code and complete project in "Puzzle Game project" e-learning section.
NOTE: You must read "Puzzle Game - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

Accounting Manager project

Full Accounting manager source code and complete project in "Universal Accounting Manager project" e-learning section.
NOTE: You must read "Universal Accounting Manager - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa

File encryption project

Full File encryption center source code and complete project in "File encryption center project" e-learning section.
NOTE: You must read "File encryption center - Resources" to understand how to apply the sources & codes to your side.
Coded by: Wesam Naffaa
Showing posts with label Universal Accounting Manager. Show all posts
Showing posts with label Universal Accounting Manager. Show all posts

Universal Accounting Manager - Resources

The important thing in glad programming user interface is the "Resources".
Each Visual Studio.NET project has Resources folder to store all type of images and bitmaps or icons etc...
In our tutorials you must download the Resources folder and paste it to your project folder, to make sure that your project will working as we programming.
Download the Universal Accounting Manager - Resources folder from Google Drive.

Universal Accounting Manager - ViewBox.vb

ViewBox.vb
  1. Public Class ViewBox
  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.     Dim BoxPath As String = DataPath & "\Box"
  14.     Dim YearSTR As String = Date.Now.Year
  15.     Dim MonthSTR As String = Date.Now.Month
  16.     Dim DaySTR As String = Date.Now.Day
  17.     Dim Status As String = ""
  18.     Private Shared ViewBoxInstance As ViewBox
  19.     Public Shared Function GetInstance() As ViewBox
  20.         If (ViewBoxInstance Is Nothing) Then
  21.             ViewBoxInstance = New ViewBox
  22.         End If
  23.         Return ViewBoxInstance
  24.     End Function
  25.     Private Sub ViewBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Universal Accounting Manager - ViewBox.Designer.vb

ViewBox.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class ViewBox
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container()
  23.         Me.Pan1LBL = New System.Windows.Forms.Label()
  24.         Me.Label1 = New System.Windows.Forms.Label()
  25.         Me.Label4 = New System.Windows.Forms.Label()

Universal Accounting Manager - StoreCat.vb

StoreCat.vb
  1. Public Class StoreCat
  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 StoreCatInstance As StoreCat
  14.     Public Shared Function GetInstance() As StoreCat
  15.         If (StoreCatInstance Is Nothing) Then
  16.             StoreCatInstance = New StoreCat
  17.         End If
  18.         Return StoreCatInstance
  19.     End Function
  20.     Private Sub StoreCat_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("ربح القطعة")

Universal Accounting Manager - StoreCat.Designer.vb

StoreCat.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class StoreCat
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container()
  23.         Me.ProductCancleBTN = New System.Windows.Forms.Button()
  24.         Me.RenameStoreBTN = New System.Windows.Forms.Button()
  25.         Me.ProductNameLBL = New System.Windows.Forms.Label()
  26.         Me.CNameTXT = New System.Windows.Forms.ComboBox()

Universal Accounting Manager - StartUp.vb

 StartUp.vb
  1. Public Class StartUp
  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 BoxPath As String = DataPath & "\Box"
  13.     Dim AlertsPath As String = DataPath & "\Alerts"
  14.     Dim SettingsPath As String = DataPath & "\Settings"
  15.     Dim SenderName As Object
  16.     Dim TabCount As Integer = 0
  17.     Dim SelectedTab As String = ""
  18.     Private Sub StartUp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
  19.         MainView.GetInstance.HideSubPic()
  20.         If All.GetInstance.Visible = True Then
  21.             OpenNewTab(All.GetInstance)
  22.             CloseTabs()
  23.         End If
  24.     End Sub
  25.     Private Sub StartUp_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

Universal Accounting Manager - StartUp.Designer.vb

StartUp.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class StartUp
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container()
  23.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(StartUp))
  24.         Me.UpDockLBL = New System.Windows.Forms.Label()
  25.         Me.DownDockLBL = New System.Windows.Forms.Label()

Universal Accounting Manager - Shortcuts.vb

Shortcuts.vb
  1. Public Class Shortcuts
  2.     Private Shared PanelInstance As Shortcuts
  3.     Public Shared Function GetInstance() As Shortcuts
  4.         If (PanelInstance Is Nothing) Then
  5.             PanelInstance = New Shortcuts
  6.         End If
  7.         Return PanelInstance
  8.     End Function
  9.     Private Sub Shortcuts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  10.         AddHandler AccountingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  11.         AddHandler AccountingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  12.         AddHandler AccountingPIC.MouseDown, AddressOf StartUp.PicMouseDown
  13.         AddHandler AccountingPIC.MouseUp, AddressOf StartUp.PicMouseUp
  14.         AddHandler SettingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  15.         AddHandler SettingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  16.         AddHandler SettingPIC.MouseDown, AddressOf StartUp.PicMouseDown
  17.         AddHandler SettingPIC.MouseUp, AddressOf StartUp.PicMouseUp
  18.         AddHandler ImportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  19.         AddHandler ImportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  20.         AddHandler ImportPIC.MouseDown, AddressOf StartUp.PicMouseDown
  21.         AddHandler ImportPIC.MouseUp, AddressOf StartUp.PicMouseUp
  22.         AddHandler ExportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
  23.         AddHandler ExportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
  24.         AddHandler ExportPIC.MouseDown, AddressOf StartUp.PicMouseDown

Universal Accounting Manager - Shortcuts.Designer.vb

Shortcuts.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Shortcuts
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.Label9 = New System.Windows.Forms.Label()
  23.         Me.Label8 = New System.Windows.Forms.Label()
  24.         Me.Label7 = New System.Windows.Forms.Label()

Universal Accounting Manager - Setting.vb

Setting.vb
  1. Public Class Setting
  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.     Dim BoxPath As String = DataPath & "\Box"
  14.     Dim AlertsPath As String = DataPath & "\Alerts"
  15.     Dim SettingsPath As String = DataPath & "\Settings"
  16.     Dim AddToVindorBoolean As Boolean = False
  17.     Private Shared SettingInstance As Setting
  18.     Public Shared Function GetInstance() As Setting
  19.         If (SettingInstance Is Nothing) Then
  20.             SettingInstance = New Setting
  21.         End If
  22.         Return SettingInstance
  23.     End Function
  24.     Public Sub TestText()
  25.         'test values to add errors to Alerts :

Universal Accounting Manager - Setting.Designer.vb

Setting.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Setting
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.ProductCancleBTN = New System.Windows.Forms.Button()
  23.         Me.ProductShowBTN = New System.Windows.Forms.Button()
  24.         Me.FooterTXT = New System.Windows.Forms.TextBox()
  25.         Me.PSizeTXT = New System.Windows.Forms.ComboBox()
  26.         Me.Label1 = New System.Windows.Forms.Label()

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("الكمية المتوفرة")

Universal Accounting Manager - Requests.Designer.vb

Requests.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class Requests
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.components = New System.ComponentModel.Container()
  23.         Me.ProductCancleBTN = New System.Windows.Forms.Button()
  24.         Me.ProductShowBTN = New System.Windows.Forms.Button()
  25.         Me.LV = New System.Windows.Forms.ListView()

Universal Accounting Manager - PublicDataBase.vb

PublicDataBase.vb
  1. Public Class PublicDataBase
  2.      Public Function DataBaseReader(ByVal Name As String, ByVal ReadEncoding As System.Text.Encoding) As String
  3.         On Error Resume Next
  4.         My.Computer.FileSystem.ReadAllText(Name, ReadEncoding)
  5.     End Function
  6.     Public Function DataBaseWriter(ByVal Name As String, ByVal Value As String, ByVal WriteBoolean As Boolean, ByVal WriteEncoding As System.Text.Encoding) As String
  7.         My.Computer.FileSystem.WriteAllText(Name, Value, WriteBoolean, WriteEncoding)
  8.     End Function
  9. End Class

Universal Accounting Manager - PublicDataBase.Designer.vb

PublicDataBase.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class PublicDataBase
  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.         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.  
  20.     'NOTE: The following procedure is required by the Windows Form Designer
  21.     'It can be modified using the Windows Form Designer.  
  22.     'Do not modify it using the code editor.
  23.     <System.Diagnostics.DebuggerStepThrough()> _
  24.     Private Sub InitializeComponent()
  25.         Me.SuspendLayout()

Universal Accounting Manager - NewSell.vb

NewSell.vb
  1. Public Class NewSell
  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 BoxPath As String = DataPath & "\Box"
  13.     Dim AlertsPath As String = DataPath & "\Alerts"
  14.     Dim SettingsPath As String = DataPath & "\Settings"
  15.     Dim AddToVindorBoolean As Boolean = False
  16.     Friend WithEvents PrintPreviewControl1 As PrintPreviewControl
  17.     Private WithEvents docToPrint As New Printing.PrintDocument
  18.     Private Shared NewSellInstance As NewSell
  19.     Dim DiscountMNT As Double = 0
  20.     Dim DiscountMNTAfter As Double = 0
  21.     Public Shared Function GetInstance() As NewSell
  22.         If (NewSellInstance Is Nothing) Then
  23.             NewSellInstance = New NewSell
  24.         End If
  25.         Return NewSellInstance
  26.     End Function

Universal Accounting Manager - NewSell.Designer.vb

NewSell.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class NewSell
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(NewSell))
  23.         Me.NewSellBarcodeLBL = New System.Windows.Forms.Label()
  24.         Me.NewSellBarcodeTXT = New System.Windows.Forms.TextBox()

Universal Accounting Manager - NewProduct.vb

NewProduct.vb
  1. Public Class NewProduct
  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 AlertsPath As String = DataPath & "\Alerts"
  9.     Dim StoreNumber As Integer = 0
  10.     Dim CalledFrom As String = ""
  11.     Dim LastPriceInformation() As Double = {0, 0, 0}
  12.     Private Shared NewProductInstance As NewProduct
  13.     Public Shared Function GetInstance() As NewProduct
  14.         If (NewProductInstance Is Nothing) Then
  15.             NewProductInstance = New NewProduct
  16.         End If
  17.         Return NewProductInstance
  18.     End Function
  19.     Public Sub CalledFromWindow(ByVal SName As String, ByVal Pname As String)
  20.         CalledFrom = SName

Universal Accounting Manager - NewProduct.Designer.vb

NewProduct.Designer.vb
  1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
  2. Partial Class NewProduct
  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.
  20.     <System.Diagnostics.DebuggerStepThrough()> _
  21.     Private Sub InitializeComponent()
  22.         Me.ProductMountLBL = New System.Windows.Forms.Label()

Universal Accounting Manager - NewMerchant.vb

NewMerchant.vb
  1. Public Class NewMerchant
  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.     Dim BoxPath As String = DataPath & "\Box"
  14.     Dim AlertsPath As String = DataPath & "\Alerts"
  15.     Dim SettingsPath As String = DataPath & "\Settings"
  16.     Dim MaxList As Integer = 0
  17.     Dim FromList As Integer = 0
  18.     Dim ToList As Integer = 0
  19.     Private Shared NewMerchantInstance As NewMerchant
  20.     Public Shared Function GetInstance() As NewMerchant
  21.         If (NewMerchantInstance Is Nothing) Then
  22.             NewMerchantInstance = New NewMerchant
  23.         End If
  24.         Return NewMerchantInstance
  25.     End Function
  26.     Private Sub NewMerchant_Load(ByVal sender As System.Object, ByVal e As

Valuable E-Book

Hello,
Baby first step is a friendly flashcards offering a growing collection of creative and educational ideas to help the toddler to learn the alphabet, so I put images that would be attractive to babies.

Support independent publishing: Buy this e-book on Lulu.