stock.frm

This project is to design the automated system for the inventory of Al-Ahmad Cotton and Oil Mills si

Private Sub Command1_Click()
Grid1.clear
Grid1.Rows = 5
stock.Visible = False
sale.Visible = False
crude1.Visible = False
purchase.Visible = True
Grid1.Visible = True
Grid1.ColWidth(0) = 1200
Grid1.ColWidth(1) = 1950
Grid1.ColWidth(2) = 2250
Grid1.ColWidth(3) = 2050
Grid1.ColWidth(4) = 2000
Grid1.TextMatrix(0, 0) = "Product"
Grid1.TextMatrix(0, 1) = "Total Purchase(Mn)"
Grid1.TextMatrix(0, 2) = "Used In Production(Mn)"
Grid1.TextMatrix(0, 3) = "Remaining Stock(Mn)"
Grid1.TextMatrix(0, 4) = "Remaining Stock(Kg)"

Grid1.TextMatrix(1, 0) = "Cotton Seed"
Grid1.TextMatrix(2, 0) = "Castic Soda"

If rs.State = adStateOpen Then rs.Close
rs.Open "Stock1", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Stock1 where Prod_Id=1", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
ad
Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select sum(Qty_In),sum(Qty_Out) from Stock1 where Prod_Id=1", cnn, adOpenStatic, adLockReadOnly


qin = rs.Fields(0)
qout = rs.Fields(1)
rstock = rs.Fields(0) - rs.Fields(1)
tkg = Val(rstock * 37.324)
Grid1.TextMatrix(1, 1) = qin
Grid1.TextMatrix(1, 2) = qout
Grid1.TextMatrix(1, 3) = rstock
Grid1.TextMatrix(1, 4) = tkg

ad
End If
End If
End Sub

Private Sub Command2_Click()
Grid1.clear
Grid1.Rows = 5
purchase.Visible = False
stock.Visible = False
crude1.Visible = False
sale.Visible = True

Grid1.ColWidth(0) = 1200
Grid1.ColWidth(1) = 1950
Grid1.ColWidth(2) = 2250
Grid1.ColWidth(3) = 2050
Grid1.ColWidth(4) = 2000
Grid1.TextMatrix(0, 0) = "Product"
Grid1.TextMatrix(0, 1) = "Total Production(Mn)"
Grid1.TextMatrix(0, 2) = "Sale"
Grid1.TextMatrix(0, 3) = "Remaining Stock(Mn)"
Grid1.TextMatrix(0, 4) = "Remaining Stock(Kg)"

Grid1.TextMatrix(1, 0) = "Oil Cake"
Grid1.TextMatrix(2, 0) = "Refine Oil"
Grid1.TextMatrix(3, 0) = "Del Cotton"
Grid1.TextMatrix(4, 0) = "Dirt Oil"
If rs.State = adStateOpen Then rs.Close
rs.Open "Stock1", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Stock1 where Prod_Id=4", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
ad1
'Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select sum(Qty_In),sum(Qty_Out) from Stock1 where Prod_Id=4", cnn, adOpenDynamic, adLockOptimistic
qin = rs.Fields(0)
qout = rs.Fields(1)
rstock = rs.Fields(0) - rs.Fields(1)
tkg = Val(rstock * 37.344)
Grid1.TextMatrix(1, 1) = qin
Grid1.TextMatrix(1, 2) = qout
Grid1.TextMatrix(1, 3) = rstock
Grid1.TextMatrix(1, 4) = tkg
ad1
ad2
ad3
End If
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub crude_Click()
Grid1.clear
stock.Visible = False
purchase.Visible = False
crude1.Visible = True

Grid1.ColWidth(0) = 1200
Grid1.ColWidth(1) = 1950
Grid1.ColWidth(2) = 2250
Grid1.ColWidth(3) = 2050
Grid1.ColWidth(4) = 2000
Grid1.TextMatrix(0, 0) = "Product"
Grid1.TextMatrix(0, 1) = "Total Purchase(Mn)"
Grid1.TextMatrix(0, 2) = "Used In Production"
Grid1.TextMatrix(0, 3) = "Remaining Stock(Mn)"
Grid1.TextMatrix(0, 4) = "Remaining Stock(Kg)"

