Создание и обработка Баз Данных средствами языка VISUAL BASIC 6.0

      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