Справка 1
Таблица UCH
поиск
записей,соответствующих требованию
справки
нет
да
Flv.Rows
= Flv.Rows
+ 1
K =
Flv.Rows
-
1
End If
Data1.Recordset.MoveNext
Next I
Свойства элемента Data1:
Caption=Справка 1
Name= Data1
Connect=Access
DataBaseName=A:\Kurs\ family.mdb
RecordSource=UCH‘источник данных
RecordType=0‘тип источника данных (таблиц БД)
Свойства связанных элементов:
Text1(0)
DataField = "Физ развитие"
DataSource = "Data1"
Height = 405
Index = 4
Left = 7320
TabIndex = 4
Top = 240
Width = 1215
Text1(1)
DataField = "Ср оценка"
DataSource = "Data1"
Height = 405
Index = 3
Left = 6120
TabIndex = 3
Top = 240
Width = 1215
Text1(2)
DataField = "Класс"
DataSource = "Data1"
Height = 405
Index = 2
Left = 4920
TabIndex = 2
Top = 240
Width = 1215
Text1(3)
DataField = "Пол"
DataSource = "Data1"
Height = 405
Index = 1
Left = 3720
TabIndex = 1
Top = 240
Width = 1215
Text1(4)
DataField = "Фамилия"
DataSource = "Data1"
Height = 405
Index = 0
Left = 2520
TabIndex = 0
Top = 240
Width = 1215
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, f As Integer, y As Single, t As String
k = data1.Recordset.RecordCount
ReDim Preserve p(1 To k, 1 To 5)
flp.Rows = k + 1: flp.Cols = 3
flp.FormatString = "|^ Класс |^ Фамилия "
data1.Recordset.MoveFirst
f = 1
For i = 1 To k
If data1.Recordset.Fields(4).Value = "слабое" And_ data1.Recordset.Fields(2).Value >= 10 Then
flp.TextMatrix(f, 1) = data1.Recordset.Fields(2).Value
flp.TextMatrix(f, 2) = data1.Recordset.Fields(0).Value
f = f + 1
End If
data1.Recordset.MoveNext
Next i
For i = 1 To f - 2
For j = i To f - 1
If flp.TextMatrix(j, 1) < flp.TextMatrix(i, 1) Then_
y = flp.TextMatrix(j, 1): flp.TextMatrix(j, 1) = flp.TextMatrix(i, 1): flp.TextMatrix(i, 1) = y
End If
Next j
Next i
For i = 1 To f - 2
If flp.TextMatrix(i, 1) = 11 Then GoTo n
For j = i To f - 1
If flp.TextMatrix(j, 2) < flp.TextMatrix(i, 2) Then_
t = flp.TextMatrix(j, 2): flp.TextMatrix(j, 2) = flp.TextMatrix(i, 2): flp.TextMatrix(i, 2) = t
End If
Next j
Next i
n: For i = 1 To f - 2
If flp.TextMatrix(i, 1) = 10 Then GoTo n1
For j = i To f - 1
If flp.TextMatrix(j, 2) < flp.TextMatrix(i, 2) Then_
t = flp.TextMatrix(j, 2): flp.TextMatrix(j, 2) = flp.TextMatrix(i, 2): flp.TextMatrix(i, 2) = t
End If
Next j
n1: Next i
End Sub
Private Sub Command4_Click()
Form4.Hide
Form1.Show
End Sub