Документ
нет
да
End If
Next
J,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
Свойства элемента Data2:
Caption=Таблица SM
Name= Data1
Connect=Access
DataBaseName=A:\Kurs\ family.mdb
RecordSource=SM‘источник данных
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 = 7
flp.FormatString = "|^ Фамилия |^ Пол |^ Класс |^ Ср. оценка |^_ Развитие |^ Душев доход"
data1.Recordset.MoveFirst
data2.Recordset.MoveFirst
f = 1
For i = 1 To k
If data2.Recordset.Fields(2).Value = 10 And_ data1.Recordset.Fields(2).Value / data1.Recordset.Fields(3).Value < 2000_ Then_
flp.TextMatrix(f, 1) = data2.Recordset.Fields(0).Value
flp.TextMatrix(f, 2) = data2.Recordset.Fields(1).Value
flp.TextMatrix(f, 3) = data2.Recordset.Fields(2).Value
flp.TextMatrix(f, 4) = data2.Recordset.Fields(3).Value
flp.TextMatrix(f, 5) = data2.Recordset.Fields(4).Value
flp.TextMatrix(f, 6) = data1.Recordset.Fields(2).Value /_ data1.Recordset.Fields(3).Value
f = f + 1
End If
data1.Recordset.MoveNext
data2.Recordset.MoveNext
Next i
End Sub
Private Sub Command4_Click()
Form7.Hide
Form1.Show
End Sub