Размещено на http://www.allbest.ru/

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

Структура таблиц

Фамилия	Пол	Класс	Средняя оценка	Физическое развитие
Фамилия	Фамилия одного из родителей	Должность	Зароботная плата	Количество детей	Семейный бюджет

В таблице SM(семья) указывается фамилия, имя и отчество одного из родителей. В таблице UCH указываются сведения о всех учениках школы.

Состав меню:

1. Распечатка исходных таблиц.

2. Формирование и выдача справок:

Справка 1. Список учеников10-11 классов со слабым физическим развитием. Список упорядочить по классам и алфавиту.

Справка 2. Список учеников и родителей многодетных семей(3 и более детей).

Справка 3. Список учеников 9-х классов из многодетных семей(3 и более детей), имеющих средний балл, больший 4,2. Список упорядочить по убыванию количества детей и баллов.

3. Создание документа

Сведения об учениках 10-х классов, живущих в семьях с душевым доходом, меньшим 2000 руб.

Фамилия	Пол	Класс	Средний балл	Физическое развитие	Душевой доход

Исходные данные

Таблица SM

Фамилия	Фамилия род	Должность	Зарплата	Кол-во детей	Бюджет
Сергеев	Сергеев	менеджер	20000	2	15000
Козлов	Козлов	директор	5000	3	5000
Коваленко	Коваленко	учитель	7000	4	6000
Вовахин	Вовахин	инженер	15000	3	10000
Савчик	Савчик	инженер	8000	3	5000
Сидоров	Сидоров	заведующий	10000	4	9000
Фадина	Фадина	управляющий	11000	5	10000
Петров	Петров	директор	20000	4	10000

Таблица UCH

Фамилия	Пол	Класс	Ср оценка	Физ развитие
Сергеев	м	10	4	хорошее
Козлов	м	10	5	слабое
Коваленко	м	9	4,5	слабое
Вовахин	м	11	4,4	слабое
Савчик	ж	9	4,5	хорошее
Сидоров	ж	10	4,3	слабое
Фадина	м	9	4,4	слабое
Петров	м	11	4,5	хорошее

Создание таблиц

Для создания Базы данных, в первую очередь, понадобится Окно формирования новой таблицы базы данных (Table Structure). Для этого в Главном Меню Главной панели проекта Visual Basic 6.0 следует выбрать опцию Add-Ins (Добавления или Модули), а в ней - команду Visual Data Manager.

При выполнении этой команды раскрывается Панель Приложения VisData- Панель Диспетчера баз данных Visual Basic 6.0.

Панель VisData

Заголовок Панели VisData

Выбрать меню File Панели Приложения VisData и команду New. В раскрывшемся подменю следует выбрать в качестве типа создаваемой базы данных Microsoft Access, а во втором подменю- Version 7.0 MDB, или иначе, выполнить последовательность команд:

File - New - Microsoft Access - Version 7.0 MDB

В результате раскроется Окно создания Нового файла базы данных Microsoft Access - Окно Select Microsoft Access DataBase To Create. Для открытия уже существующего файла базы данных необходимо вместо команды New воспользоваться командой Open DataBase.

Окно создания Нового файла Базы данных - Окно Select Microsoft Access DataBase To Create

В окне Имя файла (рис. 3.3) указать имя каталога, в котором будет храниться создаваемая база.При этом на Панели Приложения VisData появится Окно базы данных (Окно DataBase Window) и Окно операторов SQL Statements (рис.3.4).



Панель Приложения VisData после появления на ней Окна Базы данных (DataBase Window) и Окна SQL Statements

Заголовок Панели Приложения VisData (рис.3.2) изменился - он теперь содержит путь к создаваемому файлу:

VisData:A:\Proekt.mdb

Заголовок Панели Приложения VisData после задания имени Proekt создаваемой Базы данных в Окне создания Нового файла

В любом месте Окна DataBase Window (рис.3.4) необходимо щелкнуть правой клавешей мыши. В появившемся меню следует выбрать команду New Table (создать таблицу). Раскроется Панель Table Structure - Структура таблицы (рис.3.5). Можно приступать к проектированию структуры таблицы.



Панель Table Structure

Проектирование структуры таблицы базы данных включает следующие шаги:

1. В поле Table Name (имя таблицы) ввести имя проектируемой таблицы - SM (рис. 3.7)

Панель Table Structure после внесения в окно Table Name имени проектируемой таблицы SM

