main.frm

来自「一个自己编写的小型超市管理系统,实现比较简单的功能,供初学者学习参考用.」· FRM 代码 · 共 75 行

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00FFC0C0&
   Caption         =   "MDIForm1"
   ClientHeight    =   5175
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   9780
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu kcgl 
      Caption         =   "库存管理"
      Begin VB.Menu jinhuo 
         Caption         =   "进货"
      End
   End
   Begin VB.Menu xsgl 
      Caption         =   "销售管理"
      Begin VB.Menu sh 
         Caption         =   "售货"
      End
   End
   Begin VB.Menu xxcx 
      Caption         =   "信息查询"
      Begin VB.Menu jhcx 
         Caption         =   "进货查询"
      End
      Begin VB.Menu shcx 
         Caption         =   "售货查询"
      End
      Begin VB.Menu kccx 
         Caption         =   "库存查询"
      End
   End
   Begin VB.Menu xt 
      Caption         =   "系统"
      Begin VB.Menu tuichu 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub jhcx_Click()
    Load jinhuochaxun
End Sub

Private Sub jinhuo_Click()
    Load frmJinhuo
End Sub

Private Sub kccx_Click()
    Load kucunchaxun
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    End
End Sub

Private Sub sh_Click()
    Load shouhuo
End Sub

Private Sub shcx_Click()
     Load shouhuochaxun
End Sub

Private Sub tuichu_Click()
    End
End Sub