Справка 2
Таблица SM
Свойства элемента Data1:
Caption=Справка 2
Name= Data1
Connect=Access
DataBaseName=A:\Kurs\ predpr.mdb
RecordSource=GL ‘источник данных
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, s As Single, k As Integer, f As Integer
k = data1.Recordset.RecordCount
ReDim Preserve p2(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(3).Value >= 3 Then
flp.TextMatrix(f, 1) = data1.Recordset.Fields(0).Value
flp.TextMatrix(f, 2) = data1.Recordset.Fields(3).Value
f = f + 1
End If
data1.Recordset.MoveNext
Next i
End Sub
Private Sub Command4_Click()
Form5.Hide
Form1.Show
End Sub
Справка 3
Свойства
элемента 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
Свойства элемента Data2:
Caption=ТаблицаGL
Name= Data2
Connect=Access
DataBaseName=A:\Kurs\ predpr.mdb
RecordSource=GL‘источник данных
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, s As Single, k As Integer, f As Integer
k = data2.Recordset.RecordCount
ReDim Preserve p2(1 To k, 1 To 5)
flp.Rows = k + 1: flp.Cols = 4
flp.FormatString = "|^ Фамилия |^ Кол-во детей |^ Ср.балл"
data1.Recordset.MoveFirst
data2.Recordset.MoveFirst
f = 1
For i = 1 To k
If data1.Recordset.Fields(3).Value >= 3 And_ data2.Recordset.Fields(2).Value = 9 And data2.Recordset.Fields(3).Value >4.2_ Then_
flp.TextMatrix(f, 1) = data2.Recordset.Fields(0).Value
flp.TextMatrix(f, 2) = data1.Recordset.Fields(3).Value
flp.TextMatrix(f, 3) = data2.Recordset.Fields(3).Value
f = f + 1
End If
data1.Recordset.MoveNext
data2.Recordset.MoveNext
Next i
End Sub
Private Sub Command4_Click()
Form6.Hide
Form1.Show
End Sub