2. Раскрыть Диалоговое Окно Add Field (Добавить поле) на Панели Table Structure (рис.3.6,3.7) кнопкой Add Field - раскроется Диалоговое окно Add Field (Добавить поле (рис. 3.8)).



Панель Table Structure с раскрытым Диалоговым окном Add Field (Добавить поле)

3. С помощью Диалогового Окна Add Field, представленного отдельно на рис.3.9 осуществляется по очереди ввод характеристик всех полей создаваемой таблицы SM - вводятся имена полей, их типы и размеры полей. В окне Name указать имя текущего поля таблицы SM.

Диалоговое Окно Add Field для ввода сведенй о полях проектируемой Таблицы создаваемой Базы Данных

В поле Type Окна Add Field (рис.3.8 и рис.3.9) уже указан тип вводимого данного - Text (Text будет появляться каждый раз с началом ввода значений характеристик нового поля проектируемой структуры таблицы). При разработке приложения создания базы данных нам может понадобиться использование данных другого типа, что и осуществляется выбором стандартных типов с использованием клавиши окна Type.



Панель Table Structure (структура таблицы) со списком определенных Пользователем - Разработчиком полей создаваемой таблицы SM в Окне Field List

По окончании ввода всей информации последнего поля создаваемой таблицы Базы Данных закрыть Диалоговое окно Add Field, щелкнув кнопку Close Диалогового Окна Add Field Панели Table Structure - рис. 3.10

Восстанавливается Панель Структура Таблицы со списком определенных Пользователем - Разработчиком полей (в окне FieldList) создаваемой таблицы - в нашем случае - SM

Окно DataBase Window Панели Приложения VisData со Структурой таблицы IZD создаваемой базы данных

Для завершения процесса проектирования таблицы создаваемой Базы Данных щелкается кнопка Build the Table (Сформировать таблицу) на Панели Table Structure, что приводит к закрытию окна Table Structure и возврату к Панели Приложения с Окном DataBase Window, в котором представлена создаваемая База Данных, включающая пока только одну таблицу - таблицу SM (рис.3.11).

Включим в нашу Базу Данных еще одну таблицу - таблицу MT. Для этого также воспользуемся Окном DataBase Window (рис 3.11) и, выполнив те же шаги, создадим в Базе данных Proekt структуру второй таблицы UCH.

Окно DataBase Window (Окно базы данных) Панели Приложения VisData со структурой таблцы IZD создаваемой базы данных.

Теперь таблицы нужно заполнить конкретными записями. Но если мы хотим, чтобы в дальнейшем записи таблиц БД автоматически упорядочивались по заданному полю, необходимо создать, так называемый, индекс таблицы. Для этого с помощью панели Add Index, ввести в поле окна Name имя поля, которое хотим сделать индексным, щелкнуть по нему, чтобы включить его в список Indexed Filds.

Заполнение созданных таблиц БД исходными данными

После запуска системы Visual Basic 6.0 следует выполнить действия:

1. Войти в среду проектирования стандартным способом, выбрав пиктограмму Standart EXE.

2. На раскрывшейся Главной панели системы Visual Basic 6.0 в Главном меню выбрать опцию Модули (Добавления) - Add-Ins, а в ней команду Visual Data Manager- раскроется панель VisData (рис. 3.3).

3. Выполнить последовательность команд:

File - Open Data Base - Microsoft Access

Совокупностью команд мы открываем уже созданную Базу данных.

4. Открыть базу данных клавишей Открыть, предварительно выделив мышкой, имя Proekt - раскроется панель VisData (рис.3.14) со структурой нашей базы данных, включающей таблицы SM и UCH.

Окно Open Microsoft Access DataBase - окно Открытия Базы данных

Панель VisData с окном DataBase, содержащем структуру Базы данных Proekt с таблицами IZD и MT

Щелчком правой кнопкой мыши по таблице SM или UCH раскрыть Контекстное меню выбора опций Модификаций структур таблиц базы Данных, являющееся узловым (начальным) инструментом разработки баз данных.

Выбрав опцию Open, раскроем окно Модификаций таблиц базы данных (рис.3.15) Окно Модификаций таблиц базы данных является Исходным инструментом выбора видов работ (видов модификаций) с таблицами баз данных и содержит набор 8-и опций(рис.3.16)

Окно Модификаций таблиц базы данных

Линейка опций окна Модификаций таблиц базы данных

Окно модификаций таблиц базы данных после выбора Опций Add (добавления), способное обеспечивать ввод записей

Данные отображаются в табличном формате, удобном для ввода новых Записей и редактирования текущей и ранее введенных записей (линейка опций окна Модификаций таблиц базы данных содержит опцию редактирования Edit - рис.3.15)

