grid of sale receive order.frm

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

If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select * from Sale_Receive_Order_Detail_Table where S_Receive_Order='" & rs.Fields("S_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs1.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs1.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs1.Fields("Total_Mounds")

Grid1.TextMatrix(Grid1.Rows - 1, 8) = Val(rs1.Fields("Total_Mounds") * 37.324)
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs1.Fields("Rate/Mn")
Grid1.Rows = Grid1.Rows + 1
rs.MoveNext
Wend

End If
End If
End If
End Sub
Public Sub ahmad()
'//////////////
If rs1.State = adStateOpen Then rs1.Close

rs1.Open " Sale_Receive_Order_Table ", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox " No Record Exists"

Exit Sub
End If
'///////////////////
If Option2.Value = True Then
If pn.Text = "" Then
MsgBox "Please Give the Product Name"
Else
If rs1.State = adStateOpen Then rs1.Close
'rs.Open " select * from Sale_Receive_order_Table where Cust_Name Like'%" & Trim(nm.Text) & "%'", cnn, adOpenStatic, adLockReadOnly
rs1.Open "select * from Sale_Receive_Order_Detail_Table where Product_Name Like'%" & pn.Text & "%'", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox "Required Record does not Exists"
Exit Sub
Else
rs1.MoveFirst
While Not rs1.EOF
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs1.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs1.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs1.Fields("Total_Mounds")

Grid1.TextMatrix(Grid1.Rows - 1, 8) = Val(rs1.Fields("Total_Mounds") * 37.324)
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs1.Fields("Rate/Mn")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = Val(rs1.Fields("Rate/Mn")) * Val(rs1.Fields("Total_Mounds"))

If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Sale_Receive_Order_Table where S_Receive_Order='" & rs1.Fields("S_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("Order_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("Valid_Date")

Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
'Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs.Fields("Cust_Name")
'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Customer_Table where Cust_Id=" & rs.Fields("Cust_Id"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs2.Fields("Cust_Name")
Grid1.Rows = Grid1.Rows + 1
rs1.MoveNext
Wend
End If
End If
End If

End Sub
'For Contract Date
Public Sub ad1()
'//////////////
If rs1.State = adStateOpen Then rs1.Close

rs1.Open " Sale_Receive_Order_Table ", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox " No Record Exists"

