End If End Sub
Private Sub Grid2_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then
If admin = False Then cgedit.Enabled = False cgdel.Enabled = False addcg.Enabled = False End If
PopupMenu cg End If End Sub
Private Sub Grid2_RowColChange(ByVal Row As Long, ByVal Col As Long) hang = Row End Sub
Private Sub datagrid()
griddelete = True '允许删除 gridedit = True
If tkbase = \学生信息\
If qy1.State = adStateOpen Then '表状态 qy1.Close End If
qy1.Open sql, cnn, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber
Grid1.Cell(0, i).Text = qy1.Fields(i - 1).Name Next
qy1.PageSize = 20 nnum = qy1.PageCount
If qy1.PageCount = 0 Then nnum = 1 End If
numpage = 1
Label1.Caption = \共\页 第\页\Grid1.Rows = 1 Grid1.Rows = 21
If qy1.RecordCount = 0 Then Exit Sub End If
qy1.AbsolutePage = numpage
For i = 1 To qy1.PageSize '设定读取行 For j = 1 To fnumber '设定读取列 If qy1.EOF = True Then Exit Sub
End If
If Not qy1.Fields(j - 1) Is Nothing Then '空值的处理 Grid1.Cell(i, j).Text = qy1.Fields(j - 1) Else
Grid1.Cell(i, j).Text = \ End If Next
If qy1.EOF = False Then qy1.MoveNext '读取下一记录 Else
Exit Sub End If Next
ElseIf tkbase = \学生与课程\
If qy1.State = adStateOpen Then '表状态 qy1.Close End If
qy1.Open sql, cnn, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber
Grid2.Cell(0, i).Text = qy1.Fields(i - 1).Name Next
qy1.PageSize = 20 nnum = qy1.PageCount
If qy1.PageCount = 0 Then nnum = 1 End If
numpage = 1
Label1.Caption = \共\页 第\页\Grid2.Rows = 1 Grid2.Rows = 21
If qy1.RecordCount = 0 Then Exit Sub End If
qy1.AbsolutePage = numpage
For i = 1 To qy1.PageSize '设定读取行 For j = 1 To fnumber '设定读取列 If qy1.EOF = True Then Exit Sub End If
If Not qy1.Fields(j - 1) Is Nothing Then '空值的处理 Grid2.Cell(i, j).Text = qy1.Fields(j - 1) Else
Grid2.Cell(i, j).Text = \ End If
Next
If qy1.EOF = False Then qy1.MoveNext '读取下一记录 Else
Exit Sub End If Next End If End Sub
Private Sub Grid2_Validate(Cancel As Boolean) Dim nActiveRow As Long, nActiveCol As Long Const VK_TAB = 9
If GetKeyState(VK_TAB) < 0 Then
nActiveRow = Grid1.ActiveCell.Row nActiveCol = Grid1.ActiveCell.Col If nActiveCol < Grid1.Cols - 1 Then
Grid1.Range(nActiveRow, nActiveCol + 1, _
nActiveRow, nActiveCol + 1).Selected End If
Cancel = True End If End Sub
Private Sub Label7_Click() If tkbase = \学生信息\If numpage > 1 Then numpage = numpage - 1
qy1.AbsolutePage = numpage Grid1.Rows = 1 Grid1.Rows = 21
For i = 1 To 20 '设定读取行
For j = 1 To fnumber '设定读取列
If qy1.Fields(j - 1) = Null Then '空值的处理 Grid1.Cell(i, j).Text = \ Else
Grid1.Cell(i, j).Text = qy1.Fields(j - 1) End If Next
qy1.MoveNext '读取上一记录 Next End If
Label1.Caption = \共\页 第\页\ElseIf tkbase = \学生与课程\If numpage > 1 Then numpage = numpage - 1
qy1.AbsolutePage = numpage Grid2.Rows = 1 Grid2.Rows = 21
For i = 1 To 20 '设定读取行
For j = 1 To fnumber '设定读取列
If qy1.Fields(j - 1) = Null Then '空值的处理 Grid2.Cell(i, j).Text = \ Else
Grid2.Cell(i, j).Text = qy1.Fields(j - 1) End If Next
qy1.MoveNext '读取上一记录 Next End If
Label1.Caption = \共\页 第\页\End If End Sub
Private Sub Label8_Click() If tkbase = \学生信息\If numpage < nnum Then numpage = numpage + 1
qy1.AbsolutePage = numpage Grid1.Rows = 1 Grid1.Rows = 21
For i = 1 To 20 '设定读取行
For j = 1 To fnumber '设定读取列 If qy1.EOF = True Then
Label1.Caption = \共\页 第\页\ Exit Sub End If
If qy1.Fields(j - 1) = Null Then '空值的处理 Grid1.Cell(i, j).Text = \ Else
Grid1.Cell(i, j).Text = qy1.Fields(j - 1) End If Next
If qy1.EOF = False Then
qy1.MoveNext '读取下一记录 Else
Label1.Caption = \共\页 第\页\ Exit Sub End If Next
End If
Label1.Caption = \共\页 第\页\ElseIf tkbase = \学生与课程\If numpage < nnum Then numpage = numpage + 1
qy1.AbsolutePage = numpage Grid2.Rows = 1 Grid2.Rows = 21
For i = 1 To 20 '设定读取行
For j = 1 To fnumber '设定读取列 If qy1.EOF = True Then
Label1.Caption = \共\页 第\页\ Exit Sub End If
If qy1.Fields(j - 1) = Null Then '空值的处理 Grid2.Cell(i, j).Text = \ Else
Grid2.Cell(i, j).Text = qy1.Fields(j - 1) End If Next
If qy1.EOF = False Then
qy1.MoveNext '读取下一记录 Else
Label1.Caption = \共\页 第\页\ Exit Sub End If Next End If
Label1.Caption = \共\页 第\页\End If End Sub
Private Sub pcg_Click() If hang <> 0 Then
If Grid2.Cell(hang, 2).Text <> \
sql = \sum(成绩)/count(成绩) from 学生与课程 where 学号='\& Grid2.Cell(hang, 3).Text & \ Set qy2 = cnn.Execute(sql)
MsgBox \学号为\& Grid2.Cell(hang, 3).Text & \的成绩平均为\& qy2.Fields(0) & \分\End If End If End Sub
Private Sub renovate_Click() Call asPopup1_Click(False)