form6.frm

图书管理系统原创vb+sql

lvDetailData.Width = 10980
Combo1.Visible = False
Combo2.Visible = False
Text1.Visible = False
Command1.Visible = False
tkTable = "借书信息"
Combo1.Text = "借书信息"
Combo2.Text = "学号"
Text1.Text = id
tkAddListView1
Case 2
lvDetailData.Top = 360
lvDetailData.Left = 0
lvDetailData.Height = 5810
lvDetailData.Width = 10980
Combo1.Visible = False
Combo2.Visible = False
Text1.Visible = False
Command1.Visible = False
tkTable = "借书信息"
Combo1.Text = "借书信息"
Combo2.Text = "学号"
Text1.Text = id
tkAddListView1
Case 4, 5
tkTable = "个人信息"
tkAddListView
End Select
End Sub

Private Sub Image1_Click()
Unload Me
End Sub

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

Private Sub Image3_Click()
If admin = True Then
tkTable = "个人信息"
Combo1.Text = "个人信息"
Combo2.Text = "学号"
tkAddListView
Else
MsgBox "你对此无权限执行", vbInformation, "无权限执行"
End If
End Sub

Private Sub Image4_Click()
tkTable = "图书信息"
Combo1.Text = "图书信息"
Combo2.Text = "图书编号"
tkAddListView
End Sub

Private Sub Timer1_Timer()
form6.Top = form1.Top + 2900
form6.Left = form1.Left + 1060
End Sub


'---------------------------------------------
Private Sub lvDetailData_DblClick() '读取该对象的详细资料 '必须的
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
        form5.Show vbModal
        ElseIf ifuser = "1" Or ifuser = "2" Then
        form7.Show vbModal
        ElseIf ifuser = "4" Or ifuser = "5" Then
        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
    
    ' 打开记录集
    If qy1.State = adStateOpen Then qy1.Close
    'Dim qstr1, qstr2, qstr3, qstr4 As String
    'qstr1 = "select * from"
    'qstr2 = "where"
    'qstr3 = Combo1.Text
    'qstr4 = Combo2.Text
    'qy1.Open "" + qstr1 + " " + qstr3 + " " + qstr2 + " " + qstr4 + "= '" & Text1.Text & " ' ", cnn, adOpenKeyset, adLockReadOnly
  Dim qstr1, qstr2, qstr3, qstr4, qstr5, qstr6, qstr7, qstr8 As String
    tkTable = Combo1.Text
    qstr1 = "select * from"
    qstr2 = "where"
    qstr3 = Combo1.Text
    qstr4 = Combo2.Text
    qstr5 = "and"
    qstr6 = "0"
    qstr8 = "是否己归还"
    If tkTable = "借书信息" Then
    qy1.Open "" + qstr1 + " " + qstr3 + " " + qstr2 + " " + qstr4 + "= '" & Text1.Text & " ' " + qstr5 + " " + qstr8 + "='" + qstr6 + "'", cnn, adOpenKeyset, adLockReadOnly
    ElseIf tkTable = "个人信息" Or tkTable = "图书信息" Then
    qy1.Open "" + qstr1 + " " + qstr3 + " " + qstr2 + " " + qstr4 + "= '" & Text1.Text & " ' ", cnn, adOpenKeyset, adLockReadOnly
    End If

    ' 查看基本资料
    If Combo1.Text = "个人信息" 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 Combo1.Text = "图书信息" Or Combo1.Text = "借书信息" 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 Combo1.Text = "图书信息" 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)
        lvDetailData.ListItems(tkTable & qy1.Fields(0)).ListSubItems.Add , , qy1.Fields(6)
        qy1.MoveNext
    Wend
    Exit Sub
    End If
End Sub