frmmain.frm

利用Visual basic 构建POS进销存源码

VERSION 5.00
Begin VB.Form FRMMAIN 
   Caption         =   "零售业后台管理程序"
   ClientHeight    =   5310
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7140
   LinkTopic       =   "Form1"
   ScaleHeight     =   5310
   ScaleWidth      =   7140
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu 系统设定 
      Caption         =   "系统设定"
      Begin VB.Menu 基本设定 
         Caption         =   "基本设定"
      End
      Begin VB.Menu 重新登录 
         Caption         =   "重新登录"
      End
      Begin VB.Menu 设定卷标打印机 
         Caption         =   "设定卷标打印机"
      End
      Begin VB.Menu 设定价格显示器 
         Caption         =   "设定价格显示器"
      End
      Begin VB.Menu 设定发票打印机 
         Caption         =   "设定发票打印机"
      End
      Begin VB.Menu 结束 
         Caption         =   "结束"
      End
   End
   Begin VB.Menu 基本数据 
      Caption         =   "基本数据"
      Begin VB.Menu 人事数据处理 
         Caption         =   "人事数据处理"
      End
      Begin VB.Menu 商品数据处理 
         Caption         =   "商品数据处理"
      End
      Begin VB.Menu 会员数据处理 
         Caption         =   "会员数据处理"
      End
      Begin VB.Menu 厂商数据处理 
         Caption         =   "厂商数据处理"
      End
      Begin VB.Menu 客户数据处理 
         Caption         =   "客户数据处理"
      End
   End
   Begin VB.Menu 进货盘点 
      Caption         =   "进货盘点"
      Begin VB.Menu 进货数据处理 
         Caption         =   "进货数据处理"
      End
      Begin VB.Menu 盘点入暂存文件 
         Caption         =   "盘点入暂存文件"
      End
      Begin VB.Menu 暂存文件更新库存 
         Caption         =   "暂存文件更新库存"
      End
   End
   Begin VB.Menu 查询报表 
      Caption         =   "查询报表"
      Begin VB.Menu 商品查询报表 
         Caption         =   "商品查询报表"
      End
      Begin VB.Menu 会员基本数据 
         Caption         =   "会员基本数据"
      End
      Begin VB.Menu 厂商基本数据 
         Caption         =   "厂商基本数据"
      End
      Begin VB.Menu 用户登录报表 
         Caption         =   "用户登录报表"
      End
      Begin VB.Menu 送货日明细报表 
         Caption         =   "送货日明细报表"
      End
      Begin VB.Menu 盘点暂存文件报表 
         Caption         =   "盘点暂存文件报表"
      End
      Begin VB.Menu 盘点盈亏统计表 
         Caption         =   "盘点盈亏统计表"
      End
      Begin VB.Menu 销售日报表 
         Caption         =   "销售日报表"
      End
      Begin VB.Menu 发票记录明细表 
         Caption         =   "发票记录明细表"
      End
      Begin VB.Menu 礼卷刷卡明细表 
         Caption         =   "礼卷刷卡明细表"
      End
      Begin VB.Menu 产品销售排行榜 
         Caption         =   "产品销售排行榜"
      End
      Begin VB.Menu 会员消费排行榜 
         Caption         =   "会员消费排行榜"
      End
   End
End
Attribute VB_Name = "FRMMAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub 人事数据处理_Click()
   Load FMBMAN
   FMBMAN.Show vbModal
   Unload FMBMAN
 
 End Sub
 
 Private Sub 用户登录表_Click()
   Load RMLOGIN
   RMLOGIN.Show vbModal
   Unload RMLOGIN
 
 End Sub
 
 Private Sub 客户数据处理_Click()
   Load FMBCST
   FMBCST.Show vbModal
   Unload FMBCST
   
 End Sub
 




Private Sub 商品查询报表_Click()
     Load RMBGDS
     RMBGDS.Show vbModal
     Unload RMBGDS
End Sub

Private Sub 用户登录报表_Click()
    Load RMLOGIN
    RMLOGIN.Show vbModal
    Unload RMLOGIN
    
