DBMS Project Report PDF

Preview

Summary

Report on stock market management system with e-r diagram...

Description

ADVANCE DATABASE MANGEMENT SYSTEM PROJECT FOR

STOCK MARKET

TABLE OF CONTENTS

SR. NO.

TOPIC

1

PROBLEM STATMENT

2

ER DIAGRAM

3

RELATIONAL DAIGRAM

4

SNAPSHOT & CODE

5

BACK END CODE

PROBLEM STATMENT Most major corporations are publicly owned. Companies offer shares of ownership called stock. The price of stock changes by the minute depending on the value investors place on the stock. Corporations sell stock to raise money and grow the business. A share is a single unit of ownership in a corporation. A shareholder, also known as a stockholder, is a person who owns shares of a certain company or organization, and is thus a part-owner of the company. If there are a million shares and you own 1000, you own 0.001 of the company. As owners, the holders are entitled to elect the directors of the corporation and vote on major issues. These votes typically take place at the corporation’s annual meeting, which shareholders are invited to attend. In the fascinating world of stock market millions of transactions take place at every second. The aim of this project is to maintain a database system consisting of the information about the current state of stock market. Every company has its name, industry to which it belongs, total number of shares it holds and current price of its shares. Every user (shareholder) has its name and unique id. Also different currencies and commodities are specified with their current prices.

RELATIONAL SCHEMA

Imports System.Data.SqlClient Public Class market Dim myconn As SqlConnection Dim mycom As SqlCommand Dim mycom1 As SqlCommand Dim da As SqlDataAdapter Dim ds As DataSet Dim dt As DataTable Dim db As BindingSource Dim sb As SqlCommandBuilder Private Sub market_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open() mycom1 = New SqlCommand("update company set diff=curr_price-old_price", myconn) mycom1.ExecuteNonQuery() mycom = New SqlCommand("select * from comp", myconn) da = New SqlDataAdapter("select * from comp", "Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") sb = New SqlCommandBuilder(da) dt = New DataTable da.Fill(dt) db.DataSource = dt market1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader) market1.ReadOnly = True market1.DataSource = db Catch ex As Exception End Try market1.AutoGenerateColumns = False

market1.ReadOnly = True market1.Columns.AddRange(New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn()) market1.Columns(0).DataPropertyName = "comp_name" market1.Columns(0).ReadOnly = True market1.Columns(0).Name = "NAME" market1.Columns(1).DataPropertyName = "industry" market1.Columns(1).ReadOnly = True market1.Columns(1).Name = "INDUSTRY" market1.Columns(2).DataPropertyName = "avail_shares" market1.Columns(2).ReadOnly = True market1.Columns(2).Name = "AVAILABLE SHARES" market1.Columns(3).DataPropertyName = "curr_price" market1.Columns(3).ReadOnly = True market1.Columns(3).Name = "CUURENT PRICE" market1.Columns(4).DataPropertyName = "diff" market1.Columns(4).ReadOnly = True market1.Columns(4).Name = "DIFFERENCE" market1.DataSource = dt myconn.Close()

End Sub

Private Sub HOMEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HOMEToolStripMenuItem.Click Me.Hide() home.Show() End Sub Private Sub COMMODITYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COMMODITYToolStripMenuItem.Click Me.Hide() commodities.Show() End Sub Private Sub CURRENCYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CURRENCYToolStripMenuItem.Click Me.Hide() currencies.Show() End Sub Private Sub MEMBERLOGINToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEMBERLOGINToolStripMenuItem.Click Me.Hide() memlogin.Show() End Sub

Private Sub MARKETToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MARKETToolStripMenuItem.Click End Sub

Private Sub market1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles market1.CellContentClick End Sub End Class

Imports System.Data.SqlClient Public Class commodities Dim myconn As SqlConnection Dim mycom As SqlCommand