Grid1.TextMatrix(1, 0) = "Crude Oil"
'////////////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "Stock1", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Stock1 where Prod_Id=5", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then

Exit Sub
End If
'////////////////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "Stock1", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select sum(Qty_In),sum(Qty_Out) from Stock1 where Prod_Id=5", cnn, adOpenDynamic, adLockOptimistic
qin = rs.Fields(0)
qout = rs.Fields(1)
rstock = rs.Fields(0) - rs.Fields(1)
tkg = Val(rstock * 37.324)
Grid1.TextMatrix(1, 1) = qin
Grid1.TextMatrix(1, 2) = qout
Grid1.TextMatrix(1, 3) = rstock
Grid1.TextMatrix(1, 4) = tkg
End If
End If
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection


cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hussain"
purchase.Visible = False
sale.Visible = False
crude1.Visible = False
Grid1.ColWidth(0) = 1200
Grid1.ColWidth(1) = 1900
Grid1.ColWidth(2) = 1900
Grid1.ColWidth(3) = 1900
Grid1.ColWidth(4) = 1900
End Sub

Public Sub ad()
'/////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Stock1 where Prod_Id=2", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then

Exit Sub
End If

'////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "select sum(Qty_In),sum(Qty_Out) from Stock1 where Prod_Id=2", cnn, adOpenDynamic, adLockOptimistic
qin = rs.Fields(0)
qout = rs.Fields(1)
rstock = rs.Fields(0) - rs.Fields(1)
tkg = Val(rstock * 37.344)
Grid1.TextMatrix(2, 1) = qin
Grid1.TextMatrix(2, 2) = qout
Grid1.TextMatrix(2, 3) = rstock
Grid1.TextMatrix(2, 4) = tkg
End Sub
Public Sub ad1()
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Stock1 where Prod_Id=6", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
ad2
'Exit Sub
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select sum(Qty_In),sum(Qty_Out) from Stock1 where Prod_Id=6", cnn, adOpenDynamic, adLockOptimistic
qin = rs.Fields(0)
qout = rs.Fields(1)
rstock = rs.Fields(0) - rs.Fields(1)
tkg = Val(rstock * 37.344)
Grid1.TextMatrix(2, 1) = qin
Grid1.TextMatrix(2, 2) = qout
Grid1.TextMatrix(2, 3) = rstock
Grid1.TextMatrix(2, 4) = tkg
End If
End Sub
Public Sub ad2()
'////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Stock1 where Prod_Id=3", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
ad3
'Exit Sub
Else
'//////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "select sum(Qty_In),sum(Qty_Out) from Stock1 where Prod_Id=3", cnn, adOpenDynamic, adLockOptimistic
qin = rs.Fields(0)
qout = rs.Fields(1)
rstock = rs.Fields(0) - rs.Fields(1)
tkg = Val(rstock * 37.344)
Grid1.TextMatrix(3, 1) = qin
Grid1.TextMatrix(3, 2) = qout
Grid1.TextMatrix(3, 3) = rstock
Grid1.TextMatrix(3, 4) = tkg
End If
End Sub
Public Sub ad3()
'/////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Stock1 where Prod_Id=7", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then

Exit Sub
End If

'/////////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open "select sum(Qty_In),sum(Qty_Out) from Stock1 where Prod_Id=7", cnn, adOpenDynamic, adLockOptimistic
qin = rs.Fields(0)
qout = rs.Fields(1)
rstock = rs.Fields(0) - rs.Fields(1)
tkg = Val(rstock * 37.344)
Grid1.TextMatrix(4, 1) = qin
Grid1.TextMatrix(4, 2) = qout
Grid1.TextMatrix(4, 3) = rstock
Grid1.TextMatrix(4, 4) = tkg
End Sub