frm_main.frm

图书综合管理系统

         Caption         =   "借书查询"
      End
      Begin VB.Menu lin4 
         Caption         =   "-"
      End
      Begin VB.Menu hs 
         Caption         =   "还书管理"
      End
      Begin VB.Menu hscx 
         Caption         =   "还书查询"
      End
      Begin VB.Menu jscq 
         Caption         =   "书证到期提醒"
      End
   End
   Begin VB.Menu jcfx 
      Caption         =   "【决策分析】"
      Begin VB.Menu xlfx 
         Caption         =   "销量分析"
      End
      Begin VB.Menu jyfx 
         Caption         =   "借阅分析"
      End
      Begin VB.Menu kcfx 
         Caption         =   "库存分析"
      End
   End
   Begin VB.Menu xtgl 
      Caption         =   "【系统管理】"
      Begin VB.Menu czy 
         Caption         =   "操作员设置"
      End
      Begin VB.Menu mmsz 
         Caption         =   "密码设置"
      End
      Begin VB.Menu czyjbsz 
         Caption         =   "操作员级别设置"
      End
      Begin VB.Menu qxsz 
         Caption         =   "权限管理"
      End
   End
   Begin VB.Menu xtwh 
      Caption         =   "【系统维护】"
      Begin VB.Menu xtcsh 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu lin6 
         Caption         =   "-"
      End
      Begin VB.Menu sjbf 
         Caption         =   "数据备份"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "【帮助】"
      Begin VB.Menu help 
         Caption         =   "帮助"
         HelpContextID   =   1
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()     '显示软件名称及版本
 Me.Caption = App.Title & "  版本： V" & App.Major & "." & App.Minor & "." & App.Revision
 St1.Panels(2).text = "版权所有：明日科技 电话：[phone] http://www.mingrisoft.com"
End Sub
Private Sub Timer1_Timer()     '设置时间
 St1.Panels(1).text = Format(Date, "long date") & "    " & Time
End Sub
Private Sub tslb_Click()     '加载图书类别设置窗体
 Load main_jcxx_tslbsz
 main_jcxx_tslbsz.Show
 frm_main.Enabled = False
End Sub
Private Sub tsmlgl_Click()     '加载图书目录管理窗体
 Load main_jcxx_tsmlgl
 main_jcxx_tsmlgl.Show
 frm_main.Enabled = False
End Sub
Private Sub place_Click()     '加载图书存放位置窗体
 Load main_jcxx_tswzsz
 main_jcxx_tswzsz.Show
 frm_main.Enabled = False
End Sub
Private Sub rlbsz_Click()     '加载读者类别设置窗体
 Load main_jcxx_dzlbsz
 main_jcxx_dzlbsz.Show
 frm_main.Enabled = False
End Sub
Private Sub reads_Click()     '加载读者信息设置窗体
 Load main_jcxx_dzxxsz
 main_jcxx_dzxxsz.Show
 frm_main.Enabled = False
End Sub
Private Sub xztsrk_Click()     '加载图书入库窗体
 Load main_rcyw_tsrk
 main_rcyw_tsrk.Show
 frm_main.Enabled = False
End Sub
Private Sub rkcx_Click()     '加载入库查询窗体
 Load main_rcyw_rkcx
 main_rcyw_rkcx.Show
 frm_main.Enabled = False
End Sub
Private Sub tsxs_Click()     '加载图书销售窗体
 Load main_rcyw_tsxs
 main_rcyw_tsxs.Show
 frm_main.Enabled = False
End Sub
Private Sub xscx_Click()     '加载销售查询窗体
 Load main_rcyw_xscx
 main_rcyw_xscx.Show
 frm_main.Enabled = False
End Sub
Private Sub kccx_Click()     '加载库存查询窗体
 Load main_rcyw_kccx
 main_rcyw_kccx.Show
 frm_main.Enabled = False
End Sub
Private Sub kcsxx_Click()     '加载库存上限、下限设置窗体
 Load main_rcyw_kcsxx
 main_rcyw_kcsxx.Show
 frm_main.Enabled = False