Dim da As SqlDataAdapter Dim ds As DataSet Dim mycom1 As SqlCommand Dim dt As DataTable Dim db As BindingSource Dim sb As SqlCommandBuilder Private Sub HOMEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HOMEToolStripMenuItem.Click Me.Hide() home.Show() End Sub Private Sub MARKETToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MARKETToolStripMenuItem.Click Me.Hide() market.Show() End Sub Private Sub COMMODITYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COMMODITYToolStripMenuItem.Click

End Sub Private Sub CURRENCYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CURRENCYToolStripMenuItem.Click Me.Hide() currencies.Show() End Sub Private Sub MEMBERLOGINToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEMBERLOGINToolStripMenuItem.Click Me.Hide() memlogin.Show() End Sub Private Sub commodities_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open() mycom1 = New SqlCommand("update commodity set diff=cmprice-oprice", myconn) mycom1.ExecuteNonQuery() mycom = New SqlCommand("select * from commodity", myconn) da = New SqlDataAdapter("select * from commodity", "Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") sb = New SqlCommandBuilder(da) dt = New DataTable da.Fill(dt) db.DataSource = dt

commodities1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader) commodities1.ReadOnly = True commodities1.DataSource = db Catch ex As Exception End Try commodities1.AutoGenerateColumns = False commodities1.ReadOnly = True commodities1.Columns.AddRange(New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn()) commodities1.Columns(0).DataPropertyName = "cmname" commodities1.Columns(0).ReadOnly = True commodities1.Columns(0).Name = "NAME " commodities1.Columns(1).DataPropertyName = "cmprice" commodities1.Columns(1).ReadOnly = True commodities1.Columns(1).Name = "PRICE" commodities1.Columns(2).DataPropertyName = "diff" commodities1.Columns(2).ReadOnly = True commodities1.Columns(2).Name = "DIFFERENCE" commodities1.Columns(3).DataPropertyName = "unit" commodities1.Columns(3).ReadOnly = True commodities1.Columns(3).Name = "UNIT" commodities1.DataSource = dt myconn.Close() End Sub End Class

Imports System.Data.SqlClient Public Class currencies Dim myconn As SqlConnection Dim mycom As SqlCommand Dim mycom1 As SqlCommand

Dim Dim Dim Dim Dim

da ds dt db sb

As As As As As

SqlDataAdapter DataSet DataTable BindingSource SqlCommandBuilder

Private Sub currencies_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open() mycom1 = New SqlCommand("update currency set diff=cprice-oprice", myconn) mycom1.ExecuteNonQuery() mycom = New SqlCommand("select * from currency", myconn) da = New SqlDataAdapter("select * from currency", "Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") sb = New SqlCommandBuilder(da) dt = New DataTable da.Fill(dt) db.DataSource = dt

currencies1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader) currencies1.ReadOnly = True currencies1.DataSource = db Catch ex As Exception End Try currencies1.AutoGenerateColumns = False currencies1.ReadOnly = True currencies1.Columns.AddRange(New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn()) currencies1.Columns(0).DataPropertyName = "cname" currencies1.Columns(0).ReadOnly = True currencies1.Columns(0).Name = "NAME" currencies1.Columns(1).DataPropertyName = "cprice" currencies1.Columns(1).ReadOnly = True currencies1.Columns(1).Name = "PRICE" currencies1.Columns(2).DataPropertyName = "diff" currencies1.Columns(2).ReadOnly = True currencies1.Columns(2).Name = "DIFFERENCE" currencies1.DataSource = dt myconn.Close() End Sub Private Sub HOMEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HOMEToolStripMenuItem.Click

Me.Hide() home.Show() End Sub Private Sub MARKETToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MARKETToolStripMenuItem.Click Me.Hide() market.Show() End Sub Private Sub COMMODITYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COMMODITYToolStripMenuItem.Click Me.Hide() commodities.Show() End Sub Private Sub MEMBERLOGINToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MEMBERLOGINToolStripMenuItem.Click Me.Hide() memlogin.Show() End Sub Private Sub CURRENCYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CURRENCYToolStripMenuItem.Click End Sub End Class