End Sub

 Private Sub 重新登录_Click()
   Load FMLOGIN
   FMLOGIN.Show vbModal
   Unload FMLOGIN
 
 End Sub
 
 Private Sub 商品基本数据_Click()
   Load RMBGDS
   RMBGDS.Show vbModal
   Unload RMBGDS
 
 End Sub
 
 Private Sub 商品数据处理_Click()
   Load FMBGDS
   FMBGDS.Show vbModal
   Unload FMBGDS
 
 End Sub
 
 Private Sub 基本设定_Click()
   Load FMMAINS
   FMMAINS.Show vbModal
   Unload FMMAINS
 
 End Sub
 
 Private Sub 产品销售排行榜_Click()
 
   Load RMTOPBGDS
   RMTOPBGDS.Show vbModal
   Unload RMTOPBGDS
 
 End Sub
 
 Private Sub 设定发票打印机_Click()
   Load FMINVOICE
   FMINVOICE.Show vbModal
   Unload FMINVOICE
 
 End Sub
 
 Private Sub 设定价格显示器_Click()
   Load FMDSP
   FMDSP.Show vbModal
   Unload FMDSP
 
 End Sub
 
 Private Sub 设定卷标打印机_Click()
   Load FMCLEVER
   FMCLEVER.Show vbModal
   Unload FMCLEVER
 
 End Sub
 
 Private Sub 发票记录明细表_Click()
   Load RMPOSAINVOICE
   RMPOSAINVOICE.Show vbModal
   Unload RMPOSAINVOICE
 
 End Sub
 Private Sub 送货日明细报表_Click()
    Load RMRCIN
    RMRCIN.Show vbModal
    Unload RMRCIN
End Sub
 Private Sub 结束_Click()
   Unload FRMMAIN
 End Sub
 
 Private Sub 进货报表制作_Click()
   Load RMRCIN
   RMRCIN.Show vbModal
   Unload RMRCIN
 
 End Sub
 
 Private Sub 进货数据处理_Click()
   Load FMRCIN
   FMRCIN.Show vbModal
   Unload FMRCIN
 
 End Sub
 
 Private Sub 会员消费排行榜_Click()
   Load RMTOPBMEM
   RMTOPBMEM.Show vbModal
   Unload RMTOPBMEM
 
 End Sub
 
 Private Sub 会员基本数据_Click()
   Load RMBMEM
   RMBMEM.Show vbModal
   Unload RMBMEM
 
 End Sub
 
 Private Sub 会员数据处理_Click()
   Load FMBMEM
   FMBMEM.Show vbModal
   Unload FMBMEM
 
 End Sub
 
 Private Sub 厂商基本数据_Click()
   Load RMBSUP
   RMBSUP.Show vbModal
   Unload RMBSUP
 
 End Sub
 
 Private Sub 厂商数据处理_Click()
   Load FMBSUP
   FMBSUP.Show vbModal
   Unload FMBSUP
 
 End Sub
 
 Private Sub 暂存档更新库存_Click()
   Load FMIVTT
   FMIVTT.Show vbModal
   Unload FMIVTT
 
 End Sub
 
 Private Sub 盘点盈余暂存文件_Click()
   Load FMIVTA
   FMIVTA.Show vbModal
   Unload FMIVTA
 
 End Sub
 
 Private Sub 盘点盈亏统计表_Click()
   Load RMIVTT
   RMIVTT.Show vbModal
   Unload RMIVTT
 
 End Sub
 
 Private Sub 盘点暂存文件报表_Click()
   Load RMIVTA
   RMIVTA.Show vbModal
   Unload RMIVTA
End Sub
 
 Private Sub 销售日报表_Click()
   Load RMPOSA
   RMPOSA.Show vbModal
   Unload RMPOSA
 
 End Sub
 
 Private Sub 礼卷刷卡明细表_Click()
   Load RMPOSACG
   RMPOSACG.Show vbModal
   Unload RMPOSACG
 
 End Sub