mdiform1.frm

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

FRM
1,455 行
字号
123
            Caption         =   "图书还回"
         End
      End
      Begin VB.Menu mnu客户管理查询 
         Caption         =   "客户管理查询"
         Begin VB.Menu mnu会员卡查询 
            Caption         =   "会员卡查询"
         End
         Begin VB.Menu mnu借还书查询 
            Caption         =   "借还书查询"
         End
      End
   End
   Begin VB.Menu mnu统计分析 
      Caption         =   "统计分析"
      Begin VB.Menu mnu销售排行 
         Caption         =   "销售排行"
      End
      Begin VB.Menu mnu库存分析 
         Caption         =   "库存分析"
      End
      Begin VB.Menu mnu销售统计表 
         Caption         =   "销售统计表"
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口"
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "层叠"
      End
      Begin VB.Menu mnuWindowTileHorizontal 
         Caption         =   "横向平铺"
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "纵向平铺"
      End
      Begin VB.Menu mnuWindowArrangeIcons 
         Caption         =   "排列图标"
      End
   End
   Begin VB.Menu mnu帮助 
      Caption         =   "帮助"
      Begin VB.Menu mnuHelpSearchForHelpOn 
         Caption         =   "帮助主题"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuLine7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpAbout 
         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
Dim frm As Form

Private Sub MDIForm_Activate()
      'SetToolBar ("0000X00X000X011X1")
End Sub

Private Sub MDIForm_Load()
    On Error GoTo err
    
    Me.sbStatusBar.Panels(1).Text = "书店名称： " & strCompanyName
    Me.sbStatusBar.Panels(2).Text = "当前操作员： " & strUserName
    Me.sbStatusBar.Panels(6).Text = "版本号：" & strVer
    
    ' 以下检查软件是否已进行注册
    Dim strSQL As String
    Dim rs As ADODB.Recordset
    Dim strName As String, strRegCode As String
    Dim strTemp As String * 300, strKey As String
    
    strKey = "software\" & App.CompanyName & "\" & App.ProductName & "\REG"
    If Registry.GetKeyValue(HKEY_LOCAL_MACHINE, strKey, "RegisterCode", strTemp) Then
        strRegCode = Trim(strTemp)
    Else
        strRegCode = ""
    End If
    
    strSQL = "select chrCompanyName from Company"
    Set rs = cN.Execute(strSQL)
    If rs.EOF() Then err.Raise vbObjectError + 2, , "不能读取书店名称！"
    strName = Trim(rs.Fields("chrCompanyName"))
    Set rs = Nothing
    
    If Not CheckRegCode(strName, strRegCode) Then
        
        frmRegister.Show vbModal
        Dim blnOK As Boolean
        blnOK = frmRegister.blnOK
        Unload frmRegister
        If Not blnOK Then End     ' 注册失败，退出整个程序
    End If
    
    frmNavigate.Show
    
    Exit Sub
err:
    MsgBox "出现错误。" & err.Description
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
   Unload Me
End Sub

Public Sub mnuExit_Click()
  Unload Me
End Sub

Public Sub mnuHelpAbout_Click()
    FrmAbout.Move 4000, 2800
    FrmAbout.Show
'frmLoad.Show
'    Dim frmB As frmBookInputL
'    Set frmB = New frmBookInputL
'    frmB.intStatus = 12
'    frmB.txtFields(2).Text = GetLastInfo("software\" & App.CompanyName & "\" & App.ProductName & "\图书资料管理", "制品类型")
'    'frmB.txtFields(3).Text = GetLastInfo("software\" & App.CompanyName & "\" & App.ProductName & "\图书资料管理", "图书类型")
'    frmB.Show vbModal
'    Unload frmB
End Sub

Public Sub mnuHelpContents_Click()
'      Dim nRet As Integer
'
'    '如果这个工程没有帮助文件，显示消息给用户
'    '可以在“工程属性”对话框中为应用程序设置帮助文件
'    If Len(App.HelpFile) = 0 Then
'        MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
'    Else
'        On Error Resume Next
'        nRet = OSWinHelp(Me.Hwnd, App.HelpFile, 3, 0)
'        If err Then
'            MsgBox err.Description
'        End If
'    End If
End Sub

Public Sub mnuHelpSearchForHelpOn_Click()
'   Dim nRet As Integer

'    '如果这个工程没有帮助文件，显示消息给用户
'    '可以在“工程属性”对话框中为应用程序设置帮助文件

    
'    App.HelpFile = App.Path & "\书店管理系统帮助.chm"
'    Me.ActiveForm.HelpContextID = 1
    
    'SendKeys "{F1}"
    
'    If Len(App.HelpFile) = 0 Then
'        MsgBox "无法显示帮助目录，该工程没有相关联的帮助。", vbInformation, Me.Caption
'    Else
'
'    On Error Resume Next
'        nRet = OSWinHelp(Me.Hwnd, App.HelpFile, 261, 0)
'        If err Then
'            MsgBox err.Description
'        End If
'    End If
End Sub

Private Sub mnuWindowArrangeIcons_Click()
   Me.Arrange vbArrangeIcons
End Sub

Public Sub mnuWindowCascade_Click()
  Me.Arrange vbCascade
End Sub

Private Sub mnuWindowTileHorizontal_Click()
  Me.Arrange vbTileHorizontal
End Sub

Private Sub mnuWindowTileVertical_Click()
   Me.Arrange vbTileVertical
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
  frmCKQuery.Show
End Sub

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

Public Sub mnu出库单审核_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "库存管理.图书出库.出库单审核", False) Then
'       Exit Sub
'    End If
  frmCKAuditing.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
  frmCardManage.strWindowCaption = "换卡"
  If ShowMDIChildForm("换卡") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmCardManage" Then
            Unload frmCardManage
            Exit For
        End If
  Next frm
  
  frmCardManage.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
   frmCardQuery.Show
End Sub

Public Sub mnu会员卡挂失_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员卡管理.会员卡挂失", False) Then
'       Exit Sub
'  End If
  frmCardManage.strWindowCaption = "挂失"
  If ShowMDIChildForm("挂失") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmCardManage" Then
            Unload frmCardManage
            Exit For
        End If
  Next frm
  
  frmCardManage.Show
End Sub

Public Sub mnu会员卡解挂_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员卡管理.会员卡解挂", False) Then
'       Exit Sub
'  End If
  frmCardManage.strWindowCaption = "解挂"
  If ShowMDIChildForm("解挂") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmCardManage" Then
            Unload frmCardManage
            Exit For
        End If
  Next frm
  
  frmCardManage.Show
End Sub

Public Sub mnu会员卡作废_Click()
'  If Not checkpermission("书店管理系统", strUserName, , "客户管理.会员卡管理.会员卡作废", False) Then
'       Exit Sub
'  End If
  frmCardManage.strWindowCaption = "作废"
  If ShowMDIChildForm("作废") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmCardManage" Then
            Unload frmCardManage
            Exit For
        End If
  Next frm
  
  frmCardManage.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
  frmCardManage.strWindowCaption = "续卡"
  If ShowMDIChildForm("续卡") Then
    Exit Sub
  End If
  
  For Each frm In Forms
        If frm.Name = "frmCardManage" Then
            Unload frmCardManage
            Exit For
        End If
  Next frm
  
  frmCardManage.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
  frmJHSQuery.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
  frmStorageQuery.Show
End Sub

Public Sub mnu库存分析_Click()
'   Frm库存分析.Show
FrmKCFX.Show
End Sub

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

mdiform1.frm - 源码说明

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

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

⌨️ 快捷键说明

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