mdifrmmain.frm

本系统是为了提高腾达公司自动化办公的水平、经过详细的调查分析初步制定了腾达公司库存信息管理系统。基于WINDOWS 98 平台

VERSION 5.00
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{D14FD2DC-9318-11D3-9CB7-000021ECAA5D}#5.0#0"; "MOVINGCHAR.OCX"
Begin VB.MDIForm MDIFrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "公司库存管理系统"
   ClientHeight    =   3900
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   5550
   Icon            =   "MDIFrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin ComCtl3.CoolBar CoolBar1 
      Align           =   1  'Align Top
      Height          =   435
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Visible         =   0   'False
      Width           =   5550
      _ExtentX        =   9790
      _ExtentY        =   767
      BandCount       =   1
      _CBWidth        =   5550
      _CBHeight       =   435
      _Version        =   "6.0.8169"
      Child1          =   "MovingText1"
      MinHeight1      =   375
      Width1          =   990
      NewRow1         =   0   'False
      Begin VB.CommandButton Command1 
         Height          =   495
         Left            =   0
         TabIndex        =   2
         Top             =   0
         Width           =   5535
      End
      Begin MovingChar.MovingText MovingText1 
         Height          =   375
         Left            =   30
         TabIndex        =   1
         Top             =   30
         Visible         =   0   'False
         Width           =   5430
         _ExtentX        =   9578
         _ExtentY        =   661
         MsgChar         =   "通用库存管理"
         CharColor       =   16711680
         BackColor       =   16761024
         MousePointer    =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
   Begin VB.Menu xt 
      Caption         =   "系统"
      Begin VB.Menu dl 
         Caption         =   "系统登录"
      End
      Begin VB.Menu tc 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu m项目 
      Caption         =   "项目"
      Enabled         =   0   'False
      Begin VB.Menu M设置 
         Caption         =   "设置"
      End
   End
   Begin VB.Menu m入库 
      Caption         =   "入库"
      Enabled         =   0   'False
      Begin VB.Menu M入库操作 
         Caption         =   "入库操作"
      End
   End
   Begin VB.Menu m出库 
      Caption         =   "出库"
      Enabled         =   0   'False
      Begin VB.Menu M出库操作 
         Caption         =   "出库操作"
      End
   End
   Begin VB.Menu M报表 
      Caption         =   "报表"
      Enabled         =   0   'False
      Begin VB.Menu M报表输出 
         Caption         =   "报表输出"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CoolBar1_Resize()
MovingText1.Width = CoolBar1.Width
End Sub

Private Sub dl_Click()
Form1.Show
End Sub

Private Sub MDIForm_Load()
Unload FrmSet
Unload frmRK
Unload frmPrint
Unload frmCK
'Unload FrmHY
End Sub

Private Sub M报表输出_Click()
frmPrint.Show
End Sub

Private Sub M出库操作_Click()
frmCK.Show
End Sub

Private Sub M入库操作_Click()
frmRK.Show
End Sub

Private Sub M设置_Click()
FrmSet.Show
End Sub