Imports System.Data.SqlClient Public Class memlogin Dim myconn As SqlConnection Dim mycom As SqlCommand

Dim dr As SqlDataReader Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() add_acc.Show() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Try myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open() mycom = New SqlCommand("select * from member where mname='" & TextBox1.Text & "' and pass='" & TextBox2.Text & "'", myconn) dr = mycom.ExecuteReader() If (dr.Read) Then Me.Hide() memdata.Show() Else MsgBox("INVALID USER CREDENTIALS") End If dr.Close() myconn.Close() Catch ex As Exception End Try

End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() home.Show() End Sub End Class

Imports System.Data.SqlClient Public Class memdata Dim myconn As SqlConnection Dim mycom As SqlCommand Dim mycom1 As SqlCommand Dim mycom2 As SqlCommand Dim mycom3 As SqlCommand Dim mycom4 As SqlCommand Dim mycom5 As SqlCommand Dim mycom6 As SqlCommand Dim mycom7 As SqlCommand Dim dr As SqlDataReader Dim user As String Dim da As SqlDataAdapter Dim ds As DataSet Dim dt As DataTable Dim db As BindingSource Dim sb As SqlCommandBuilder Private Sub HOMEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HOMEToolStripMenuItem.Click Me.Hide() home.Show() End Sub

Private Sub MARKETToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MARKETToolStripMenuItem.Click Me.Hide() market.Show() End Sub Private Sub COMMODITYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles COMMODITYToolStripMenuItem.Click Me.Hide() commodities.Show() End Sub Private Sub CURRENCYToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CURRENCYToolStripMenuItem.Click Me.Hide() currencies.Show() End Sub Private Sub SWITCHUSERToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SWITCHUSERToolStripMenuItem.Click Me.Hide() memlogin.Show() End Sub Private Sub LOGOUTToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LOGOUTToolStripMenuItem.Click Me.Hide() home.Show() End Sub Private Sub buy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buy1.Click Me.Hide() buy.Show() End Sub Private Sub sell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sell1.Click Me.Hide() sell.Show() End Sub

Private Sub memdata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load user = memlogin.TextBox1.Text username.Text = user Try Me.Refresh() myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open()

mycom1 = New SqlCommand("update member_currency set gain=cpriceinvest_amt", myconn) mycom1.ExecuteNonQuery() mycom2 = New SqlCommand("update member_currency set tgain=gain*quantity", myconn) mycom2.ExecuteNonQuery() gain=cmpricemycom3 = New SqlCommand("update member_commodity set invest_amt", myconn) mycom3.ExecuteNonQuery() mycom4 = New SqlCommand("update member_commodity set tgain=gain*quantity", myconn) mycom4.ExecuteNonQuery() gain=curr_price-invest_amt", mycom5 = New SqlCommand("update shares set myconn) mycom5.ExecuteNonQuery() mycom6 = New SqlCommand("update shares set tgain=gain*quantity", myconn) mycom6.ExecuteNonQuery() mycom7 = New SqlCommand("select balance from member where mname='" & user & "'", myconn) dr = mycom7.ExecuteReader() If (dr.Read) Then balance.Text = dr.Item("balance") End If dr.Close() myconn.Close() Catch ex As Exception End Try Try myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open() mycom = New SqlCommand("select * from shares where mid in (select mid from member where mname='" & user & "')", myconn) da = New SqlDataAdapter("select * from shares where mid in (select mid from member where mname='" & user & "')", "Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") sb = New SqlCommandBuilder(da) dt = New DataTable da.Fill(dt) db.DataSource = dt

dg1.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader) dg1.ReadOnly = True dg1.DataSource = db Catch ex As Exception End Try dg1.AutoGenerateColumns = False dg1.ReadOnly = True dg1.Columns.AddRange(New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn()) dg1.Columns(0).DataPropertyName = "comp_name"

