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

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

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.