form1.frm

来自「Gestion de una pizza rapida y sencilla」· FRM 代码 · 共 519 行 · 第 1/2 页

VERSION 5.00
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   AutoRedraw      =   -1  'True
   BackColor       =   &H80000005&
   Caption         =   "VENKY'S PIZZA HOUSE- ORDER  DETAILS"
   ClientHeight    =   6090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7770
   LinkTopic       =   "Form1"
   ScaleHeight     =   8490
   ScaleWidth      =   11880
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0C0C0&
      Caption         =   "Print"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9960
      Picture         =   "Form1.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   20
      ToolTipText     =   "Print Bill"
      Top             =   240
      Width           =   855
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   1095
      Left            =   240
      TabIndex        =   15
      Top             =   5520
      Width           =   8415
      Begin VB.Label Label9 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         Caption         =   "!!! THANK YOU COME AGAIN !!!"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   195
         Left            =   2160
         TabIndex        =   18
         Top             =   840
         Width           =   2790
      End
      Begin VB.Label LNP 
         AutoSize        =   -1  'True
         BackColor       =   &H80000009&
         Caption         =   "NP"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000C0&
         Height          =   195
         Left            =   4680
         TabIndex        =   17
         Top             =   360
         Width           =   270
      End
      Begin VB.Label Label8 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         Caption         =   "TOTAL AMMOUNT"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000040C0&
         Height          =   195
         Left            =   2160
         TabIndex        =   16
         Top             =   360
         Width           =   1620
      End
   End
   Begin VB.Image Image1 
      Height          =   2955
      Left            =   5280
      Picture         =   "Form1.frx":0399
      Top             =   1200
      Width           =   3750
   End
   Begin VB.Label Label10 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "DATE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   195
      Left            =   4080
      TabIndex        =   19
      Top             =   1320
      Width           =   510
   End
   Begin VB.Line Line4 
      X1              =   2760
      X2              =   2760
      Y1              =   4320
      Y2              =   5520
   End
   Begin VB.Line Line3 
      X1              =   240
      X2              =   240
      Y1              =   4320
      Y2              =   5640
   End
   Begin VB.Label LTOT 
      AutoSize        =   -1  'True
      BackColor       =   &H80000009&
      Caption         =   "TOT"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   195
      Index           =   0
      Left            =   6840
      TabIndex        =   14
      Top             =   5160
      Width           =   390
   End
   Begin VB.Label LUP 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "UPRICE"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   195
      Index           =   0
      Left            =   3960
      TabIndex        =   13
      Top             =   5160
      Width           =   705
   End
   Begin VB.Label LQTY 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "QTY"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   195
      Index           =   0
      Left            =   5640
      TabIndex        =   12
      Top             =   5160
      Width           =   390
   End
   Begin VB.Line Line7 
      X1              =   8640
      X2              =   8640
      Y1              =   4320
      Y2              =   5880
   End
   Begin VB.Label Label4 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "TOTAL"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000040C0&
      Height          =   195
      Left            =   6840
      TabIndex        =   11
      Top             =   4560
      Width           =   615
   End
   Begin VB.Line Line6 
      X1              =   6600
      X2              =   6600
      Y1              =   4320
      Y2              =   5520
   End
   Begin VB.Line Line5 
      X1              =   5280
      X2              =   5280
      Y1              =   4320
      Y2              =   5520
   End
   Begin VB.Label Label7 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      Caption         =   "QUANTITY"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25