- •Министерство образования Российской Федерации
- •Структура таблиц:
- •Исходные данные
- •Создание таблиц
- •3.11.Окно DataBase Window Панели Приложения VisData со Структурой таблицы izd создаваемой базы данных
- •3.12 Окно DataBase Window (Окно базы данных) Панели Приложения VisData со структурой таблцы izd создаваемой базы данных.
- •Алгоритм чтения таблицыSm
- •Алгоритм чтения таблицыUch
- •Создание Пользовательского меню
- •Решение Меню
- •Вид формы с таблицейUch
- •Вид формы с таблицейSm
- •Справка 1
- •Справка 2
- •Справка 3
- •Документ
Вид формы с таблицейUch
Свойства элемента 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