form1.frm

一个比较完整的图书馆管理系统

      End
   End
End
Attribute VB_Name = "form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

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

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