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.



 

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

37578. Построение систем защиты информации для программных пакетов, используемых в монопольном доступе 1.13 MB
  В качестве объекта для исследования и применения разработанных методов защиты служат системы дистанционного обучения и контроля знаний. Рассмотрены различные методы применяемые для создания разнообразных систем защиты рассмотрена возможность их применения для систем дистанционного обучения. Проанализированы ключевые места требующие защиты и предложены варианты ее осуществления отмечены их преимущества и недостатки.
37579. Коммуникативные функции музыки в рекламе 456 KB
  Музыка  это сильное средство воздействия на человеческие чувства и эмоции. Соединившись с таким мощным средством пропаганды, каким является реклама, музыка может многократно его усилить. В настоящее время рекламисты не владеют всеми выразительными средствами музыки. Максимально используя возможности музыки реклама может приобрести огромную силу воздействия.
37580. АНАЛИЗ ФОРМИРОВАНИЯ И РАСПРЕДЕЛЕНИЯ ФИНАНСОВЫХ РЕЗУЛЬТАТОВ ГОСУДАРСТВЕННЫХ УНИТАРНЫХ ПРЕДПРИЯТИЙ В СОВРЕМЕННЫХ УСЛОВИЯХ (НА ПРИМЕРЕ СТРОИТЕЛЬНЫХ ОРГАНИЗАЦИЙ МИНИСТЕРСТВА ОБОРОНЫ РОССИЙСКОЙ ФЕДЕРАЦИИ) 918.06 KB
  Цель диссертационной работы — анализ действующей системы формирования и распределения финансовых результатов государственных унитарных предприятий МО РФ и разработка практических методик и рекомендаций по оптимизации конечных финансовых результатов деятельности военно-строительных организаций.
37581. ИНВЕСТИЦИОННАЯ СТРАТЕГИЯ КОРПОРАЦИИ 671.64 KB
  Целью диссертационной работы явилось теоретическое обоснование, формирование и практическая апробация аппарата и критериев создания инвестиционной стратегии корпорации в современных условиях. В рамках поставленной цели в работе поставлены следующие задачи:
37582. КОНЦЕПТ «МЕНЕДЖМЕНТ» В АМЕРИКАНСКОЙ И РУССКОЙ ЛИНГВОКУЛЬТУРАХ 1.16 MB
  Импорт концепта mngement в русскую лингвокультуру. Экстралингвистические факторы процесса импорта концепта mngement. Вербальная специфика реализации концепта mngement в англоязычной управленческой коммуникации. Структура концепта mngement импортированного в русскую лингвокультуру [3.
37583. АЛЛЕЛЬНЫЕ ВАРИАНТЫ ГЕНОВ-КАНДИДАТОВ ПОДВЕРЖЕННОСТИ ТУБЕРКУЛЕЗУ У РУССКОГО НАСЕЛЕНИЯ ЗАПАДНОЙ СИБИРИ 1.02 MB
  Задачи исследования: Изучить распространенность и межлокусное взаимодействие полиморфных вариантов гена NRMP1 46914G C D543N C274T 146585G аллельных вариантов генов VDR B b F f IL12В 1188C IL1B 39531 2 IL1RN VNTR у русских г. Показано что структура неравновесия по сцеплению между полиморфизмами гена NRMP1 идентична у русских и тувинцев. Впервые выявлены ассоциации полиморфизма 3953А1 А2 гена IL1B c ограниченным деструктивным ТБ легких VNTR полиморфизма гена IL1RN и полиморфизма 274С Т гена NRMP1 с...
37584. ФОРМИРОВАНИЕ ГРАЖДАНСКОГО ОБЩЕСТВА В УСЛОВИЯХ РОССИЙСКОГО РЕГИОНА 3.01 MB
  Концептуальнотеоретические основы формирования гражданского общества в России. Региональные аспекты формирования гражданского общества. Адаптивная готовность государственных и муниципальных служащих к работе в условиях формирования гражданского общества.
37585. УПРАВЛЕНИЕ ИНВЕСТИЦИЯМИ В СУБЪЕКТЕ ФЕДЕРАЦИИ (НА ПРИМЕРЕ МОСКВЫ) 818.5 KB
  Общетеоретическую и методологическую основу исследования составили положения содержащиеся в трудах отечественны и зарубежных ученых экономистов в области экономической теории организационного менеджмента теории сложных систем и теории управления проектами. Москвы Центральный административный округ территории формирующие городские центры зона МКАД; в городское жилищное строительство малоэтажная и коттеджная застройка территорий города и ближайших загородных зон; г крупные городские объекты формирующие облик города и призванные быть...
37586. УПРАВЛЕНИЕ ФЕДЕРАЛЬНОЙ СОБСТВЕННОСТЬЮ В УСЛОВИЯХ ПЕРЕХОДНОЙ ЭКОНОМИКИ 795.5 KB
  Проблемы управления федеральной собственностью [1. Федеральная собственность как объект управления [1. Анализ проблем управления федеральной собственностью в условиях переходной экономики [1. Анализ зарубежного опыта управления государственной собственностью [1.