End Sub
Private Sub kcyj_Click()     '加载库存预警窗体
 Load main_rcyw_kcyj
 main_rcyw_kcyj.Show
 frm_main.Enabled = False
End Sub
Private Sub js_Click()     '加载借书窗体
 Load main_jygl_js
 main_jygl_js.Show
 frm_main.Enabled = False
End Sub
Private Sub hs_Click()     '加载还书窗体
 Load main_jygl_hs
 main_jygl_hs.Show
 frm_main.Enabled = False
End Sub
Private Sub jscx_Click()     '加载借书查询窗体
 Load main_jygl_jscx
 main_jygl_jscx.Show
 frm_main.Enabled = False
End Sub
Private Sub hscx_Click()     '加载还书查询窗体
 Load main_jygl_hscx
 main_jygl_hscx.Show
 frm_main.Enabled = False
End Sub
Private Sub jscq_Click()     '加载借书超期窗体
 Load main_jygl_szdqtx
 main_jygl_szdqtx.Show
 frm_main.Enabled = False
End Sub
Private Sub xlfx_Click()     '加载销量分析窗体
 Load main_jcfx_xlfx
 main_jcfx_xlfx.Show
 frm_main.Enabled = False
End Sub
Private Sub jyfx_Click()     '加载借阅分析窗体
 Load main_jcfx_jyfx
 main_jcfx_jyfx.Show
 frm_main.Enabled = False
End Sub
Private Sub kcfx_Click()     '加载库存分析窗体
 Load main_jcfx_kcfx
 main_jcfx_kcfx.Show
 frm_main.Enabled = False
End Sub
Private Sub czy_Click()     '加载操作员设置窗体
 Load main_xtgl_czysz
 main_xtgl_czysz.Show
 frm_main.Enabled = False
End Sub
Private Sub mmsz_Click()     '加载密码设置窗体
 Load main_xtgl_mmsz
 main_xtgl_mmsz.Show
 frm_main.Enabled = False
End Sub
Private Sub czyjbsz_Click()     '加载操作员级别设置窗体
 Load main_xtgl_czyjbsz
 main_xtgl_czyjbsz.Show
 frm_main.Enabled = False
End Sub
Private Sub qxsz_Click()     '加载权限管理窗体
 Load main_xtgl_qxgl
 main_xtgl_qxgl.Show
 frm_main.Enabled = False
End Sub
Private Sub xtcsh_Click()     '加载系统初始化窗体
 Load main_xtwh_xtcsh
 main_xtwh_xtcsh.Show
 frm_main.Enabled = False
End Sub
Private Sub sjbf_Click()     '加载数据备份窗体
 Load main_xtwh_sjbf
 main_xtwh_sjbf.Show
 frm_main.Enabled = False
End Sub
Private Sub sjhf_Click()     '加载数据恢复窗体
 Load main_xtwh_sjhf
 main_xtwh_sjhf.Show
 frm_main.Enabled = False
End Sub
Private Sub help_Click()     '加载帮助窗体
 Load main_help
 main_help.Show
 frm_main.Enabled = False
End Sub
Private Sub about_Click()     '加载关于窗体
 Load main_About
 main_About.Show
 frm_main.Enabled = False
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 Select Case Button.key
   Case Is = "tslb"
     tslb_Click     '加载图书类别设置窗体
   Case Is = "mlgl"
     tsmlgl_Click
   Case Is = "tsrk"
     xztsrk_Click     '加载图书入库窗体
   Case Is = "tsjy"
     js_Click     '加载借书窗体
   Case Is = "tsgh"
     hs_Click     '加载还书窗体
   Case Is = "kccx"
     kccx_Click     '加载库存查询窗体
   Case Is = "qxgl"
     qxsz_Click     '加载权限管理窗体
   Case Is = "help"
     help_Click     '加载帮助窗体
   Case Is = "about"
     about_Click
   Case Is = "end"
     End
 End Select
End Sub
Private Sub exit_Click()
  End
End Sub