frmgoodmngmt.frm

This a complete inventory management system that performs the functions of Purchases, Sales and paym

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmGoodmngmt 
   Caption         =   "iManager - Goods In"
   ClientHeight    =   6945
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10815
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6945
   ScaleWidth      =   10815
   WindowState     =   2  'Maximized
   Begin TabDlg.SSTab SSTab1 
      Height          =   4815
      Left            =   1560
      TabIndex        =   10
      Top             =   1200
      Width           =   7815
      _ExtentX        =   13785
      _ExtentY        =   8493
      _Version        =   393216
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      TabCaption(0)   =   "Goods In"
      TabPicture(0)   =   "frmGoodmngmt.frx":0000
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "Frame1"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      Begin VB.Frame Frame1 
         Height          =   4215
         Left            =   360
         TabIndex        =   11
         Top             =   240
         Width           =   7215
         Begin VB.TextBox txtSize 
            Height          =   285
            Left            =   4920
            TabIndex        =   6
            Top             =   1680
            Width           =   2055
         End
         Begin VB.TextBox txtSno 
            Height          =   285
            Left            =   960
            TabIndex        =   23
            Top             =   240
            Visible         =   0   'False
            Width           =   1215
         End
         Begin VB.TextBox txtBillNo 
            Height          =   285
            Left            =   5640
            TabIndex        =   3
            Top             =   1200
            Width           =   1335
         End
         Begin VB.TextBox txtPartyId 
            Height          =   315
            Left            =   960
            TabIndex        =   20
            Top             =   720
            Visible         =   0   'False
            Width           =   1335
         End
         Begin VB.CommandButton cmdDispParty 
            Caption         =   "*"
            Height          =   315
            Left            =   3240
            TabIndex        =   2
            Top             =   1080
            Width           =   375
         End
         Begin VB.TextBox txtParty 
            Height          =   315
            Left            =   960
            TabIndex        =   1
            Top             =   1080
            Width           =   2295
         End
         Begin VB.TextBox txtRestQty 
            Enabled         =   0   'False
            Height          =   315
            Left            =   5520
            TabIndex        =   14
            Text            =   "0"
            Top             =   3600
            Width           =   1095
         End
         Begin VB.TextBox txtQtyOut 
            Height          =   315
            Left            =   120
            TabIndex        =   13
            Text            =   "0"
            Top             =   2880
            Visible         =   0   'False
            Width           =   495
         End
         Begin VB.TextBox txtQtyIn 
            Height          =   315
            Left            =   3480
            TabIndex        =   8
            Text            =   "0"
            Top             =   2520
            Width           =   1095
         End
         Begin VB.TextBox txtavlbQty 
            Enabled         =   0   'False
            Height          =   315
            Left            =   1320
            TabIndex        =   7
            Text            =   "0"
            Top             =   2520
            Width           =   975
         End
         Begin VB.TextBox txtPname 
            Height          =   315
            Left            =   960
            TabIndex        =   4
            Top             =   1680
            Width           =   2295
         End
         Begin VB.CommandButton cmdDispProd 
            Caption         =   "*"
            Height          =   315
            Left            =   3240
            TabIndex        =   5
            Top             =   1680
            Width           =   375
         End
         Begin VB.TextBox txtprodId 
            Height          =   285
            Left            =   3600
            TabIndex        =   12
            Top             =   1680
            Visible         =   0   'False
            Width           =   375
         End
         Begin MSComCtl2.DTPicker dtIn_Date 
            Height          =   315
            Left            =   5040
            TabIndex        =   0
            Top             =   360
            Width           =   1935
            _ExtentX        =   3413
            _ExtentY        =   556
            _Version        =   393216
            CustomFormat    =   "dd-MMM-yyyy"
            Format          =   3866627
            CurrentDate     =   38912
         End
         Begin VB.Label lblUnit3 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   6720
            TabIndex        =   27
            Top             =   3600
            Width           =   375
         End
         Begin VB.Label lblUnit2 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   4680
            TabIndex        =   26
            Top             =   2520
            Width           =   375
         End
         Begin VB.Label lblUnit1 
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   700
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2400
            TabIndex        =   25
            Top             =   2520
            Width           =   375
         End
         Begin VB.Label Label9 
            AutoSize        =   -1  'True
            Caption         =   "Size"
            Height          =   195
            Left            =   4440
            TabIndex        =   24
            Top             =   1680
            Width           =   300
         End
         Begin VB.Label Label8 
            AutoSize        =   -1  'True
            Caption         =   "Bill No./Job No."
            Height          =   195
            Left            =   4440
            TabIndex        =   22
            Top             =   1200
            Width           =   1125
         End
         Begin VB.Label Label7 
            AutoSize        =   -1  'True
            Caption         =   "Party"
            Height          =   195
            Left            =   240
            TabIndex        =   21
            Top             =   1080
            Width           =   360
         End
         Begin VB.Label Label6 
            AutoSize        =   -1  'True
            Caption         =   "Rest Qty."
            Height          =   195
            Left            =   4680
            TabIndex        =   19
            Top             =   3600
            Width           =   660
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            Caption         =   "Qty. In"
            Height          =   195
            Left            =   2880
            TabIndex        =   18
            Top             =   2565
            Width           =   465
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            Caption         =   "Avalable Qty."
            Height          =   195
            Left            =   240
            TabIndex        =   17
            Top             =   2565
            Width           =   945
         End
         Begin VB.Label Label2 
            AutoSize        =   -1  'True
            Caption         =   "Product"
            Height          =   195
            Left            =   240
            TabIndex        =   16
            Top             =   1680
            Width           =   555
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "Date"
            Height          =   195