frm.frm

一个企业进销存的系统 用ASP.NET作成 大家一起学习

VERSION 5.00
Begin VB.Form Frm 
   BackColor       =   &H8000000C&
   Caption         =   "工业企业进销存系统"
   ClientHeight    =   7005
   ClientLeft      =   165
   ClientTop       =   870
   ClientWidth     =   9480
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   7005
   ScaleWidth      =   9480
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu System 
      Caption         =   "系统"
      Begin VB.Menu s_pwd 
         Caption         =   "修改密码"
      End
      Begin VB.Menu s_user 
         Caption         =   "添加用户"
      End
      Begin VB.Menu S 
         Caption         =   "-"
      End
      Begin VB.Menu s_exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu J_sys 
      Caption         =   "基本消息设置"
      Begin VB.Menu J_cp 
         Caption         =   "产品设置"
      End
      Begin VB.Menu J_cpleibie 
         Caption         =   "产品类别设置"
      End
      Begin VB.Menu J_gsh 
         Caption         =   "供应商设置"
      End
      Begin VB.Menu J_kh 
         Caption         =   "客户设置"
      End
      Begin VB.Menu J_ywleibie 
         Caption         =   "业务员类别设置"
      End
      Begin VB.Menu J_ywy 
         Caption         =   "业务员设置"
      End
      Begin VB.Menu J_ck 
         Caption         =   "仓库设置"
      End
   End
End
Attribute VB_Name = "Frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Hide
Login.Show
End Sub

Private Sub J_ck_Click()
J_cksz.Show
End Sub

Private Sub J_cp_Click()
J_canpin.Show
End Sub

Private Sub J_cpleibie_Click()
J_canpinlb.Show
End Sub

Private Sub J_gsh_Click()
J_gys.Show
End Sub

Private Sub J_kh_Click()
J_kusz.Show
End Sub

Private Sub J_ywleibie_Click()
J_ywlbie.Show
End Sub

Private Sub J_ywy_Click()
J_yewuyuan.Show
End Sub

Private Sub s_exit_Click()
Unload Me
Unload Login
End Sub

Private Sub s_pwd_Click()
pwd_s.Show
End Sub

Private Sub s_user_Click()
add_user.Show
End Sub