frmmain.frm

mnnnml , ,l, ,mk mmkkmlklmkkkkkkkkkkkkkm,mkl

        Case "mnuColor4"
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
        Case "mnuStyle1"
             Call style1
        Case "mnuStyle2"
             Call style2
        Case "mnuStyle3"
            Call style3
        Case "mnuStyle4"
            Call style4
        Case "mnuStyle5"
            Call style5
        Case "mnuStylexp"
            Call xpstyle
        Case "mnuStylexp2"
            Call xpstyle2
        
        Case "mnu_sj_bf"
            Call mnu_bfsj
        Case "mnu_sj_hf"
            Call mnu_hfsj
        Case "mnu_sj_zl"
            Call zl_sj
        Case "mnu_sj_qk"
            Call mnu_qk
        Case "mnu_exe_sql"
            Frm_exesql.Show vbModal
        Case "mnu_quit"
            Unload Me
        
        Case "mnu_jb_ml"
            Frm_node.Show vbModal
        Case "mnu_jb_dw"
            FrmSet_lqdw.Show vbModal
        Case "mnu_jb_gr"
            FrmSet_jygr.Show vbModal
        Case "mnu_yf_gl"
            frmuser.Show vbModal
        
        Case "mnu_zl_wz"
             Frm_tjwz.Show vbModal
        Case "mnu_zl_bz"
             Frm_tjbz.Show vbModal
        Case "mnu_zl_ts"
             Frm_tjts.Show vbModal
        Case "mnu_zl_yx"
             Frm_tjyx.Show vbModal
        
         Case "mnu_zl_jy"
             Frm_jy_gl.Show vbModal
        
        
        Case "mnu_xf_tj"
             Frm_tjxf.Show vbModal
        Case "mnu_xf_gl"
             Frm_zlxf_gl.Show vbModal
             
        Case "mnu_yx_els"
             'frm_yx_els.Show vbModal
        
        
        Case "mnu_ck_gj"
             Call Toolbar1
        Case "mnu_ck_ts"
             Call StatusBar1
        Case "mnu_help_bz"
             Shell "hh.exe " & fullpath("html\myhelp.chm"), vbNormalFocus
        Case "mnu_help_about"
           frmAbout.Show vbModal
        
        
        Case Else
            'MsgBox "你选了<<" & MenuItemName & ">>菜单命令", vbInformation, "测试"
    End Select

End With
End Sub
Private Sub xpstyle()
  With CoolMenu1
            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = &HD2BDD6 '
            .MenuBarRightColor = &HD2BDD6
            .LeftBarTopColor = &HD1D8D8
            .MenuBackColor = &HF7F8F9
            
            .SepStyle = 0
            .TransitionDirect = 1
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 20
            .HiLightLeft = 0
            .IconBorderStyle = 0
            .BorderStyle = 1
            
            .MenuSelTextColor = vbBlack
  End With
End Sub

Private Sub xpstyle2()
    With CoolMenu1
            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = &HD2BDB6
            .MenuBarRightColor = &HFFDDFF
            .LeftBarTopColor = &HD1D8D8
            .MenuBackColor = &HF7F8F9
            
            .SepStyle = 0
            .TransitionDirect = 1
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 20
            .HiLightLeft = 0
            .IconBorderStyle = 0
            .BorderStyle = 1
            
            .MenuSelTextColor = vbBlack
    End With
End Sub
            
Private Sub style5()
         With CoolMenu1
            .HiLightBorderColor = vbHighlight
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbMenuBar
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar
            
            .MenuBackColor = vbMenuBar
            
            .SepStyle = 1
            .TransitionDirect = 1
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 3
            .BorderStyle = 0
            
            .MenuSelTextColor = vbHighlightText
         End With
End Sub
Private Sub style4()
         With CoolMenu1
            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar
'
            .SepStyle = 1
            .TransitionDirect = 4
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 4
            .BorderStyle = 4
            
            .MenuSelTextColor = vbBlack

         End With
