addrow4.frm

来自「一个关于电脑管理汽车的软件」· FRM 代码 · 共 545 行 · 第 1/2 页

VERSION 5.00
Object = "{40D97E01-4259-4398-B597-183C348B488F}#1.0#0"; "BSE.ocx"
Begin VB.Form AddRow4 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "编辑"
   ClientHeight    =   7575
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5040
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7575
   ScaleWidth      =   5040
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取 消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2640
      TabIndex        =   25
      Top             =   6960
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确 定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   840
      TabIndex        =   24
      Top             =   6960
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   6855
      Left            =   0
      TabIndex        =   0
      Top             =   -120
      Width           =   5055
      Begin VB.CommandButton cmdFind2 
         Height          =   375
         Left            =   4440
         Picture         =   "AddRow4.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   26
         Top             =   960
         Width           =   375
      End
      Begin VB.CommandButton cmdFind 
         Height          =   375
         Left            =   3960
         Picture         =   "AddRow4.frx":014A
         Style           =   1  'Graphical
         TabIndex        =   12
         Top             =   480
         Width           =   375
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         Index           =   3
         Left            =   1440
         TabIndex        =   11
         Top             =   3360
         Width           =   1215
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         Index           =   2
         Left            =   1440
         TabIndex        =   10
         Top             =   2880
         Width           =   2295
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         Index           =   1
         Left            =   1440
         TabIndex        =   9
         Top             =   2400
         Width           =   2295
      End
      Begin VB.ComboBox Combo1 
         Height          =   315
         Index           =   0
         Left            =   1440
         TabIndex        =   8
         Top             =   1920
         Width           =   2295
      End
      Begin VB.TextBox TexGoods 
         Height          =   375
         Index           =   8
         Left            =   1440
         TabIndex        =   7
         Top             =   6240
         Width           =   1695
      End
      Begin VB.TextBox TexGoods 
         Height          =   375
         Index           =   7
         Left            =   1440
         TabIndex        =   6
         Top             =   5760
         Width           =   1215
      End
      Begin VB.TextBox TexGoods 
         Height          =   375
         Index           =   6
         Left            =   1440
         TabIndex        =   5
         Top             =   5280
         Width           =   1215
      End
      Begin VB.TextBox TexGoods 
         Height          =   375
         Index           =   4
         Left            =   1440
         TabIndex        =   4
         Top             =   4320
         Width           =   1215
      End
      Begin VB.TextBox TexGoods 
         Height          =   375
         Index           =   2
         Left            =   1440
         TabIndex        =   3
         Top             =   1440
         Width           =   2895
      End
      Begin VB.TextBox TexGoods 
         Height          =   375
         Index           =   1
         Left            =   1440
         TabIndex        =   2
         Top             =   960
         Width           =   2895
      End
      Begin VB.TextBox TexGoods 
         Height          =   375
         Index           =   0
         Left            =   1440
         TabIndex        =   1
         Top             =   480
         Width           =   2295
      End
      Begin VB.Label Label1 
         Caption         =   "计量单位："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   12
         Left            =   240
         TabIndex        =   23
         Top             =   3360
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "入库货位："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   11
         Left            =   240
         TabIndex        =   22
         Top             =   6240
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "实销价："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   10
         Left            =   240
         TabIndex        =   21
         Top             =   5760
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "销售定价："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   9
         Left            =   240
         TabIndex        =   20
         Top             =   5280
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "数    量："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800000&
         Height          =   255
         Index           =   7
         Left            =   240
         TabIndex        =   19
         Top             =   4320
         Width           =   1215
      End
      Begin VB.Label Label1 
         Caption         =   "货品产地："
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False