castic soda purchase register.frm

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

            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3120
         TabIndex        =   5
         Top             =   720
         Width           =   1575
      End
      Begin VB.Label Label3 
         BackColor       =   &H80000013&
         Caption         =   "Supplier Code"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   4
         Top             =   720
         Width           =   1575
      End
   End
   Begin VB.Image Image3 
      Height          =   645
      Left            =   7620
      Picture         =   "Castic Soda Purchase Register.frx":0000
      Top             =   5640
      Width           =   555
   End
   Begin VB.Image Image2 
      Height          =   855
      Left            =   -960
      Picture         =   "Castic Soda Purchase Register.frx":1312
      Top             =   6240
      Width           =   8775
   End
   Begin VB.Label Label5 
      BackColor       =   &H80000013&
      Height          =   5895
      Left            =   7710
      TabIndex        =   22
      Top             =   0
      Width           =   375
   End
   Begin VB.Image Image1 
      Height          =   7020
      Left            =   7800
      Picture         =   "Castic Soda Purchase Register.frx":19A50
      Top             =   0
      Width           =   1620
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "Castic Soda Purchase Register"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   21.75
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1200
      TabIndex        =   16
      Top             =   240
      Width           =   6135
   End
End
Attribute VB_Name = "Form23"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Public callingform As Object

Public Sub ad()
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox "First Select the All days or One day or From day To day Option"
Exit Sub
End If
If Option2.Value = True Then

'/////////////////////
If rs.State = adStateOpen Then rs.Close
rs.Open " SELECT dbo.Purchase_Receive_Order_Table.P_Receive_Order, dbo.Purchase_Receive_Order_Table.Invoice_No,dbo.Purchase_Receive_Order_Table.P_Receive_Date," _
    + "dbo.Purchase_Receive_Order_Table.P_Given_Order,dbo.Purchase_Receive_Order_Table.Sup_Code, dbo.Purchase_Receive_Order_Table.Net_Amount, dbo.Supplier_Table.Sup_Name," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Product_Name, dbo.Purchase_Receive_Order_Detail_Table.Total_Bags,dbo.Purchase_Receive_Order_Detail_Table.[W/Bag]," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Total_Mounds,dbo.Purchase_Receive_Order_Detail_Table.[Rate/Mound], dbo.Purchase_Receive_Order_Detail_Table.Labour_Exp," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Sales_Tax, dbo.Purchase_Receive_Order_Detail_Table.Packing_Exp,dbo.Purchase_Receive_Order_Detail_Table.Other_Exp FROM dbo.Purchase_Receive_Order_Table INNER JOIN dbo.Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order = dbo.Purchase_Receive_Order_Detail_Table.P_Receive_Order INNER JOIN dbo.Supplier_Table ON dbo.Purchase_Receive_Order_Table.Sup_Code = dbo.Supplier_Table.Sup_Code where Purchase_Receive_Order_Detail_Table.Product_Name='" & Trim("Castic Soda") & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "Castic Soda is not purchased so for"
Else
'///////////////////////////
Set Form16.report = New CrystalReport13
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
If Option1.Value = True Then
If rs.State = adStateOpen Then rs.Close
'///////////////////
rs.Open " SELECT dbo.Purchase_Receive_Order_Table.P_Receive_Order, dbo.Purchase_Receive_Order_Table.Invoice_No,dbo.Purchase_Receive_Order_Table.P_Receive_Date," _
    + "dbo.Purchase_Receive_Order_Table.P_Given_Order,dbo.Purchase_Receive_Order_Table.Sup_Code, dbo.Purchase_Receive_Order_Table.Net_Amount, dbo.Supplier_Table.Sup_Name," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Product_Name, dbo.Purchase_Receive_Order_Detail_Table.Total_Bags,dbo.Purchase_Receive_Order_Detail_Table.[W/Bag]," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Total_Mounds,dbo.Purchase_Receive_Order_Detail_Table.[Rate/Mound], dbo.Purchase_Receive_Order_Detail_Table.Labour_Exp," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Sales_Tax, dbo.Purchase_Receive_Order_Detail_Table.Packing_Exp,dbo.Purchase_Receive_Order_Detail_Table.Other_Exp FROM dbo.Purchase_Receive_Order_Table INNER JOIN dbo.Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order = dbo.Purchase_Receive_Order_Detail_Table.P_Receive_Order INNER JOIN dbo.Supplier_Table ON dbo.Purchase_Receive_Order_Table.Sup_Code = dbo.Supplier_Table.Sup_Code where Purchase_Receive_Order_Detail_Table.Product_Name='" & Trim("Castic Soda") & "' and Purchase_Receive_order_Table.P_Receive_Date='" & DTPicker1.Value & "'", cnn, adOpenStatic, adLockReadOnly

