11734

Клиентская часть: размещение визуальных компонентов отображения таблиц

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 6 Клиентская часть: размещение визуальных компонентов отображения таблиц Цель: закрепить практические умения и навыки управления визуальными компонентами отображения таблиц организации запроса. Закрепление навыков работы в среде программир...

Русский

2013-04-10

16.53 KB

1 чел.

Лабораторная работа № 6

Клиентская часть: размещение визуальных компонентов отображения таблиц

Цель: закрепить практические умения и навыки управления визуальными компонентами отображения таблиц, организации запроса.

Закрепление навыков работы в среде программирования Delphi.

  Выполнил: Скворцов И.А.

  Группа: 091-ПО

Преподаватель: Афанасьева Г.Ю.

      Дата:15.02.2013

Ход работы:

Поместил на форму следующие компоненты:

  1.  ADODataSet
  2.  DataSource
  3.  ADOTable
  4.  DBGrid
  5.  DBNavigator

Компонент

Свойство

Значение

ADODataSet1

Connection

ADOConnection1

ADOTable1

Connection

ADOConnection1

DataSource11

DataSet

ADOTable1

DBGrid1

DataSource

DataSource1

DBNavigator1

DataSource

DataSource1

Поместил на форму компоненты: два компонента ComboBox, Memo, 2 компонента Button, OpenDialog.

Листинг программы:

procedure TForm1.BOpenSQLClick(Sender: TObject);

begin

adodataset1.Close;

adotable1.Close;

datasource1.DataSet:=adodataset1;

adoDataSet1.CommandText:=Memo1.Text;

try

adodataset1.Active:=true;

except on e: Exception do

begin

Messagedlg('Неправильный синтаксис SQL-команды', mtError, [mbOK], 0);

adodataset1.Close;

end; end; end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if opendialog1.Execute then begin

adoconnection1.ConnectionString:='FILE NAME='+opendialog1.FileName;

adoconnection1.Provider:=opendialog1.FileName;

adoconnection1.Open;

end; end;

procedure TForm1.BCloseClick(Sender: TObject);

begin

if (adodataset1.State=dsedit) or (adodataset1.State=dsinsert) then adodataset1.Post;

if (adotable1.State=dsedit) or (adotable1.State=dsinsert) then adotable1.Post;

adoconnection1.Connected:=false;

close;

end;

procedure TForm1.ComboBox1DropDown(Sender: TObject);

begin

  adoconnection1.Open;

adoconnection1.GetTableNames(combobox1.Items);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

adoconnection1.GetFieldNames(combobox1.Text, combobox2.items);

adodataset1.Close;

adotable1.Close;

datasource1.DataSet:=adotable1;

adotable1.TableName:=combobox1.Text;

try

adotable1.Open;

except on e: Exception do

begin

Messagedlg('Проверьте соединение', mtError, [mbOK], 0);

adotable1.Close;

end; end;

combobox1.Text:='';

combobox2.Text:='';

end;

procedure TForm1.N11Click(Sender: TObject);

begin

ShellExecute(Form1.Handle, nil, 'Путь к файлу связи.udl', nil, nil, sw_shownormal);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

if (adoDAtaSet1.State=dsedit) or (adoDAtaSet1.State=dsinsert) then adoDAtaSet1.Post;

if (adotable1.State=dsedit) or (adotable1.State=dsinsert) then adotable1.Post;

adoconnection1.Close;

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

begin

adodataset1.Close;

adotable1.Close;

datasource1.DataSet:=adodataset1;

adoDataSet1.CommandText:='Select '+combobox2.Text+' From '+combobox1.Text;

try

adodataset1.Active:=true;

except on e: Exception do

begin

Messagedlg('Проверьте соединение', mtError, [mbOK], 0);

adodataset1.Close;

end;end;

combobox2.Text:='';

end; end.

Вывод: закрепили практические умения и навыки управления визуальными компонентами отображения таблиц, организации запроса.

Закрепили навыки работы в среде программирования Delphi.



 

А также другие работы, которые могут Вас заинтересовать

66875. Устройство оптоэлектроники 702.06 KB
  Изобразить структуру фотоприемника. Изобразить ВАХ фотоприемника. Дать определение основным параметрам. Пояснить принцип работы фотоприемника. Фототиристор Фотоприемный прибор, имеющий три и более р-п перехода, в ВАХ которого имеется участок отрицательного дифференциального сопротивления, называются фототиристорами.
66876. Структура лексического значения 135 KB
  Так если денотатом слова птица в первом понимании является множество всех птиц то во втором понимании – образ типичной птицы. В первом случае слова враги друзья указывают на конкретное окружение Онегина.
66877. Фонема. Система фонем 90.46 KB
  Один из важнейших аспектов учения о звуковой стороне языка состоит в различении понятий звука речи и фонемы. Звук речи – минимальная единица речевой цепи, являющаяся результатом сложной артикуляционной деятельности человека и характеризующаяся...
66878. Язык как система знаков 156 KB
  Знаки и образуемые ими знаковые системы изучает семиотика (семиология). Мысль о языке как системе знаков наиболее явно сформулировал Фердинанд де Соссюр. Система – это множество однородных элементов (в нашем случае – знаков), которые находятся между собой в определенных отношениях и образуют единство.
66879. ФАЗЫ В МЕТАЛЛИЧЕСКИХ СПЛАВАХ 38 KB
  Твердыми растворами называют фазы в которых один из компонентов сплава сохраняет свою кристаллическую решетку а атомы другого или других компонентов располагаются в решетке первого компонента растворителя изменяя ее размеры периоды.
66880. Споживчий ринок товарів 22.5 KB
  Основними тенденціями розвитку народного споживання можна вважати зростання обсягів споживання зміну структури в бік збільшення частки непродовольчих товарів. Слід відмітити тенденцію зростання питомої ваги суспільних фондів споживання.
66881. Продукційна модель представленнязнань 39.3 KB
  Вивчення представлення знань засобами С++ та ПАСКАЛЬ в рамках продукційної моделі. Папір - метод читання оптичний, обєм середній, перезапис неможливий. Перфокарта - метод читання оптичний, обєм малий, перезапис неможливий. ГМД - метод читання магнітний, обєм середній, перезапис можливий.
66882. Комбинационные микросхемы 389 KB
  В лекции рассказывается о комбинационных микросхемах: шифраторах дешифраторах мультиплексорах и компараторах кодов об их алгоритмах работы параметрах типовых схемах включения а также о реализации на их основе некоторых часто встречающихся функций.
66883. ПЕРВОБЫТНОЕ ИСКУССТВО 86 KB
  Наскальные изображения. Зооморфные и антропоморфные изображения. Изображения людей: а женщины б мужчины в лицевая часть головы г человек в композиции с другими объектами. Изображения женщин встречаются двух видов: 1 наиболее древние изображения...