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

      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 
 
 
 
 
 
 
 
 
 

Документ

   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

   

   

 

 

 

   

 

 

   

 

 

   
 
 
 
 
 

   

Свойства  элемента Data1: 

Caption=Справка 1

Name= Data1

Connect=Access

DataBaseName=A:\Kurs\ family.mdb

RecordSource=UCH       ‘источник данных

RecordType=0              ‘тип источника данных (таблиц БД)

Свойства связанных элементов: 

Text1(0)

      DataField       =   "Физ развитие"

      DataSource      =   "Data1"

      Height          =   405