Inventory Management System Project: Sales, Purchase, Stock Details
VerifiedAdded on 2023/04/23
|42
|4376
|112
Project
AI Summary
This document presents an Inventory Management System (IMS) project designed for small to medium-sized organizations. The project addresses the need for efficient stock management, sales, and purchase tracking. The system utilizes a desktop-based application developed using Visual Basic and the .NET framework. The project includes a detailed problem statement, outlining the challenges of existing inventory management systems and the project's objectives, such as creating an easily managed and secure system covering all IMS areas. The document covers system design specifications, including use case diagrams, context diagrams, information flow diagrams, and an Entity-Relationship Diagram (ERD). Screen designs, hardware specifications, and sample code are provided, including code snippets for order records and form designs. The implementation details include form designs, and code for key functions like loading data, filtering records, and user authentication. The project's scope is limited to organizations with a single point of authority and offers security features, with the warehouse details can be added as per the requirement.
Running Head: Inventory Management System
Institution
Date
Name
Introduction
Institution
Date
Name
Introduction
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
2
1. Problem Statement
After analyzing many existing Inventory Information Management Systems, we
pretty have a clear vision of the kind of the project we can develop to carter all the
existing problems in the field of keeping and selling stock in any business. Before we
started to build this project our team has made intense research on technology and
business (Coffman, Vanderveen & Schlotterbeck, 2017). There were several
constraining factors encountered in the development process of the system despite its
completion. These factors included:
Time consuming: A lot of time is spent especially during data collection,
development and completion of this project and learning of visual basic as the
programming language in use.
1. Problem Statement
After analyzing many existing Inventory Information Management Systems, we
pretty have a clear vision of the kind of the project we can develop to carter all the
existing problems in the field of keeping and selling stock in any business. Before we
started to build this project our team has made intense research on technology and
business (Coffman, Vanderveen & Schlotterbeck, 2017). There were several
constraining factors encountered in the development process of the system despite its
completion. These factors included:
Time consuming: A lot of time is spent especially during data collection,
development and completion of this project and learning of visual basic as the
programming language in use.
3
Cost-the cost of materials that are important to the development and completeness
of the project, especially in coming up with this proposal are enormous. The overall
development and design of the system is costly as evidenced in the budget.
The targets however were:
To make desktop based application of IMS for a small business.
To make the system easily managed and can be secured.
To cover all the areas of IMS like purchase details, sales details and stock
management.
Current state of Technology/Literature Review
Software products are considered as the business assets for any organization. This
incorporates dealing with the products with fitting approach to audit whenever
according to the company's prerequisites. Subsequently it is vital to have a PC based
IMS which can produce reports, keep up the equalization of the stock, insights
regarding the purchases and sales in the association. Before building up this
application we thought of 2 Stock Management System existing in the market, which
gave us the learning for the advancement of our venture (Zelm, Doumeingts &
Wollschlaeger, 2018). These applications we checked were being utilized by the vast
organizations however, we developed one which can be utilized by the little
organizations for the administration of their stock in the Warehouses. In the wake of
breaking down the other stock administration frameworks we chose to incorporate a
few of normal and key highlights that ought to be incorporated into each stock
administration framework. So we chose to incorporate those things that assistance the
little association in a way or another.
Cost-the cost of materials that are important to the development and completeness
of the project, especially in coming up with this proposal are enormous. The overall
development and design of the system is costly as evidenced in the budget.
The targets however were:
To make desktop based application of IMS for a small business.
To make the system easily managed and can be secured.
To cover all the areas of IMS like purchase details, sales details and stock
management.
Current state of Technology/Literature Review
Software products are considered as the business assets for any organization. This
incorporates dealing with the products with fitting approach to audit whenever
according to the company's prerequisites. Subsequently it is vital to have a PC based
IMS which can produce reports, keep up the equalization of the stock, insights
regarding the purchases and sales in the association. Before building up this
application we thought of 2 Stock Management System existing in the market, which
gave us the learning for the advancement of our venture (Zelm, Doumeingts &
Wollschlaeger, 2018). These applications we checked were being utilized by the vast
organizations however, we developed one which can be utilized by the little
organizations for the administration of their stock in the Warehouses. In the wake of
breaking down the other stock administration frameworks we chose to incorporate a
few of normal and key highlights that ought to be incorporated into each stock
administration framework. So we chose to incorporate those things that assistance the
little association in a way or another.
You're viewing a preview
Unlock full access by subscribing today!
4
Objectives
Primary objectives
The primary objectives of the project are mentioned below:
To fulfill the requirement for achieving the Bachelor’s degree of Computer
Information System
To know the fundamentals of the .Net Technology and Visual Studio with
the .Net Framework
Secondary objectives
The secondary objectives of this project are mentioned below:
To develop an application that deals with the day to day requirement of any
production organization
To develop the easy management of the inventory
To handle the inventory details like sales details, purchase details and balance
stock details.
To provide competitive advantage to the organization.
To provide details information about the stock balance.
To make the stock manageable and simplify the use of inventory in the
Organization Scope and Limitation
This Inventory Management System (IMS) is targeted to the small or medium
organization
Objectives
Primary objectives
The primary objectives of the project are mentioned below:
To fulfill the requirement for achieving the Bachelor’s degree of Computer
Information System
To know the fundamentals of the .Net Technology and Visual Studio with
the .Net Framework
Secondary objectives
The secondary objectives of this project are mentioned below:
To develop an application that deals with the day to day requirement of any
production organization
To develop the easy management of the inventory
To handle the inventory details like sales details, purchase details and balance
stock details.
To provide competitive advantage to the organization.
To provide details information about the stock balance.
To make the stock manageable and simplify the use of inventory in the
Organization Scope and Limitation
This Inventory Management System (IMS) is targeted to the small or medium
organization
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
5
which doesn’t have many godwom or warehouses i.e. only to those organization
that has single power of authority. Some of the scope are:
Only one person is responsible in assigning the details or records
It is security driven.
The warehouse can be added as per the requirement.
2. System Design Specification
Use Case Diagram
Its motivation is to show a graphical outline of the usefulness given by a system
as far as performing artists and their objectives.
The fundamental reason for an utilization case chart is to demonstrate what
framework capacities are performed for which on-screen characters See beneath
which doesn’t have many godwom or warehouses i.e. only to those organization
that has single power of authority. Some of the scope are:
Only one person is responsible in assigning the details or records
It is security driven.
The warehouse can be added as per the requirement.
2. System Design Specification
Use Case Diagram
Its motivation is to show a graphical outline of the usefulness given by a system
as far as performing artists and their objectives.
The fundamental reason for an utilization case chart is to demonstrate what
framework capacities are performed for which on-screen characters See beneath
6
Context Diagram
Information Flow Diagram
Process Flow Diagram or Flowchart is a chart which utilizes geometric images
and bolts to characterize the connections. It is a diagrammatic portrayal of the
calculation (Mehta, Puranik & Sharma, 2016).The Process stream Diagram for the
data flow of our Inventory System application is appeared as follows.
ERD
Context Diagram
Information Flow Diagram
Process Flow Diagram or Flowchart is a chart which utilizes geometric images
and bolts to characterize the connections. It is a diagrammatic portrayal of the
calculation (Mehta, Puranik & Sharma, 2016).The Process stream Diagram for the
data flow of our Inventory System application is appeared as follows.
ERD
You're viewing a preview
Unlock full access by subscribing today!
7
3. System Implementation
Screen Design
3. System Implementation
Screen Design
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
8
Orders
Orders
9
Order Records
Hardware Specification
Windows: We suggest Windows 8.1 or later* however the framework has been
effectively conveyed on variants as ahead of schedule as Windows 7. NOTE: Some
customers utilizing Windows XP and Vista might encounter issues with equipment
drivers (Laudon, 2016).
CPU: Windows - Pentium 4 or better. Macintosh - Any x86 processor or better.
Slam: 2GB least, 4GB suggested.
Capacity: At least 1GB of hard circle space.
Ports: At least one USB 2.0 or better port*. It isn't prescribed to attempt and
utilize equipment that associates by sequential port or parallel port with our
framework.
Internet connection: A broadband association speed with respect to no less than 5
- 10 Mbps is recomended when sharing the system remotely. You can test your
Order Records
Hardware Specification
Windows: We suggest Windows 8.1 or later* however the framework has been
effectively conveyed on variants as ahead of schedule as Windows 7. NOTE: Some
customers utilizing Windows XP and Vista might encounter issues with equipment
drivers (Laudon, 2016).
CPU: Windows - Pentium 4 or better. Macintosh - Any x86 processor or better.
Slam: 2GB least, 4GB suggested.
Capacity: At least 1GB of hard circle space.
Ports: At least one USB 2.0 or better port*. It isn't prescribed to attempt and
utilize equipment that associates by sequential port or parallel port with our
framework.
Internet connection: A broadband association speed with respect to no less than 5
- 10 Mbps is recomended when sharing the system remotely. You can test your
You're viewing a preview
Unlock full access by subscribing today!
10
association speed by going to SpeedTest.net. Be mindful so as to keep away from
notices; the catch that begins the test says Begin Test.
Sample code
Creates a form For all order Records and Search
Imports System.Data.OleDb
Imports Excel = Microsoft.Office.Interop.Excel
Public Class frmOrderRecord1
Dim rdr As OleDbDataReader = Nothing
Dim dtable As DataTable
Dim con As OleDbConnection = Nothing
Dim adp As OleDbDataAdapter
Dim ds As DataSet
Dim cmd As OleDbCommand = Nothing
Dim dt As New DataTable
Dim cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|
DataDirectory|\BackUp\Sample.accdb;Persist Security Info=False;"
Private Sub frmOrderRecord1_FormClosing(ByVal sender As Object, ByVal e
As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try
Me.Dispose()
frmOrder.Show()
Catch ex As Exception
association speed by going to SpeedTest.net. Be mindful so as to keep away from
notices; the catch that begins the test says Begin Test.
Sample code
Creates a form For all order Records and Search
Imports System.Data.OleDb
Imports Excel = Microsoft.Office.Interop.Excel
Public Class frmOrderRecord1
Dim rdr As OleDbDataReader = Nothing
Dim dtable As DataTable
Dim con As OleDbConnection = Nothing
Dim adp As OleDbDataAdapter
Dim ds As DataSet
Dim cmd As OleDbCommand = Nothing
Dim dt As New DataTable
Dim cs As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|
DataDirectory|\BackUp\Sample.accdb;Persist Security Info=False;"
Private Sub frmOrderRecord1_FormClosing(ByVal sender As Object, ByVal e
As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try
Me.Dispose()
frmOrder.Show()
Catch ex As Exception
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
11
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Private Sub frmOrderRecord1_KeyDown(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
e.SuppressKeyPress = e.Control
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{tab}")
End If
End Sub
Private Sub frmOrderRecord1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
fillCustomerName()
fillorderNo()
fillProductName()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Try
con = New OleDbConnection(cs)
If con.State = ConnectionState.Open Then
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Private Sub frmOrderRecord1_KeyDown(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
e.SuppressKeyPress = e.Control
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{tab}")
End If
End Sub
Private Sub frmOrderRecord1_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
fillCustomerName()
fillorderNo()
fillProductName()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Try
con = New OleDbConnection(cs)
If con.State = ConnectionState.Open Then
12
con.Close()
End If
con.Open()
cmd = New OleDbCommand("SELECT (OrderInfo.OrderNo)as [Order
No],(OrderDate)as [Order Date],(OrderStatus) as [Order Status],(CustomerName) as
[Customer Name],(ProductCode) as [Product Code],(ProductName) as [Product
Name],(Length) as [Length],(Height) as [Height],(Area) as [Area],(AreaUnit) as
[Area Unit],(Quantity) as [Quantity],(UnitPrice) as [Price],
(OrderedProduct.TotalAmount) as [Total Amount] from orderinfo,orderedproduct
where orderinfo.orderno=orderedproduct.orderno and OrderDate between '" &
dtpOrderDateFrom.Value & "' and '" & dtpOrderDateTo.Value & "' order by
orderinfo.OrderNo,OrderDate", con)
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, "OrderInfo")
myDA.Fill(myDataSet, "OrderedProduct")
DataGridView1.DataSource =
myDataSet.Tables("OrderInfo").DefaultView
DataGridView1.DataSource =
myDataSet.Tables("OrderedProduct").DefaultView
con.Close()
con.Close()
End If
con.Open()
cmd = New OleDbCommand("SELECT (OrderInfo.OrderNo)as [Order
No],(OrderDate)as [Order Date],(OrderStatus) as [Order Status],(CustomerName) as
[Customer Name],(ProductCode) as [Product Code],(ProductName) as [Product
Name],(Length) as [Length],(Height) as [Height],(Area) as [Area],(AreaUnit) as
[Area Unit],(Quantity) as [Quantity],(UnitPrice) as [Price],
(OrderedProduct.TotalAmount) as [Total Amount] from orderinfo,orderedproduct
where orderinfo.orderno=orderedproduct.orderno and OrderDate between '" &
dtpOrderDateFrom.Value & "' and '" & dtpOrderDateTo.Value & "' order by
orderinfo.OrderNo,OrderDate", con)
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, "OrderInfo")
myDA.Fill(myDataSet, "OrderedProduct")
DataGridView1.DataSource =
myDataSet.Tables("OrderInfo").DefaultView
DataGridView1.DataSource =
myDataSet.Tables("OrderedProduct").DefaultView
con.Close()
You're viewing a preview
Unlock full access by subscribing today!
13
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
DataGridView1.DataSource = Nothing
dtpOrderDateFrom.Text = Today
dtpOrderDateTo.Text = Today
End Sub
Sub fillProductName()
Try
Dim CN As New OleDbConnection(cs)
If CN.State = ConnectionState.Open Then
CN.Close()
End If
CN.Open()
adp = New OleDbDataAdapter()
adp.SelectCommand = New OleDbCommand("SELECT distinct
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
DataGridView1.DataSource = Nothing
dtpOrderDateFrom.Text = Today
dtpOrderDateTo.Text = Today
End Sub
Sub fillProductName()
Try
Dim CN As New OleDbConnection(cs)
If CN.State = ConnectionState.Open Then
CN.Close()
End If
CN.Open()
adp = New OleDbDataAdapter()
adp.SelectCommand = New OleDbCommand("SELECT distinct
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
14
(ProductName) FROM orderedProduct", CN)
ds = New DataSet("ds")
adp.Fill(ds)
dtable = ds.Tables(0)
CBProductName.Items.Clear()
For Each drow As DataRow In dtable.Rows
CBProductName.Items.Add(drow("ProductName").ToString())
'DocName.SelectedIndex = -1
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Sub fillCustomerName()
Main Form Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmLogin
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
(ProductName) FROM orderedProduct", CN)
ds = New DataSet("ds")
adp.Fill(ds)
dtable = ds.Tables(0)
CBProductName.Items.Clear()
For Each drow As DataRow In dtable.Rows
CBProductName.Items.Add(drow("ProductName").ToString())
'DocName.SelectedIndex = -1
Next
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
End Sub
Sub fillCustomerName()
Main Form Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FrmLogin
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
15
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
You're viewing a preview
Unlock full access by subscribing today!
16
Dim resources As System.ComponentModel.ComponentResourceManager
= New System.ComponentModel.ComponentResourceManager(GetType(FrmLogin))
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.AdminPictLoad = New System.Windows.Forms.PictureBox()
Me.AdminPictureBox2 = New System.Windows.Forms.PictureBox()
Me.CmdAdmincancel = New System.Windows.Forms.Button()
Me.AdminLabel2 = New System.Windows.Forms.Label()
Me.AdminLabel1 = New System.Windows.Forms.Label()
Me.CmdAdminLogin = New System.Windows.Forms.Button()
Me.TxtAdminPassword = New System.Windows.Forms.TextBox()
Me.TxtAdminUserName = New System.Windows.Forms.TextBox()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.CBformState = New System.Windows.Forms.ComboBox()
Me.LblAttempt = New System.Windows.Forms.Label()
Me.PictLoad = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Dim resources As System.ComponentModel.ComponentResourceManager
= New System.ComponentModel.ComponentResourceManager(GetType(FrmLogin))
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.AdminPictLoad = New System.Windows.Forms.PictureBox()
Me.AdminPictureBox2 = New System.Windows.Forms.PictureBox()
Me.CmdAdmincancel = New System.Windows.Forms.Button()
Me.AdminLabel2 = New System.Windows.Forms.Label()
Me.AdminLabel1 = New System.Windows.Forms.Label()
Me.CmdAdminLogin = New System.Windows.Forms.Button()
Me.TxtAdminPassword = New System.Windows.Forms.TextBox()
Me.TxtAdminUserName = New System.Windows.Forms.TextBox()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.CBformState = New System.Windows.Forms.ComboBox()
Me.LblAttempt = New System.Windows.Forms.Label()
Me.PictLoad = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
17
Me.CmdCancel = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.CmdLogin = New System.Windows.Forms.Button()
Me.txtPassword = New System.Windows.Forms.TextBox()
Me.txtUserName = New System.Windows.Forms.TextBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.AdminPictLoad,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AdminPictureBox2,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.PictLoad,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.CmdCancel = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.CmdLogin = New System.Windows.Forms.Button()
Me.txtPassword = New System.Windows.Forms.TextBox()
Me.txtUserName = New System.Windows.Forms.TextBox()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Timer2 = New System.Windows.Forms.Timer(Me.components)
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.AdminPictLoad,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AdminPictureBox2,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.PictLoad,
System.ComponentModel.ISupportInitialize).BeginInit()
18
CType(Me.PictureBox2,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(-5, -1)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(420, 252)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.BackColor = System.Drawing.Color.DarkGray
Me.TabPage1.Controls.Add(Me.GroupBox2)
Me.TabPage1.Location = New System.Drawing.Point(4, 27)
CType(Me.PictureBox2,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(-5, -1)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(420, 252)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
Me.TabPage1.BackColor = System.Drawing.Color.DarkGray
Me.TabPage1.Controls.Add(Me.GroupBox2)
Me.TabPage1.Location = New System.Drawing.Point(4, 27)
You're viewing a preview
Unlock full access by subscribing today!
19
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(412, 221)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Admin"
'
'GroupBox2
'
Me.GroupBox2.BackColor = System.Drawing.Color.DarkGray
Me.GroupBox2.Controls.Add(Me.AdminPictLoad)
Me.GroupBox2.Controls.Add(Me.AdminPictureBox2)
Me.GroupBox2.Controls.Add(Me.CmdAdmincancel)
Me.GroupBox2.Controls.Add(Me.AdminLabel2)
Me.GroupBox2.Controls.Add(Me.AdminLabel1)
Me.GroupBox2.Controls.Add(Me.CmdAdminLogin)
Me.GroupBox2.Controls.Add(Me.TxtAdminPassword)
Me.GroupBox2.Controls.Add(Me.TxtAdminUserName)
Me.GroupBox2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.GroupBox2.Font = New System.Drawing.Font("Calibri", 9.75!,
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(412, 221)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Admin"
'
'GroupBox2
'
Me.GroupBox2.BackColor = System.Drawing.Color.DarkGray
Me.GroupBox2.Controls.Add(Me.AdminPictLoad)
Me.GroupBox2.Controls.Add(Me.AdminPictureBox2)
Me.GroupBox2.Controls.Add(Me.CmdAdmincancel)
Me.GroupBox2.Controls.Add(Me.AdminLabel2)
Me.GroupBox2.Controls.Add(Me.AdminLabel1)
Me.GroupBox2.Controls.Add(Me.CmdAdminLogin)
Me.GroupBox2.Controls.Add(Me.TxtAdminPassword)
Me.GroupBox2.Controls.Add(Me.TxtAdminUserName)
Me.GroupBox2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.GroupBox2.Font = New System.Drawing.Font("Calibri", 9.75!,
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
20
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.GroupBox2.ForeColor = System.Drawing.Color.White
Me.GroupBox2.Location = New System.Drawing.Point(7, -1)
Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4)
Me.GroupBox2.Size = New System.Drawing.Size(398, 214)
Me.GroupBox2.TabIndex = 0
Me.GroupBox2.TabStop = False
'
'AdminPictLoad
'
Me.AdminPictLoad.Image =
CType(resources.GetObject("AdminPictLoad.Image"), System.Drawing.Image)
Me.AdminPictLoad.Location = New System.Drawing.Point(149, 57)
Me.AdminPictLoad.Name = "AdminPictLoad"
Me.AdminPictLoad.Size = New System.Drawing.Size(100, 100)
Me.AdminPictLoad.SizeMode =
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.GroupBox2.ForeColor = System.Drawing.Color.White
Me.GroupBox2.Location = New System.Drawing.Point(7, -1)
Me.GroupBox2.Margin = New System.Windows.Forms.Padding(4)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Padding = New System.Windows.Forms.Padding(4)
Me.GroupBox2.Size = New System.Drawing.Size(398, 214)
Me.GroupBox2.TabIndex = 0
Me.GroupBox2.TabStop = False
'
'AdminPictLoad
'
Me.AdminPictLoad.Image =
CType(resources.GetObject("AdminPictLoad.Image"), System.Drawing.Image)
Me.AdminPictLoad.Location = New System.Drawing.Point(149, 57)
Me.AdminPictLoad.Name = "AdminPictLoad"
Me.AdminPictLoad.Size = New System.Drawing.Size(100, 100)
Me.AdminPictLoad.SizeMode =
21
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.AdminPictLoad.TabIndex = 91
Me.AdminPictLoad.TabStop = False
Me.AdminPictLoad.Visible = False
'
'AdminPictureBox2
'
Me.AdminPictureBox2.Image =
CType(resources.GetObject("AdminPictureBox2.Image"), System.Drawing.Image)
Me.AdminPictureBox2.Location = New System.Drawing.Point(17, 31)
Me.AdminPictureBox2.Margin = New System.Windows.Forms.Padding(4)
Me.AdminPictureBox2.Name = "AdminPictureBox2"
Me.AdminPictureBox2.Size = New System.Drawing.Size(132, 139)
Me.AdminPictureBox2.SizeMode =
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.AdminPictureBox2.TabIndex = 18
Me.AdminPictureBox2.TabStop = False
'
'CmdAdmincancel
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.AdminPictLoad.TabIndex = 91
Me.AdminPictLoad.TabStop = False
Me.AdminPictLoad.Visible = False
'
'AdminPictureBox2
'
Me.AdminPictureBox2.Image =
CType(resources.GetObject("AdminPictureBox2.Image"), System.Drawing.Image)
Me.AdminPictureBox2.Location = New System.Drawing.Point(17, 31)
Me.AdminPictureBox2.Margin = New System.Windows.Forms.Padding(4)
Me.AdminPictureBox2.Name = "AdminPictureBox2"
Me.AdminPictureBox2.Size = New System.Drawing.Size(132, 139)
Me.AdminPictureBox2.SizeMode =
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.AdminPictureBox2.TabIndex = 18
Me.AdminPictureBox2.TabStop = False
'
'CmdAdmincancel
You're viewing a preview
Unlock full access by subscribing today!
22
'
Me.CmdAdmincancel.Font = New System.Drawing.Font("Palatino
Linotype", 9.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CmdAdmincancel.ForeColor =
System.Drawing.SystemColors.WindowText
Me.CmdAdmincancel.Image =
CType(resources.GetObject("CmdAdmincancel.Image"), System.Drawing.Image)
Me.CmdAdmincancel.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.CmdAdmincancel.Location = New System.Drawing.Point(277, 152)
Me.CmdAdmincancel.Margin = New System.Windows.Forms.Padding(4)
Me.CmdAdmincancel.Name = "CmdAdmincancel"
Me.CmdAdmincancel.Size = New System.Drawing.Size(97, 40)
Me.CmdAdmincancel.TabIndex = 3
Me.CmdAdmincancel.Text = " &Cancel"
Me.CmdAdmincancel.UseVisualStyleBackColor = True
'
'AdminLabel2
'
'
Me.CmdAdmincancel.Font = New System.Drawing.Font("Palatino
Linotype", 9.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CmdAdmincancel.ForeColor =
System.Drawing.SystemColors.WindowText
Me.CmdAdmincancel.Image =
CType(resources.GetObject("CmdAdmincancel.Image"), System.Drawing.Image)
Me.CmdAdmincancel.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.CmdAdmincancel.Location = New System.Drawing.Point(277, 152)
Me.CmdAdmincancel.Margin = New System.Windows.Forms.Padding(4)
Me.CmdAdmincancel.Name = "CmdAdmincancel"
Me.CmdAdmincancel.Size = New System.Drawing.Size(97, 40)
Me.CmdAdmincancel.TabIndex = 3
Me.CmdAdmincancel.Text = " &Cancel"
Me.CmdAdmincancel.UseVisualStyleBackColor = True
'
'AdminLabel2
'
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
23
Me.AdminLabel2.AutoSize = True
Me.AdminLabel2.BackColor = System.Drawing.Color.Transparent
Me.AdminLabel2.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.AdminLabel2.ForeColor = System.Drawing.Color.White
Me.AdminLabel2.Location = New System.Drawing.Point(175, 86)
Me.AdminLabel2.Margin = New System.Windows.Forms.Padding(4, 0, 4,
0)
Me.AdminLabel2.Name = "AdminLabel2"
Me.AdminLabel2.Size = New System.Drawing.Size(79, 19)
Me.AdminLabel2.TabIndex = 16
Me.AdminLabel2.Text = "Password :"
'
'AdminLabel1
'
Me.AdminLabel1.AutoSize = True
Me.AdminLabel1.BackColor = System.Drawing.Color.Transparent
Me.AdminLabel1.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Me.AdminLabel2.AutoSize = True
Me.AdminLabel2.BackColor = System.Drawing.Color.Transparent
Me.AdminLabel2.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.AdminLabel2.ForeColor = System.Drawing.Color.White
Me.AdminLabel2.Location = New System.Drawing.Point(175, 86)
Me.AdminLabel2.Margin = New System.Windows.Forms.Padding(4, 0, 4,
0)
Me.AdminLabel2.Name = "AdminLabel2"
Me.AdminLabel2.Size = New System.Drawing.Size(79, 19)
Me.AdminLabel2.TabIndex = 16
Me.AdminLabel2.Text = "Password :"
'
'AdminLabel1
'
Me.AdminLabel1.AutoSize = True
Me.AdminLabel1.BackColor = System.Drawing.Color.Transparent
Me.AdminLabel1.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
24
Byte))
Me.AdminLabel1.ForeColor = System.Drawing.Color.White
Me.AdminLabel1.Location = New System.Drawing.Point(175, 34)
Me.AdminLabel1.Margin = New System.Windows.Forms.Padding(4, 0, 4,
0)
Me.AdminLabel1.Name = "AdminLabel1"
Me.AdminLabel1.Size = New System.Drawing.Size(89, 19)
Me.AdminLabel1.TabIndex = 15
Me.AdminLabel1.Text = "User Name :"
'
'CmdAdminLogin
'
Me.CmdAdminLogin.Font = New System.Drawing.Font("Palatino
Linotype", 9.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CmdAdminLogin.ForeColor = System.Drawing.Color.Black
Me.CmdAdminLogin.Image =
CType(resources.GetObject("CmdAdminLogin.Image"), System.Drawing.Image)
Me.CmdAdminLogin.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Byte))
Me.AdminLabel1.ForeColor = System.Drawing.Color.White
Me.AdminLabel1.Location = New System.Drawing.Point(175, 34)
Me.AdminLabel1.Margin = New System.Windows.Forms.Padding(4, 0, 4,
0)
Me.AdminLabel1.Name = "AdminLabel1"
Me.AdminLabel1.Size = New System.Drawing.Size(89, 19)
Me.AdminLabel1.TabIndex = 15
Me.AdminLabel1.Text = "User Name :"
'
'CmdAdminLogin
'
Me.CmdAdminLogin.Font = New System.Drawing.Font("Palatino
Linotype", 9.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CmdAdminLogin.ForeColor = System.Drawing.Color.Black
Me.CmdAdminLogin.Image =
CType(resources.GetObject("CmdAdminLogin.Image"), System.Drawing.Image)
Me.CmdAdminLogin.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
You're viewing a preview
Unlock full access by subscribing today!
25
Me.CmdAdminLogin.Location = New System.Drawing.Point(176, 152)
Me.CmdAdminLogin.Margin = New System.Windows.Forms.Padding(4)
Me.CmdAdminLogin.Name = "CmdAdminLogin"
Me.CmdAdminLogin.Size = New System.Drawing.Size(97, 40)
Me.CmdAdminLogin.TabIndex = 2
Me.CmdAdminLogin.Text = " &Login"
Me.CmdAdminLogin.UseVisualStyleBackColor = True
'
'TxtAdminPassword
'
Me.TxtAdminPassword.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.TxtAdminPassword.Location = New System.Drawing.Point(176, 108)
Me.TxtAdminPassword.Margin = New System.Windows.Forms.Padding(4)
Me.TxtAdminPassword.Name = "TxtAdminPassword"
Me.TxtAdminPassword.PasswordChar =
Global.Microsoft.VisualBasic.ChrW(42)
Me.TxtAdminPassword.Size = New System.Drawing.Size(200, 23)
Me.CmdAdminLogin.Location = New System.Drawing.Point(176, 152)
Me.CmdAdminLogin.Margin = New System.Windows.Forms.Padding(4)
Me.CmdAdminLogin.Name = "CmdAdminLogin"
Me.CmdAdminLogin.Size = New System.Drawing.Size(97, 40)
Me.CmdAdminLogin.TabIndex = 2
Me.CmdAdminLogin.Text = " &Login"
Me.CmdAdminLogin.UseVisualStyleBackColor = True
'
'TxtAdminPassword
'
Me.TxtAdminPassword.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.TxtAdminPassword.Location = New System.Drawing.Point(176, 108)
Me.TxtAdminPassword.Margin = New System.Windows.Forms.Padding(4)
Me.TxtAdminPassword.Name = "TxtAdminPassword"
Me.TxtAdminPassword.PasswordChar =
Global.Microsoft.VisualBasic.ChrW(42)
Me.TxtAdminPassword.Size = New System.Drawing.Size(200, 23)
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
26
Me.TxtAdminPassword.TabIndex = 1
Me.TxtAdminPassword.Text = "Admin"
'
'TxtAdminUserName
'
Me.TxtAdminUserName.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.TxtAdminUserName.Location = New System.Drawing.Point(176, 55)
Me.TxtAdminUserName.Margin = New
System.Windows.Forms.Padding(4)
Me.TxtAdminUserName.Name = "TxtAdminUserName"
Me.TxtAdminUserName.Size = New System.Drawing.Size(200, 23)
Me.TxtAdminUserName.TabIndex = 0
Me.TxtAdminUserName.Text = "Admin"
'
'TabPage2
'
Me.TabPage2.BackColor = System.Drawing.Color.DarkGray
Me.TxtAdminPassword.TabIndex = 1
Me.TxtAdminPassword.Text = "Admin"
'
'TxtAdminUserName
'
Me.TxtAdminUserName.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.TxtAdminUserName.Location = New System.Drawing.Point(176, 55)
Me.TxtAdminUserName.Margin = New
System.Windows.Forms.Padding(4)
Me.TxtAdminUserName.Name = "TxtAdminUserName"
Me.TxtAdminUserName.Size = New System.Drawing.Size(200, 23)
Me.TxtAdminUserName.TabIndex = 0
Me.TxtAdminUserName.Text = "Admin"
'
'TabPage2
'
Me.TabPage2.BackColor = System.Drawing.Color.DarkGray
27
Me.TabPage2.Controls.Add(Me.GroupBox1)
Me.TabPage2.Location = New System.Drawing.Point(4, 27)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(412, 221)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = " User"
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.DarkGray
Me.GroupBox1.Controls.Add(Me.CBformState)
Me.GroupBox1.Controls.Add(Me.LblAttempt)
Me.GroupBox1.Controls.Add(Me.PictLoad)
Me.GroupBox1.Controls.Add(Me.PictureBox2)
Me.GroupBox1.Controls.Add(Me.CmdCancel)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.CmdLogin)
Me.TabPage2.Controls.Add(Me.GroupBox1)
Me.TabPage2.Location = New System.Drawing.Point(4, 27)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(412, 221)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = " User"
'
'GroupBox1
'
Me.GroupBox1.BackColor = System.Drawing.Color.DarkGray
Me.GroupBox1.Controls.Add(Me.CBformState)
Me.GroupBox1.Controls.Add(Me.LblAttempt)
Me.GroupBox1.Controls.Add(Me.PictLoad)
Me.GroupBox1.Controls.Add(Me.PictureBox2)
Me.GroupBox1.Controls.Add(Me.CmdCancel)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.CmdLogin)
You're viewing a preview
Unlock full access by subscribing today!
28
Me.GroupBox1.Controls.Add(Me.txtPassword)
Me.GroupBox1.Controls.Add(Me.txtUserName)
Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.GroupBox1.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.GroupBox1.ForeColor = System.Drawing.Color.White
Me.GroupBox1.Location = New System.Drawing.Point(7, -1)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Size = New System.Drawing.Size(398, 214)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
'
'CBformState
'
Me.CBformState.FormattingEnabled = True
Me.CBformState.Items.AddRange(New Object() {"Admin", "User"})
Me.GroupBox1.Controls.Add(Me.txtPassword)
Me.GroupBox1.Controls.Add(Me.txtUserName)
Me.GroupBox1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.GroupBox1.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.GroupBox1.ForeColor = System.Drawing.Color.White
Me.GroupBox1.Location = New System.Drawing.Point(7, -1)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Size = New System.Drawing.Size(398, 214)
Me.GroupBox1.TabIndex = 0
Me.GroupBox1.TabStop = False
'
'CBformState
'
Me.CBformState.FormattingEnabled = True
Me.CBformState.Items.AddRange(New Object() {"Admin", "User"})
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
29
Me.CBformState.Location = New System.Drawing.Point(73, 181)
Me.CBformState.Name = "CBformState"
Me.CBformState.Size = New System.Drawing.Size(86, 23)
Me.CBformState.TabIndex = 2
Me.CBformState.Visible = False
'
'LblAttempt
'
Me.LblAttempt.AutoSize = True
Me.LblAttempt.BackColor = System.Drawing.Color.Transparent
Me.LblAttempt.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.LblAttempt.ForeColor = System.Drawing.Color.White
Me.LblAttempt.Location = New System.Drawing.Point(27, 176)
Me.LblAttempt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.LblAttempt.Name = "LblAttempt"
Me.LblAttempt.Size = New System.Drawing.Size(0, 19)
Me.LblAttempt.TabIndex = 90
Me.CBformState.Location = New System.Drawing.Point(73, 181)
Me.CBformState.Name = "CBformState"
Me.CBformState.Size = New System.Drawing.Size(86, 23)
Me.CBformState.TabIndex = 2
Me.CBformState.Visible = False
'
'LblAttempt
'
Me.LblAttempt.AutoSize = True
Me.LblAttempt.BackColor = System.Drawing.Color.Transparent
Me.LblAttempt.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.LblAttempt.ForeColor = System.Drawing.Color.White
Me.LblAttempt.Location = New System.Drawing.Point(27, 176)
Me.LblAttempt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.LblAttempt.Name = "LblAttempt"
Me.LblAttempt.Size = New System.Drawing.Size(0, 19)
Me.LblAttempt.TabIndex = 90
30
Me.LblAttempt.Visible = False
'
'PictLoad
'
Me.PictLoad.Image = CType(resources.GetObject("PictLoad.Image"),
System.Drawing.Image)
Me.PictLoad.Location = New System.Drawing.Point(149, 57)
Me.PictLoad.Name = "PictLoad"
Me.PictLoad.Size = New System.Drawing.Size(100, 100)
Me.PictLoad.SizeMode =
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictLoad.TabIndex = 89
Me.PictLoad.TabStop = False
Me.PictLoad.Visible = False
'
'PictureBox2
'
Me.PictureBox2.Image =
CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
Me.LblAttempt.Visible = False
'
'PictLoad
'
Me.PictLoad.Image = CType(resources.GetObject("PictLoad.Image"),
System.Drawing.Image)
Me.PictLoad.Location = New System.Drawing.Point(149, 57)
Me.PictLoad.Name = "PictLoad"
Me.PictLoad.Size = New System.Drawing.Size(100, 100)
Me.PictLoad.SizeMode =
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictLoad.TabIndex = 89
Me.PictLoad.TabStop = False
Me.PictLoad.Visible = False
'
'PictureBox2
'
Me.PictureBox2.Image =
CType(resources.GetObject("PictureBox2.Image"), System.Drawing.Image)
You're viewing a preview
Unlock full access by subscribing today!
31
Me.PictureBox2.Location = New System.Drawing.Point(17, 39)
Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(128, 128)
Me.PictureBox2.SizeMode =
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 18
Me.PictureBox2.TabStop = False
'
'CmdCancel
'
Me.CmdCancel.Font = New System.Drawing.Font("Palatino Linotype",
9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))
Me.CmdCancel.ForeColor = System.Drawing.SystemColors.WindowText
Me.CmdCancel.Image = CType(resources.GetObject("CmdCancel.Image"),
System.Drawing.Image)
Me.CmdCancel.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.CmdCancel.Location = New System.Drawing.Point(276, 151)
Me.PictureBox2.Location = New System.Drawing.Point(17, 39)
Me.PictureBox2.Margin = New System.Windows.Forms.Padding(4)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(128, 128)
Me.PictureBox2.SizeMode =
System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 18
Me.PictureBox2.TabStop = False
'
'CmdCancel
'
Me.CmdCancel.Font = New System.Drawing.Font("Palatino Linotype",
9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point,
CType(0, Byte))
Me.CmdCancel.ForeColor = System.Drawing.SystemColors.WindowText
Me.CmdCancel.Image = CType(resources.GetObject("CmdCancel.Image"),
System.Drawing.Image)
Me.CmdCancel.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.CmdCancel.Location = New System.Drawing.Point(276, 151)
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
32
Me.CmdCancel.Margin = New System.Windows.Forms.Padding(4)
Me.CmdCancel.Name = "CmdCancel"
Me.CmdCancel.Size = New System.Drawing.Size(97, 40)
Me.CmdCancel.TabIndex = 3
Me.CmdCancel.Text = " &Cancel"
Me.CmdCancel.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(174, 85)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(79, 19)
Me.CmdCancel.Margin = New System.Windows.Forms.Padding(4)
Me.CmdCancel.Name = "CmdCancel"
Me.CmdCancel.Size = New System.Drawing.Size(97, 40)
Me.CmdCancel.TabIndex = 3
Me.CmdCancel.Text = " &Cancel"
Me.CmdCancel.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.Transparent
Me.Label2.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(174, 85)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(79, 19)
33
Me.Label2.TabIndex = 16
Me.Label2.Text = "Password :"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(174, 33)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(89, 19)
Me.Label1.TabIndex = 15
Me.Label1.Text = "User Name :"
'
'CmdLogin
Me.Label2.TabIndex = 16
Me.Label2.Text = "Password :"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Font = New System.Drawing.Font("Calibri", 12.0!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(174, 33)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(89, 19)
Me.Label1.TabIndex = 15
Me.Label1.Text = "User Name :"
'
'CmdLogin
You're viewing a preview
Unlock full access by subscribing today!
34
'
Me.CmdLogin.Font = New System.Drawing.Font("Palatino Linotype", 9.0!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.CmdLogin.ForeColor = System.Drawing.Color.Black
Me.CmdLogin.Image = CType(resources.GetObject("CmdLogin.Image"),
System.Drawing.Image)
Me.CmdLogin.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.CmdLogin.Location = New System.Drawing.Point(175, 151)
Me.CmdLogin.Margin = New System.Windows.Forms.Padding(4)
Me.CmdLogin.Name = "CmdLogin"
Me.CmdLogin.Size = New System.Drawing.Size(97, 40)
Me.CmdLogin.TabIndex = 2
Me.CmdLogin.Text = " &Login"
Me.CmdLogin.UseVisualStyleBackColor = True
'
'txtPassword
'
Me.txtPassword.Font = New System.Drawing.Font("Calibri", 9.75!,
'
Me.CmdLogin.Font = New System.Drawing.Font("Palatino Linotype", 9.0!,
System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.CmdLogin.ForeColor = System.Drawing.Color.Black
Me.CmdLogin.Image = CType(resources.GetObject("CmdLogin.Image"),
System.Drawing.Image)
Me.CmdLogin.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.CmdLogin.Location = New System.Drawing.Point(175, 151)
Me.CmdLogin.Margin = New System.Windows.Forms.Padding(4)
Me.CmdLogin.Name = "CmdLogin"
Me.CmdLogin.Size = New System.Drawing.Size(97, 40)
Me.CmdLogin.TabIndex = 2
Me.CmdLogin.Text = " &Login"
Me.CmdLogin.UseVisualStyleBackColor = True
'
'txtPassword
'
Me.txtPassword.Font = New System.Drawing.Font("Calibri", 9.75!,
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
35
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.txtPassword.Location = New System.Drawing.Point(175, 107)
Me.txtPassword.Margin = New System.Windows.Forms.Padding(4)
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(200, 23)
Me.txtPassword.TabIndex = 1
Me.txtPassword.Text = "123"
'
'txtUserName
'
Me.txtUserName.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.txtUserName.Location = New System.Drawing.Point(175, 54)
Me.txtUserName.Margin = New System.Windows.Forms.Padding(4)
Me.txtUserName.Name = "txtUserName"
Me.txtUserName.Size = New System.Drawing.Size(200, 23)
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.txtPassword.Location = New System.Drawing.Point(175, 107)
Me.txtPassword.Margin = New System.Windows.Forms.Padding(4)
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(200, 23)
Me.txtPassword.TabIndex = 1
Me.txtPassword.Text = "123"
'
'txtUserName
'
Me.txtUserName.Font = New System.Drawing.Font("Calibri", 9.75!,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.txtUserName.Location = New System.Drawing.Point(175, 54)
Me.txtUserName.Margin = New System.Windows.Forms.Padding(4)
Me.txtUserName.Name = "txtUserName"
Me.txtUserName.Size = New System.Drawing.Size(200, 23)
36
Me.txtUserName.TabIndex = 0
Me.txtUserName.Text = "123"
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'Timer2
'
Me.Timer2.Interval = 2000
'
'FrmLogin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 18.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(410, 246)
Me.Controls.Add(Me.TabControl1)
Me.Font = New System.Drawing.Font("Calibri", 11.25!,
Me.txtUserName.TabIndex = 0
Me.txtUserName.Text = "123"
'
'Timer1
'
Me.Timer1.Interval = 2000
'
'Timer2
'
Me.Timer2.Interval = 2000
'
'FrmLogin
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 18.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(410, 246)
Me.Controls.Add(Me.TabControl1)
Me.Font = New System.Drawing.Font("Calibri", 11.25!,
You're viewing a preview
Unlock full access by subscribing today!
37
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.FormBorderStyle =
System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Margin = New System.Windows.Forms.Padding(4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FrmLogin"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Login Form :"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.AdminPictLoad,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AdminPictureBox2,
System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,
Byte))
Me.FormBorderStyle =
System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Margin = New System.Windows.Forms.Padding(4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "FrmLogin"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Login Form :"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.AdminPictLoad,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AdminPictureBox2,
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
38
System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictLoad, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents CmdCancel As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CmdLogin As System.Windows.Forms.Button
System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.PictLoad, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents PictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents CmdCancel As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents CmdLogin As System.Windows.Forms.Button
39
Friend WithEvents txtPassword As System.Windows.Forms.TextBox
Friend WithEvents txtUserName As System.Windows.Forms.TextBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents AdminPictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents CmdAdmincancel As System.Windows.Forms.Button
Friend WithEvents AdminLabel2 As System.Windows.Forms.Label
Friend WithEvents AdminLabel1 As System.Windows.Forms.Label
Friend WithEvents CmdAdminLogin As System.Windows.Forms.Button
Friend WithEvents TxtAdminPassword As System.Windows.Forms.TextBox
Friend WithEvents TxtAdminUserName As System.Windows.Forms.TextBox
Friend WithEvents PictLoad As System.Windows.Forms.PictureBox
Friend WithEvents AdminPictLoad As System.Windows.Forms.PictureBox
Friend WithEvents Timer2 As System.Windows.Forms.Timer
Friend WithEvents LblAttempt As System.Windows.Forms.Label
Public WithEvents CBformState As System.Windows.Forms.ComboBox
End Class
Friend WithEvents txtPassword As System.Windows.Forms.TextBox
Friend WithEvents txtUserName As System.Windows.Forms.TextBox
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents AdminPictureBox2 As System.Windows.Forms.PictureBox
Friend WithEvents CmdAdmincancel As System.Windows.Forms.Button
Friend WithEvents AdminLabel2 As System.Windows.Forms.Label
Friend WithEvents AdminLabel1 As System.Windows.Forms.Label
Friend WithEvents CmdAdminLogin As System.Windows.Forms.Button
Friend WithEvents TxtAdminPassword As System.Windows.Forms.TextBox
Friend WithEvents TxtAdminUserName As System.Windows.Forms.TextBox
Friend WithEvents PictLoad As System.Windows.Forms.PictureBox
Friend WithEvents AdminPictLoad As System.Windows.Forms.PictureBox
Friend WithEvents Timer2 As System.Windows.Forms.Timer
Friend WithEvents LblAttempt As System.Windows.Forms.Label
Public WithEvents CBformState As System.Windows.Forms.ComboBox
End Class
You're viewing a preview
Unlock full access by subscribing today!
40
System testing report
The initial tests made on visual studio for the Inventory Management System
shows that the system we came up with can perfectly be implemented I a standard
business that has invested in stock and does the buying and selling of the same. This
system can be installed on windows desktop computers and data can be shared over a
network. After performing the integration testing, next is the output testing of the
proposed system. The system cannot be useful if it does not produce required output.
The output displayed by the system under consideration will be compared with the
user needs. Here the output format is considered in two ways, screen format and
printed format. The output format on the screen is found to be correct as the
format was defined in the design phase according to user needs. As for the
hard-copy the output comes according to the specification requested by the
user. Here the output testing does not result in any correction in the system.
Thus we have successfully done output testing.
4. Conclusion and Justification
Having an Inventory management system is a great move for any business in
order to keep track of all business operations and most importantly keep the records
for future reference. This desktop IMS allows for data exports in excel and this can
for sure help in making future distributed backups in order to avoid data loss just in
case of a catastrophe or just in case of data corruption or theft
Recommendation and future implementation
It will be of great importance to invest more on security and make sure this
system is able to automatically make data backups without being monitored by the
System testing report
The initial tests made on visual studio for the Inventory Management System
shows that the system we came up with can perfectly be implemented I a standard
business that has invested in stock and does the buying and selling of the same. This
system can be installed on windows desktop computers and data can be shared over a
network. After performing the integration testing, next is the output testing of the
proposed system. The system cannot be useful if it does not produce required output.
The output displayed by the system under consideration will be compared with the
user needs. Here the output format is considered in two ways, screen format and
printed format. The output format on the screen is found to be correct as the
format was defined in the design phase according to user needs. As for the
hard-copy the output comes according to the specification requested by the
user. Here the output testing does not result in any correction in the system.
Thus we have successfully done output testing.
4. Conclusion and Justification
Having an Inventory management system is a great move for any business in
order to keep track of all business operations and most importantly keep the records
for future reference. This desktop IMS allows for data exports in excel and this can
for sure help in making future distributed backups in order to avoid data loss just in
case of a catastrophe or just in case of data corruption or theft
Recommendation and future implementation
It will be of great importance to invest more on security and make sure this
system is able to automatically make data backups without being monitored by the
Paraphrase This Document
Need a fresh take? Get an instant paraphrase of this document with our AI Paraphraser
41
system admin. This together with uploading the same system to Microsoft App store
will make this available to other parties all around the world to test and make use of
this inventory management system (Perry & Yoon, 2016).
References
Coffman, D. J., Vanderveen, T. W., Lee, B. A., & Schlotterbeck, D. L. (2017). U.S. Patent
No. 9,600,633. Washington, DC: U.S. Patent and Trademark Office.
Laudon, K. C., & Laudon, J. P. (2016). Management information system. Pearson
Education India.
Mehta, S., Puranik, P., & Sharma, S. (2016). A Review on Inventory
Management System for Improving Efficiency of Project Development Cycle.
Perry, J., & Yoon, D. (2016, January). Personal File Backup in Cloud.
In Proceedings of the International Conference on e-Learning, e-Business, Enterprise
Information Systems, and e-Government (EEE) (p. 163). The Steering Committee of
The World Congress in Computer Science, Computer Engineering and Applied
Computing (WorldComp).
Zelm, M., Jaekel, F. W., Doumeingts, G., & Wollschlaeger, M. (Eds.).
(2018). Enterprise Interoperability: Smart Services and Business Impact of Enterprise
Interoperability. John Wiley & Sons.
system admin. This together with uploading the same system to Microsoft App store
will make this available to other parties all around the world to test and make use of
this inventory management system (Perry & Yoon, 2016).
References
Coffman, D. J., Vanderveen, T. W., Lee, B. A., & Schlotterbeck, D. L. (2017). U.S. Patent
No. 9,600,633. Washington, DC: U.S. Patent and Trademark Office.
Laudon, K. C., & Laudon, J. P. (2016). Management information system. Pearson
Education India.
Mehta, S., Puranik, P., & Sharma, S. (2016). A Review on Inventory
Management System for Improving Efficiency of Project Development Cycle.
Perry, J., & Yoon, D. (2016, January). Personal File Backup in Cloud.
In Proceedings of the International Conference on e-Learning, e-Business, Enterprise
Information Systems, and e-Government (EEE) (p. 163). The Steering Committee of
The World Congress in Computer Science, Computer Engineering and Applied
Computing (WorldComp).
Zelm, M., Jaekel, F. W., Doumeingts, G., & Wollschlaeger, M. (Eds.).
(2018). Enterprise Interoperability: Smart Services and Business Impact of Enterprise
Interoperability. John Wiley & Sons.
42
You're viewing a preview
Unlock full access by subscribing today!
1 out of 42
Related Documents
Your All-in-One AI-Powered Toolkit for Academic Success.
+13062052269
info@desklib.com
Available 24*7 on WhatsApp / Email
![[object Object]](/_next/static/media/star-bottom.7253800d.svg)
Unlock your academic potential
© 2024 | Zucol Services PVT LTD | All rights reserved.