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

 

Для работы с базой данных в программном средстве Visual Basic необходимо сохранить созданную базу данных в формате 1997 года (сервис - служебные программы - преобразовать вAccess97), затем выйти изAccess и уже ее подключать в программеVB6 к элементу Data, найдя имя БД в списке его свойства DatabaseName.

Форма до запуска программы :

Используемые элементы управления:

Элемент	Свойство	Значение свойства
MSFlexGrid	Name	Grid
	Cols	2
	Rows	2
	FixedCols	0
	FixedRows	1
Data	Name	Data1
	DatabaseName	c:\ Приложение Microsoft Access_97.mdb
	Connect	Access
	RecordsetType	0 – Table
	RecordSource	Таблица 1
Связанные текстовые поля TextBox	DataSource	Data1
	Name	Text1(0)
	Name	Text1(1)
	Name	…
	Name	Text1(7)
Data	Name	Data2
	DatabaseName	c:\ Приложение Microsoft Access_97.mdb
	Connect	Access
	RecordsetType	0 – Table
	RecordSource	Таблица 2
Связанные текстовые поля TextBox	DataSource	Data1
	Name	Text2(0)
	Name	Text2(1)
	Name	…
	Name	Text2(7)
Label	Name	Label
	Caption	задаётся программно
CommandButton	Name	Command1
	Caption	Вывести таблицу
CommandButton	Name	Command2
	Caption	Добавить запись
CommandButton	Name	Command3
	Caption	Удалить запись
CommandButton	Name	Command4
	Caption	Вывести таблицу
CommandButton	Name	Command5
	Caption	Добавить запись
CommandButton	Caption	Command6
	Name	Удалить запись
CommandButton	Name	Command7
	Caption	Справка 1
CommandButton	Name	Command8
	Caption	Справка 2
CommandButton	Caption	Command9
	Name	Выход

Программный код формы :

'ОТОБРАЖЕНИЕ ТАБЛИЦ

Private Sub Command1_Click()

Label.Caption = "Таблица №1"

Grid.Clear 'очистка сетки

Grid.Cols = 8

Grid.Rows = Data1.Recordset.RecordCount + 1 'устанавливаем количество строк в гибких сетках равным количеству записей в таблице + 1 (для заголовков столбцов)

Data1.Recordset.MoveFirst 'переход к первой записи

For I = 1 To Data1.Recordset.RecordCount 'цикл отображения записей таблицы в гибких сетках

   For J = 1 To 8 'по столбцам записи таблицы

     If I = 1 Then Grid.TextMatrix(0, J - 1) = Data1.Recordset.Fields(J - 1).Name

       Grid.TextMatrix(I, J - 1) = Data1.Recordset.Fields(J - 1)

   Next J

   Data1.Recordset.MoveNext 'переход к следующей записи таблицы 1

Next I

Data1.Recordset.MoveFirst 'возврат к первой записи

For J = 1 To 8     'выравниваем ширину столбцов

   Grid.ColWidth(J - 1) = Grid.Width / 9

Next J

End Sub

 

Private Sub Command4_Click()

Label.Caption = "Таблица №2"

Grid.Clear     'очистка сетки

Grid.Cols = 8

Grid.Rows = Data2.Recordset.RecordCount + 1 'устанавливаем количество строк в гибких сетках равным количеству записей в таблице + 1 (для заголовков столбцов)

Data2.Recordset.MoveFirst 'переход к первой записи

For I = 1 To Data2.Recordset.RecordCount 'цикл отображения записей таблицы в гибких сетках

   For J = 1 To 8 'по столбцам записи таблицы

     If I = 1 Then Grid.TextMatrix(0, J - 1) = Data2.Recordset.Fields(J - 1).Name

       Grid.TextMatrix(I, J - 1) = Data2.Recordset.Fields(J - 1)

   Next J

   Data2.Recordset.MoveNext 'переход к следующей записи таблицы 1

Next I

Data2.Recordset.MoveFirst 'возврат к первой записи

For J = 1 To 8     'выравниваем ширину столбцов

   Grid.ColWidth(J - 1) = Grid.Width / 9

Next J

End Sub

 

'ДОБАВЛЕНИЕ ЗАПИСЕЙ

Private Sub Command2_Click() 'в таблицу 1

Dim Reply As VbMsgBoxResult

 Reply = MsgBox("Если будете вводить новую запись, нажмите кнопку OK", _

vbOKCancel, "Ввод новой записи")

If Reply = vbOK Then

Text1(0).SetFocus  'Остановка, текстовые окна пустые, в них нужно ввести запись

Data1.Recordset.AddNew

End If

MsgBox ("После ввода записи нажмите левую стрелку элемента Data")

End Sub

 

Private Sub Command5_Click() 'в таблицу 2

Dim Reply As VbMsgBoxResult

 Reply = MsgBox("Если будете вводить новую запись, нажмите кнопку OK", _

vbOKCancel, "Ввод новой записи")

If Reply = vbOK Then

Text2(0).SetFocus  'Остановка, текстовые окна пустые, в них нужно ввести запись

Data2.Recordset.AddNew

End If

MsgBox ("После ввода записи нажмите левую стрелку элемента Data")

End Sub

 

'УДАЛЕНИЕ ЗАПИСЕЙ

Private Sub Command3_Click() 'из таблицы 1

Dim Reply As VbMsgBoxResult

Reply = MsgBox("Если будете удалять текущую запись, нажмите кнопку OK", vbOKCancel, "Удаление текущей записи")

If Reply = vbOK Then

Data1.Recordset.Delete   'удаление записи

Data1.Recordset.MoveFirst 'переход к первой записи

End If

Command1_Click

End Sub

 

Private Sub Command6_Click() 'из таблицы 1

Dim Reply As VbMsgBoxResult

Reply = MsgBox("Если будете удалять текущую запись, нажмите кнопку OK", vbOKCancel, "Удаление текущей записи")

If Reply = vbOK Then

Data2.Recordset.Delete   'удаление записи

Data2.Recordset.MoveFirst 'переход к первой записи

End If

Command3_Click

End Sub

 

Отображение таблицы 1:

Отображение таблицы 2: