frmhuishou.frm

教学资源管理系统

   Begin VB.Label labInfo 
      BackColor       =   &H00FFF3CE&
      ForeColor       =   &H000000FF&
      Height          =   200
      Index           =   3
      Left            =   630
      TabIndex        =   17
      Top             =   1680
      Width           =   1400
   End
   Begin VB.Label labInfo 
      BackColor       =   &H00FFF3CE&
      ForeColor       =   &H000000FF&
      Height          =   200
      Index           =   2
      Left            =   630
      TabIndex        =   16
      Top             =   1320
      Width           =   1400
   End
   Begin VB.Label labInfo 
      BackColor       =   &H00FFF3CE&
      ForeColor       =   &H000000FF&
      Height          =   200
      Index           =   1
      Left            =   630
      TabIndex        =   15
      Top             =   960
      Width           =   1400
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "添加日期："
      Height          =   195
      Index           =   10
      Left            =   120
      TabIndex        =   14
      Top             =   4920
      Width           =   975
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "文件大小："
      Height          =   195
      Index           =   9
      Left            =   120
      TabIndex        =   13
      Top             =   4560
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "格式："
      Height          =   195
      Index           =   8
      Left            =   120
      TabIndex        =   12
      Top             =   4200
      Width           =   735
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "开发工具："
      Height          =   195
      Index           =   7
      Left            =   120
      TabIndex        =   11
      Top             =   3720
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "作者："
      Height          =   195
      Index           =   6
      Left            =   120
      TabIndex        =   10
      Top             =   3360
      Width           =   735
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "内容介绍："
      Height          =   195
      Index           =   5
      Left            =   120
      TabIndex        =   9
      Top             =   2400
      Width           =   1095
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "年级："
      Height          =   200
      Index           =   3
      Left            =   120
      TabIndex        =   8
      Top             =   1680
      Width           =   615
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "编号："
      Height          =   195
      Index           =   2
      Left            =   120
      TabIndex        =   7
      Top             =   1320
      Width           =   735
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "科目："
      Height          =   195
      Index           =   1
      Left            =   120
      TabIndex        =   6
      Top             =   960
      Width           =   615
   End
   Begin VB.Label labInfo 
      BackColor       =   &H00FFF3CE&
      ForeColor       =   &H000000FF&
      Height          =   200
      Index           =   0
      Left            =   120
      TabIndex        =   5
      Top             =   700
      Width           =   1850
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFF3CE&
      Caption         =   "标题："
      Height          =   200
      Index           =   0
      Left            =   120
      TabIndex        =   4
      Top             =   480
      Width           =   735
   End
   Begin VB.Label labBG 
      BackColor       =   &H00FFF3CE&
      Height          =   6735
      Left            =   0
      TabIndex        =   3
      Top             =   405
      Width           =   1995
   End
End
Attribute VB_Name = "frmHuishou"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Mysql As String
Dim ListViewLeft As Long
Const cstW = 2000
Public Sub Init(ByVal sql As String)
    ListView1.ListItems.Clear
    If sql = "" Then
        sql = Mysql
    Else
        Mysql = sql
    End If
    con.Open
    rs.Open sql, con, adOpenKeyset, adLockPessimistic
    
    StatusBar1.Panels(2).Text = "共有" + Me.Caption + " " + CStr(rs.RecordCount)
    If rs.AbsolutePosition = adPosBOF Or rs.AbsolutePosition = adPosUnknown Then
        StatusBar1.Panels(1).Text = "当前记录： 0"
    Else
        StatusBar1.Panels(1).Text = "当前记录： " + CStr(rs.AbsolutePosition)
    End If
    
    Dim itmX As ListItem
    While Not rs.EOF
        Set itmX = ListView1.ListItems.Add()
        If rs("title") <> "" Then itmX.Text = rs("title")
        itmX.Icon = 1
        itmX.SmallIcon = 1
        If rs("kemu") <> "" Then itmX.SubItems(1) = rs("kemu")
        If rs("id") <> "" Then itmX.SubItems(2) = rs("id")
        If rs("nianji") <> "" Then itmX.SubItems(3) = rs("nianji")
        If rs("type") <> "" Then itmX.SubItems(4) = rs("type")
        If rs("jieshao") <> "" Then itmX.SubItems(5) = rs("jieshao")
        If rs("zuozhe") <> "" Then itmX.SubItems(6) = rs("zuozhe")
        If rs("gongju") <> "" Then itmX.SubItems(7) = rs("gongju")
        If rs("geshi") <> "" Then itmX.SubItems(8) = rs("geshi")
        If rs("size") <> "" Then itmX.SubItems(9) = rs("size")
        If rs("date") <> "" Then itmX.SubItems(10) = rs("date")
        If rs("deldate") <> "" Then itmX.SubItems(11) = rs("deldate")
        If rs.AbsolutePosition Mod 100 = 0 Then DoEvents
        rs.MoveNext
        
    Wend
    
    rs.Close
    con.Close
    ListViewLeft = 0
