frmjinxiaochuan.frm

一个ERP系统可以用来学习之用

VERSION 5.00
Begin VB.Form frmJinXiaoChuan 
   Caption         =   "进销存管理糸统"
   ClientHeight    =   5310
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6885
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5310
   ScaleWidth      =   6885
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image imgbumen 
      Height          =   480
      Left            =   4800
      Picture         =   "frmJinXiaoChuan.frx":0000
      Top             =   4440
      Width           =   480
   End
   Begin VB.Label lblbumen 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "领料部门"
      Height          =   180
      Left            =   4680
      TabIndex        =   12
      Top             =   5040
      Width           =   720
   End
   Begin VB.Image imgkuchun 
      Height          =   480
      Left            =   3000
      Picture         =   "frmJinXiaoChuan.frx":0442
      Top             =   4440
      Width           =   480
   End
   Begin VB.Image imglinliaoqury 
      Height          =   480
      Left            =   1080
      Picture         =   "frmJinXiaoChuan.frx":0884
      Top             =   4440
      Width           =   480
   End
   Begin VB.Image imgLinliao 
      Height          =   480
      Left            =   3000
      Picture         =   "frmJinXiaoChuan.frx":0CC6
      Top             =   3360
      Width           =   480
   End
   Begin VB.Image imgWLSG 
      Height          =   480
      Left            =   1200
      Picture         =   "frmJinXiaoChuan.frx":1108
      Top             =   3360
      Width           =   480
   End
   Begin VB.Image imglinliaoman 
      Height          =   480
      Left            =   4800
      Picture         =   "frmJinXiaoChuan.frx":154A
      Top             =   2400
      Width           =   480
   End
   Begin VB.Image imghuistore 
      Height          =   480
      Left            =   3000
      Picture         =   "frmJinXiaoChuan.frx":198C
      Top             =   2400
      Width           =   480
   End
   Begin VB.Image imginstore 
      Height          =   480
      Left            =   1200
      Picture         =   "frmJinXiaoChuan.frx":1DCE
      Top             =   2400
      Width           =   480
   End
   Begin VB.Image imgTuihuo 
      Height          =   480
      Left            =   3000
      Picture         =   "frmJinXiaoChuan.frx":2210
      Top             =   1440
      Width           =   480
   End
   Begin VB.Label lbllinliaoqury 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "领料查询"
      Height          =   180
      Left            =   1080
      TabIndex        =   11
      Top             =   5040
      Width           =   720
   End
   Begin VB.Label lblhuistore 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "回仓单"
      Height          =   180
      Left            =   3000
      TabIndex        =   10
      Top             =   2880
      Width           =   540
   End
   Begin VB.Label lblWLSG 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "物料申购"
      Height          =   180
      Left            =   1080
      TabIndex        =   9
      Top             =   3840
      Width           =   720
   End
   Begin VB.Label lblLinliao 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "部门领料"
      Height          =   180
      Left            =   2880
      TabIndex        =   8
      Top             =   3840
      Width           =   720
   End
   Begin VB.Label lbllinliaoman 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "领料人员"
      Height          =   180
      Left            =   4680
      TabIndex        =   7
      Top             =   2880
      Width           =   720
   End
   Begin VB.Label lblinstore 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "物料入仓"
      Height          =   180
      Left            =   1080
      TabIndex        =   6
      Top             =   2880
      Width           =   720
   End
   Begin VB.Label lbltuihuo 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "退货表"
      Height          =   180
      Left            =   3000
      TabIndex        =   5
      Top             =   1920
      Width           =   540
   End
   Begin VB.Label lblkuchun 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "物料库存"
      Height          =   180
      Left            =   2880
      TabIndex        =   4
      Top             =   5040
      Width           =   720
   End
   Begin VB.Image imgExit 
      Height          =   480
      Left            =   6120
      Picture         =   "frmJinXiaoChuan.frx":2652
      Top             =   4680
      Width           =   480
   End
   Begin VB.Label lblleibie 
      BackStyle       =   0  'Transparent
      Caption         =   "物料类别"
      Height          =   255
      Left            =   4680
      TabIndex        =   3
      Top             =   3840
      Width           =   855
   End
   Begin VB.Image imgleibie 
      Height          =   480
      Left            =   4800
      Picture         =   "frmJinXiaoChuan.frx":2A94
      Top             =   3360
      Width           =   480
   End
   Begin VB.Label lblWlML 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "物料目录"
      Height          =   180
      Left            =   4680
      TabIndex        =   2
      Top             =   1920
      Width           =   720
   End
   Begin VB.Image imgwlml 
      Height          =   480
      Left            =   4800
      Picture         =   "frmJinXiaoChuan.frx":2ED6
      Top             =   1440
      Width           =   480
   End
   Begin VB.Label lblgys 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "供应商"
      ForeColor       =   &H80000008&
      Height          =   255
      Left            =   1200
      TabIndex        =   1
      Top             =   1920
      Width           =   615
   End
   Begin VB.Image imggys 
      Height          =   480
      Left            =   1200
      Picture         =   "frmJinXiaoChuan.frx":3318
      Top             =   1440
      Width           =   480
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "进销存管理糸统"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   36
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   855
      Left            =   480
      TabIndex        =   0
      Top             =   120
      Width           =   5895
   End
End
Attribute VB_Name = "frmJinXiaoChuan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Image2_Click()

End Sub

Private Sub Image1_Click()
    frmlinliaoman.Show
End Sub

Private Sub imgbumen_Click()
    frmlinliaobumen.Show
End Sub

Private Sub imgExit_Click()
    Unload Me
End Sub

Private Sub imgleibie_Click()
    frmleibie.Show
    Unload Me
End Sub

Private Sub imglinliaoman_Click()
    lbllinliaoman_Click
End Sub

Private Sub imgwlml_Click()
    frmWuliaomulu.Show
    Unload Me
End Sub


Private Sub Form_Load()
    frmJinXiaoChuan.BackColor = RGB(39, 160, 237)
End Sub
Private Sub imggys_Click()
    frmGongyingshang.Show
    Unload Me
End Sub

Private Sub lbl_Click()

End Sub

Private Sub lblbumen_Click()
    imgbumen_Click
End Sub

Private Sub lblgys_Click()
    imggys_Click
End Sub

Private Sub lblleibie_Click()
    imgleibie_Click
End Sub

Private Sub lbllinliaoman_Click()
    frmlinliaoman.Show
End Sub

Private Sub lblWlML_Click()
    imgwlml_Click
End Sub