End Sub
Private Sub style3()
         With CoolMenu1
             .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar

            .SepStyle = 1
            .TransitionDirect = 4
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 3
            .BorderStyle = 3
            
            .MenuSelTextColor = vbBlack
         End With
End Sub
Private Sub style2()
         With CoolMenu1
             .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar
            
            .MenuBackColor = vbMenuBar
            
            .SepStyle = 1
            .TransitionDirect = 0
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 0
            .IconBorderStyle = 0
            .BorderStyle = 0
            
            .MenuSelTextColor = vbHighlightText
         End With
End Sub
Private Sub style1()
         With CoolMenu1
            .HiLightBorderColor = &H6A240A
            .MenuBarLeftColor = vbHighlight
            .MenuBarRightColor = vbHighlight
            .LeftBarTopColor = vbHighlight
            .LeftBarBottomColor = vbMenuBar
            
            .MenuBackColor = vbMenuBar
            
            .SepStyle = 1
            .TransitionDirect = 0
            .IconLeft = 0
            .MenuTextLeft = 22
            .LeftBarWidth = 0
            .HiLightLeft = 21
            .IconBorderStyle = 3
            .BorderStyle = 0
            
            .MenuSelTextColor = vbHighlightText
         End With
End Sub

Private Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
    Case "图书资料"
    Frm_tjts.Show vbModal
    Case "文字资料"
    Frm_tjwz.Show vbModal
    Case "保障资料"
    Frm_tjbz.Show vbModal
    Case "影像资料"
    Frm_tjyx.Show vbModal
End Select

End Sub

Private Sub bkup()
          Dim db1 As Connection
           Set db1 = New Connection
          db1.CursorLocation = adUseClient
          db1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & fullpath("mdb\ziliao.lbl")
          sql1 = "insert into book_v in '" & sdest & "' select * from book_v"
          db1.Execute sql1
          sql1 = "insert into bzzl_v in '" & sdest & "' select * from bzzl_v "
          db1.Execute sql1
          sql1 = "insert into image_v in '" & sdest & "' select * from image_v"
          db1.Execute sql1
          sql1 = "insert into jy_jl in '" & sdest & "' select * from jy_jl"
          db1.Execute sql1
          sql1 = "insert into jygr_v in '" & sdest & "' select * from jygr_v"
          db1.Execute sql1
          sql1 = "insert into ml_v in '" & sdest & "' select * from ml_v"
          db1.Execute sql1
          sql1 = "insert into wzzl_v in '" & sdest & "' select * from wzzl_v"
          db1.Execute sql1
          sql1 = "insert into xfzl_lqdw in '" & sdest & "' select * from xfzl_lqdw"
          db1.Execute sql1
          sql1 = "insert into xfzl_v in '" & sdest & "' select * from xfzl_v"
          db1.Execute sql1
          sql1 = "insert into xfzl_xf_jl in '" & sdest & "' select * from xfzl_xf_jl"
          db1.Execute sql1
          sql1 = "insert into xfzl_xh_jl in '" & sdest & "' select * from xfzl_xh_jl"
          db1.Execute sql1
          MsgBox "数据备份成功！", vbInformation
End Sub

Private Sub zl_sj()
  yy = MsgBox("确认要删除无效记录吗？", vbQuestion + vbYesNo)
  If yy = vbYes Then
    Dim db1 As Connection
    Set db1 = New Connection
    db1.CursorLocation = adUseClient
    db1.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & fullpath("mdb\ziliao.lbl")
    db1.Execute "delete from xfzl_xf_jl where 名称 not in(select 名称 from xfzl_v)"
    db1.Execute "delete from xfzl_xh_jl where 名称 not in(select 名称 from xfzl_v)"
    db1.Execute "delete from jy_jl where 资料编号 not in (select 编号 from book_v) and  资料编号 not in (select 编号 from bzzl_v)" & _
                "and  资料编号 not in (select 编号 from image_v) and  资料编号 not in (select 编号 from wzzl_v)"
  MsgBox "整理完毕!", vbInformation
  End If
End Sub