mdiform1.frm

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

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00404040&
   Caption         =   "Shahbaz Oil Mill"
   ClientHeight    =   8130
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   11820
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu security 
      Caption         =   "Security"
      Begin VB.Menu addnewuser 
         Caption         =   "Add New User"
      End
      Begin VB.Menu qq 
         Caption         =   "-"
      End
      Begin VB.Menu deleteuser 
         Caption         =   "Delete User"
      End
      Begin VB.Menu ww 
         Caption         =   "-"
      End
      Begin VB.Menu Changepassword 
         Caption         =   "Change Password"
      End
      Begin VB.Menu ee 
         Caption         =   "-"
      End
      Begin VB.Menu logout 
         Caption         =   "Log Out"
      End
      Begin VB.Menu rr 
         Caption         =   "-"
      End
      Begin VB.Menu exit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu registration 
      Caption         =   "Registration"
      Begin VB.Menu supplierreg 
         Caption         =   "Supplier Reg"
      End
      Begin VB.Menu yy 
         Caption         =   "-"
      End
      Begin VB.Menu customerreg 
         Caption         =   "Customer Reg"
      End
   End
   Begin VB.Menu trans 
      Caption         =   "Transactions"
      Begin VB.Menu contracts 
         Caption         =   "Contract"
         Begin VB.Menu purchasecontract 
            Caption         =   "Purchase Contract"
         End
         Begin VB.Menu qqqq 
            Caption         =   "-"
         End
         Begin VB.Menu salecontract 
            Caption         =   "Sale Contract"
         End
      End
      Begin VB.Menu wwww 
         Caption         =   "-"
      End
      Begin VB.Menu purchaseinvoice1 
         Caption         =   "Purchase Invoice"
      End
      Begin VB.Menu eeee 
         Caption         =   "-"
      End
      Begin VB.Menu saleinvoice 
         Caption         =   "Sale Invoice"
      End
      Begin VB.Menu rrrr 
         Caption         =   "-"
      End
      Begin VB.Menu production1 
         Caption         =   "Production"
         Begin VB.Menu seedcrushing1 
            Caption         =   "Seed Crushing"
         End
         Begin VB.Menu tttt 
            Caption         =   "-"
         End
         Begin VB.Menu oilrefining 
            Caption         =   "Oil Refining"
         End
      End
      Begin VB.Menu dfdfg 
         Caption         =   "-"
      End
      Begin VB.Menu purchasetrnsfer 
         Caption         =   "Purchase Transfer"
      End
      Begin VB.Menu reyery 
         Caption         =   "-"
      End
      Begin VB.Menu saledeparture1 
         Caption         =   "Sale  Departure "
      End
   End
   Begin VB.Menu search 
      Caption         =   "Search"
      Begin VB.Menu supplier 
         Caption         =   "Supplier"
      End
      Begin VB.Menu dd 
         Caption         =   "-"
      End
      Begin VB.Menu customer 
         Caption         =   "Customer"
      End
      Begin VB.Menu ff 
         Caption         =   "-"
      End
      Begin VB.Menu purcont 
         Caption         =   "Purchase Contract"
      End
      Begin VB.Menu gg 
         Caption         =   "-"
      End
      Begin VB.Menu salecont 
         Caption         =   "Sale Contract"
      End
      Begin VB.Menu hh 
         Caption         =   "-"
      End
      Begin VB.Menu cseed 
         Caption         =   "Purchase Products"
      End
      Begin VB.Menu jj 
         Caption         =   "-"
      End
      Begin VB.Menu bbb 
         Caption         =   "Sale Products"
      End
      Begin VB.Menu cc 
         Caption         =   "-"
      End
      Begin VB.Menu seddcrush 
         Caption         =   "Seed Crushing Detail"
      End
      Begin VB.Menu vv 
         Caption         =   "-"
      End
      Begin VB.Menu refdet 
         Caption         =   "Oil Refining Detail"
      End
      Begin VB.Menu tytytyt 
         Caption         =   "-"
      End
      Begin VB.Menu arrivalproduct 
         Caption         =   "Arrival Product"
      End
      Begin VB.Menu dsfd 
         Caption         =   "-"
      End
      Begin VB.Menu departureproduct 
         Caption         =   "Departure Product"
      End
   End
   Begin VB.Menu report 
      Caption         =   "Reports"
      Begin VB.Menu purchaserep 
         Caption         =   "Purchase Reports"
         Begin VB.Menu cottonseedpurchasereg 
            Caption         =   "Cotton Seed Purchase Register"
         End
         Begin VB.Menu ewrwe 
            Caption         =   "-"
         End
         Begin VB.Menu cspurreg 
            Caption         =   "Castic Soda Purchase Register"
         End
      End
      Begin VB.Menu sdffgc 
         Caption         =   "-"
      End
      Begin VB.Menu prodrep 
         Caption         =   "Production Reports"
         Begin VB.Menu scrr 
            Caption         =   "Seed Crushing Register"
         End
         Begin VB.Menu rtuu 
            Caption         =   "-"
         End
         Begin VB.Menu llllll 
            Caption         =   "Oil Refining Register"
         End
      End
      Begin VB.Menu dfgh 
         Caption         =   "-"
      End
      Begin VB.Menu saleprodrep 
         Caption         =   "Sale Product Reports"
         Begin VB.Menu oildirtsaleregister 
            Caption         =   "Oil Dirt Sale Register "
         End
         Begin VB.Menu fdgdgfg 
            Caption         =   "-"
         End
         Begin VB.Menu refoilsalereg 
            Caption         =   "Refine Oil Sale Register "
         End
         Begin VB.Menu sfsfkfk 
            Caption         =   "-"
         End
         Begin VB.Menu oilcakesalereg 
            Caption         =   "Oil Cake Sale Register"
         End
         Begin VB.Menu gfhghgh 
            Caption         =   "-"
         End
         Begin VB.Menu Delcottonsaleregister 
            Caption         =   "Del Cotton Sale Register"
         End
      End
      Begin VB.Menu gfgfgf 
         Caption         =   "-"
      End
      Begin VB.Menu purtransferrep 
         Caption         =   "Purchase Transfer Reports"
         Begin VB.Menu singlepartytrnsfer 
            Caption         =   "Single Party Transfer"
         End
         Begin VB.Menu jfgdh 
            Caption         =   "-"
         End
         Begin VB.Menu producttransfer 
            Caption         =   "Product Transfer"
         End
      End
      Begin VB.Menu ytytyty 
         Caption         =   "-"
      End
      Begin VB.Menu saledeprep 
         Caption         =   "Sale Departure Reports"
         Begin VB.Menu saledepreg 
            Caption         =   "Single Party Departure"
         End
         Begin VB.Menu rtyrtyrt 
            Caption         =   "-"
         End
         Begin VB.Menu singleproductdeparture 
            Caption         =   "Single Product Departure"
         End
      End
      Begin VB.Menu retret 
         Caption         =   "-"
      End
      Begin VB.Menu stockreport 
         Caption         =   "Present Stock Report"
      End
      Begin VB.Menu fsdf 
         Caption         =   "-"
      End
      Begin VB.Menu saleablestock 
         Caption         =   "Saleable Stock Report"
      End
   End
   Begin VB.Menu calculator 
      Caption         =   "Calculator"
      Begin VB.Menu cal 
         Caption         =   "Calculator"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addnewuser_Click()
