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

    Form2.Hide

    Form1.Show

 End Sub 
 
 
 
 

Вид формы с таблицей SM

   
 

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

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           =   4

      Left            =   7320

      TabIndex        =   4

      Top             =   240

      Width           =   1215

Text1(2)

      DataField       =   "Должность"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   3

      Left            =   6120

      TabIndex        =   3

      Top             =   240

      Width           =   1215

Text1(3)

      DataField       =   "Зарплата"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   2

      Left            =   4920

      TabIndex        =   2

      Top             =   240

      Width           =   1215

Text1(4)

      DataField       =   "Кол-во детей"

      DataSource      =   "Data1"

      Height          =   405

      Index           =   1

      Left            =   3720

      TabIndex        =   1

      Top             =   240

      Width           =   1215

Text1(5)

      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

    k = data1.Recordset.RecordCount

    ReDim Preserve p2(1 To k, 1 To 5)

    flp.Rows = k + 1: flp.Cols = 6

    flp.Row = 0

    data1.Recordset.MoveFirst

    For i = 1 To k

        For j = 1 To 5

            If j = 1 And i <= 5 Then flp.TextMatrix(0, i) = data1.Recordset.Fields(i - 1).name

            p2(i, j) = Text1(j - 1)

            flp.TextMatrix(i, j) = Text1(j - 1)

        Next j

        data1.Recordset.MoveNext

    Next i

End Sub 

Private Sub Command4_Click()

    Form3.Hide

    Form1.Show

 End Sub 
 
 

Справка 1

 Таблица UCH 

   
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

 

 

 

 

 

 

 

 
 

 

 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 

Свойства  элемента 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

Справка 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