frm_main.frm

是基于C#语言的一个图书综合管理系统的开发案例,相当实用

         Caption         =   "借阅分析"
      End
      Begin VB.Menu kcfx 
         Caption         =   "库存分析"
      End
   End
   Begin VB.Menu xtgl 
      Caption         =   "系统管理(&S)"
      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         =   "系统维护(&V)"
      Begin VB.Menu xtcsh 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu lin6 
         Caption         =   "-"
      End
      Begin VB.Menu sjbf 
         Caption         =   "数据备份"
      End
      Begin VB.Menu SJHF 
         Caption         =   "数据恢复"
      End
   End
   Begin VB.Menu bz 
      Caption         =   "帮助(&H)"
      Begin VB.Menu help 
         Caption         =   "帮助"
         HelpContextID   =   1
      End
      Begin VB.Menu line6 
         Caption         =   "-"
      End
      Begin VB.Menu about 
         Caption         =   "关于"
      End
   End
   Begin VB.Menu tc 
      Caption         =   "退出(&E)"
   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 Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BorderStyle = 0
Label2.BorderStyle = 0
Label3.BorderStyle = 0
Label4.BorderStyle = 0
Label5.BorderStyle = 0
Label6.BorderStyle = 0
Label7.BorderStyle = 0
Label8.BorderStyle = 0
Label9.BorderStyle = 0
Label10.BorderStyle = 0
End Sub

Private Sub Label1_Click()  '入库查询
    rkcx_Click
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.BorderStyle = 1
End Sub

Private Sub Label10_Click() '书证到期提醒
    jscq_Click
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label10.BorderStyle = 1
End Sub

Private Sub Label2_Click()  '销售查询
    xscx_Click
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label2.BorderStyle = 1
End Sub

Private Sub Label3_Click()   '库存查询
    kccx_Click
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label3.BorderStyle = 1
End Sub

Private Sub Label4_Click()  '借书查询
    jscx_Click
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label4.BorderStyle = 1
End Sub

Private Sub Label5_Click()   '还书查询
    hscx_Click
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label5.BorderStyle = 1
End Sub

Private Sub Label6_Click()  '销量分析
    xlfx_Click
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label6.BorderStyle = 1
End Sub

Private Sub Label7_Click()  '借阅分析
    jyfx_Click
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label7.BorderStyle = 1
End Sub

Private Sub Label8_Click()  '库存分析
    kcfx_Click
End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label8.BorderStyle = 1
End Sub

Private Sub Label9_Click()  '库存预警
    kcyj_Click
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label9.BorderStyle = 1
End Sub

Private Sub tc_Click()  '退出
    End
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 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()     '加载数据备份窗体
On Error Resume Next    '进行错误处理
Shell App.Path & "\备份及恢复数据库.exe", 1
If Err.Number = 53 Then     '当产生文件为找到错误时，执行以下操作
CommonDialog1.Filter = "备份及恢复数据库|备份及恢复数据库.exe"  '设定打开文件类型
CommonDialog1.FileName = App.Path
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then    '判断打开文件路径是否为空
Shell CommonDialog1.FileName, 1
If Err Then
MsgBox "请指定文件所在路径。"
Exit Sub
End If
Else
MsgBox "请指定文件所在路径。"
Exit Sub
End If
End If
End
End Sub

Private Sub sjhf_Click()     '加载数据恢复窗体
On Error Resume Next
Shell App.Path & "\备份及恢复数据库.exe", 1
If Err.Number = 53 Then
CommonDialog1.Filter = "备份及恢复数据库|备份及恢复数据库.exe"
CommonDialog1.FileName = App.Path
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Shell CommonDialog1.FileName, 1
If Err Then
MsgBox "请指定文件所在路径。"
Exit Sub
End If
Else
MsgBox "请指定文件所在路径。"
Exit Sub
End If
End If
End

End Sub
Private Sub help_Click()     '加载帮助窗体
Load main_help
main_help.Show
End Sub
Private Sub about_Click()     '加载关于窗体
frm_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 = "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