form1.frm

图书管理系统的毕业设计,希望能为大家带来帮助.

      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   99
      MouseIcon       =   "Form1.frx":F46CF
      ScaleWidth      =   59
      ScaleMode       =   0
      ScaleHeight     =   58
   End
   Begin as97Popup.asPopup asPopup1 
      Height          =   900
      Left            =   60
      Top             =   360
      Width           =   890
      _ExtentX        =   1561
      _ExtentY        =   1588
      CustomPicture   =   "Form1.frx":F4831
      MouseOverPicture=   "Form1.frx":F9035
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   99
      MouseIcon       =   "Form1.frx":FDA8B
      ScaleWidth      =   60
      ScaleMode       =   0
      ScaleHeight     =   60
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   1080
      TabIndex        =   3
      Top             =   8640
      Width           =   10935
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub asPopup1_Click(Cancel As Boolean)
If Frame2.Top >= 0 Then   '达到翻页效果
Do While Frame2.Top > -3000
Frame2.Top = Frame2.Top - 20
Loop
End If
If Frame3.Top >= 0 Then
Do While Frame3.Top > -3000
Frame3.Top = Frame3.Top - 20
Loop
End If
If Frame1.Top >= 0 Then
Do While Frame1.Top > -3000
Frame1.Top = Frame1.Top - 20
Loop
Else
Do While Frame1.Top <= 0
Frame1.Top = Frame1.Top + 20
Loop
End If
End Sub


Private Sub asPopup2_Click(Cancel As Boolean)
'------------------------测试frame1的位置，达到翻页效果
If Frame1.Top >= 0 Then
Do While Frame1.Top > -3000
Frame1.Top = Frame1.Top - 20
Loop
End If
'--------------------测试frame3的位置，达到翻页效果
If Frame3.Top >= 0 Then
Do While Frame3.Top > -3000
Frame3.Top = Frame3.Top - 20
Loop
End If
'---------------------开始对frame2进行翻页
If Frame2.Top >= 0 Then
Do While Frame2.Top > -3000
Frame2.Top = Frame2.Top - 20
Loop
Else
Do While Frame2.Top <= 0
Frame2.Top = Frame2.Top + 20
Loop
End If
End Sub

Private Sub asPopup3_Click(Cancel As Boolean)
If Frame1.Top >= 0 Then
Do While Frame1.Top > -3000
Frame1.Top = Frame1.Top - 20
Loop
End If
If Frame2.Top >= 0 Then
Do While Frame2.Top > -3000
Frame2.Top = Frame2.Top - 20
Loop
End If
If Frame3.Top >= 0 Then
Do While Frame3.Top > -3000
Frame3.Top = Frame3.Top - 20
Loop
Else
Do While Frame3.Top <= 0
Frame3.Top = Frame3.Top + 20
Loop
End If
End Sub

Private Sub asPopup4_Click(Cancel As Boolean)
Form8.Show 1
End Sub

Private Sub asPopup5_Click(Cancel As Boolean)
Dim a1 As String
a1 = MsgBox(id + "您好,您确定退出该系统管理吗?", vbQuestion + vbYesNo, "确认退出?")
If a1 = vbYes Then
End
End If
End Sub

Private Sub Form_Load()
If admin = False Then
asPopup3.Visible = False
asPopup4.Visible = False
asPopup5.Top = asPopup1.Top + (asPopup1.Height + 180) * 2
Timer2.Interval = 1000
ElseIf admin = True Then
Timer1.Interval = 1000
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim a1 As String
a1 = MsgBox(id + "您好,您确定退出该系统管理吗?", vbQuestion + vbYesNo, "确认退出?")
If a1 = vbYes Then
End
Else
Cancel = True
End If
End Sub

Private Sub Image10_Click()
ifuser = "0"
tkTable = "图书信息"
form6.Show 1
End Sub

Private Sub Image11_Click()
ifuser = "1"
form6.Show 1
End Sub

Private Sub Image12_Click()
ifuser = "1"
form6.Show 1
End Sub

Private Sub Image19_Click()
ifuser = "6"
form4.Show 1
form4.Top = form1.Top + 2900
form4.Left = form1.Left + 1060
End Sub

Private Sub Image2_Click()
ifuser = "2"
form6.Show 1
End Sub

Private Sub Image20_Click()
ifuser = "5"
tkTable = "个人信息"
form6.Show 1
End Sub

Private Sub Image21_Click()
ifuser = "3"
form5.Show 1
form5.Top = form1.Top + 2900
form5.Left = form1.Left + 1060
End Sub

Private Sub Image22_Click()
ifuser = "0"
tkTable = "个人信息"
form6.Show 1
End Sub

Private Sub Image23_Click()
ifuser = "0"
tkTable = "个人信息"
form6.Show 1
End Sub

Private Sub Image24_Click()
ifuser = "1"
tkTable = "个人信息"
form6.Show 1
End Sub

Private Sub Image25_Click()
ifuser = "1"
tkTable = "个人信息"
form6.Show 1
End Sub

Private Sub Image26_Click()
ifuser = "5"
tkTable = "个人信息"
form6.Show 1
End Sub

Private Sub Image3_Click()
ifuser = "4"
Load form4
form4.Show 1
form4.Top = form1.Top + 2900
form4.Left = form1.Left + 1060
End Sub
Private Sub Image4_Click()
Frame1.Top = -3000 '隐藏frame1的框架
End Sub

