public.bas

这是学生做的人事档案系统

Attribute VB_Name = "public"
Public conn As New ADODB.Connection
Public rs As ADODB.Recordset
Public connstring As String
Public sql As String
Public qidong As Integer
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long



Public Sub strsql(connstring As String)
connstring = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\rsgl.mdb"
End Sub

Public Sub grid(rs As ADODB.Recordset, Grid1 As ListView, StatusBar1 As StatusBar, sql As String)


   Dim itmx As ListItem

    Grid1.ListItems.Clear
    Grid1.Refresh
    Call strsql(connstring)
    
 rs.Open sql, conn, adOpenKeyset, adLockPessimistic
 

    Do While Not rs.EOF
     i = i + 1
    Set itmx = Grid1.ListItems.add(, , i)
     itmx.SubItems(1) = rs.Fields("code")
     itmx.SubItems(2) = rs.Fields("name")
     itmx.SubItems(3) = rs.Fields("sex")
     itmx.SubItems(4) = rs.Fields("nation")
     itmx.SubItems(5) = rs.Fields("birth")
     itmx.SubItems(6) = rs.Fields("government")
     itmx.SubItems(7) = rs.Fields("department")
     If IsNull(rs.Fields("duty")) Then
     itmx.SubItems(8) = ""
     Else
     itmx.SubItems(8) = rs.Fields("duty")
     End If
     itmx.SubItems(9) = rs.Fields("marry")
     itmx.SubItems(10) = rs.Fields("number")
     itmx.SubItems(11) = rs.Fields("phone1")
     itmx.SubItems(12) = rs.Fields("address")
     rs.MoveNext
     Loop
     rs.Close
     StatusBar1.Panels(2).text = "共有记录： " + str(i) + "  条"
   
End Sub