If rs.RecordCount = 0 Then
MsgBox "Castic Soda is not purchased on this date"
Else
'//////////////////////
Set Form16.report = New CrystalReport13
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
If Option3.Value = True Then
If c.Value > d.Value Then
MsgBox "From Day should be less than the To Day"
Else
If rs.State = adStateOpen Then rs.Close
'//////////////////
rs.Open " SELECT dbo.Purchase_Receive_Order_Table.P_Receive_Order, dbo.Purchase_Receive_Order_Table.Invoice_No,dbo.Purchase_Receive_Order_Table.P_Receive_Date," _
    + "dbo.Purchase_Receive_Order_Table.P_Given_Order,dbo.Purchase_Receive_Order_Table.Sup_Code, dbo.Purchase_Receive_Order_Table.Net_Amount, dbo.Supplier_Table.Sup_Name," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Product_Name, dbo.Purchase_Receive_Order_Detail_Table.Total_Bags,dbo.Purchase_Receive_Order_Detail_Table.[W/Bag]," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Total_Mounds,dbo.Purchase_Receive_Order_Detail_Table.[Rate/Mound], dbo.Purchase_Receive_Order_Detail_Table.Labour_Exp," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Sales_Tax, dbo.Purchase_Receive_Order_Detail_Table.Packing_Exp,dbo.Purchase_Receive_Order_Detail_Table.Other_Exp FROM dbo.Purchase_Receive_Order_Table INNER JOIN dbo.Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order = dbo.Purchase_Receive_Order_Detail_Table.P_Receive_Order INNER JOIN dbo.Supplier_Table ON dbo.Purchase_Receive_Order_Table.Sup_Code = dbo.Supplier_Table.Sup_Code where Purchase_Receive_Order_Detail_Table.Product_Name='" & Trim("Castic Soda") & "' and Purchase_Receive_order_Table.P_Receive_Date>='" & c.Value & "'and Purchase_Receive_order_Table.P_Receive_Date<='" & d.Value & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "Castic Soda is not purchased between these dates"
Else
'/////////////////////
Set Form16.report = New CrystalReport13
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
End If
End Sub

Private Sub Command1_Click()
If Option4.Value = False And Option5.Value = False Then
MsgBox "First Select the All Customer or Single customer Record Button"
End If
If Option5.Value = True Then
ad
End If
If Option4.Value = True Then
ad1
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Set Form2.callingform = Me
Form2.Show vbModal
End Sub

Private Sub Form_Load()
If cnn.State = adStateOpen Then cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hussain"
a.Visible = False
b.Visible = False
Label3.Visible = False
Label4.Visible = False
Command3.Visible = False
'DTPicker1.Value = Now
'c.Value = Now
'd.Value = Now

End Sub

Private Sub Option4_Click()
Command3.Visible = True
a.Visible = True
b.Visible = True
Label3.Visible = True
Label4.Visible = True
End Sub

Private Sub Option5_Click()
If Command3.Visible = True And a.Visible = True And b.Visible = True And Label3.Visible = True And Label4.Visible = True Then
Command3.Visible = False
a.Visible = False
b.Visible = False
Label3.Visible = False
Label4.Visible = False
End If
End Sub
Public Sub ad1()

'///////////////
If b.Text = "" Then
MsgBox "Please Enter the Customer Code and Name"
Exit Sub
End If
'///////////////
If Option1.Value = False And Option2.Value = False And Option3.Value = False Then
MsgBox "First Select the All days or One day or From day To day Option"
Exit Sub
End If

If Option2.Value = True Then
If rs.State = adStateOpen Then rs.Close
'/////////////////////
rs.Open " SELECT dbo.Purchase_Receive_Order_Table.P_Receive_Order, dbo.Purchase_Receive_Order_Table.Invoice_No,dbo.Purchase_Receive_Order_Table.P_Receive_Date," _
    + "dbo.Purchase_Receive_Order_Table.P_Given_Order,dbo.Purchase_Receive_Order_Table.Sup_Code, dbo.Purchase_Receive_Order_Table.Net_Amount, dbo.Supplier_Table.Sup_Name," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Product_Name, dbo.Purchase_Receive_Order_Detail_Table.Total_Bags,dbo.Purchase_Receive_Order_Detail_Table.[W/Bag]," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Total_Mounds,dbo.Purchase_Receive_Order_Detail_Table.[Rate/Mound], dbo.Purchase_Receive_Order_Detail_Table.Labour_Exp," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Sales_Tax, dbo.Purchase_Receive_Order_Detail_Table.Packing_Exp,dbo.Purchase_Receive_Order_Detail_Table.Other_Exp FROM dbo.Purchase_Receive_Order_Table INNER JOIN dbo.Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order = dbo.Purchase_Receive_Order_Detail_Table.P_Receive_Order INNER JOIN dbo.Supplier_Table ON dbo.Purchase_Receive_Order_Table.Sup_Code = dbo.Supplier_Table.Sup_Code where Purchase_Receive_Order_Detail_Table.Product_Name='" & Trim("Castic Soda") & "' and Supplier_Table.Sup_Name='" & Trim(a.Text) & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "Castic Soda is not purchased so for"
