frmmain.frm

图书馆管理系统 对图书进行管理

   Begin VB.Menu mnunew 
      Caption         =   "新书订购管理(&N)"
      Begin VB.Menu newbook 
         Caption         =   "订购新书(&B)"
         Shortcut        =   ^B
      End
      Begin VB.Menu mnunewbook 
         Caption         =   "验收新书(&R)"
         Shortcut        =   ^A
      End
      Begin VB.Menu bb 
         Caption         =   "-"
      End
      Begin VB.Menu mnufind 
         Caption         =   "入库图书查询(&F)"
         Shortcut        =   ^F
      End
      Begin VB.Menu tsjs 
         Caption         =   "库存图书检索(&S)"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu mnujy 
      Caption         =   "图书借阅管理(&J)"
      Begin VB.Menu mnudzgl 
         Caption         =   "读者信息管理(&D)"
         Shortcut        =   ^I
      End
      Begin VB.Menu mnujs 
         Caption         =   "读者借书管理(&S)"
         Shortcut        =   ^J
      End
      Begin VB.Menu mnuhsgl 
         Caption         =   "读者还书管理(&H)"
         Shortcut        =   ^H
      End
      Begin VB.Menu mnuxjgl 
         Caption         =   "读者续借管理(&L)"
         Shortcut        =   ^L
      End
      Begin VB.Menu mnupsgl 
         Caption         =   "图书丢失管理(&P)"
         Shortcut        =   ^P
      End
      Begin VB.Menu mnucqtx 
         Caption         =   "超期提醒(&C)"
         Shortcut        =   ^K
      End
   End
   Begin VB.Menu mnustat 
      Caption         =   "统计打印(&S)"
      Begin VB.Menu mnushumu 
         Caption         =   "书目分类统计(&T)"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuyuebao 
         Caption         =   "图书验收报表(&Y)"
         Shortcut        =   ^Z
      End
   End
   Begin VB.Menu mnuin 
      Caption         =   "系统管理(&I)"
      Begin VB.Menu YHGL 
         Caption         =   "用户管理(&A)"
      End
      Begin VB.Menu mnugeng 
         Caption         =   "更换操作员(&Y)"
      End
      Begin VB.Menu aa 
         Caption         =   "-"
      End
      Begin VB.Menu mnuupdate 
         Caption         =   "更换口令(&U)"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnusys 
         Caption         =   "系统设置(&T)"
         Shortcut        =   ^T
      End
      Begin VB.Menu mnuu 
         Caption         =   "-"
      End
      Begin VB.Menu mnuabout 
         Caption         =   "关   于(&A)"
         Shortcut        =   ^V
      End
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    Call Tree_change
    frmmain.Height = Screen.Height
    frmmain.Width = Screen.Width
End Sub

Public Sub Tree_change()
  Dim Key, Text, BH As String
  Dim Nod As Node
 Key = "图书馆管理系统"
 Text = "图书馆管理系统"
 Set Node1 = TreeView1.Nodes.Add(, , Key, Text, 0)
  Adodc1.RecordSource = "select * from Table_zcd "
  Adodc1.Refresh
     If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveFirst
          Do While Adodc1.Recordset.EOF = False
            Key = Trim(Adodc1.Recordset.Fields("主菜单名称"))
            Text = Adodc1.Recordset.Fields("主菜单名称")
            Set node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, Key, Text, 0)
                       Adodc2.RecordSource = "select * from Table_zcd_zcd where 主菜单名称='" + Adodc1.Recordset.Fields("主菜单名称") + "' "
                       Adodc2.Refresh
                            If Adodc2.Recordset.RecordCount > 0 Then
                            Adodc2.Recordset.MoveFirst
                                Do While Adodc2.Recordset.EOF = False
                                    Key = Trim(Adodc2.Recordset.Fields("子菜单名称"))
                                    Text = Adodc2.Recordset.Fields("子菜单名称")
                                    Set Node3 = TreeView1.Nodes.Add(node2.Index, tvwChild, Key, Text, 0)
                                    Adodc2.Recordset.MoveNext
                                Loop
                            Else
                            End If
            Adodc1.Recordset.MoveNext
          Loop
     Else
     End If
End Sub

Private Sub mnuabout_Click()
    frmAbout.Show 1
End Sub

Private Sub mnubedit_Click()
    frmbooksort1.Show 1
End Sub

Private Sub mnubooksort_Click()
    frmbooksort.Show 1
End Sub

Private Sub mnucm_Click()
    frmbook.Show 1
End Sub

Private Sub mnucqtx_Click()
    frmcqtx.Show 1
End Sub

Private Sub mnudown_Click()
    frmgua.Show 1
End Sub

Private Sub mnudzgl_Click()
    frmdzxxgl.Show 1
    frmdzxxgl.SSTab1.Tab = 0
End Sub

Private Sub mnuedit_Click()
    frmupdata.Show 1
End Sub

Private Sub mnuexit_Click()
   End
End Sub

