Kodi:
Imports System.Data.OleDb
Imports System.ComponentModel
Public Class Form1
Private Sub cboKodi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboKodi.SelectedIndexChanged
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim sCodi As String = cboKodi.Text
Dim strSQL As String = "SELECT * FROM Hyrjet WHERE Kodi=" + sCodi
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
lblPershkrimi.Text = dr("Pershkrimi")
lblNjm.Text = dr("Njm")
End While
con.Close()
txtCmimi.Text = fute_cmimin_e_shitjes(sCodi)
mbushe_data_grid(dgwInventari, cboKodi.Text)
sasia_ne_inventar()
End Sub
Private Function fute_cmimin_e_shitjes(ByVal sCodi)
Dim bExziston As Boolean = False
bExziston = ekziston_artikulli(sCodi)
Dim s As String = ""
If bExziston = True Then
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String = "SELECT * FROM Artikujt WHERE Kodi=" + cboKodi.Text
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
If Not IsDBNull(dr("CmimiShitjes")) Then
s = dr("CmimiShitjes")
End If
End While
con.Close()
End If
fute_cmimin_e_shitjes = s
End Function
Private Sub mbushe_data_grid(ByRef dgwInventari, ByVal sCodi)
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String = "SELECT * FROM Hyrjet WHERE Kodi=" + sCodi
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
Dim dt = New DataTable()
dt.Columns.Add("Data")
dt.Columns.Add("Kodi")
dt.Columns.Add("Pershkrimi")
dt.Columns.Add("Njm")
dt.Columns.Add("Sasia")
dt.Columns.Add("CmimiFurnizues")
While dr.Read()
dt.Rows.Add(New Object() {dr("Data"), dr("Kodi"), dr("Pershkrimi"), dr("Njm"), dr("Sasia"), dr("CmimiFurnizues")})
End While
dgwInventari.DataSource = dt
dgwInventari.AutoResizeColumns(DataGridViewAutoSizeColumnsMode.AllCells)
If rdFIFO.Checked = True Then
dgwInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Ascending)
Else
dgwInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Descending)
End If
con.Close()
End Sub
Private Sub sasia_ne_inventar()
Dim sasiaDB As Integer = 0
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String = "SELECT * FROM Hyrjet WHERE Kodi=" + cboKodi.Text
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
sasiaDB += Convert.ToInt32(dr("Sasia"))
End While
lblDispo.Text = sasiaDB.ToString() + " " + lblPershkrimi.Text
con.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mbushe_kombon()
mbushe_kombon_artikujt()
rdFIFO.Checked = True
End Sub
Private Sub mbushe_kombon()
cboKodi.Items.Clear()
cmbHKodi.Items.Clear()
cmbHPershkrimi.Items.Clear()
cmbHNjm.Items.Clear()
Dim strKodi = New ArrayList()
Dim strPershkrimi = New ArrayList()
Dim strNjm = New ArrayList()
Try
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String = "SELECT * FROM Hyrjet"
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
Dim ekziston As Boolean = False
Dim ekzistonP As Boolean = False
Dim ekzistonN As Boolean = False
For Each s In strKodi
If dr("Kodi") = s Then
ekziston = True
End If
Next
If ekziston = False Then
strKodi.Add(dr("Kodi"))
End If
For Each s In strPershkrimi
If dr("Pershkrimi") = s Then
ekzistonP = True
End If
Next
If ekzistonP = False Then
strPershkrimi.Add(dr("Pershkrimi"))
End If
For Each s In strNjm
If dr("Njm") = s Then
ekzistonN = True
End If
Next
If ekzistonN = False Then
strNjm.Add(dr("Njm"))
End If
End While
strKodi.Sort()
For Each s In strKodi
cboKodi.Items.Add(s)
cmbHKodi.Items.Add(s)
Next
For Each s In strPershkrimi
cmbHPershkrimi.Items.Add(s)
Next
For Each s In strNjm
cmbHNjm.Items.Add(s)
Next
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub txtSasia_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSasia.TextChanged
Try
If txtCmimi.Text <> "" Then
lblVlera.Text = (Convert.ToDouble(txtSasia.Text) * Convert.ToDouble(txtCmimi.Text)).ToString()
Else
End If
Catch Ex As Exception
txtSasia.Text = ""
End Try
End Sub
Private Sub cmdShite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdShite.Click
Dim malli_ne_disponim As Boolean = False
Dim intSasia As Integer = 0
Dim dCmimiShites As Double = 0
Dim dCmimiFurnizuesMesatar As Double = 0
Dim sCodi As String = cboKodi.Text
If lblPershkrimi.Text <> "" Then
Try
intSasia = Convert.ToInt32(txtSasia.Text)
malli_ne_disponim = verteto_sasine(intSasia)
If malli_ne_disponim = True Then
While intSasia > 0
Dim tmpSasia As Integer = 0
Dim tmpRow As Integer = 0
Dim tmpCmimiFurnizues As Double = 0
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String
If rdFIFO.Checked = True Then
strSQL = "SELECT * FROM Hyrjet WHERE Kodi=" + sCodi + " ORDER BY Data ASC"
Else
strSQL = "SELECT * FROM Hyrjet WHERE Kodi=" + sCodi + " ORDER BY Data DESC"
End If
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
tmpSasia = Convert.ToInt32(dr("Sasia"))
tmpRow = Convert.ToInt32(dr("Id"))
tmpCmimiFurnizues = Convert.ToDouble(dr("CmimiFurnizues"))
Exit While
End While
If (intSasia - tmpSasia) >= 0 Then
dCmimiFurnizuesMesatar += tmpCmimiFurnizues * intSasia
intSasia -= tmpSasia
shlyje_rekordin(tmpRow)
ElseIf (intSasia - tmpSasia) = 0 Then
dCmimiFurnizuesMesatar += tmpCmimiFurnizues * intSasia
shlyje_rekordin(tmpRow)
intSasia -= tmpSasia
ElseIf (intSasia - tmpSasia) < 0 Then
dCmimiFurnizuesMesatar += tmpCmimiFurnizues * intSasia
tmpSasia -= intSasia
intSasia = 0
aktualizo_rekordin(tmpRow, tmpSasia)
End If
con.Close()
mbushe_data_grid(dgwInventari, sCodi)
End While
dCmimiFurnizuesMesatar = dCmimiFurnizuesMesatar / Convert.ToInt32(txtSasia.Text)
fute_shitjen(dCmimiFurnizuesMesatar)
MessageBox.Show("Transaksioni perfundoi" & vbNewLine & "" & vbNewLine & "Keni shitur " + txtSasia.Text + " " + lblPershkrimi.Text)
mbushe_kombon()
Else
sasia_ne_inventar()
MessageBox.Show("Ske " + lblPershkrimi.Text + " sa po do me shite!" & vbNewLine & "I ke " + lblDispo.Text + " " + lblPershkrimi.Text + " e po do me i shite " + txtSasia.Text + " " + lblPershkrimi.Text + ".Tzzz." & vbNewLine & "" & vbNewLine & "Mule shko blej " + lblPershkrimi.Text + " tjera njeri!")
txtSasia.Text = ""
End If
Catch Ex As Exception
txtSasia.Text = ""
MessageBox.Show("Fute sasine/cmimin!")
End Try
Else
MessageBox.Show("Zgjidhe nje mall!")
End If
End Sub
Private Sub fute_shitjen(ByVal dCmimiFurnizuesMesatar)
Dim sCmimi As String = txtCmimi.Text.Replace(".", ",")
Dim sVlera As Double = Convert.ToDouble(txtSasia.Text) * Convert.ToDouble(sCmimi)
Dim sFitimi As Double = sVlera - (dCmimiFurnizuesMesatar * Convert.ToDouble(txtSasia.Text))
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim cmd = New OleDbCommand("INSERT INTO Daljet (Data, Kodi , Pershkrimi, Njm, Sasia, CmimiMesatarFurnizues, CmimiShites, Vlera, Fitimi) VALUES ('" + String.Format("{0:dd.MM.yyyy HH:mm:ss}", DateTime.Now) + "','" + cboKodi.Text + "','" + lblPershkrimi.Text + "','" + lblNjm.Text + "','" + txtSasia.Text + "','" + dCmimiFurnizuesMesatar.ToString() + "','" + sCmimi + "','" + sVlera.ToString() + "','" + sFitimi.ToString() + "')", con)
cmd.ExecuteNonQuery()
con.Close()
End Sub
Private Sub aktualizo_rekordin(ByVal tmpRow, ByVal tmpSasia)
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim cmd = New OleDbCommand("UPDATE Hyrjet SET Sasia =" & tmpSasia & " WHERE Id=" & tmpRow, con)
cmd.ExecuteNonQuery()
con.Close()
sasia_ne_inventar()
End Sub
Private Sub shlyje_rekordin(ByVal tmpRow)
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim cmd = New OleDbCommand("DELETE FROM Hyrjet WHERE ID =" & tmpRow & "", con)
cmd.ExecuteNonQuery()
con.Close()
sasia_ne_inventar()
End Sub
Private Function verteto_sasine(ByVal intSasia) As Boolean
Dim sasiaDB As Integer = 0
Dim x As Boolean = False
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String = "SELECT * FROM Hyrjet WHERE Kodi=" + cboKodi.Text
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
sasiaDB += Convert.ToInt32(dr("Sasia"))
End While
lblDispo.Text = sasiaDB.ToString() + " " + lblPershkrimi.Text
If (sasiaDB >= intSasia) Then
x = True
Else
x = False
End If
con.Close()
verteto_sasine = x
End Function
Private Sub cmdRuaj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRuaj.Click
If cmbHKodi.Text <> "" And cmbHPershkrimi.Text <> "" And cmbHNjm.Text <> "" And txtHSasia.Text <> "" And txtHCmimiFurnizues.Text <> "" Then
Dim sCodi As String = cmbHKodi.Text
Dim sCmimi As String = txtHCmimiFurnizues.Text
sCmimi = sCmimi.Replace(".", ",")
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim cmd = New OleDbCommand("INSERT INTO Hyrjet (Data, Kodi, Pershkrimi, Njm, Sasia, CmimiFurnizues, Vlera) VALUES ('" + String.Format("{0:dd.MM.yyyy HH:mm:ss}", DateTime.Now) + "','" + cmbHKodi.Text + "','" + cmbHPershkrimi.Text + "','" + cmbHNjm.Text + "','" + txtHSasia.Text + "','" + sCmimi.ToString() + "','" + (Convert.ToDouble(txtHSasia.Text) * Convert.ToDouble(sCmimi)).ToString() + "')", con)
cmd.ExecuteNonQuery()
MessageBox.Show(txtHSasia.Text & " " & cmbHPershkrimi.Text & " - u ruajten ne Databaze!")
Dim bExziston As Double = False
bExziston = ekziston_artikulli(sCodi)
Dim cmdX
If bExziston = False Then
cmdX = New OleDbCommand("INSERT INTO Artikujt (Kodi, Pershkrimi, Njm) VALUES ('" + cmbHKodi.Text + "','" + cmbHPershkrimi.Text + "','" + cmbHNjm.Text + "')", con)
cmdX.ExecuteNonQuery()
End If
con.Close()
mbushe_data_grid(dgwHInventari, sCodi)
Else
MessageBox.Show("Nuk i keni futur te gjitha te dhenat!")
End If
End Sub
Private Sub tabDaljet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tabDaljet.Click
mbushe_kombon()
End Sub
Private Sub tabHyrjet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tabHyrjet.Click
mbushe_kombon()
End Sub
Private Sub cmbHKodi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbHKodi.SelectedIndexChanged
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim sCodi As String = cmbHKodi.Text
Dim strSQL As String = "SELECT * FROM Hyrjet WHERE Kodi=" + cmbHKodi.Text
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
cmbHPershkrimi.Text = dr("Pershkrimi")
cmbHNjm.Text = dr("Njm")
End While
con.Close()
mbushe_data_grid(dgwHInventari, sCodi)
End Sub
Private Sub txtCmimi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCmimi.TextChanged
Try
If txtSasia.Text <> "" Then
lblVlera.Text = (Convert.ToDouble(txtSasia.Text) * Convert.ToDouble(txtCmimi.Text)).ToString()
End If
Catch Ex As Exception
txtCmimi.Text = ""
End Try
End Sub
Private Sub rdFIFO_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdFIFO.CheckedChanged
dgwInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Ascending)
'dgwHInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Ascending)
'dgwAInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Ascending)
End Sub
Private Sub rdLIFO_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdLIFO.CheckedChanged
dgwInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Descending)
'dgwHInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Descending)
'dgwAInventari.Sort(dgwInventari.Columns(0), ListSortDirection.Descending)
End Sub
Private Sub tabArtikujt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tabArtikujt.Click
mbushe_kombon_artikujt()
End Sub
Private Sub mbushe_kombon_artikujt()
cmbAKodi.Items.Clear()
cmbAPershkrimi.Items.Clear()
cmbANjm.Items.Clear()
Dim strKodi = New ArrayList()
Dim strPershkrimi = New ArrayList()
Dim strNjm = New ArrayList()
Try
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String = "SELECT * FROM Artikujt"
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
Dim ekziston As Boolean = False
Dim ekzistonP As Boolean = False
Dim ekzistonN As Boolean = False
For Each s In strKodi
If dr("Kodi") = s Then
ekziston = True
End If
Next
If ekziston = False Then
strKodi.Add(dr("Kodi"))
End If
For Each s In strPershkrimi
If dr("Pershkrimi") = s Then
ekzistonP = True
End If
Next
If ekzistonP = False Then
strPershkrimi.Add(dr("Pershkrimi"))
End If
For Each s In strNjm
If dr("Njm") = s Then
ekzistonN = True
End If
Next
If ekzistonN = False Then
strNjm.Add(dr("Njm"))
End If
End While
strKodi.Sort()
For Each s In strKodi
cmbAKodi.Items.Add(s)
Next
For Each s In strPershkrimi
cmbAPershkrimi.Items.Add(s)
Next
For Each s In strNjm
cmbANjm.Items.Add(s)
Next
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub cmbAKodi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbAKodi.SelectedIndexChanged
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim sCodi As String = cmbAKodi.Text
Dim strSQL As String = "SELECT * FROM Artikujt WHERE Kodi=" + sCodi
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
cmbAPershkrimi.Text = dr("Pershkrimi")
cmbANjm.Text = dr("Njm")
If Not IsDBNull(dr("CmimiShitjes")) Then
txtACmimiShitjes.Text = dr("CmimiShitjes")
End If
End While
con.Close()
mbushe_data_grid(dgwAInventari, sCodi)
End Sub
Private Sub cmdArtikujt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdArtikujt.Click
If cmbAKodi.Text <> "" And cmbAPershkrimi.Text <> "" And cmbANjm.Text <> "" And txtACmimiShitjes.Text <> "" Then
Dim sCodi As String = cmbAKodi.Text
Dim sCmimi As String = txtACmimiShitjes.Text
Dim bExziston As Boolean = False
sCmimi = sCmimi.Replace(".", ",")
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
bExziston = ekziston_artikulli(sCodi)
Dim cmd
If bExziston = True Then
cmd = New OleDbCommand("UPDATE Artikujt SET CmimiShitjes =" & txtACmimiShitjes.Text & " WHERE Kodi=" & cmbAKodi.Text, con)
cmd.ExecuteNonQuery()
Else
cmd = New OleDbCommand("INSERT INTO Artikujt (Kodi, Pershkrimi, Njm, CmimiShitjes) VALUES ('" + cmbAKodi.Text + "','" + cmbAPershkrimi.Text + "','" + cmbANjm.Text + "','" + sCmimi + "')", con)
cmd.ExecuteNonQuery()
End If
MessageBox.Show("Te dhenat u ruajten ne Databaze!")
con.Close()
mbushe_data_grid(dgwAInventari, sCodi)
Else
MessageBox.Show("Nuk i keni futur te gjitha te dhenat!")
End If
End Sub
Private Function ekziston_artikulli(ByVal sCodi) As Boolean
Dim sasiaDB As Integer = 0
Dim con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\Furkan_company.mdb")
con.Open()
Dim strSQL As String = "SELECT * FROM Artikujt WHERE Kodi=" + sCodi
Dim cmd = New OleDbCommand(strSQL, con)
Dim dr As OleDbDataReader = cmd.ExecuteReader
While dr.Read()
sasiaDB += 1
End While
con.Close()
If (sasiaDB >= 1) Then
ekziston_artikulli = True
Else
ekziston_artikulli = False
End If
End Function
Private Sub txtACmimiShitjes_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtACmimiShitjes.TextChanged
Try
If txtACmimiShitjes.Text <> "" Then
txtACmimiShitjes.Text = (Convert.ToDouble(txtACmimiShitjes.Text))
End If
Catch Ex As Exception
txtCmimi.Text = ""
End Try
End Sub
End Class
Kodi momentalisht po duket si shpageti, po spo kam kohe shum me e vizatu ma mire.
Krijoni Kontakt