home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / GUI_with_M20278110302006.psc / frmCustomer.frm < prev    next >
Text File  |  2006-10-31  |  8KB  |  279 lines
  1. VERSION 5.00
  2. Begin VB.Form frmProduct 
  3.    BackColor       =   &H8000000A&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Products"
  6.    ClientHeight    =   4845
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6480
  10.    BeginProperty Font 
  11.       Name            =   "Arial"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    Icon            =   "frmCustomer.frx":0000
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   4845
  24.    ScaleWidth      =   6480
  25.    ShowInTaskbar   =   0   'False
  26.    StartUpPosition =   2  'CenterScreen
  27.    Begin VB.PictureBox Picture 
  28.       Align           =   1  'Align Top
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H00800000&
  31.       BorderStyle     =   0  'None
  32.       ForeColor       =   &H80000008&
  33.       Height          =   495
  34.       Left            =   0
  35.       ScaleHeight     =   495
  36.       ScaleWidth      =   6480
  37.       TabIndex        =   18
  38.       Top             =   0
  39.       Width           =   6480
  40.    End
  41.    Begin VB.TextBox txtArray 
  42.       BeginProperty Font 
  43.          Name            =   "Tahoma"
  44.          Size            =   9
  45.          Charset         =   0
  46.          Weight          =   400
  47.          Underline       =   0   'False
  48.          Italic          =   0   'False
  49.          Strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   375
  52.       Index           =   1
  53.       Left            =   1320
  54.       MaxLength       =   4
  55.       TabIndex        =   9
  56.       Text            =   "0"
  57.       Top             =   3720
  58.       Width           =   1020
  59.    End
  60.    Begin VB.ComboBox cmbCategory 
  61.       Height          =   330
  62.       Left            =   120
  63.       TabIndex        =   7
  64.       Text            =   "Combo1"
  65.       Top             =   3090
  66.       Width           =   6045
  67.    End
  68.    Begin VB.TextBox txtSerialnum 
  69.       BeginProperty Font 
  70.          Name            =   "Tahoma"
  71.          Size            =   8.25
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   375
  79.       Left            =   120
  80.       MaxLength       =   100
  81.       TabIndex        =   5
  82.       Top             =   2385
  83.       Width           =   6000
  84.    End
  85.    Begin VB.TextBox txtProdname 
  86.       BeginProperty Font 
  87.          Name            =   "Tahoma"
  88.          Size            =   8.25
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   375
  96.       Left            =   120
  97.       MaxLength       =   155
  98.       TabIndex        =   1
  99.       Top             =   825
  100.       Width           =   6000
  101.    End
  102.    Begin VB.TextBox txtDesc 
  103.       BeginProperty Font 
  104.          Name            =   "Tahoma"
  105.          Size            =   8.25
  106.          Charset         =   0
  107.          Weight          =   400
  108.          Underline       =   0   'False
  109.          Italic          =   0   'False
  110.          Strikethrough   =   0   'False
  111.       EndProperty
  112.       Height          =   750
  113.       Left            =   120
  114.       MaxLength       =   250
  115.       MultiLine       =   -1  'True
  116.       TabIndex        =   3
  117.       Top             =   1410
  118.       Width           =   6000
  119.    End
  120.    Begin VB.TextBox txtArray 
  121.       BeginProperty Font 
  122.          Name            =   "Tahoma"
  123.          Size            =   9
  124.          Charset         =   0
  125.          Weight          =   400
  126.          Underline       =   0   'False
  127.          Italic          =   0   'False
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.       Height          =   375
  131.       Index           =   2
  132.       Left            =   2520
  133.       MaxLength       =   4
  134.       TabIndex        =   10
  135.       Text            =   "0"
  136.       Top             =   3720
  137.       Width           =   1020
  138.    End
  139.    Begin VB.TextBox txtArray 
  140.       BeginProperty Font 
  141.          Name            =   "Tahoma"
  142.          Size            =   9
  143.          Charset         =   0
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   375
  150.       Index           =   3
  151.       Left            =   3840
  152.       MaxLength       =   4
  153.       TabIndex        =   11
  154.       Text            =   "0"
  155.       Top             =   3720
  156.       Width           =   1020
  157.    End
  158.    Begin VB.TextBox txtArray 
  159.       BeginProperty Font 
  160.          Name            =   "Tahoma"
  161.          Size            =   9
  162.          Charset         =   0
  163.          Weight          =   400
  164.          Underline       =   0   'False
  165.          Italic          =   0   'False
  166.          Strikethrough   =   0   'False
  167.       EndProperty
  168.       Height          =   375
  169.       Index           =   0
  170.       Left            =   120
  171.       MaxLength       =   8
  172.       TabIndex        =   8
  173.       Text            =   "0"
  174.       Top             =   3720
  175.       Width           =   1020
  176.    End
  177.    Begin VB.CommandButton cmdCancel 
  178.       Caption         =   "&Cancel"
  179.       Height          =   375
  180.       Left            =   5400
  181.       TabIndex        =   13
  182.       Top             =   4440
  183.       Width           =   855
  184.    End
  185.    Begin VB.CommandButton cmdOk 
  186.       Caption         =   "&Ok"
  187.       Height          =   375
  188.       Left            =   4440
  189.       TabIndex        =   12
  190.       Top             =   4440
  191.       Width           =   855
  192.    End
  193.    Begin VB.Label Label4 
  194.       AutoSize        =   -1  'True
  195.       Caption         =   "Selling Price"
  196.       Height          =   210
  197.       Left            =   1320
  198.       TabIndex        =   17
  199.       Top             =   3480
  200.       Width           =   870
  201.    End
  202.    Begin VB.Label Label10 
  203.       AutoSize        =   -1  'True
  204.       Caption         =   "Category If Any.."
  205.       Height          =   210
  206.       Left            =   120
  207.       TabIndex        =   6
  208.       Top             =   2835
  209.       Width           =   1230
  210.    End
  211.    Begin VB.Label Label1 
  212.       AutoSize        =   -1  'True
  213.       Caption         =   "*Product Name"
  214.       Height          =   195
  215.       Left            =   120
  216.       TabIndex        =   0
  217.       Top             =   585
  218.       Width           =   1305
  219.    End
  220.    Begin VB.Label Label2 
  221.       AutoSize        =   -1  'True
  222.       Caption         =   "Serial Number ** if any"
  223.       Height          =   210
  224.       Left            =   120
  225.       TabIndex        =   4
  226.       Top             =   2175
  227.       Width           =   1620
  228.    End
  229.    Begin VB.Label Label5 
  230.       AutoSize        =   -1  'True
  231.       Caption         =   "Description"
  232.       Height          =   195
  233.       Left            =   135
  234.       TabIndex        =   2
  235.       Top             =   1215
  236.       Width           =   960
  237.    End
  238.    Begin VB.Label Label6 
  239.       AutoSize        =   -1  'True
  240.       Caption         =   "Quantity In Stock"
  241.       Height          =   210
  242.       Left            =   2520
  243.       TabIndex        =   14
  244.       Top             =   3480
  245.       Width           =   1215
  246.    End
  247.    Begin VB.Label Label7 
  248.       AutoSize        =   -1  'True
  249.       Caption         =   "Reorder Level"
  250.       Height          =   210
  251.       Left            =   3840
  252.       TabIndex        =   15
  253.       Top             =   3480
  254.       Width           =   1020
  255.    End
  256.    Begin VB.Label Label8 
  257.       AutoSize        =   -1  'True
  258.       Caption         =   "*Unit Price"
  259.       Height          =   210
  260.       Left            =   120
  261.       TabIndex        =   16
  262.       Top             =   3495
  263.       Width           =   735
  264.    End
  265. End
  266. Attribute VB_Name = "frmProduct"
  267. Attribute VB_GlobalNameSpace = False
  268. Attribute VB_Creatable = False
  269. Attribute VB_PredeclaredId = True
  270. Attribute VB_Exposed = False
  271. Private Sub cmdCancel_Click()
  272. Unload Me
  273. End Sub
  274.  
  275. Private Sub cmdOk_Click()
  276. Unload Me
  277. End Sub
  278.  
  279.