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.



 

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

7186. Планування погашення довгострокової заборгованості 62 KB
  Тема: Планування погашення довгострокової заборгованості. Сутність статистичного аналізу довгострокової заборгованості. Погашення позички одноразовими платежами. Основні методи погашення основного боргу. Заборгованість...
7187. Генерирование случайных чисел с различными законами распределения на основе случайных чисел с равномерным распределением 207.53 KB
  Генерирование случайных чисел с различными законами распределения на основе случайных чисел с равномерным распределением название лабораторной работы Этапы задания и результаты их реализации. 1. Сгенерировать последовательность случайных чисел, подч...
7188. ОПРЕДЕЛЕНИЕ МОМЕНТА ИНЕРЦИИ КОЛЕСА МЕТОДОМ КОЛЕБАНИЙ 151 KB
  ОПРЕДЕЛЕНИЕ МОМЕНТА ИНЕРЦИИ КОЛЕСА МЕТОДОМ КОЛЕБАНИЙ Цель работы: Определение характеристик колебательного движения колеса, момента инерции колеса и сравнение его с теоретическим расчётом. Оборудование: экспериментальная установка,...
7189. ОПРЕДЕЛЕНИЕ ВЯЗКОСТИ ВОЗДУХА, СРЕДНЕЙ ДЛИНЫ СВОБОДНОГО ПРОБЕГА МОЛЕКУЛ И ИХ ЭФФЕКТИВНОГО ДИАМЕТРА 226.5 KB
  ОПРЕДЕЛЕНИЕ ВЯЗКОСТИ ВОЗДУХА, СРЕДНЕЙ ДЛИНЫ СВОБОДНОГО ПРОБЕГА МОЛЕКУЛ И ИХ ЭФФЕКТИВНОГО ДИАМЕТРА Цель работы: Определение вязкости воздуха, средней длины свободного пробега молекул и их эффективного диаметра с использованием легко измеряемых ...
7190. Поняття та особливості валютного контролю 559 KB
  Поняття та особливості валютного контролю Відповідальність за порушення валютного законодавства 1. Важливим видом фінансового контролю є валютний контроль - контроль за дотриманням валютного законодавства при здійсненні валютних операцій за участю р...
7191. Вивчення модифікаційної мінливості довжини та ширини листкової пластинки берези білої (Betula alba) 231 KB
  Тема: Вивчення модифікаційної мінливості довжини та ширини листкової пластинки берези білої (Betula alba) Розділ І. Теоретична частина. Модифікаційна мінливість. Модифікаційна мінливість - це мінливість. Яка виникає внаслідок впливу факторів зо...
7192. Генетика з біометрією. Робочий зошит для лабораторних робіт 2.76 MB
  Робочий зошит для лабораторних робіт з дисципліни Генетика з біометрією для студентів ІІ курсу біолого-технологічного факультету Зміст МОДУЛЬ № 1 Цитологічні основи спадковості ЗАНЯТТЯ №1. Вступ. Методи дослідження в генетиці ЗАНЯТТЯ №2. Будова кліт...
7193. Психолого-педагогічні основи діяльності працівників пожежної охорони 704 KB
  Вступ Мета, завдання та зміст курсу Психолого-педагогічні основи діяльності працівників пожежної охорони його місце у змісті пожежної освіти. Значення психолого-педагогічних знань для спеціаліста пожежної охорони. В умовах глобальних зрушень в...
7194. Генетика и наследственность. Конспект лекций 5.47 MB
  Введение в генетику -предмет генетики, -виды наследственности, -виды изменчивости, -история развития генетики, -место генетики в системе биологических наук, -задачи ветеринарной генетики, -методы исследовании используемые в генетике...