Начинаем процесс заполнения указанных полей конкретными значениями первой записи. По окончании заполнения всех полей первой записи щелкнуть на кнопке Update (Обновить) -в результате набранная запись будет физически записана в файл создаваемой базы данных, в таблицу SM и восстановится окно модификаций. Щелкнув на кнопке Add, восстановим окно модификаций в виде рис.3.17. Начинаем заполнять указанные поля значениями следующей записи.

Для перехода к новой записи - щелчок левой клавишей по кнопке Add. Для перехода к следующему полю - нажать клавишу Enter. Нажатие кнопки Close после ввода последней записи завершает ввод записей в таблицу создаваемой Базы данных.

Алгоритм чтения таблицы SM



Алгоритм чтения таблицы UCH

Создание Пользовательского меню

Меню - один из способов диалога пользователя с информационной системой. Меню представляет собой список Пунктов, из которого следует выбрать необходимый.

Использование большого количества командных кнопок связано с неудобствами. Возникает неясность в последовательности их активизации. Разумная альтернатива -создание собственного меню проекта. В системе проектирования VB 6.0 создание Меню осуществляется с помощью Редактора меню Menu Editor. Окно редактора открывается на активной форме тремя способами:

· Главное Меню - Инструменты - Редактор меню (меню Editor);

· Нажатием на линейке инструментов Главной панели системы VB 6.0 кнопки;

· Нажатием клавиш CTRL+E

Обычно меню состоит из нескольких уровней.Верхний - это строка меню, которую называют Головным меню. Каждый пункт Головного меню может включать подменю из одного или нескольких пунктов. Каждый следующий пункт, в свою очередь, может включать свое подменю и т.д.

Меню данного курсового проекта можно представить в следующем виде:

Открываем окно редактора на Form1(рис.6.1). Form1 используется как основная. В окне Редактора (рис. 6.1) и осуществим конструирование Пользовательского меню.

После вызова редактора требуется заполнить его необходимыми данными. Сначала в окно Нзвание вводится имя пункта меню, под которым оно будет выводится в строке меню на форме. Для быстрого открытия меню в поле Заголовок необходимо указать т.н. горячую клавишу. Это делается записью амперсанда (&) перед соответствующей буквой.

.

Окно Редактора Меню

Затем нажимаемся TAB и вводится в окно Имя уникальное имя пункта Меню в прогамме. Оно должно состоять из следующих частей:

· Префикса mnu, указывающего, что имя относится к меню;

· Собственного имени.

Кроме свойств Заголовок, Имя элементы меню имеют еще три свойства, могущие принимать значение True/False:

Отмечено (Checked) -позволяет отметить выбранный элемент символом .

Включено (Enabled) - позволяет включить или выключить команды меню во время выполнения программы символом .

Видимо (Visible) -позволяет отобразить или скрыть отдельные элементы меню (вместо блокировки) символом .

Элементы конструирования структуры Меню позволяют:

- устанавливать уровни Меню стрелками:

Размещено на http://www.allbest.ru/

смещает элемент на уровень ниже,

смещает элемент на уровень выше,

перемещают элементы в списке элементов одного уровня;

- перемещать укзатель с следующему Меню («Дальше» (Next), добавлять пункт Меню («Вставить» (Insert), удалять пункт Меню («Удалить» (Delete)).

Созданное Меню в Окне Редактора

По завершении создания меню нажать OK и созданное Меню появится на форме Form1 -отображается верхний Уровень Меню - Головное Меню (рис. 6.3). Меню активное. Для раскрытия любого пункта меню достаточно мышкой щелкнуть на выбранном пункте.

Меню

Private Sub mnuD_Click()

Form1.Hide

Form7.Show

End Sub

Private Sub mnuEnd_Click()

End

End Sub

Private Sub mnuS1_Click()

Form1.Hide

Form4.Show

End Sub

Private Sub mnuS2_Click()

Form1.Hide

Form5.Show

End Sub

Private Sub mnuS3_Click()

Form1.Hide

Form6.Show

End Sub

Private Sub mnutSM_Click()

Form1.Hide

Form2.Show

End Sub

Private Sub mnutUCH_Click()

Form1.Hide

Form3.Show

End Sub

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

visual basic база данных

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

Caption=Таблица UCH

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, s As Single, k As Integer

k = data1.Recordset.RecordCount

ReDim Preserve p(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

p(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()

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



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

Privte 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

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

Размещено на Allbest.ru

...