Exit Sub
End If
'///////////////////
If Option4.Value = True Then
If cd1.Value = "" Then
MsgBox "Please Give the Contract Date"
Else
If rs.State = adStateOpen Then rs.Close
'rs.Open " select * from Sale_Receive_order_Table where Order_Date='" & cd1.Value & "'", cnn, adOpenStatic, adLockReadOnly
rs.Open " select * from Sale_Receive_Order_Table where Order_Date >='" & cd1.Value & " ' and Order_Date <='" & tdate.Value & " '", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "Required Record does not Exists"
Exit Sub
Else
rs.MoveFirst
While Not rs.EOF
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("Order_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("Valid_Date")

Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
'Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs.Fields("Cust_Name")
If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select * from Sale_Receive_Order_Detail_Table where S_Receive_Order='" & rs.Fields("S_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs1.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs1.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs1.Fields("Total_Mounds")

Grid1.TextMatrix(Grid1.Rows - 1, 8) = Val(rs1.Fields("Total_Mounds") * 37.324)
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs1.Fields("Rate/Mn")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = Val(rs1.Fields("Rate/Mn")) * Val(rs1.Fields("Total_Mounds"))
'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Customer_Table where Cust_Id=" & rs.Fields("Cust_Id"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs2.Fields("Cust_Name")

Grid1.Rows = Grid1.Rows + 1
rs.MoveNext
Wend

End If
End If
End If
End Sub
Public Sub ad2()
'//////////////
If rs1.State = adStateOpen Then rs1.Close

rs1.Open " Sale_Receive_Order_Table ", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox " No Record Exists"

Exit Sub
End If
'///////////////////
If Option3.Value = True Then
If cd1.Value = "" Then
MsgBox "Please Give the Valid Date"
Else
If rs.State = adStateOpen Then rs.Close
rs.Open " select * from Sale_Receive_order_Table where Valid_Date='" & vu.Value & "'", cnn, adOpenStatic, adLockReadOnly

If rs.RecordCount = 0 Then
MsgBox "Required Record does not Exists"
Exit Sub
Else
rs.MoveFirst
While Not rs.EOF
Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("Order_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("Valid_Date")

Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
'Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs.Fields("Cust_Name")
If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select * from Sale_Receive_Order_Detail_Table where S_Receive_Order='" & rs.Fields("S_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs1.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs1.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs1.Fields("Total_Mounds")

Grid1.TextMatrix(Grid1.Rows - 1, 8) = Val(rs1.Fields("Total_Mounds") * 37.324)
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs1.Fields("Rate/Mn")
Grid1.TextMatrix(Grid1.Rows - 1, 10) = Val(rs1.Fields("Rate/Mn")) * Val(rs1.Fields("Total_Mounds"))
'//////////////////////
If rs2.State = adStateOpen Then rs2.Close
rs2.Open "select * from Customer_Table where Cust_Id=" & rs.Fields("Cust_Id"), cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs2.Fields("Cust_Name")
Grid1.Rows = Grid1.Rows + 1
rs.MoveNext
Wend

End If
End If
End If
End Sub

Private Sub select_Click()
If callingform.Name = "MDIForm1" Then
Exit Sub
End If


'//////////////////////////
If callingform.Name = "Form28" Then
If Grid1.TextMatrix(Grid1.RowSel, 0) = "" Then
MsgBox "No Record Exists"
Exit Sub
Else

callingform.Text1.Text = Grid1.TextMatrix(Grid1.RowSel, 0)
callingform.Text2.Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.nam.Text = Grid1.TextMatrix(Grid1.RowSel, 6)
callingform.Text4.Text = Grid1.TextMatrix(Grid1.RowSel, 9)
callingform.dat.Value = Grid1.TextMatrix(Grid1.RowSel, 1)
callingform.valid = Grid1.TextMatrix(Grid1.RowSel, 2)
callingform.Text3.Text = Grid1.TextMatrix(Grid1.RowSel, 7)
callingform.Text5.Text = Grid1.TextMatrix(Grid1.RowSel, 10)
callingform.code.Text = Grid1.TextMatrix(Grid1.RowSel, 5)
callingform.Text7.Text = Grid1.TextMatrix(Grid1.RowSel, 4)
Unload Me




Exit Sub
End If
End If
'////////////////////////
If callingform.Name = "Form23" Then
If Grid1.TextMatrix(Grid1.RowSel, 0) = "" Then
MsgBox "No Record Exists"
Exit Sub
Else

callingform.cno.Text = Grid1.TextMatrix(Grid1.RowSel, 0)
callingform.csid(0).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.cusid(1).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.totalm.Text = Grid1.TextMatrix(Grid1.RowSel, 7)
callingform.mrate.Text = Grid1.TextMatrix(Grid1.RowSel, 9)
Unload Me
Exit Sub
End If
End If

'////////////////////////////
If callingform.Name = "Form6" Then
If Grid1.TextMatrix(Grid1.RowSel, 0) = "" Then
MsgBox "No Record Exists"
Exit Sub
Else

callingform.cno.Text = Grid1.TextMatrix(Grid1.RowSel, 0)
callingform.csid2(0).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.cusid2(1).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.totalm2.Text = Grid1.TextMatrix(Grid1.RowSel, 7)
callingform.mrate2.Text = Grid1.TextMatrix(Grid1.RowSel, 9)
Unload Me
Exit Sub
End If
End If
'////////////////////////
If callingform.Name = "Form12" Then
If Grid1.TextMatrix(Grid1.RowSel, 0) = "" Then
MsgBox "No Record Exists"
Exit Sub
Else

callingform.cno.Text = Grid1.TextMatrix(Grid1.RowSel, 0)
callingform.csid(0).Text = Grid1.TextMatrix(Grid1.RowSel, 3)
callingform.nam.Text = Grid1.TextMatrix(Grid1.RowSel, 4)
callingform.totalm.Text = Grid1.TextMatrix(Grid1.RowSel, 7)
callingform.mrate.Text = Grid1.TextMatrix(Grid1.RowSel, 9)
callingform.pexp(0).Text = Grid1.TextMatrix(Grid1.RowSel, 5)
callingform.Item.Text = Grid1.TextMatrix(Grid1.RowSel, 6)
callingform.amount.Text = Grid1.TextMatrix(Grid1.RowSel, 10)
callingform.namount(6).Text = Grid1.TextMatrix(Grid1.RowSel, 10)
'////////////////////
If Grid1.TextMatrix(Grid1.RowSel, 5) = 3 Or Grid1.TextMatrix(Grid1.RowSel, 5) = 4 Then
Form12.Label15.Visible = True
Form12.Label9.Visible = True
'Form12.Label23.Visible = False
Form12.Label2(0).Visible = True
Form12.Label16.Visible = False
Form12.Label22.Visible = False

Else
Form12.Label15.Visible = False
Form12.Label9.Visible = False
Form12.Label16.Visible = True
'Form12.Label23.Visible = True
Form12.Label2(0).Visible = False
Form12.Label22.Visible = True
End If
'/////////////////
Unload Me
Exit Sub
End If
End If
'////////////////////////////
End Sub

Private Sub showcustomer_Click()
If cust.Visible = False And DataGrid1.Visible = False Then
cust.Visible = True
DataGrid1.Visible = True
Else
cust.Visible = False
DataGrid1.Visible = False
End If
End Sub
Public Sub atta()
'//////////////
If rs1.State = adStateOpen Then rs1.Close

rs1.Open " Sale_Receive_Order_Table ", cnn, adOpenStatic, adLockReadOnly
If rs1.RecordCount = 0 Then
MsgBox " No Record Exists"

Exit Sub
End If
'///////////////////
If Option1.Value = True Then
If Text1.Text = "" Then
MsgBox "Please Give Contract No"
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from Sale_Receive_Order_Table where S_Receive_Order='" & Val(Text1.Text) & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "Required Record does not Exists"
Text1.SetFocus
Exit Sub
Else
rs.MoveFirst
While Not rs.EOF

Grid1.TextMatrix(Grid1.Rows - 1, 0) = rs.Fields("S_Receive_Order")
Grid1.TextMatrix(Grid1.Rows - 1, 1) = rs.Fields("Order_Date")
Grid1.TextMatrix(Grid1.Rows - 1, 2) = rs.Fields("Valid_Date")

Grid1.TextMatrix(Grid1.Rows - 1, 3) = rs.Fields("Cust_Id")
'Grid1.TextMatrix(Grid1.Rows - 1, 4) = rs.Fields("Cust_Name")
If rs1.State = adStateOpen Then rs1.Close
rs1.Open "select * from Sale_Receive_Order_Detail_Table where S_Receive_Order='" & rs.Fields("S_Receive_Order") & "'", cnn, adOpenStatic, adLockReadOnly
Grid1.TextMatrix(Grid1.Rows - 1, 5) = rs1.Fields("Product_Code")
Grid1.TextMatrix(Grid1.Rows - 1, 6) = rs1.Fields("Product_Name")
Grid1.TextMatrix(Grid1.Rows - 1, 7) = rs1.Fields("Total_Mounds")
Grid1.TextMatrix(Grid1.Rows - 1, 9) = rs1.Fields("Rate/Mn")
Grid1.TextMatrix(Grid1.Rows - 1, 8) = Val(rs1.Fields("Total_Mounds") * 37.324)
Grid1.TextMatrix(Grid1.Rows - 1, 10) = Val(rs1.Fields("Rate/Mn")) * Val(rs1.Fields("Total_Mounds"))

Grid1.Rows = Grid1.Rows + 1
rs.MoveNext
Wend
Text1.SetFocus
End If
End If
End If
End Sub