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.



 

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

54958. Причины и социально-экономические последствия инфляции. Антиинфляционная политика государства 18.02 KB
  Как свидетельствует опыт, остановить инфляцию с помощью одних организационных мер весьма трудно, если не сказать невозможно. Для этого необходима структурная реформа, направленная на преодоление возникших в экономике диспропорций.
54959. Пусть всегда будет солнце 62.5 KB
  Вид урока Комбинированный Тип урока Комплексный урок Государственный социальный заказ Во исполнение Закона Российской Федерации Об образовании; Закона О развитии образования в городе Москве; Конвенции о правах ребенка;...
54960. ВЫРЕЗАНИЕ ИЗ БУМАГИ 69 KB
  Цели: Обучающая: Способствовать формированию представления о таком виде декоративно прикладного искусства как вырезание из бумаги. Слайды 18 Сейчас вы можете назвать мне тему нашего урока ответы детей Правильно вырезание из бумаги слайд 9 Но давайте нашему уроку придумаем красивое название...
54961. Материки и океаны 65.5 KB
  План урока Этапы урока Задачи этапов Деятельность учителя Деятельность учащихся Методы и приемы Формы работы Средства обучения Самоопределение в деятельности Настрой учащихся на работу активизация познавательных мотивов учащихся создание психологического комфорта в классе...
54962. Конспект урока на тему баскетбол 41.5 KB
  Прыжки и их разновидности: на двух ногах на правой ноге на левой ноге 1мин 5 мин 3мин 2мин Обратить внимание на внешний вид занимающихся Плечи чуть наклонены вперед Темп движения быстрый руки согнуты ноги не соединять Руки на поясе...
54963. Национальный и религиозный состав населения России 60.1 KB
  Цели: познакомить обучающихся с особенностями национального и религиозного состава населения России. Задачи: образовательные: изучить особенности национального и религиозного состава населения страны языковые семьи и группы; познакомить с национальным составом населения Республики Коми; развивающие: продолжить работу над развитием умения анализировать статистический материал работать с дополнительными источниками; воспитательные: воспитывать гражданственность...
54964. Разработки уроков по информатике 2.39 MB
  Планконспект урока Презентация к уроку Дополнительный материал 2 2 Информация Теория Практика Понятие информации свойства информации единицы измерения объема информации. Планконспект урока Презентация к уроку Дополнительный материал 3 3 Кодирование информации в компьютере Теория Практика Кодирование и декодирование. Планконспект урока Презентация к уроку Дополнительный материал 4 4 Информационная деятельность человека Теория Практика Сбор обработка передача хранение поиск и защита информации. Планконспект урока Презентация к уроку...
54965. Алфавит 64.5 KB
  Буквы значки как бойцы на парад в строгом порядке построены в ряд. Подумайте почему мы прописали именно эти две буквы Первая и последняя буквы алфавита С новой строки пишем соединения букв ал лф фа ав ви ит. С новой строки с маленькой буквы пишем слово алфавит. Беседа Алфавит или азбука это все буквы расположенные в определенном строгом порядке.
54966. Поделка из бумаги. Летящая бабочка 50 KB
  Ход урока Описание урока Комментарии 1 этап Организационный момент Учитель: Долгожданный дан звонок начинается урок. 2 этап Постановка учебной задачи Учитель: Какой праздник приближается 8 марта Что принято совершать в этот день Дарить подарки Кто может предположить что мы будем делать сегодня на уроке...