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.



 

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

65156. Ордынские корни российских органов исполнительной власти 43 KB
  Ордынские корни российских органов исполнительной власти Проблемы истории государственного управления : государственный аппарат и реформы в России к 200 летию министерской системы управления в России...
65157. Основные этапы эволюции казахского суда биев (XV – начало ХХ вв.) 133 KB
  Казахский суд биев несомненно являет собой яркий пример института осуществляющего правосудие в системе традиционного права. При этом весьма интересно отметить что в большинстве случаев каждый новый этап развития суда биев как правового и процессуального института...
65158. Особенности формирования и эволюции правовой системы Улуса Джучи 146 KB
  Большинство историков использовали источники по истории права Улуса Джучи при изучении его политической экономической и социальной истории поэтому чаще всего ограничивались просто упоминанием факта их существования или цитатами из них...
65159. ПРАВОВОЕ НАСЛЕДИЕ МОНГОЛЬСКОЙ ИМПЕРИИ В ГОСУДАРСТВЕ ТИМУРИДОВ (ПО ДАННЫМ ЛЕТОПИСЕЙ, НУМИЗМАТИЧЕСКОГО И АКТОВОГО МАТЕРИАЛА) 64.5 KB
  Принято считать что с именем Тимура и его потомков связано обращение в ислам Чагатаева улуса. Подобные вывод напрашивается сам собой на основании летописных источников авторы которых являлись придворными летописцами самих Тимуридов и всячески старались представить их ревнителями веры прославить их благочестие.
65160. Правовое положение Улуса Джучи в Монгольской империи 1224-1269 годов 99.5 KB
  Улус Джучи по русским летописям более известный под названием Золотая Орда изначально был создан как составная часть Великой Монгольской империи. Но не прошло и полувека как Улус Джучи стал полностью независимым государством.
65162. Статус ханов Золотой Орды и их преемников во взаимоотношениях с государствами Европы (по официальным актам и свидетельствам современников) 112.5 KB
  Статус Золотой Орды Улуса Джучи и ее правителей на международной арене неоднократно менялся в зависимости от того или иного этапа развития этого государства.; 4 распад Золотой Орды и выделение из ее состава самостоятельных государств правители которых...
65163. Суд и правосудие в Золотой Орде 125.5 KB
  Вопрос об организации суда и процесса Золотой Орды лишь затрагивался в работах посвященных истории этого государства в частности в исследовании Б. Островски в статье посвященной сравнению золотоордынских и русских...
65164. «ТАМОЖЕННОЕ ПРАВО» В ГОСУДАРСТВАХ ЧИНГИЗИДОВ XIII – ПЕРВОЙ ПОЛОВИНЫ XIV ВЕКА 74.5 KB
  Исследователи истории Монгольской империи государств выделившихся из нее впоследствии а так же их наследников практически не уделяли внимания важнейшему вопросу вопросу правового статуса членов рода Чингизидов как собственников и хозяев владений.