booktop.frm

很好的图书馆系统你可以一去试一下很好用的

VERSION 5.00
Begin VB.Form BookTop 
   Caption         =   "图书馆管理系统 www.Uyghurvb.cn"
   ClientHeight    =   7665
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   10980
   BeginProperty Font 
      Name            =   "Hiyal Asliya Tom"
      Size            =   14.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   7665
   ScaleWidth      =   10980
   WindowState     =   2  'Maximized
   Begin VB.Menu KitabBaxkurux 
      Caption         =   "Kitab Baxkurux"
      Index           =   1
      Begin VB.Menu Tizhmlax 
         Caption         =   "Tizhmlax"
         Index           =   11
      End
      Begin VB.Menu AriyetBerix 
         Caption         =   "Ariyet Berix"
         Index           =   12
      End
      Begin VB.Menu Kayturux 
         Caption         =   "Kayturux"
         Index           =   15
      End
      Begin VB.Menu Izdex 
         Caption         =   "Izdex"
         Index           =   13
      End
      Begin VB.Menu Setix 
         Caption         =   "Setix"
         Index           =   14
      End
      Begin VB.Menu ssss 
         Caption         =   "ssss"
      End
   End
   Begin VB.Menu EzaBaxkurux 
      Caption         =   "Eza Baxkurux"
      Index           =   2
      Begin VB.Menu Ezatizimlax 
         Caption         =   "Eza tizimlax"
         Index           =   21
      End
      Begin VB.Menu EzaIzdex 
         Caption         =   "Eza Izdex"
         Index           =   22
      End
   End
   Begin VB.Menu SesthmaBfxkurux 
      Caption         =   "Sesthma Bfxkurux"
      Index           =   3
      Begin VB.Menu IxletkuqiBaxkurux 
         Caption         =   "Ixletkuqi Baxkurux"
      End
      Begin VB.Menu Zapaslax 
         Caption         =   "Zapaslax"
      End
      Begin VB.Menu EsligeKayturux 
         Caption         =   "Eslige Kayturux"
      End
   End
   Begin VB.Menu Hisabat 
      Caption         =   "Hisabat"
      Index           =   4
   End
   Begin VB.Menu Yardem 
      Caption         =   "Yardem"
   End
   Begin VB.Menu Qekinix 
      Caption         =   "Qekinix"
   End
End
Attribute VB_Name = "BookTop"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AriyetBerix_Click(Index As Integer)
KitabAriyetBerix.Show
End Sub

Private Sub Izdex_Click(Index As Integer)
KitabIzdex.Show
End Sub

Private Sub Kayturux_Click(Index As Integer)
KitabKayturux.Show
End Sub

Private Sub Qekinix_Click()
End
End Sub

Private Sub Setix_Click(Index As Integer)
KitabSetix.Show
End Sub

Private Sub Tizhmlax_Click(Index As Integer)
KitabTizimlax.Show
End Sub