rep single partydeparture.frm

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

         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   661
         _Version        =   393216
         Format          =   19529729
         CurrentDate     =   38283
      End
      Begin MSComCtl2.DTPicker fdate 
         Height          =   375
         Left            =   1680
         TabIndex        =   5
         Top             =   240
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   661
         _Version        =   393216
         Format          =   19529729
         CurrentDate     =   38283
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "To Day"
         BeginProperty Font 
            Name            =   "Times New Roman"
            Size            =   11.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3360
         TabIndex        =   6
         Top             =   240
         Width           =   735
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H80000013&
      Height          =   855
      Left            =   480
      TabIndex        =   1
      Top             =   3360
      Width           =   7095
      Begin MSComCtl2.DTPicker DTPicker1 
         Height          =   375
         Left            =   1680
         TabIndex        =   2
         Top             =   240
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   661
         _Version        =   393216
         Format          =   19529729
         CurrentDate     =   38283
      End
   End
   Begin VB.TextBox invoice 
      Height          =   495
      Left            =   5760
      TabIndex        =   0
      Top             =   5280
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.Image Image3 
      Height          =   645
      Left            =   7615
      Picture         =   "Rep single partydeparture.frx":0000
      Top             =   5640
      Width           =   555
   End
   Begin VB.Label Label5 
      BackColor       =   &H80000013&
      Height          =   5775
      Left            =   7725
      TabIndex        =   21
      Top             =   0
      Width           =   375
   End
   Begin VB.Image Image2 
      Height          =   855
      Left            =   -930
      Picture         =   "Rep single partydeparture.frx":1312
      Top             =   6240
      Width           =   8775
   End
   Begin VB.Image Image1 
      Height          =   7020
      Left            =   7800
      Picture         =   "Rep single partydeparture.frx":19A50
      Top             =   0
      Width           =   1620
   End
   Begin VB.Label Label2 
      BackColor       =   &H80000013&
      Caption         =   "Single Party Transfer Report"
      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            =   1320
      TabIndex        =   17
      Top             =   240
      Width           =   5415
   End
End
Attribute VB_Name = "Form31"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Public callingform As Object
Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Set Form1.callingform = Me
Form1.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"
'DTPicker1.Value = Now
'fdate.Value = Now
'tdate.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 Command1_Click()
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 Arrival_Table.Arr_Id,Arrival_Table.Veh_Name,Arrival_Table.Veh_No,Arrival_Table.Arr_Date,Arrival_Table.Arr_Time,Arrival_Table.P_Receive_Order,Purchase_Receive_Order_Table.Sup_Code,Purchase_Receive_Order_Detail_Table.Product_Name,Supplier_Table.Sup_Name, Arrival_Table.TBags,Arrival_Table.[W/Bag],Arrival_Table.Total_Mn,Arrival_Table.Bilty_No, Arrival_Table.Comp_Name ,Arrival_Table.Driver_Name,Purchase_Receive_Order_Detail_Table.Total_Mounds FROM Supplier_Table INNER JOIN Purchase_Receive_Order_Table ON Supplier_Table.Sup_Code =Purchase_Receive_Order_Table.Sup_Code INNER JOIN Arrival_Table ON Purchase_Receive_Order_Table.P_Receive_Order = Arrival_Table.P_Receive_Order INNER JOIN Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order =Purchase_Receive_Order_Detail_Table.P_Receive_Order where Arrival_Table.P_Receive_Order='" & (invoice.Text) & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "No Arrival is done so for"
Else
'////////////////////////////
Set Form16.report = New CrystalReport16
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 Arrival_Table.Arr_Id,Arrival_Table.Veh_Name,Arrival_Table.Veh_No,Arrival_Table.Arr_Date,Arrival_Table.Arr_Time,Arrival_Table.P_Receive_Order,Purchase_Receive_Order_Table.Sup_Code,Purchase_Receive_Order_Detail_Table.Product_Name,Supplier_Table.Sup_Name, Arrival_Table.TBags,Arrival_Table.[W/Bag],Arrival_Table.Total_Mn,Arrival_Table.Bilty_No, Arrival_Table.Comp_Name ,Arrival_Table.Driver_Name,Purchase_Receive_Order_Detail_Table.Total_Mounds FROM Supplier_Table INNER JOIN Purchase_Receive_Order_Table ON Supplier_Table.Sup_Code =Purchase_Receive_Order_Table.Sup_Code INNER JOIN Arrival_Table ON Purchase_Receive_Order_Table.P_Receive_Order = Arrival_Table.P_Receive_Order INNER JOIN Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order =Purchase_Receive_Order_Detail_Table.P_Receive_Order where Arrival_Table.P_Receive_Order='" & (invoice.Text) & "' and Arrival_Table.Arr_Date='" & DTPicker1.Value & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "No Arrival is done on this date"
Else
'//////////////////////
Set Form16.report = New CrystalReport16
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
If Option3.Value = True Then

If fdate.Value > tdate.Value Then
MsgBox "From Day should be less than the To Day"
Else
If rs.State = adStateOpen Then rs.Close
'//////////////////
rs.Open "SELECT Arrival_Table.Arr_Id,Arrival_Table.Veh_Name,Arrival_Table.Veh_No,Arrival_Table.Arr_Date,Arrival_Table.Arr_Time,Arrival_Table.P_Receive_Order,Purchase_Receive_Order_Table.Sup_Code,Purchase_Receive_Order_Detail_Table.Product_Name,Supplier_Table.Sup_Name, Arrival_Table.TBags,Arrival_Table.[W/Bag],Arrival_Table.Total_Mn,Arrival_Table.Bilty_No, Arrival_Table.Comp_Name ,Arrival_Table.Driver_Name," _
        + " Purchase_Receive_Order_Detail_Table.Total_Mounds FROM Supplier_Table INNER JOIN Purchase_Receive_Order_Table ON Supplier_Table.Sup_Code =Purchase_Receive_Order_Table.Sup_Code INNER JOIN Arrival_Table ON Purchase_Receive_Order_Table.P_Receive_Order = Arrival_Table.P_Receive_Order INNER JOIN Purchase_Receive_Order_Detail_Table ON dbo.Purchase_Receive_Order_Table.P_Receive_Order =Purchase_Receive_Order_Detail_Table.P_Receive_Order where Arrival_Table.P_Receive_Order='" & (invoice.Text) & "' and Arrival_Table.Arr_Date>='" & fdate.Value & "' and Arrival_Table.Arr_Date<='" & tdate.Value & "'", cnn, adOpenStatic, adLockReadOnly
If rs.RecordCount = 0 Then
MsgBox "No Arrival is done between these dates"
Else
'/////////////////////
Set Form16.report = New CrystalReport16
Form16.report.Database.SetDataSource rs, 3, 1
Form16.Show
End If
End If
End If
End Sub