frmmain.frm

< 飞鸿商品>>零售是基于VB+SQL2000开的商品零售管理系统. 开发的很好.可以一看

      Begin VB.Menu m_m_paihang 
         Caption         =   "销售排行榜(&O)"
      End
      Begin VB.Menu m_m_minus 
         Caption         =   "应付账款查询(&Y)"
      End
      Begin VB.Menu m_m_daiqi 
         Caption         =   "冲减应付账款历史查询(&C)"
      End
      Begin VB.Menu m_m_cost 
         Caption         =   "商品成本修改历史查询(&A)"
      End
      Begin VB.Menu m_m_stock 
         Caption         =   "库存修改历史查询(&S)"
      End
      Begin VB.Menu m_m_backstock 
         Caption         =   "采购退货查询(&B)"
      End
   End
   Begin VB.Menu menu_m_print 
      Caption         =   "销售报表(&R)"
      Begin VB.Menu m_p_zhongjian 
         Caption         =   "当日销售明细(&S)      "
         Shortcut        =   {F5}
      End
      Begin VB.Menu m_p_kujian 
         Caption         =   "历史销售明细查询(&H)"
      End
   End
   Begin VB.Menu menu_m_sys 
      Caption         =   "系统维护(&A)"
      Begin VB.Menu m_changpwd 
         Caption         =   "密码更改"
      End
      Begin VB.Menu m_s_11 
         Caption         =   "-"
      End
      Begin VB.Menu m_s_manage 
         Caption         =   "管理员设置(&M)"
      End
      Begin VB.Menu m_sysset 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu m_m_b 
         Caption         =   "数据备份/还原  (&B)"
      End
      Begin VB.Menu m111 
         Caption         =   "-"
      End
      Begin VB.Menu m_s_bianma 
         Caption         =   "货品分类编码设置(&T)"
      End
      Begin VB.Menu m_s_danan 
         Caption         =   "货品档案  (&L)"
      End
      Begin VB.Menu m_s_kuhu 
         Caption         =   "客户资源管理(&C)"
      End
   End
   Begin VB.Menu m_windows 
      Caption         =   "窗口(&W) "
      Begin VB.Menu m_w_1 
         Caption         =   "层叠(&C)"
      End
      Begin VB.Menu m_w_2 
         Caption         =   "横向平铺(&H)"
      End
      Begin VB.Menu m_w3 
         Caption         =   "纵向平铺(&Z)"
      End
      Begin VB.Menu m_w_4 
         Caption         =   "排列图标(&P)"
      End
   End
   Begin VB.Menu menu_m_exit 
      Caption         =   "退出系统(&E)"
      Begin VB.Menu m_s_tui 
         Caption         =   "   退出(&E)   "
      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 m_changpwd_Click()
  frmChangPWD.Show
End Sub

Private Sub m_m_b_Click()
  frmBackup.Show
End Sub

Private Sub m_m_backstock_Click()
  frmV_BackStock.Show
End Sub

Private Sub m_m_baojing_Click()
  frmStock_laurm.Show
End Sub

Private Sub m_m_cost_Click()
  frmV_AlterCost.Show
End Sub

Private Sub m_m_daiqi_Click()
  frmYingfu_his.Show
End Sub

Private Sub m_m_kucun_Click()
  frmStockView.Show
End Sub

Private Sub m_m_mingxi_Click()
  frmRukuMX.Show
End Sub

Private Sub m_m_minus_Click()
  frmV_Minus.Show
End Sub

Private Sub m_m_paihang_Click()
  frmOrderBy.Show
End Sub

Private Sub m_m_ruku_Click()
  frmRukuList.Show
End Sub

Private Sub m_m_stock_Click()
  frmV_AlterStock.Show
End Sub

Private Sub m_m_youxiao_Click()
  frmV_Yingfu.Show
End Sub

Private Sub m_m_zongzhang_Click()
  frmPLUview.Show
End Sub

Private Sub m_p_kujian_Click()
  frmV_SellHis.Show
End Sub

Private Sub m_p_zhongjian_Click()
  frmV_SellToday.Show
End Sub

Private Sub m_s_alter_Click()
  frmAlterStock.Show
End Sub

Private Sub m_s_back_Click()
  frmBackStock.Show
End Sub

Private Sub m_s_bianma_Click()
  frmTypes.Show
End Sub

Private Sub m_s_cost_Click()
  frmAlterCost.Show
End Sub

Private Sub m_s_danan_Click()
  frmList.Show
End Sub

Private Sub m_s_kuhu_Click()
  frmClient.Show
End Sub

Private Sub m_s_manage_Click()
  frmSysSet.Show
End Sub

Private Sub m_s_tui_Click()
  Unload Me
End Sub

Private Sub m_sysset_Click()
If MsgBox("警告！您真的要进行系统初始化吗？" & vbCrLf & vbCrLf & _
  "      一旦初始化系统，所有数据均将丢失，且不可修复！" & vbCrLf & vbCrLf & vbCrLf & _
  "      （是/否）继续？", vbYesNo + 48, "系统警告") = vbNo Then Exit Sub

Dim Cmd As ADODB.Command

Conn.BeginTrans

Set Cmd = New ADODB.Command
Cmd.ActiveConnection = Conn
Cmd.CommandText = "execute resetsystem"
Cmd.CommandType = adCmdText
Cmd.Execute

Conn.CommitTrans

MsgBox "系统初始化已经完成！", 64

End Sub

Private Sub m_t_chong_Click()
  frmMinus.Show
End Sub

Private Sub m_t_ruku_Click()
  frmInput.Show
End Sub

Private Sub m_t_tiaojia_Click()
  frmTiaoJia.Show
End Sub

Private Sub m_t_xian_Click()
  frmXianZi.Show
End Sub

Private Sub m_w_1_Click()
  Me.Arrange vbCascade
End Sub

Private Sub m_w_2_Click()
  Me.Arrange vbTileHorizontal
End Sub

Private Sub m_w_4_Click()
  Me.Arrange vbArrangeIcons
End Sub

Private Sub m_w3_Click()
  Me.Arrange vbTileVertical
End Sub

Private Sub MDIForm_Load()
  If ViewStock = True Then ViewStock = False: frmStock_laurm.Show
  stb.Panels(6).Text = "当前用户： " & UserName
  Me.Caption = SysCaption
  Me.Left = 0
  Me.Top = 0
  Me.Height = 8685
  Me.Width = 12000
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("您真的要退出本系统吗？", 32 + vbYesNo, SysCaption) = vbNo Then Cancel = True
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
  Conn.Close
  Set Conn = Nothing
  Set frmMain = Nothing
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Caption
  Case "入库"
    frmInput.Show
  Case "冲减应付款"
    frmMinus.Show
  Case "调价"
    frmTiaoJia.Show
  Case "入库综合查询"
    frmRukuList.Show
  Case "库存浏览"
    frmStockView.Show
  Case "销售排行"
    frmOrderBy.Show
  Case "日销售报表"
    frmV_SellToday.Show
  Case "退  出"
    Unload Me
End Select

End Sub