form6.frm

图书管理系统 v2.0 可做参考 vb+sql

         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
End
Attribute VB_Name = "form6"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub tkAddListView() '针对大型检索专用
    ' 清空所有列表
    lvDetailData.ColumnHeaders.Clear
    lvDetailData.ListItems.Clear

    ' 注：为加快数据的读取，不要查看详细资料
    'lvDetailData.View = lvwList
    
    ' 打开记录集
    If qy1.State = adStateOpen Then qy1.Close
    qy1.Open "SELECT * FROM " & tkTable, cnn, adOpenKeyset, adLockReadOnly
    
    ' 查看基本资料
   If tkTable = "个人信息" Then
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(0).Name
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(1).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(3).Name, TextWidth(10) * 6, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(4).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(5).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(6).Name, TextWidth(10) * 20, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(7).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(8).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(9).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(10).Name, TextWidth(10) * 9, lvwColumnCenter
    While Not qy1.EOF
        lvDetailData.ListItems.Add , tkTable & qy1.Fields(0), qy1.Fields(0)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(1)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(3)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(4)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(5)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(6)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(7)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(8)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(9)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(10)
        qy1.MoveNext
    Wend
    Exit Sub
    End If
   
    If tkTable = "图书信息" Or tkTable = "借书信息" Then
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(0).Name
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(1).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(2).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(3).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(4).Name, TextWidth(10) * 9, lvwColumnCenter
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(5).Name, TextWidth(10) * 9, lvwColumnCenter
    If tkTable = "图书信息" Then
    lvDetailData.ColumnHeaders.Add , , qy1.Fields(6).Name, TextWidth(10) * 9, lvwColumnCenter
    End If
    While Not qy1.EOF
        lvDetailData.ListItems.Add , tkTable & qy1.Fields(0), qy1.Fields(0)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(1)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(2)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(3)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(4)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(5)
         If tkTable = "图书信息" Then
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(6)
        End If
        qy1.MoveNext
    Wend
    Exit Sub
    End If
End Sub

Private Sub Combo1_Click()
Call Timer3_Timer
End Sub

Private Sub Command1_Click()
Call xpbutton3_Click
End Sub

Private Sub Form_Load()
Me.BackColor = RGB(121, 153, 207)
lvDetailData.BackColor = RGB(121, 153, 207)
XPFrame1.BackColor = RGB(121, 153, 207)
Select Case ifuser
Case 0
 Call xpbutton2_Click
Case 1
lvDetailData.Left = 0
lvDetailData.Height = 5750
lvDetailData.Width = 10980
XPFrame1.Visible = False
tkTable = "借书信息"
Combo1.Text = "借书信息"
Combo2.Text = "学号"
Text1.Text = id
tkAddListView1
Case 2
lvDetailData.Left = 0
lvDetailData.Height = 5750
lvDetailData.Width = 10980
XPFrame1.Visible = False
tkTable = "借书信息"
Combo1.Text = "借书信息"
Combo2.Text = "学号"
Text1.Text = id
tkAddListView1
Case 4, 5
tkTable = "个人信息"
tkAddListView
End Select
End Sub

Private Sub xpbutton3_Click()
If Combo1.Text = "" Or Combo2.Text = "" Or Text1.Text = "" Then
MsgBox "输入数据不完整,无法完成操作", vbInformation, "操作失误"
Exit Sub
End If
tkAddListView1
End Sub

Private Sub xpbutton1_Click()
    MsgBox "此版本为试用版本,联系QQ342483870可购买源码"
End Sub

Private Sub xpbutton2_Click()
    MsgBox "此版本为试用版本,联系QQ342483870可购买源码"
End Sub
'---------------------------------------------
Private Sub lvDetailData_DblClick() '读取该对象的详细资料 '必须的
         Dim fo2 As CTranslucentForm
         Set fo2 = New CTranslucentForm
If Combo1.Text = "个人信息" Then
ifuser = "5"
ElseIf Combo1.Text = "图书信息" Then
ifuser = "0"
ElseIf Combo1.Text = "借书信息" Then
ifuser = "1"
End If
    Dim iPos As Integer
    If lvDetailData.ListItems.Count > 0 Then
        If InStr(1, lvDetailData.SelectedItem.Key, "个人信息") + 1 > 1 Then
            iPos = InStr(1, lvDetailData.SelectedItem.Key, "个人信息") + 4
        ElseIf InStr(1, lvDetailData.SelectedItem.Key, "图书信息") + 1 > 1 Then
            iPos = InStr(1, lvDetailData.SelectedItem.Key, "图书信息") + 4
        ElseIf InStr(1, lvDetailData.SelectedItem.Key, "借书信息") + 1 > 1 Then
            iPos = InStr(1, lvDetailData.SelectedItem.Key, "借书信息") + 4
        End If
        tkUserID = Mid(lvDetailData.SelectedItem.Key, iPos, Len(lvDetailData.SelectedItem.Key))
        If ifuser = "0" Then
         fo2.hWnd = form5.hWnd
         fo2.Alpha = 80 / 100 * 255
         Load form5
         form5.Show vbModal
        ElseIf ifuser = "1" Or ifuser = "2" Then
         fo2.hWnd = form7.hWnd
         fo2.Alpha = 80 / 100 * 255
         Load form7
         form7.Show vbModal
        ElseIf ifuser = "4" Or ifuser = "5" Then
         fo2.hWnd = form4.hWnd
         fo2.Alpha = 80 / 100 * 255
         Load form4
         form4.Show vbModal
        End If
    End If
End Sub

'-------------------------------------------
Private Sub Timer2_Timer()
If admin = False Then
Combo1.List(0) = "借书信息"
Combo1.List(1) = "图书信息"
Timer2.Interval = 0
Else
Combo1.List(0) = "个人信息"
Combo1.List(1) = "图书信息"
Combo1.List(2) = "借书信息"
Timer2.Interval = 0
End If
End Sub

Private Sub Timer3_Timer()
If Combo1.Text = "" Then
Exit Sub
End If
Dim i As Integer
For i = 0 To 10
If Combo2.List(i) <> "" Then
Combo2.List(i) = ""
End If
Next
If Combo1.Text = "个人信息" Then
  Combo2.List(0) = "学号"
  Combo2.List(1) = "姓名"
  Combo2.List(2) = "性别"
  Combo2.List(3) = "出生日期"
  Combo2.List(4) = "职业"
  Combo2.List(5) = "单位"
  Combo2.List(6) = "借书证到期时间"
  Combo2.List(7) = "是否特殊用户"
  Combo2.List(8) = "是否管理员"
  Timer3.Interval = 0
ElseIf Combo1.Text = "图书信息" Then
  Combo2.List(0) = "图书编号"
  Combo2.List(1) = "图书名称"
  Combo2.List(2) = "出版日期"
  Combo2.List(3) = "图书总数"
  Combo2.List(4) = "剩余本数"
  Timer3.Interval = 0
  ElseIf Combo1.Text = "借书信息" Then
  Combo2.List(0) = "学号"
  Combo2.List(1) = "图书编号"
  Combo2.List(2) = "借书日期和时间"
  Combo2.List(3) = "操作人"
  Combo2.List(4) = "借出最终期限"
  Timer3.Interval = 0
End If
 End Sub

Private Sub tkAddListView1() '使用详细检索专用
    ' 清空所有列表
    lvDetailData.ColumnHeaders.Clear
    lvDetailData.ListItems.Clear

    ' 注：为加快数据的读取，不要查看详细资料
    'lvDetailData.View = lvwList
    
    ' 打开记录集
    MsgBox "此版本为试用版本,联系QQ342483870可购买源码"
End Sub