mdiform1.frm

来自「通用书店管理系统」· FRM 代码 · 共 1,455 行 · 第 1/3 页

FRM
1,455 行
字号
123
'       Exit Sub
'  End If
  frmStorageInputInformation.Show
End Sub



Public Sub mnu盘存信息录入_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.库存信息录入", False) Then
'       Exit Sub
'  End If
  frmStorageInput.Show
End Sub

Public Sub mnu库区管理_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "基础设置.库区管理", False) Then
'     Exit Sub
'  End If
  frmFields.strWindowCaption = "库区管理"
  If ShowMDIChildForm("库区管理") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmFields" Then
            Unload frmFields
            Exit For
        End If
  Next frm
  
  frmFields.Show
End Sub

Public Sub mnu历史库存查询_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.库存管理查询.历史库存查询", False) Then
'       Exit Sub
'  End If
  frmPDDate.strWindowCaption = "历史库存查询"
  If ShowMDIChildForm("历史库存查询") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmPDDate" Then
            Unload frmPDDate
            Exit For
        End If
  Next frm
  
  frmPDDate.Move 3000, 2500
  frmPDDate.Show
End Sub

Public Sub mnu零售查询_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.销售管理查询.零售查询", False) Then
'       Exit Sub
'  End If
  frmSellQuery.Show
End Sub

Public Sub mnu零售退书_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.零售管理.零售退书", False) Then
'       Exit Sub
'  End If
  frmUnSale.Show
End Sub

Public Sub mnu零售退书查询_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.销售管理查询.零售退书查询", False) Then
'       Exit Sub
'  End If
  frmUnsellQuery.Show
End Sub

Public Sub mnu盘点_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.盘点", False) Then
'       Exit Sub
'  End If
  frmPanDian.Show
End Sub

Public Sub mnu盘点控制_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.盘点控制", False) Then
'       Exit Sub
'    End If
  frmPDControl.Show 1
End Sub

Public Sub mnu盘点信息录入_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.盘点信息录入", False) Then
'       Exit Sub
'  End If
  frmPDDate.strWindowCaption = "盘点信息录入"
  If ShowMDIChildForm("盘点信息录入") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmPDDate" Then
            Unload frmPDDate
            Exit For
        End If
  Next frm
  
  frmPDDate.Move 3000, 2500
  frmPDDate.Show
End Sub

Public Sub mnu批发查询_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.销售管理查询.批发查询", False) Then
'       Exit Sub
'  End If
  frmPFSellQuery.Show
End Sub

Public Sub mnu批发退书_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.批发管理.批发退书", False) Then
'       Exit Sub
'  End If
  frmUnPFSale.Show
End Sub

Public Sub mnu批发退书查询_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.销售管理查询.批发退书查询", False) Then
'       Exit Sub
'  End If
  frmUnsellPFQuery.Show
End Sub

Public Sub mnu清除废卡_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员卡管理.清除废卡", False) Then
'       Exit Sub
'  End If
  frmDeleteCard.Show
End Sub

Public Sub mnu日志管理_Click()
'If Not checkpermission("书店管理系统", strUserName, , "系统管理.日常管理.日志管理", False) Then
'       Exit Sub
'  End If
End Sub

Public Sub mnu入库查询_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.库存管理查询.入库查询", False) Then
'       Exit Sub
'  End If
  frmRKQuery.Show
End Sub

Public Sub mnu入库单管理_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.图书入库.入库单管理", False) Then
'     Exit Sub
'  End If
  frmBookInStorage.Show
End Sub

Public Sub mnu入库单审核_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.图书入库.入库单审核", False) Then
'       Exit Sub
'  End If
  frmRKAuditing.Show
End Sub

Public Sub mnu入库类型管理_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "基础设置.出(入)库类型管理.入库类型管理", False) Then
'     Exit Sub
'  End If
  
  frmFields.strWindowCaption = "入库类型"
  If ShowMDIChildForm("入库类型") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmFields" Then
            Unload frmFields
            Exit For
        End If
  Next frm
  
  frmFields.Show
End Sub

Public Sub mnu使用单位设置_Click()
 '  If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.使用单位设置", False) Then
'       Exit Sub
'  End If
  frmFields.strWindowCaption = "使用单位设置"
  If ShowMDIChildForm("使用单位设置") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmFields" Then
            Unload frmFields
            Exit For
        End If
  Next frm
  
  frmFields.Show
End Sub



Public Sub mnu数据库备份_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "系统管理.数据库管理.数据库备份", False) Then
'       Exit Sub
'  End If
End Sub

Public Sub mnu数据库恢复_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "系统管理.数据库管理.数据库恢复", False) Then
'       Exit Sub
'  End If
End Sub

Public Sub mnu数据库压缩_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "系统管理.数据库管理.数据库压缩", False) Then
'     Exit Sub
'  End If
  
  CompactJetDatabase
End Sub

Public Sub mnu销售统计表_Click()
FrmYTJB.Show
End Sub

Public Sub mnu图书分类_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.图书分类", False) Then
'     Exit Sub
'  End If
  
  frmFields.strWindowCaption = "图书分类"
  If ShowMDIChildForm("图书分类") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmFields" Then
            Unload frmFields
            Exit For
        End If
  Next frm
  
  frmFields.Show
End Sub

Public Sub mnu图书还回_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "客户管理.借书管理.图书还回", False) Then
'       Exit Sub
'  End If
  
  frmReturnBooks.strWindowCaption = "还书"
  If ShowMDIChildForm("还书") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmReturnBooks" Then
            Unload frmReturnBooks
            Exit For
        End If
  Next frm
  
  frmReturnBooks.Show
