ͼ

图书管理系统很好的图书管理系统

VERSION 5.00
Begin VB.Form Formain 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "图书馆管理系统"
   ClientHeight    =   8115
   ClientLeft      =   975
   ClientTop       =   1305
   ClientWidth     =   11775
   BeginProperty Font 
      Name            =   "楷体_GB2312"
      Size            =   15
      Charset         =   134
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H008080FF&
   Icon            =   "图书馆管理系统.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "图书馆管理系统.frx":08CA
   ScaleHeight     =   8115
   ScaleWidth      =   11775
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   495
      Left            =   7560
      TabIndex        =   6
      Top             =   7320
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "登录"
      Height          =   495
      Left            =   5040
      TabIndex        =   5
      Top             =   7320
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      IMEMode         =   3  'DISABLE
      Left            =   6240
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   6000
      Width           =   2295
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   6240
      TabIndex        =   1
      Top             =   5160
      Width           =   2295
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   9360
      Top             =   7080
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "初始管理员ljj  密码 123"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5040
      TabIndex        =   7
      Top             =   6720
      Width           =   3495
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "密码"
      Height          =   495
      Left            =   4800
      TabIndex        =   4
      Top             =   6120
      Width           =   1215
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "管理员"
      Height          =   615
      Left            =   4560
      TabIndex        =   3
      Top             =   5280
      Width           =   1575
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Height          =   495
      Left            =   9600
      TabIndex        =   0
      Top             =   7440
      Width           =   2055
   End
   Begin VB.Menu dzgl 
      Caption         =   "读者管理(&W) "
      Begin VB.Menu dzxx 
         Caption         =   "读者信息"
         Enabled         =   0   'False
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu tsgl 
      Caption         =   "图书管理(&X)"
      Begin VB.Menu tsxx 
         Caption         =   "图书信息"
         Enabled         =   0   'False
         Shortcut        =   ^B
      End
      Begin VB.Menu tsjy 
         Caption         =   "图书借阅"
         Enabled         =   0   'False
         Shortcut        =   ^F
      End
      Begin VB.Menu tsgh 
         Caption         =   "图书归还"
         Enabled         =   0   'False
         Shortcut        =   ^G
      End
      Begin VB.Menu tsfk 
         Caption         =   "图书罚款"
         Enabled         =   0   'False
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu xtgl 
      Caption         =   "系统管理(&Z)"
      Begin VB.Menu gly 
         Caption         =   "管理员"
         Shortcut        =   {F1}
      End
      Begin VB.Menu gy 
         Caption         =   "关于"
         Shortcut        =   {F2}
      End
      Begin VB.Menu tc 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
   End
End
Attribute VB_Name = "Formain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()   '输入密码以后菜单按钮变为可用
If Text1.Text = "ljj" And Text2.Text = "123" Then
   dzxx.Enabled = True
   tsxx.Enabled = True
   tsjy.Enabled = True
   tsgh.Enabled = True
   tsfk.Enabled = True
 End If
 Command1.Visible = False
 Command2.Visible = False
 Text1.Visible = False
 Text2.Visible = False
 Label2.Visible = False
 Label3.Visible = False
 Label4.Visible = False
End Sub

Private Sub Command2_Click()
End
End Sub



Private Sub dzxx_Click()
dzxxgl.Show
End Sub


Private Sub gly_Click()
MsgBox "请用初始的用户和密码登陆系统!"
End Sub






Private Sub tc_Click()
End
End Sub



Private Sub Timer1_Timer()
Label1.ForeColor = vbRed
Label1.Caption = Time
Label2.ForeColor = vbBlue
Label3.ForeColor = vbBlue
Label4.ForeColor = vbBlue
Label5.ForeColor = vbPurple
End Sub

Private Sub tsfk_Click()
tsfkgl.Show
End Sub

Private Sub tsgh_Click()
tsghgl.Show
End Sub

Private Sub tsjy_Click()
tsjygl.Show
End Sub

Private Sub tsxx_Click()
tsxxgl.Show
End Sub