Private Sub mnufen_Click()
    frmbooksort.Show 1
End Sub

Private Sub mnufind_Click()
   Unload frmupdate
   frmupdate.Refresh
   frmupdate.Show
   frmupdate.SSTab1.Tab = 1
End Sub

Private Sub mnuguanyu_Click()
    frmguanyu.Show 1
End Sub

Private Sub mnugeng_Click()
    frmLogin.Show
    Unload Me
End Sub

Private Sub mnuhsgl_Click()
    frmdzhsgl.Show 1
End Sub

Private Sub mnujs_Click()
    frmdzjsgl.Show 1
End Sub

Private Sub mnumana_Click()
    frmmana.Show 1
End Sub

Private Sub mnunewbook_Click()
    frm_temp_cx.Show 1
End Sub

Private Sub mnupsgl_Click()
    frmpsgl.Show 1
End Sub

Private Sub mnuquery_Click()
    frmbquery.Show 1
End Sub

Private Sub mnusc_Click()
    frmcoll.Show 1
End Sub

Private Sub mnushumu_Click()
    DataReport2.Show
End Sub

Private Sub mnusys_Click()
    frmsz.Show 1
End Sub

Private Sub mnuupdate_Click()
    frmup.Show 1
End Sub
Private Sub mnuxjgl_Click()
    frmxubook.Show
End Sub
Private Sub mnuys_Click()
    frmprint.Show 1
End Sub

Private Sub mnuyuebao_Click()
    frmyuebao.Show
End Sub

Private Sub newbook_Click()
    frmaddnew.Show 1
End Sub

Private Sub Timer2_Timer()
StatusBar1.Panels(3).Text = Format(Now, "yyyy年mm月dd日 hh点mm分ss秒")
End Sub

'Private Sub Timer1_Timer()
'    frmcqtx.Show
'End Sub
Private Sub Toolbar1_ButtonClick(ByVal button As MSComctlLib.button)
    Select Case button.Index
        Case 1
              frmaddnew.Show 1
        Case 2
              frmdzxxgl.Show 1
        Case 3
              frmdzjsgl.Show 1
        Case 4
             frmdzhsgl.Show 1
        Case 5
             frmcqtx.Show 1
        Case 6
             frm_lb_cx.Show 1
        Case 7
             Unload Me
    End Select
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  If TreeView1.SelectedItem.Key = "书商管理" Then frmmana.Show 1
  If TreeView1.SelectedItem.Key = "出版社管理" Then frmbook.Show 1
  If TreeView1.SelectedItem.Key = "收藏单位管理" Then frmcoll.Show 1
  If TreeView1.SelectedItem.Key = "印刷厂管理" Then frmprint.Show 1
  If TreeView1.SelectedItem.Key = "图书类别维护" Then frmbooksort.Show 1
  If TreeView1.SelectedItem.Key = "退出" Then End
  If TreeView1.SelectedItem.Key = "新书订购" Then frmaddnew.Show 1
  If TreeView1.SelectedItem.Key = "验收新书" Then frm_temp_cx.Show 1
  If TreeView1.SelectedItem.Key = "入库图书查询" Then
   Unload frmupdate
   frmupdate.Refresh
   frmupdate.Show
   frmupdate.SSTab1.Tab = 1

 Else
 End If
  If TreeView1.SelectedItem.Key = "库存图书检索" Then frm_lb_cx.Show 1
  If TreeView1.SelectedItem.Key = "读者信息管理" Then
    frmdzxxgl.Show 1
    frmdzxxgl.SSTab1.Tab = 0
 Else
 End If
  If TreeView1.SelectedItem.Key = "读者借书管理" Then frmdzjsgl.Show 1
  If TreeView1.SelectedItem.Key = "读者还书管理" Then frmdzhsgl.Show 1
  If TreeView1.SelectedItem.Key = "读者续借管理" Then frmxubook.Show
  If TreeView1.SelectedItem.Key = "图书丢失管理" Then frmpsgl.Show 1
  If TreeView1.SelectedItem.Key = "超期提醒" Then frmcqtx.Show 1
  If TreeView1.SelectedItem.Key = "书目分类统计" Then DataReport2.Show 1
  If TreeView1.SelectedItem.Key = "打印报表" Then frmyuebao.Show 1
  If TreeView1.SelectedItem.Key = "用户管理" Then frm_YHGL.Show 1
  If TreeView1.SelectedItem.Key = "更换操作员" Then
      frmLogin.Show
      Unload Me
      Exit Sub
  Else
  End If
  If TreeView1.SelectedItem.Key = "更换口令" Then frmup.Show 1
  If TreeView1.SelectedItem.Key = "系统设置" Then frmsz.Show 1
  If TreeView1.SelectedItem.Key = "关于" Then frmAbout.Show 1
End Sub

Private Sub tsjs_Click()
  frm_lb_cx.Show 1
End Sub

Private Sub YHGL_Click()
frm_YHGL.Show 1
End Sub