newuser.Show vbModal
End Sub

Private Sub arrivalproduct_Click()
Set Form30.callingform = Me
Form30.Show vbModal
End Sub

Private Sub bbb_Click()
Set Form7.callingform = Me
Form7.Show vbModal
End Sub

Private Sub cal_Click()
Dim RetVal
RetVal = Shell("CALC.EXE", 1)
End Sub

Private Sub casticsoda_Click()
Form11.Show vbModal
End Sub

Private Sub cottonseed_Click()
Form4.Show vbModal
End Sub

Private Sub casticsodapurchaseavg_Click()
Form14.Show
End Sub

Private Sub Changepassword_Click()
Form43.Show vbModal
End Sub

Private Sub cottonseedave_Click()
Form13.Show
End Sub

Private Sub cottonseedpurchasereg_Click()
Form22.Show
End Sub

Private Sub cseed_Click()
Set Form1.callingform = Me
Form1.Show vbModal
End Sub

Private Sub csoda_Click()
Form1.Show vbModal
End Sub

Private Sub cspurreg_Click()
Form23.Show
End Sub

Private Sub customer_Click()
Set Form21.callingform = Me
Form21.Show vbModal
End Sub

Private Sub customerreg_Click()
Form20.Show vbModal
End Sub

Private Sub delcotton_Click()
Form30.Show vbModal
End Sub

