www.pudn.com > myActivebart.rar > Module1.bas

Attribute VB_Name = "Module1" 
Public cnn As New ADODB.Connection 
Public password As String 
Public strpublic As String 
Public rsado As New ADODB.Recordset 
Public strpath As String 
 
Public Sub main() 
  Dim str, str1 As String 
  '定义数据库连接 
  str1 = App.Path + "\student.mdb" 
  strpath = str1 
  str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + str1 + ";Mode=ReadWrite|Share Deny None;Persist Security Info=False" 
  strpublic = str 
  cnn.Open str 
  De1.Conn1.Open str 
  '打开密码表 
  Dim rs As New ADODB.Recordset 
  rs.Open "select * from 密码", cnn, adOpenDynamic, adLockOptimistic 
  '取得密码 
  password = rs.Fields("密码") 
  Form2.Show 
End Sub 
 
Public Sub baseselect(ByVal rs1 As ADODB.Recordset, ByVal grid1 As MSFlexGrid) 
     On Error Resume Next 
     Dim i, ii, coli As Integer 
     grid1.Clear 
     coli = 0 
      
     grid1.FormatString = "学号     |姓名    |班级      |性别| 出生日期 | 民族 | 家庭住址       |  联系电话   |是否团员| 父姓名|     父单位      |母姓名   |     母单位         |   入学时间 |           备注            " 
     If rs1.RecordCount > 0 Then 
        rs1.MoveFirst 
     Else 
        Exit Sub 
     End If 
     Do While Not rs1.EOF 
        coli = coli + 1 
        For i = 0 To rs1.Fields.Count - 1 
           grid1.Row = coli 
           grid1.Col = i 
           If Not IsNull(rs1.Fields(i)) Then grid1.Text = rs1.Fields(i) 
        Next i 
        rs1.MoveNext 
     Loop 
End Sub 
Public Sub grade(ByVal rs1 As ADODB.Recordset, ByVal grid1 As MSFlexGrid) 
     On Error Resume Next 
     Dim i, ii, coli As Integer 
     grid1.Clear 
     coli = 0 
     grid1.FormatString = "   学号       |     姓名     |    成绩  " 
     If rs1.RecordCount > 0 Then 
        rs1.MoveFirst 
     Else 
        Exit Sub 
     End If 
     Do While Not rs1.EOF 
        If Not rs1.EOF Then grid1.additem 1 
        coli = coli + 1 
        For i = 0 To rs1.Fields.Count - 1 
           grid1.Row = coli 
           grid1.Col = i 
           If Not IsNull(rs1.Fields(i)) Then grid1.Text = rs1.Fields(i) 
        Next i 
        rs1.MoveNext 
     Loop 
End Sub 
Public Sub grade1(ByVal rs1 As ADODB.Recordset, ByVal grid1 As MSFlexGrid) 
     On Error Resume Next 
     Dim i, ii, coli As Integer 
     grid1.Clear 
     coli = 0 
     grid1.FormatString = "   班级    |   学号   |   姓名  |学期|   学年度  |  科目  |  考试类型  | 成绩  " 
     If rs1.RecordCount > 0 Then 
        rs1.MoveFirst 
     Else 
        Exit Sub 
     End If 
     Do While Not rs1.EOF 
        If Not rs1.EOF Then grid1.additem 1 
        coli = coli + 1 
        For i = 0 To rs1.Fields.Count - 1 
           grid1.Row = coli 
           grid1.Col = i 
           If Not IsNull(rs1.Fields(i)) Then grid1.Text = rs1.Fields(i) 
        Next i 
        rs1.MoveNext 
     Loop 
End Sub 
Public Sub grade2(ByVal rs1 As ADODB.Recordset, ByVal grid1 As MSFlexGrid, ByVal iii As Integer) 
     On Error Resume Next 
     Dim i, ii, coli As Integer 
     grid1.Clear 
     coli = 0 
     grid1.FormatString = "   班级    |   学号   |   姓名  |学期|   学年度  |  科目  |  考试类型  | 成绩  " 
     If rs1.RecordCount > 0 Then 
        rs1.MoveFirst 
     Else 
        Exit Sub 
     End If 
     Do While Not rs1.EOF 
        If Not rs1.EOF Then grid1.additem 1 
        coli = coli + 1 
        For i = 0 To rs1.Fields.Count - 1 
           grid1.Row = coli 
           grid1.Col = i 
           If Not IsNull(rs1.Fields(i)) Then grid1.Text = rs1.Fields(i) 
        Next i 
        rs1.MoveNext 
     Loop 
End Sub