outstore.frm

用VB做的一个数据库管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form OutStore 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "出库单"
   ClientHeight    =   3615
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8475
   Icon            =   "OutStore.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3615
   ScaleWidth      =   8475
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox LHRtxt 
      Height          =   300
      Left            =   5745
      MaxLength       =   5
      TabIndex        =   1
      Top             =   795
      Width           =   900
   End
   Begin VB.TextBox ZSLtxt 
      Enabled         =   0   'False
      Height          =   300
      Left            =   4275
      TabIndex        =   3
      Top             =   1185
      Width           =   2370
   End
   Begin VB.TextBox ShuLiang 
      Height          =   285
      Left            =   4275
      MaxLength       =   8
      TabIndex        =   4
      Top             =   1575
      Width           =   2370
   End
   Begin VB.TextBox DanWei 
      Enabled         =   0   'False
      Height          =   285
      Left            =   4275
      MultiLine       =   -1  'True
      TabIndex        =   2
      Top             =   810
      Width           =   585
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   4275
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   345
      Width           =   2385
   End
   Begin VB.PictureBox Picture1 
      AutoRedraw      =   -1  'True
      BackColor       =   &H00808000&
      DrawStyle       =   3  'Dash-Dot
      FillStyle       =   2  'Horizontal Line
      Height          =   1125
      Left            =   2955
      ScaleHeight     =   1065
      ScaleWidth      =   5475
      TabIndex        =   11
      Top             =   2490
      Width           =   5535
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "产品类型:"
         BeginProperty Font 
            Name            =   "幼圆"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FF00&
         Height          =   360
         Left            =   360
         TabIndex        =   13
         Top             =   405
         Width           =   1710
      End
      Begin VB.Label Label5 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "产品类型:"
         BeginProperty Font 
            Name            =   "幼圆"
            Size            =   18
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   360
         Left            =   2085
         TabIndex        =   12
         Top             =   390
         Width           =   1710
      End
      Begin VB.Image Image1 
         Height          =   945
         Left            =   4200
         Picture         =   "OutStore.frx":08CA
         Stretch         =   -1  'True
         Top             =   60
         Width           =   915
      End
   End
   Begin VB.TextBox RQtxt 
      Enabled         =   0   'False
      Height          =   285
      Left            =   4275
      MultiLine       =   -1  'True
      TabIndex        =   8
      Top             =   2055
      Width           =   1215
   End
   Begin VB.TextBox JSRtxt 
      Enabled         =   0   'False
      Height          =   285
      Left            =   6720
      TabIndex        =   9
      Top             =   2055
      Width           =   1620
   End
   Begin VB.CommandButton ADDproduct 
      Caption         =   "产品出库"
      Default         =   -1  'True
      Enabled         =   0   'False
      Height          =   405
      Left            =   7125
      TabIndex        =   5
      Top             =   300
      Width           =   1215
   End
   Begin VB.CommandButton CloseForm 
      Cancel          =   -1  'True
      Caption         =   "关闭窗口"
      Height          =   405
      Left            =   7125
      TabIndex        =   6
      Top             =   690
      Width           =   1215
   End
   Begin VB.CommandButton PrintRK 
      Caption         =   "打印(&P)"
      Height          =   405
      Left            =   7125
      TabIndex        =   7
      Top             =   1095
      Width           =   1215
   End
   Begin VB.PictureBox Report1 
      Height          =   480
      Left            =   75
      ScaleHeight     =   420
      ScaleWidth      =   1140
      TabIndex        =   21
      Top             =   3045
      Width           =   1200
   End
   Begin MSFlexGridLib.MSFlexGrid Grid2 
      Height          =   3705
      Left            =   -30
      TabIndex        =   10
      Top             =   -15
      Width           =   2955
      _ExtentX        =   5212
      _ExtentY        =   6535
      _Version        =   393216
      Rows            =   12
      Cols            =   4
      ForeColor       =   0
      BackColorFixed  =   14737632
      BackColorSel    =   12648384
      ForeColorSel    =   8388608
      BackColorBkg    =   14737632
      GridColorFixed  =   8421376
      AllowBigSelection=   0   'False
      FocusRect       =   0
      ScrollBars      =   2
      SelectionMode   =   1
      Appearance      =   0
   End
   Begin VB.Label Label9 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "领货人："
      ForeColor       =   &H00808000&
      Height          =   180
      Left            =   5010
      TabIndex        =   20
      Top             =   855
      Width           =   630
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "总量："
      ForeColor       =   &H00808000&
      Height          =   180
      Left            =   3645
      TabIndex        =   19
      Top             =   1230
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "产品名称："
      ForeColor       =   &H00808000&
      Height          =   180
      Left            =   3300
      TabIndex        =   18
      Top             =   375
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "单位："
      ForeColor       =   &H00808000&
      Height          =   180
      Left            =   3645
      TabIndex        =   17
      Top             =   855
      Width           =   540
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "数量："
      ForeColor       =   &H00808000&
      Height          =   180
      Left            =   3645
      TabIndex        =   16
      Top             =   1635
      Width           =   540
   End
   Begin VB.Label Label6 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "日期："
      ForeColor       =   &H00808000&
      Height          =   180
      Left            =   3630
      TabIndex        =   15
      Top             =   2115
      Width           =   540
   End