frmstorageinputinformation.frm

来自「通用书店管理系统」· FRM 代码 · 共 566 行 · 第 1/2 页

VERSION 5.00
Begin VB.Form frmStorageInputInformation 
   Caption         =   "库区录入信息"
   ClientHeight    =   6780
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11625
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6780
   ScaleWidth      =   11625
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame2 
      BackColor       =   &H00C0C0C0&
      Height          =   4455
      Index           =   0
      Left            =   1260
      TabIndex        =   9
      Top             =   1560
      Width           =   9735
      Begin VB.CommandButton cmdExit 
         Height          =   435
         Index           =   0
         Left            =   8100
         Picture         =   "frmStorageInputInformation.frx":0000
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   3900
         Width           =   960
      End
      Begin VB.CommandButton cmdSave 
         Height          =   435
         Left            =   6900
         Picture         =   "frmStorageInputInformation.frx":14E4
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   3900
         Width           =   930
      End
      Begin VB.Frame Frame3 
         BackColor       =   &H00C0C0C0&
         Height          =   3615
         Left            =   120
         TabIndex        =   10
         Top             =   120
         Width           =   9495
         Begin VB.TextBox txtFields 
            BackColor       =   &H80000018&
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   405
            Index           =   2
            Left            =   6900
            TabIndex        =   19
            Top             =   420
            Width           =   1665
         End
         Begin VB.TextBox txtFields 
            BackColor       =   &H80000018&
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   405
            Index           =   1
            Left            =   1080
            TabIndex        =   17
            Top             =   420
            Width           =   4590
         End
         Begin VB.TextBox txtFields 
            BackColor       =   &H80000018&
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   405
            Index           =   4
            Left            =   1080
            TabIndex        =   15
            Top             =   2580
            Width           =   4545
         End
         Begin VB.TextBox txtFields 
            BackColor       =   &H80000018&
            Enabled         =   0   'False
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   405
            Index           =   3
            Left            =   1080
            TabIndex        =   13
            Top             =   1500
            Width           =   4575
         End
         Begin VB.TextBox txtFields 
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   405
            Index           =   5
            Left            =   6900
            TabIndex        =   2
            Top             =   2580
            Width           =   1665
         End
         Begin VB.Image Image1 
            Height          =   855
            Left            =   7320
            Picture         =   "frmStorageInputInformation.frx":29C8
            Top             =   1200
            Width           =   645
         End
         Begin VB.Label Label1 
            BackColor       =   &H00C0C0C0&
            Caption         =   "图书类型"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   7
            Left            =   5820
            TabIndex        =   18
            Top             =   480
            Width           =   945
         End
         Begin VB.Label Label1 
            BackColor       =   &H00C0C0C0&
            Caption         =   "书名"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   345
            Index           =   2
            Left            =   360
            TabIndex        =   16
            Top             =   480
            Width           =   720
         End
         Begin VB.Label Label1 
            BackColor       =   &H00C0C0C0&
            Caption         =   "供货商"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   9
            Left            =   240
            TabIndex        =   14
            Top             =   2700
            Width           =   780
         End
         Begin VB.Label Label1 
            BackColor       =   &H00C0C0C0&
            Caption         =   "出版社"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   8
            Left            =   240
            TabIndex        =   12
            Top             =   1620
            Width           =   720
         End
         Begin VB.Label Label1 
            BackColor       =   &H00C0C0C0&
            Caption         =   "数量"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   6
            Left            =   6000
            TabIndex        =   11
            Top             =   2640
            Width           =   600
         End
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "选择入库库区号"
      ForeColor       =   &H000000FF&
      Height          =   795
      Left            =   1260
      TabIndex        =   6
      Top             =   780
      Width           =   9735
      Begin VB.ComboBox cmbFields 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Index           =   0
         Left            =   1680
         TabIndex        =   0
         Top             =   240
         Width           =   2235
      End
      Begin VB.CommandButton cmdSearch 
         Height          =   315
         Index           =   0
         Left            =   8640
         Picture         =   "frmStorageInputInformation.frx":34F0
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   300
         Width           =   345
      End
      Begin VB.TextBox txtFields 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134