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.



 

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

11570. Имитация броуновского движения, проверка закона Эйнштейна, термометрия в системе магнитных шариков 214 KB
  Лабораторная работа № 2 Имитация броуновского движения проверка закона Эйнштейна термометрия в системе магнитных шариков Оборудование: соленоид на регулируемой по высоте подставке прозрачная плоская коробка с прямоугольной шкалой магнитные шарики н...
11571. Определение показателя адиабаты методом Клемана и Дезорма 213.5 KB
  Лабораторная работа № 3 Определение показателя адиабаты методом Клемана и Дезорма Оборудование: стеклянный баллон поршневой насос жидкостный манометр сосуд для сбора спирта секундомер. Общие представления Отношение молярных теплоемкостей газа при пос
11572. Изучение кривой равновесия жидкости и её насыщенного пара 155.5 KB
  Лабораторная работа № 4 Изучение кривой равновесия жидкости и её насыщенного пара Оборудование: круглодонная колба с термометром; откачиваемая магистраль включающая рубашку охлаждения и балластные баллоны; мембранный манометр; насос Комовского; электроплитка н...
11573. Измерение коэффициента вязкости жидкости методом Стокса 146.5 KB
  Лабораторная работа № 5 Измерение коэффициента вязкости жидкости методом Стокса Оборудование: Стеклянные цилиндрические сосуды с исследуемой жидкостью мелкие шарики измерительный микроскоп аналитические весы пикнометр секундомер масштабная линейка. ...
11574. Изучение температурной зависимости коэффициента вязкости жидкости с помощью капиллярного вискозиметра 101 KB
  Лабораторная работа № 6 Изучение температурной зависимости коэффициента вязкости жидкости с помощью капиллярного вискозиметра Оборудование: капиллярный вискозиметр аспиратор стеклянный термостатирующий сосуд электродвигатель с мешалкой термометр электро
11575. Определение коэффициента поверхностного натяжения жидкости методом отрыва кольца 94.5 KB
  Лабораторная работа № 7 Определение коэффициента поверхностного натяжения жидкости методом отрыва кольца Оборудование: лабораторные весы тонкое алюминиевое кольцо на трифилярной подвеске станина с вертикально перемещаемым столиком и часовым индикатором пере...
11576. Изучение шифраторов, дешифраторов и преобразователей кодов 211.32 KB
  Изучение шифраторов дешифраторов и преобразователей кодов Цель работы. Изучить назначение принципы построения и структуры шифраторов дешифраторов и преобразователей кодов. 1 Краткие сведения из теории Дешифратором декодером называется устройство рас...
11577. Минимизация функций алгебры логики и построение дискретных схем с использованием логического конвертера программы электронная лаборатория 224.91 KB
  Минимизация функций алгебры логики и построение дискретных схем с использованием логического конвертера программы электронная лаборатория Цель работы. Научиться минимизировать функции алгебры логики ФАЛ получать совершенную дизъюнктивную нормальную форму С
11578. Создание модели данных с помощью Allfusion ERwin Data Modeler 93.57 KB
  Лабораторная работа 4 по дисциплине: Проектирование и архитектура программного проектирования На тему: Создание модели данных с помощью Allfusion ERwin Data Modeler Цель работы: Знакомство с CASEсистемой Allfusion ERWin Data Modeler изучение основных принципов построения логической