dg1.Columns(0).ReadOnly = True dg1.Columns(0).Name = "COMPANY NAME" dg1.Columns(1).DataPropertyName = "curr_price" dg1.Columns(1).ReadOnly = True dg1.Columns(1).Name = " CURRENT PRICE" dg1.Columns(2).DataPropertyName = "invest_amt" dg1.Columns(2).ReadOnly = True dg1.Columns(2).Name = "INVEST AMOUNT" dg1.Columns(3).DataPropertyName = "quantity" dg1.Columns(3).ReadOnly = True dg1.Columns(3).Name = "QUANTITY" dg1.Columns(4).DataPropertyName = "gain" dg1.Columns(4).ReadOnly = True dg1.Columns(4).Name = "GAIN" dg1.Columns(5).DataPropertyName = "tgain" dg1.Columns(5).ReadOnly = True dg1.Columns(5).Name = "TOTAL GAIN" dg1.DataSource = dt myconn.Close() Try myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open() mycom = New SqlCommand("select * from member_currency where mid in (select mid from member where mname='" & user & "')", myconn) da = New SqlDataAdapter("select * from member_currency where mid in (select mid from member where mname='" & user & "')", "Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") sb = New SqlCommandBuilder(da) dt = New DataTable da.Fill(dt) db.DataSource = dt Catch ex As Exception End Try dg2.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader) dg2.ReadOnly = True dg2.DataSource = db dg2.AutoGenerateColumns = False dg2.ReadOnly = True dg2.Columns.AddRange(New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn()) dg2.Columns(0).DataPropertyName = "cname" dg2.Columns(0).ReadOnly = True dg2.Columns(0).Name = "CURRENCY NAME"

dg2.Columns(1).DataPropertyName = "cprice" dg2.Columns(1).ReadOnly = True dg2.Columns(1).Name = " CURRENT PRICE" dg2.Columns(2).DataPropertyName = "invest_amt" dg2.Columns(2).ReadOnly = True dg2.Columns(2).Name = "INVEST AMOUNT" dg2.Columns(3).DataPropertyName = "quantity" dg2.Columns(3).ReadOnly = True dg2.Columns(3).Name = "QUANTITY" dg2.Columns(4).DataPropertyName = "gain" dg2.Columns(4).ReadOnly = True dg2.Columns(4).Name = "GAIN" dg2.Columns(5).DataPropertyName = "tgain" dg2.Columns(5).ReadOnly = True dg2.Columns(5).Name = "TOTAL GAIN" dg2.DataSource = dt myconn.Close() Try myconn = New SqlConnection("Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") myconn.Open() mycom = New SqlCommand("select * from member_commodity where mid in (select mid from member where mname='" & user & "')", myconn) da = New SqlDataAdapter("select * from member_commodity where mid in (select mid from member where mname='" & user & "')", "Data Source=.;AttachDbFilename=C:\Program Files (x86)\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\stockmarket.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True") sb = New SqlCommandBuilder(da) dt = New DataTable da.Fill(dt) db.DataSource = dt Catch ex As Exception End Try dg3.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader) dg3.ReadOnly = True dg3.DataSource = db dg3.AutoGenerateColumns = False dg3.ReadOnly = True dg3.Columns.AddRange(New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn(), New DataGridViewTextBoxColumn()) dg3.Columns(0).DataPropertyName = "cmname" dg3.Columns(0).ReadOnly = True dg3.Columns(0).Name = "COMMDITY NAME" dg3.Columns(1).DataPropertyName = "cmprice" dg3.Columns(1).ReadOnly = True

dg3.Columns(1).Name = " CURRENT PRICE" dg3.Columns(2).DataPropertyName = "invest_amt" dg3.Columns(2).ReadOnly = True dg3.Columns(2).Name = "INVEST AMOUNT" dg3.Columns(3).DataPropertyName = "quantity" dg3.Columns(3).ReadOnly = True dg3.Columns(3).Name = "QUANTITY"

dg3.Columns(4).DataPropertyName = "unit" dg3.Columns(4).ReadOnly = True dg3.Columns(4).Name = "UNIT" dg3.Col...