mdiform1.frm

这是一个仓库管理系统做不全

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "欢迎使用进销存管理系统"
   ClientHeight    =   9495
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   10635
   LinkTopic       =   "MDIForm1"
   Picture         =   "MDIForm1.frx":0000
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu wj 
      Caption         =   "文件(&f)"
      Begin VB.Menu mc 
         Caption         =   "修改密码"
      End
      Begin VB.Menu gl 
         Caption         =   "用户管理"
         Begin VB.Menu czyh 
            Caption         =   "查找用户"
         End
         Begin VB.Menu tjyh 
            Caption         =   "添加用户"
         End
         Begin VB.Menu scyh 
            Caption         =   "删除用户"
         End
      End
      Begin VB.Menu zc 
         Caption         =   "注销"
      End
      Begin VB.Menu exit 
         Caption         =   "退出(&e)"
      End
   End
   Begin VB.Menu bj 
      Caption         =   "编辑(&b)"
      Begin VB.Menu ck 
         Caption         =   "查看"
         Begin VB.Menu qcsj 
            Caption         =   "期初数据"
         End
         Begin VB.Menu grxx 
            Caption         =   "购入信息"
         End
         Begin VB.Menu xsxx 
            Caption         =   "销售信息"
         End
         Begin VB.Menu jcxx 
            Caption         =   "结存信息"
         End
      End
      Begin VB.Menu czhw 
         Caption         =   "查找货物"
      End
      Begin VB.Menu tjhw 
         Caption         =   "添加货物"
      End
   End
   Begin VB.Menu cy 
      Caption         =   "常用(&c)"
      Begin VB.Menu xs 
         Caption         =   "销售"
         Begin VB.Menu sc 
            Caption         =   "删除"
         End
         Begin VB.Menu xg 
            Caption         =   "修改"
         End
      End
      Begin VB.Menu gr 
         Caption         =   "购入"
         Begin VB.Menu sc1 
            Caption         =   "删除"
         End
         Begin VB.Menu xg1 
            Caption         =   "修改"
         End
      End
      Begin VB.Menu hw1 
         Caption         =   "货物"
         Begin VB.Menu xghw 
            Caption         =   "修改"
         End
         Begin VB.Menu schw 
            Caption         =   "删除"
         End
      End
   End
   Begin VB.Menu jl 
      Caption         =   "记录(&j)"
      Begin VB.Menu tjxs 
         Caption         =   "添加销售"
      End
      Begin VB.Menu tjgr 
         Caption         =   "添加购入"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "帮助(&h)"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bz_Click()
Call sh
Form7.Show
End Sub
Private Sub czhw_Click()
Call sh
Form6.Show
Form6.Caption = "查找货物"
End Sub
Private Sub czyh_Click()
Call sh
Form3.Caption = "查找用户"
Form3.Show
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub grxx_Click()
h = 2
Call sh
Form4.Show
Form4.Caption = "购入信息表"
End Sub
Private Sub jcxx_Click()
h = 4
Call sh
Form4.Show
Form4.Caption = "结存信息表"
End Sub
Private Sub mc_Click()
Form2.Show
End Sub
Private Sub qcsj_Click()
h = 1
Call sh
Form4.Show
Form4.Caption = "期初信息表"
End Sub

Private Sub sc_Click()
Form4.Show
Call sh
Form4.Caption = "销售表删除界面"
End Sub

Private Sub sc1_Click()
Form4.Show
Call sh
Form4.Caption = "购入表删除界面"
End Sub

Private Sub schw_Click()
Form4.Show
Call sh
Form4.Caption = "货物表修改界面"
End Sub

Private Sub scyh_Click()
Call sh
Form3.Caption = "删除用户"
Form3.Show
End Sub

Private Sub tjgr_Click()
Form5.Show
Call sh
Form5.Caption = "添加货物购入记录"
End Sub

Private Sub tjhw_Click()
Call sh
Form5.Show
Form5.Caption = "添加货物"
End Sub

Private Sub tjxs_Click()
Form5.Show
Call sh
Form5.Caption = "添加销售记录"
End Sub

Private Sub tjyh_Click()
Call sh
Form3.Caption = "添加用户"
Form3.Show
End Sub

Private Sub xg_Click()
Form4.Show
Call sh
Form4.Caption = "销售表修改界面"
End Sub

Private Sub xg1_Click()
Form4.Show
Call sh
Form4.Caption = "购入表修改界面"
End Sub

Private Sub xghw_Click()
Form4.Show
Call sh
Form4.Caption = "货物表删除界面"
End Sub

Private Sub xsxx_Click()
h = 3
Call sh
Form4.Show
Form4.Caption = "销售信息表"
End Sub
Private Sub zc_Click()
Form1.txtName = ""
Form1.txtPwd = ""
Form1.Show
MDIForm1.Hide
Form1.txtName.SetFocus
End Sub