mdiform1.frm

主要是实现超市管理系统中条形码的串口编程

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "超市商品管理系统"
   ClientHeight    =   7545
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9180
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WhatsThisHelp   =   -1  'True
   WindowState     =   2  'Maximized
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu quit 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu view 
      Caption         =   "视图"
      Begin VB.Menu salemanage 
         Caption         =   "销售管理"
         Shortcut        =   ^M
      End
      Begin VB.Menu storemanage 
         Caption         =   "库存管理"
         Shortcut        =   ^I
      End
   End
   Begin VB.Menu manage 
      Caption         =   "管理"
      Begin VB.Menu settings 
         Caption         =   "串口设置"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu help1 
      Caption         =   "帮助"
      Begin VB.Menu help 
         Caption         =   "帮助"
         Shortcut        =   ^H
      End
      Begin VB.Menu about 
         Caption         =   "关于"
         Shortcut        =   ^A
      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 about_Click() '显示关于
    frmAbout.Show
End Sub

Private Sub ADDG_Click()
    frmAdd.Show
End Sub

Private Sub help_Click()
    Shell "hh.exe ass.chm", vbNormalNoFocus
End Sub

Private Sub MDIForm_Load() '显示销售表

    Form2.Show

End Sub

Private Sub quit_Click()   '关闭,退出
Unload Me
End Sub
  
Private Sub salemanage_Click()   '显示销售表
Form2.Show
End Sub

Private Sub settings_Click()    '显示串口表
Dialog.Show 1
End Sub

Private Sub storemanage_Click()  '显示库存表
Form1.Show
End Sub