Private Sub Image7_Click()
Frame2.Top = -3000 '隐藏frame2的框架
End Sub

Private Sub Image8_Click()
Frame3.Top = -3000 '隐藏frame3的框架
End Sub

Private Sub Image9_Click()
Call Image10_Click
End Sub

Public Sub jie1()
If qy1.State = adStateOpen Then
qy1.Close
End If
qy1.Open "select * from 用户交流", cnn, adOpenKeyset, adLockOptimistic, adCmdText
Do While qy1.EOF = False
 If qy1.Fields(2) = id And qy1.Fields(5) = "0" Then
 Dim sstr3 As String
     sstr3 = MsgBox(qy1.Fields(3), vbQuestion + vbYesNo)
     '-------------
     If sstr3 = vbYes Then
        qy1.Fields(5) = "1"
        qy1.Update
       If qy2.State = adStateOpen Then '借书信息
         qy2.Close
       End If
         qy2.Open "select * from 借书信息", cnn, adOpenKeyset, adLockOptimistic, adCmdText
       If qy3.State = adStateOpen Then '借书批准
        qy3.Close
       End If
        qy3.Open "select * from 借书批准处 where 确认单号='" & qy1.Fields(0) & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText
       If qy4.State = adStateOpen Then
        qy4.Close
       End If
        qy4.Open "select * from 个人信息 where 学号='" & qy3.Fields(1) & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText
       If qy5.State = adStateOpen Then
        qy5.Close
       End If
        qy5.Open "select * from 图书信息 where 图书编号='" & qy3.Fields(2) & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText
     If qy3.Fields(7) = "1" Then
        qy2.AddNew
        qy2.Fields(1) = qy3.Fields(1) '学号
        qy2.Fields(2) = qy3.Fields(2) '图书编号
        qy2.Fields(3) = qy3.Fields(3) '借书日期
        qy2.Fields(4) = qy3.Fields(4) '操作人
        qy2.Fields(5) = qy3.Fields(5) '借出最终期限
        qy2.Fields(6) = qy3.Fields(6)
        qy5.Fields(6) = qy5.Fields(6) - 1 '图书数量-1
        qy4.Fields(9) = qy4.Fields(9) + 1 '借书数量+1
        qy1.Fields(3) = qy1.Fields(1) + "您好,你的借书请求己被管理员" + idname + "接受!"
        qy1.Update
        qy2.Update
        qy3.Delete
        qy3.Update
        qy4.Update
        qy5.Update
     ElseIf qy3.Fields(7) = "2" Then
       Do While qy2.EOF = False
        If qy2.Fields(1) = qy3.Fields(1) And qy2.Fields(2) = qy3.Fields(2) Then
        qy2.Delete
        qy5.Fields(6) = qy5.Fields(6) + 1
        qy4.Fields(9) = qy4.Fields(9) - 1
        qy1.Fields(3) = qy1.Fields(1) + "您好,你的还书请求己被管理员" + idname + "接受!"
        qy1.Fields(5) = "1"
        qy1.Update
        qy5.Update
        qy4.Update
        qy2.Update
        Exit Do
        Else
        qy2.MoveNext
        End If
       Loop
     ElseIf qy3.Fields(7) = "3" Then
        Do While qy2.EOF = False
        If qy2.Fields(1) = qy3.Fields(1) And qy2.Fields(2) = qy3.Fields(2) Then
        qy2.Fields(5) = qy3.Fields(5)
        qy1.Fields(3) = qy1.Fields(1) + "您好,你的图书续借请求己被管理员" + idname + "接受!"
        qy1.Fields(5) = "1"
        qy1.Update
        qy2.Update
        Exit Do
        Else
        qy2.MoveNext
        End If
       Loop
     End If
     '------------------------------
     Else
     If qy3.State = adStateOpen Then '借书批准
     qy3.Close
     End If
     qy3.Open "select * from 借书批准处 where 确认单号='" & qy1.Fields(0) & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText
     qy3.Delete
     qy1.Fields(3) = qy1.Fields(1) + "您好,您的请求被管理员" + idname + "拒绝!"
     qy1.Fields(5) = "1"
     qy1.Update
     qy3.Update
     End If
   Else
  qy1.MoveNext
  End If
  Loop
End Sub

Private Sub Timer1_Timer()
jie1
End Sub

Private Sub Timer2_Timer()
If qy1.State = adStateOpen Then
qy1.Close
End If
qy1.Open "select * from 用户交流", cnn, adOpenKeyset, adLockOptimistic, adCmdText
Do While qy1.EOF = False
 If qy1.Fields(1) = id And qy1.Fields(5) = "1" Then
 MsgBox qy1.Fields(3), vbOKOnly
 qy1.Delete
 qy1.Update
 Exit Sub
 Else
 qy1.MoveNext
 End If
Loop
End Sub

Private Sub Timer3_Timer()
If rst1.State = adStateOpen Then '借书批准
rst1.Close
End If
rst1.Open "select * from 系统", cnn, adOpenKeyset, adLockOptimistic, adCmdText
If rst1.Fields(2) <> nonull Then
adminid = rst1.Fields(2)
End If
If id = id1 Then
Label1.Caption = "用户" + idname + "您好! 欢迎进入本系统,当前管理员" + adminid + "为您服务!"
Else
Label1.Caption = "管理员你好,你正在使用新的操作对象,对象ID为:" + id
End If
End Sub