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.



 

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

1445. Аппараты системы передачи сигналов 356.5 KB
  Принцип построения структурных схем аппаратуры индивидуальных систем передачи. Генераторное оборудование систем передачи с ЧРК. Размещение усилителей в ЛТ. Диаграмма уровней передачи. Накопление помех в ЛТ. Нормирование параметров в зависимости от протяженности и структура каналов. Особенности эксплуатации измерителя уровня П-321.
1446. Проектирование рычажного механизма 150.5 KB
  Кинематический анализ рычажного механизма. Построение планов положений механизма. Определение скорости точки В. Определение скорости точки E. Построение диаграммы скоростей выходного звена. Определение нагрузок, действующих на звенья.
1447. Создание аппарата для перегонки и ректификации 17.49 MB
  Выбор конструкционных материалов для изготовления основного аппарата. Определение скорости пара и диаметра колонны. Подробный расчет дефлегматора – конденсатора. Выбор оптимального нормализованного теплообменного аппарата.
1448. Будівництво трьохповерхового житлового будинку в м. Львові по вулиці Порічковій 68 166 KB
  Описання, розпланування, конструкцій і благоустрою. Техніко-економічні показники. Плани поверхів, підвалу, фундаменту, перекриттів. Інженерні комунікації будинку.
1449. Разработка и исследование промышленных отпаянных лазеров на парах меди мощностью 10-50 Вт для технологического медицинского оборудования 11.38 MB
  Конструкция, параметры и недостатки первого ЛПМ Криостат 1 с отпаянным саморазогревным АЭ ТЛГ-5. Выбор материала и конструкции разрядного канала. Сравнительный анализ эффективности накачки высоковольтного импульсного модулятора. Параметры, габаритные и присоединительные размеры, масса, внешний вид и конструктивные особенности отпаянных АЭ серии.
1450. Разработка жизнеспособного, экономически рентабельного бизнес проекта салона красоты 485.5 KB
  Теоретические основы бизнес - планирования. Структура и содержание бизнес – планирования. Требования, предъявляемые к бизнес-плану. Анализ развития рынка индустрии красоты в РФ и г. Москва. Наиболее востребованные услуги в салонах красоты.
1451. Расчет электрических цепей 298 KB
  Расчет параметров эквивалентного источника. Расчет электрических цепей постоянного тока. Расчет электрических цепей переменного тока. Расчет резонансных схем.
1452. Выбор методов производства работ, техника безопасности 488 KB
  Вертикальная планировка и срезка растительного слоя ведётся в подготовительный период. Устройство горизонтальной гидроизоляции из двух слоёв рубероида. Расчет бригады, описание календарного плана. Описание технологической последовательности выполнения работ.
1453. Формирование педагогических навыков в процессе практической деятельности студента педагога 152.5 KB
  Приобретение знаний, связанных с изучением структуры, функций, направлений и эффективности педагогической деятельности. Формирование практических навыков анализа работы преподавателя. Изучение порядков, норм, деятельности кафедры, стандартов, документов, методических материалов.