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