仓库查询系统的管理软件的源代码

				VERSION 5.00
				Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
				Begin VB.Form 主窗体 
				   BorderStyle     =   1  'Fixed Single
				   Caption         =   "仓库管理系统"
				   ClientHeight    =   7455
				   ClientLeft      =   45
				   ClientTop       =   435
				   ClientWidth     =   9900
				   LinkTopic       =   "Form1"
				   MaxButton       =   0   'False
				   Picture         =   "主窗体.frx":0000
				   ScaleHeight     =   7455
				   ScaleWidth      =   9900
				   StartUpPosition =   2  '屏幕中心
				   Begin VB.CommandButton Command2 
				      Caption         =   "库存查询"
				      Height          =   495
				      Left            =   7920
				      TabIndex        =   8
				      Top             =   4920
				      Width           =   1455
				   End
				   Begin VB.CommandButton Command8 
				      Caption         =   "出库查询"
				      Height          =   495
				      Left            =   7920
				      TabIndex        =   6
				      Top             =   4080
				      Width           =   1455
				   End
				   Begin VB.CommandButton Command5 
				      Caption         =   "货物出库"
				      Height          =   495
				      Left            =   7920
				      TabIndex        =   5
				      Top             =   2400
				      Width           =   1455
				   End
				   Begin VB.CommandButton Command4 
				      Caption         =   "入库查询"
				      Height          =   495
				      Left            =   7920
				      TabIndex        =   4
				      Top             =   3240
				      Width           =   1455
				   End
				   Begin VB.CommandButton Command1 
				      Caption         =   "货物入库"
				      Height          =   495
				      Left            =   7920
				      TabIndex        =   3
				      Top             =   1560
				      Width           =   1455
				   End
				   Begin VB.CommandButton Command11 
				      Caption         =   "注  销"
				      Height          =   495
				      Left            =   7920
				      TabIndex        =   2
				      Top             =   5760
				      Width           =   1455
				   End
				   Begin VB.CommandButton Command10 
				      Caption         =   "添加新用户"
				      Height          =   495
				      Left            =   720
				      TabIndex        =   1
				      Top             =   6480
				      Width           =   1455
				   End
				   Begin MSAdodcLib.Adodc Adodc1 
				      Height          =   375
				      Left            =   480
				      Top             =   4320
				      Visible         =   0   'False
				      Width           =   2175
				      _ExtentX        =   3836
				      _ExtentY        =   661
				      ConnectMode     =   0
				      CursorLocation  =   3
				      IsolationLevel  =   -1
				      ConnectionTimeout=   15
				      CommandTimeout  =   30
				      CursorType      =   3
				      LockType        =   3
				      CommandType     =   8
				      CursorOptions   =   0
				      CacheSize       =   50
				      MaxRecords      =   0
				      BOFAction       =   0
				      EOFAction       =   0
				      ConnectStringType=   1
				      Appearance      =   1
				      BackColor       =   -2147483643
				      ForeColor       =   -2147483640
				      Orientation     =   0
				      Enabled         =   -1
				      Connect         =   ""
				      OLEDBString     =   ""
				      OLEDBFile       =   ""
				      DataSourceName  =   ""
				      OtherAttributes =   ""
				      UserName        =   ""
				      Password        =   ""
				      RecordSource    =   ""
				      Caption         =   "Adodc1"
				      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
				         Name            =   "宋体"
				         Size            =   9
				         Charset         =   134
				         Weight          =   400
				         Underline       =   0   'False
				         Italic          =   0   'False
				         Strikethrough   =   0   'False
				      EndProperty
				      _Version        =   393216
				   End
				   Begin VB.CommandButton Command13 
				      Caption         =   "退出系统"
				      Height          =   495
				      Left            =   7920
				      TabIndex        =   0
				      Top             =   6600
				      Width           =   1455
				   End
				   Begin VB.Label Label1 
				      BackStyle       =   0  'Transparent
				      Caption         =   "欢迎使用仓库管理系统"
				      BeginProperty Font 
				         Name            =   "宋体"
				         Size            =   36
				         Charset         =   134
				         Weight          =   700
				         Underline       =   0   'False
				         Italic          =   0   'False
				         Strikethrough   =   0   'False
				      EndProperty
				      Height          =   855
				      Left            =   360
				      TabIndex        =   7
				      Top             =   720
				      Width           =   7455
				   End
				End
				Attribute VB_Name = "主窗体"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Private Sub Command1_Click()
				货物入库.Show
				End Sub
				
				Private Sub Command10_Click()
				新用户注册.Show
				End Sub
				
				Private Sub Command11_Click()
				Unload Me
				登录窗体.Show
				End Sub
				
				Private Sub Command13_Click()
				Unload Me
				
				End Sub
				
				Private Sub Command2_Click()
				库存查询.Show
				End Sub
				
				Private Sub Command4_Click()
				入库信息查询.Show
				End Sub
				
				Private Sub Command5_Click()
				
				货物出库.Show
				End Sub
				
				Private Sub Command8_Click()
				出库信息查询.Show
				End Sub