frmgoodssub.frm

一个简单的快餐店收银软件

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmGoodsSub 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "商品编码总表"
   ClientHeight    =   5490
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8775
   Icon            =   "frmGoodsSub.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5490
   ScaleWidth      =   8775
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存(&S)"
      Height          =   375
      Left            =   6840
      TabIndex        =   2
      Top             =   5040
      Width           =   855
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出(&Q)"
      Height          =   375
      Left            =   7800
      TabIndex        =   1
      Top             =   5040
      Width           =   855
   End
   Begin TabDlg.SSTab sstBody 
      Height          =   4935
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   8775
      _ExtentX        =   15478
      _ExtentY        =   8705
      _Version        =   393216
      Style           =   1
      Tabs            =   1
      TabHeight       =   520
      TabCaption(0)   =   "1.设置"
      TabPicture(0)   =   "frmGoodsSub.frx":08CA
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "picTable"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).ControlCount=   1
      Begin VB.PictureBox picTable 
         BackColor       =   &H00FFFFFF&
         Height          =   4335
         Left            =   120
         ScaleHeight     =   4275
         ScaleWidth      =   8475
         TabIndex        =   4
         Top             =   480
         Width           =   8535
         Begin VB.TextBox txtgPriceCost 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   300
            Left            =   5040
            TabIndex        =   20
            Top             =   2925
            Width           =   2055
         End
         Begin VB.TextBox txtgPrice 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   300
            Left            =   1440
            TabIndex        =   19
            Top             =   2925
            Width           =   2175
         End
         Begin VB.TextBox txtgUnits 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   300
            Left            =   1440
            TabIndex        =   18
            Top             =   2520
            Width           =   1575
         End
         Begin VB.TextBox txtgModel 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   300
            Left            =   1440
            TabIndex        =   17
            Top             =   2140
            Width           =   3735
         End
         Begin VB.TextBox txtgName 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   300
            Left            =   1440
            TabIndex        =   16
            Top             =   1680
            Width           =   2775
         End
         Begin VB.TextBox txtgCode 
            Appearance      =   0  'Flat
            BackColor       =   &H00FFFFFF&
            BorderStyle     =   0  'None
            Height          =   300
            Left            =   1440
            TabIndex        =   0
            Top             =   840
            Width           =   2775
         End
         Begin VB.TextBox txtgBarCode 
            Appearance      =   0  'Flat
            BorderStyle     =   0  'None
            Height          =   300
            Left            =   1440
            TabIndex        =   6
            Top             =   1250
            Width           =   2175
         End
         Begin VB.TextBox txtgRemark 
            Appearance      =   0  'Flat
            BorderStyle     =   0  'None
            Height          =   570
            Left            =   1440
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   5
            Top             =   3360
            Width           =   5655
         End
         Begin VB.Line Line3 
            BorderColor     =   &H0034A70E&
            Index           =   1
            X1              =   4920
            X2              =   4920
            Y1              =   2880
            Y2              =   3285
         End
         Begin VB.Line Line3 
            BorderColor     =   &H0034A70E&
            Index           =   0
            X1              =   3720
            X2              =   3720
            Y1              =   2880
            Y2              =   3285
         End
         Begin VB.Line Line2 
            BorderColor     =   &H0034A70E&
            Index           =   5
            X1              =   120
            X2              =   7200
            Y1              =   3300
            Y2              =   3300
         End
         Begin VB.Line Line2 
            BorderColor     =   &H0034A70E&
            Index           =   3
            X1              =   120
            X2              =   7200
            Y1              =   2880
            Y2              =   2880
         End
         Begin VB.Line Line2 
            BorderColor     =   &H0034A70E&
            Index           =   2
            X1              =   120
            X2              =   7200
            Y1              =   2440
            Y2              =   2440
         End
         Begin VB.Line Line2 
            BorderColor     =   &H0034A70E&
            Index           =   1
            X1              =   120
            X2              =   7200
            Y1              =   2000
            Y2              =   2000
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "成本价:"
            Height          =   180
            Index           =   7
            Left            =   3960
            TabIndex        =   15
            Top             =   3000
            Width           =   630
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "单价:"
            Height          =   180
            Index           =   6
            Left            =   240
            TabIndex        =   14
            Top             =   3000
            Width           =   450
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "规格型号:"
            Height          =   180
            Index           =   5
            Left            =   240
            TabIndex        =   13
            Top             =   2160
            Width           =   810
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "计量单位:"
            Height          =   180
            Index           =   2
            Left            =   240
            TabIndex        =   12
            Top             =   2640
            Width           =   810
         End
         Begin VB.Label Label3 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "商品名称:"
            Height          =   180
            Index           =   1
            Left            =   240
            TabIndex        =   11
            Top             =   1680
            Width           =   810
         End
         Begin VB.Shape Shape1 
            BorderColor     =   &H0034A70E&
            FillColor       =   &H0034A70E&
            Height          =   3375
            Left            =   120
            Top             =   720
            Width           =   7095
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "商品编码总表"
            BeginProperty Font 
               Name            =   "宋体"