Private Sub delcotton1_Click()
Form5.Show vbModal
End Sub

Private Sub ddfg_Click()
Form38.Show
End Sub

Private Sub Delcottonsaleregister_Click()
Form4.Show
End Sub

Private Sub deleteuser_Click()
delete.Show vbModal
End Sub

Private Sub dirt_Click()
Form31.Show vbModal
End Sub

Private Sub dirtoil_Click()
Form8.Show vbModal
End Sub

Private Sub ocake_Click()
Form22.Show vbModal
End Sub

Private Sub oilcake_Click()
Form23.Show vbModal
End Sub

Private Sub oilrefinig_Click()
form3.Show vbModal
End Sub

Private Sub departureproduct_Click()
Set Form6.callingform = Me
Form6.Show vbModal
End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub fghjk_Click()
Form40.Show
End Sub

Private Sub iiiuu_Click()
Form36.Show
End Sub

Private Sub llllll_Click()
Form24.Show
End Sub

Private Sub llloooo_Click()
Form34.Show
End Sub

Private Sub logout_Click()
If MsgBox("Are You sure to Log Out ?", vbQuestion + vbYesNo, "Log Out?") = vbYes Then
VUserId = ""
Login = False
frmLogin.Show vbModal
End If
End Sub

Private Sub MDIForm_Load()
If Login = False Then
        frmLogin1.Show vbModal
        If Login = False Then
            Unload Me
     End If
     End If
'     If (Login = True) Then Unload Me

End Sub

Private Sub oilcakesalereg_Click()
Form35.Show
End Sub

Private Sub oildirtsaleregister_Click()
Form32.Show
End Sub

Private Sub oilrefining_Click()
form3.Show vbModal
End Sub

Private Sub purchasecontr_Click()
Form25.Show vbModal
End Sub

Private Sub producttransfer_Click()
Form37.Show
End Sub

Private Sub purchasecontract_Click()
Form25.Show vbModal
End Sub

Private Sub purchaseinvoice_Click()
Set Form10.callingform = Me
Form10.Show vbModal
End Sub

Private Sub purchaseinvoice1_Click()
Set Form10.callingform = Me
Form10.Show vbModal
End Sub

Private Sub purchasetrnsfer_Click()
Form29.Show vbModal
End Sub

Private Sub purcont_Click()
Set Form26.callingform = Me
Form26.Show vbModal
End Sub

Private Sub ref_Click()
Form29.Show vbModal
End Sub

Private Sub refdet_Click()
Set Form19.callingform = Me
Form19.Show vbModal
End Sub

Private Sub refineoil_Click()
Form6.Show vbModal
End Sub

Private Sub refoilsalereg_Click()
Form33.Show
End Sub

Private Sub saleablestock_Click()
Form42.Show
End Sub

Private Sub salecont_Click()
Set Form27.callingform = Me
Form27.Show vbModal
End Sub

Private Sub salecontr_Click()
Form28.Show vbModal
End Sub

Private Sub salecontract_Click()
Form28.Show vbModal
End Sub

Private Sub saledeparture_Click()
Set Form6.callingform = Me
Form6.Show vbModal
End Sub

Private Sub saledeparture1_Click()
Form5.Show vbModal
End Sub

Private Sub saledepreg_Click()
Form8.Show
End Sub

Private Sub saleinvoice_Click()
Set Form12.callingform = Me
Form12.Show vbModal
End Sub

Private Sub saleinvoiceform_Click()
Set Form12.callingform = Me
Form12.Show vbModal
End Sub

Private Sub scrr_Click()
Form17.Show
End Sub

Private Sub sdetail_Click()
stock1.Show vbModal
End Sub

Private Sub seddcrush_Click()
Set Form18.callingform = Me
Form18.Show vbModal
End Sub

Private Sub seedcrushing_Click()
Form9.Show vbModal
End Sub

Private Sub seedcrushing1_Click()
Form9.Show
End Sub

Private Sub singlepartytrnsfer_Click()
Form31.Show
End Sub

Private Sub singleproductdeparture_Click()
Form11.Show
End Sub

Private Sub stockreport_Click()
Form41.Show
End Sub

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

Private Sub supplierreg_Click()
Form15.Show vbModal
End Sub