End Sub

Public Sub mnu图书零售_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.零售管理.图书零售", False) Then
'       Exit Sub
'  End If
  frmSale.Show
End Sub

Public Sub mnu图书批发_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "销售管理.批发管理.图书批发", False) Then
'       Exit Sub
'  End If
  frmPFSale.Show
End Sub

Public Sub mnu图书外借_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "客户管理.借书管理.图书外借", False) Then
'       Exit Sub
'  End If
  frmBorrowBooks.Show
End Sub

Public Sub mnu图书销售价折扣管理_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书销售价折扣管理", False) Then
'     Exit Sub
'  End If
  
  frmFields.strWindowCaption = "图书销售价折扣"
  If ShowMDIChildForm("图书销售价折扣") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmFields" Then
            Unload frmFields
            Exit For
        End If
  Next frm
  
  frmFields.Show
End Sub

Public Sub mnu图书续借_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "客户管理.借书管理.图书续借", False) Then
'       Exit Sub
'  End If
  
  frmReturnBooks.strWindowCaption = "续借"
  If ShowMDIChildForm("续借") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmReturnBooks" Then
            Unload frmReturnBooks
            Exit For
        End If
  Next frm
  
  frmReturnBooks.Show
End Sub

Public Sub mnu图书资料管理_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "基础设置.图书资料管理", False) Then
'     Exit Sub
'  End If
  frmBook.Show
End Sub

Public Sub mnu销售排行_Click()
'   Frm销售排行.Show
FrmXSPH.Show
End Sub

Public Sub mnu修改密码_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "系统管理.日常管理.修改密码", False) Then
'       Exit Sub
'  End If
  frmchpwd.Show 1
End Sub

Public Sub mnu员工资料管理_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "基础设置.初期建帐管理.员工资料管理", False) Then
'       Exit Sub
'  End If
  
  frmFields.strWindowCaption = "员工资料管理"
  If ShowMDIChildForm("员工资料管理") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmFields" Then
            Unload frmFields
            Exit For
        End If
  Next frm
  
  frmFields.Show
End Sub

Public Sub mnu月统计表_Click()
'   Frm月统计表.Show
End Sub

Public Sub mnu制品分类_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "基础设置.制品图书分类管理.制品分类", False) Then
'     Exit Sub
'  End If
  
  frmFields.strWindowCaption = "制品分类"
  If ShowMDIChildForm("制品分类") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmFields" Then
            Unload frmFields
            Exit For
        End If
  Next frm
  
  frmFields.Show
End Sub


Public Sub mnu重新登录_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "系统管理.日常管理.重新登陆", False) Then
'       Exit Sub
'  End If
    Dim Control
    On Error Resume Next
    frmSysLogin.Show vbModal
    If frmSysLogin.blnLoginOK Then
        strUserName = Trim(frmSysLogin.txtUserName)
        strUserPasswd = Trim(frmSysLogin.txtPassword)
        Unload frmSysLogin
        

        '根据已经设好的权限判断菜单是否可用
        For Each Control In frmMain.Controls
            If UCase(TypeName(Control)) = "MENU" Then
                Select Case Control.Caption
                  Case "退出", "窗口", "帮助", "目录", "帮助主题", "关于", "层叠", "横向平铺", "纵向平铺", "排列图标", "系统管理"
                  Case Else
                    If Not checkpermission("书店管理系统", strUserName, , Control.Caption, True) Then
                       Control.Enabled = False
                    Else
                       Control.Enabled = True
                    End If
                End Select
            End If
        Next Control
        Me.sbStatusBar.Panels(1).Text = strUserName
        SetToolBar ("0000X00X001X111")
    Else
        Unload frmSysLogin
    End If
End Sub


Public Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
  On Error Resume Next
    Select Case Button.Key
        Case "New"
            Call Me.ActiveForm.cmdAddNew_Click
        Case "Edit"
            Call Me.ActiveForm.cmdEdit_Click
        Case "Delete"
            Call Me.ActiveForm.CmdDelete_Click
        Case "Refresh"
            Call Me.ActiveForm.cmdRefresh_Click
        Case "Undo"
            Call Me.ActiveForm.cmdUndo_Click
        Case "Save"
            Call Me.ActiveForm.CmdSave_Click
        Case "Audit"
            Call Me.ActiveForm.cmdAudit_Click
        Case "Cancel"
            If Forms.Count > 1 Then Call Me.ActiveForm.cmdCancel_Click
        Case "Query"
            Call Me.ActiveForm.cmdQuery_Click
        Case "Print"
            Call Me.ActiveForm.cmdPrint_Click
        Case "Help"
             If Forms.Count > 1 Then Call Me.ActiveForm.cmdHelp_Click
        Case "Exit"
            Unload Me
        Case "ReLogin"
            Call mnu重新登录_Click
        Case "Guide"
            'Me.picTree.Visible = Not Me.picTree.Visible
'            frmBrowser.Show
    End Select
 
    
End Sub


Public Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Dim response
    response = MsgBox("要退出书店管理系统吗？", vbOKCancel, "系统信息")
    If response = vbOK Then
      Cancel = 0
    Else
      Cancel = 1
    End If
End Sub

Public Sub cmdHelp_Click()
    '
End Sub

Public Sub cmdCancel_Click()
'
End Sub
123

mdiform1.frm - 源码说明

本页面展示了「通用书店管理系统」中的 mdiform1.frm 源码文件，采用 FRM 编程语言编写，共 1,455 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与书店管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?