End Sub

Private Sub Form_Resize()
Dim h As Integer, w As Integer
h = Me.Height - 1200
w = Me.Width - 150 - ListViewLeft
If h > 0 And w > 0 Then
    ListView1.Left = ListViewLeft
    ListView1.Height = h
    ListView1.Width = w
    labBG.Height = h
End If
Dim i As Integer, n As Integer
If labBG.Height > 5100 Then
    n = Int((labBG.Height - 5100) / 2)
    n = n - (Label1(0).Top - 480)
    For i = 0 To 10
        labInfo(i).Top = labInfo(i).Top + n
        Label1(i).Top = Label1(i).Top + n
    Next
Else
    n = Label1(0).Top - 480
    For i = 0 To 10
        labInfo(i).Top = labInfo(i).Top - n
        Label1(i).Top = Label1(i).Top - n
    Next

End If
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
StatusBar1.Panels(1).Text = "当前记录： " + CStr(Item.Index)
If Not (ListView1.SelectedItem Is Nothing) Then
If ListView1.View <> lvwReport Then
    labInfo(0) = Item.Text
    For i = 1 To 10
        labInfo(i) = Item.SubItems(i)
    Next
End If
End If
End Sub

Public Sub munViwe(Index As Integer)
Select Case Index
    Case 1
        ListView1.View = lvwIcon
        ListViewLeft = cstW
    Case 2
        ListView1.View = lvwList
        ListViewLeft = cstW
    Case 3
        ListView1.View = lvwReport
        ListViewLeft = 0

End Select
ListView1.SelectedItem = Nothing
If ListView1.View <> lvwReport Then
    If Not (ListView1.SelectedItem Is Nothing) Then
        labInfo(0) = ListView1.SelectedItem.Text
        For i = 1 To 9
            labInfo(i) = ListView1.SelectedItem.SubItems(i)
        Next
    End If
End If
Call Form_Resize
End Sub



Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim sql As String
Select Case Button.Index
    Case 1  '撤除
         If Not (ListView1.SelectedItem Is Nothing) Then
            con.Open
            sql = "select * from info where id=" + ListView1.SelectedItem.SubItems(2) + ""
            rs.Open sql, con, adOpenKeyset, adLockPessimistic
            If rs.AbsolutePosition <> adPosBOF Or rs.AbsolutePosition <> adPosUnknown Then
                Dim MyDir As clsDir
                Dim FileDir As String
                FileDir = App.Path + "\" + rs("filedir")
                
                Set MyDir = New clsDir
                MyDir.strMyDir = FileDir
                MyDir.uDelDir
                rs.Delete
                rs.Update
            End If
            rs.Close
            con.Close
            ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
        Else
            MsgBox "请先选择！", vbOKOnly, "提示"
        End If
    Case 2
        If Not (ListView1.SelectedItem Is Nothing) Then
            con.Open
            sql = "select * from info where id=" + ListView1.SelectedItem.SubItems(2) + ""
            rs.Open sql, con, adOpenKeyset, adLockPessimistic
            If rs.AbsolutePosition <> adPosBOF Or rs.AbsolutePosition <> adPosUnknown Then
                rs("deldate") = "0"
                rs.Update
            End If
            rs.Close
            con.Close
            ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
        Else
            MsgBox "请先选择！", vbOKOnly, "提示"
        End If
    Case 3
          munViwe (Button.Index - 2)
    Case 4
          munViwe (Button.Index - 2)
    Case 5
         munViwe (Button.Index - 2)
       
End Select
End Sub