form1.frm

这是一个图书馆管理系统源程序。非常有用

Private Sub asPopup1_Click(Cancel As Boolean)
PopupMenu a1
End Sub


Private Sub asPopup2_Click(Cancel As Boolean)
PopupMenu a2
End Sub

Private Sub asPopup3_Click(Cancel As Boolean)
PopupMenu a3
End Sub

Private Sub asPopup4_Click(Cancel As Boolean)
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = Form8.hWnd
fo2.Alpha = 80 / 100 * 255
Load Form8
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 delyh_Click()
ifuser = "5"
tkTable = "个人信息"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub Form_Load()
Me.Picture = LoadPicture(App.path & "\images\bg1.jpg")
If admin = False Then
asPopup3.Visible = False
asPopup4.Visible = False
asPopup5.Top = 3240
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 gjcz_Click()
ifuser = "5"
tkTable = "个人信息"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub grxx_Click()
ifuser = "4"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form4.hWnd
fo2.Alpha = 80 / 100 * 255
Load form4
form4.Show 1
End Sub

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

Private Sub Image27_Click()
Dim n As Integer
If XPFrame1.Left >= 0 Then
  Do While XPFrame1.Left >= -1440
     XPFrame1.Left = XPFrame1.Left - 1
  Loop
  Image27.Picture = LoadPicture(App.path & "\images\mover.jpg")
  Exit Sub
End If
If XPFrame1.Left <= -1440 Then
  Do While XPFrame1.Left <= 0
     XPFrame1.Left = XPFrame1.Left + 1
  Loop
  Image27.Picture = LoadPicture(App.path & "\images\movel.jpg")
  Exit Sub
End If
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 Image6_Click()

End Sub

Private Sub jsxx_Click()
ifuser = "2"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
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

Private Sub tjyh_Click()
ifuser = "6"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form4.hWnd
fo2.Alpha = 90 / 100 * 255
Load form4
form4.Show 1
End Sub

Private Sub tsch_Click()
ifuser = "0"
tkTable = "个人信息"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub tscx_Click()
ifuser = "0"
tkTable = "图书信息"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub tsgh1_Click()
ifuser = "1"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub tsgh_Click()
ifuser = "1"
tkTable = "个人信息"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub tsjc_Click()
ifuser = "0"
tkTable = "图书信息"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub tsjc1_Click()
ifuser = "0"
tkTable = "个人信息"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub

Private Sub tsxj_Click()
ifuser = "1"
Dim fo2 As CTranslucentForm
Set fo2 = New CTranslucentForm
fo2.hWnd = form6.hWnd
fo2.Alpha = 90 / 100 * 255
Load form6
form6.Show 1
End Sub