End
      Begin VB.Menu jscx 
         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 = "版權所有：明日科技 電話：0431-4972266 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