mdifrmmain.frm

库存管理系统

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
      Width           =   5550
      _ExtentX        =   9790
      _ExtentY        =   767
      BandCount       =   1
      _CBWidth        =   5550
      _CBHeight       =   435
      _Version        =   "6.7.8988"
      Child1          =   "MovingText1"
      MinHeight1      =   375
      Width1          =   990
      NewRow1         =   0   'False
      Begin MovingChar.MovingText MovingText1 
         Height          =   375
         Left            =   30
         TabIndex        =   1
         Top             =   30
         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 M项目 
      Caption         =   "项目"
      Begin VB.Menu M设置 
         Caption         =   "设置"
      End
   End
   Begin VB.Menu M入库 
      Caption         =   "入库"
      Index           =   1
      Begin VB.Menu M入库操作 
         Caption         =   "入库操作"
      End
   End
   Begin VB.Menu M出库 
      Caption         =   "出库"
      Begin VB.Menu M出库操作 
         Caption         =   "出库操作"
      End
   End
   Begin VB.Menu M报表 
      Caption         =   "报表"
      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 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