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.



 

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

55243. Турнір правознавців 82.5 KB
  Мета: виховувати у школярів інтерес до правових знань популяризувати правові закони розвивати пізнавальний інтерес до предмета зясувати як учні знають основні поняття з правознавства навчити дітей користуватися своїми правами в різних ситуаціях виховувати почуття відповідальності за свої вчинки...
55244. Сценарий «Праздник бабушек» 34.5 KB
  Ведущий: Наш праздник мы сегодня посвящаем самым Ученик: любимым Ученик: добрым Ученик: ласковым Ученик: терпеливым Ученик: мудрым Ученик: красивым Ученик: умелым Ученик: милым Ученик: обаятельным Ученик: и очень привлекательным Все вместе: Нашим бабушкам...
55245. В некотором царстве, в музыкальном государстве. Инсценированный праздник 48 KB
  Праздник является итогом Недели музыки. Действующие лица: Учитель Скрипичный ключ Ведущая нотки Королева музыки Учитель. Встречайте королеву музыки.Чайковского входит королева музыки.
55246. Неразлучные друзья – взрослые и дети 51.5 KB
  По ступенькам мы идём Мой город. У каждого человека должен быть свой дом своя семья. А что такое семья Как появилось слово семья Учитель. Все: Так на земле появилась семья Учитель.
55247. ПРАЗДНИК «ПОСВЯЩЕНИЕ В ЧИТАТЕЛИ» 79 KB
  Ты из какой сказки сбежала Баба-Яга: А почему вы решили что я сбежала Мне Кащей Бессмертный на ушко шепнул что сегодня у ребятишек здесь праздник. Королева: Ну раз ты уж здесь Баба-Яга помоги нам праздник интересно провести.
55248. Путешествие в страну правильной и красивой речи 182 KB
  Всех нас зовет она Надо всем детям научиться 2 раза Правильно говорить В эту страну мы все умчимся Будем всегда там жить Сцена 2 Под музыку выбегает звукомор Звукомор: Ага так вот где находится страна правильной и красивой речи Ничего ничего после моей работы здесь не останется ни одного слова ни одной буквы и даже звука Под музыку выходит Фея Фея: Это кто...
55249. Посвящение в юные читатели. Праздник для первоклассников 48 KB
  Как зовется эта книжка Как зовется сам мальчишка Буратино Буратино: Кто тут меня вспоминает Как здесь много мальчиков и девочек Шел в театр и услышал что меня ктото зовет. Учитель: Ребята давайте попробуем объяснить Буратино зачем нужно учиться.Ответы учеников Буратино: Ну и оставайтесь здесь учиться а я лучше пойду а театр. Учитель: Покажи Буратино свой билет.