www.pudn.com > 通用库存管理系统 vb.rar > 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