Else
'////////////////////////////
Set Form16.report = New CrystalReport13
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
If Option1.Value = True Then
If rs.State = adStateOpen Then rs.Close
'///////////////////
rs.Open " SELECT dbo.Purchase_Receive_Order_Table.P_Receive_Order, dbo.Purchase_Receive_Order_Table.Invoice_No,dbo.Purchase_Receive_Order_Table.P_Receive_Date," _
    + "dbo.Purchase_Receive_Order_Table.P_Given_Order,dbo.Purchase_Receive_Order_Table.Sup_Code, dbo.Purchase_Receive_Order_Table.Net_Amount, dbo.Supplier_Table.Sup_Name," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Product_Name, dbo.Purchase_Receive_Order_Detail_Table.Total_Bags,dbo.Purchase_Receive_Order_Detail_Table.[W/Bag]," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Total_Mounds,dbo.Purchase_Receive_Order_Detail_Table.[Rate/Mound], dbo.Purchase_Receive_Order_Detail_Table.Labour_Exp," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Sales_Tax, dbo.Purchase_Receive_Order_Detail_Table.Packing_Exp,dbo.Purchase_Receive_Order_Detail_Table.Other_Exp FROM dbo.Purchase_Receive_Order_Table INNER JOIN dbo.Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order = dbo.Purchase_Receive_Order_Detail_Table.P_Receive_Order INNER JOIN dbo.Supplier_Table ON dbo.Purchase_Receive_Order_Table.Sup_Code = dbo.Supplier_Table.Sup_Code where Purchase_Receive_Order_Detail_Table.Product_Name='" & Trim("Castic Soda") & "' and Supplier_Table.Sup_Name='" & Trim(a.Text) & "' and Purchase_Receive_order_Table.P_Receive_Date='" & DTPicker1.Value & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "Castic Soda is not purchased on this date"
Else
'//////////////////////
Set Form16.report = New CrystalReport13
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
If Option3.Value = True Then
If c.Value > d.Value Then
MsgBox "From Day should be less than the To Day"
Else
If rs.State = adStateOpen Then rs.Close
'//////////////////
rs.Open " SELECT dbo.Purchase_Receive_Order_Table.P_Receive_Order, dbo.Purchase_Receive_Order_Table.Invoice_No,dbo.Purchase_Receive_Order_Table.P_Receive_Date," _
    + "dbo.Purchase_Receive_Order_Table.P_Given_Order,dbo.Purchase_Receive_Order_Table.Sup_Code, dbo.Purchase_Receive_Order_Table.Net_Amount, dbo.Supplier_Table.Sup_Name," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Product_Name, dbo.Purchase_Receive_Order_Detail_Table.Total_Bags,dbo.Purchase_Receive_Order_Detail_Table.[W/Bag]," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Total_Mounds,dbo.Purchase_Receive_Order_Detail_Table.[Rate/Mound], dbo.Purchase_Receive_Order_Detail_Table.Labour_Exp," _
    + "dbo.Purchase_Receive_Order_Detail_Table.Sales_Tax, dbo.Purchase_Receive_Order_Detail_Table.Packing_Exp,dbo.Purchase_Receive_Order_Detail_Table.Other_Exp FROM dbo.Purchase_Receive_Order_Table INNER JOIN dbo.Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order = dbo.Purchase_Receive_Order_Detail_Table.P_Receive_Order INNER JOIN dbo.Supplier_Table ON dbo.Purchase_Receive_Order_Table.Sup_Code = dbo.Supplier_Table.Sup_Code where Purchase_Receive_Order_Detail_Table.Product_Name='" & Trim("Castic Soda") & "' and Supplier_Table.Sup_Name='" & Trim(a.Text) & "' and Purchase_Receive_order_Table.P_Receive_Date>='" & c.Value & "' and Purchase_Receive_order_Table.P_Receive_Date<='" & d.Value & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "Castic Soda is not purchased between these dates"
Else
'/////////////////////
Set Form16.report = New CrystalReport13
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
End If
End Sub