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.



 

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

1483. КОГНИТИВНЫЕ МОДЕЛИ СУБСТАНДАРТНОЙ СЕМАНТИЧЕСКОЙ ДЕРИВАЦИИ 344.53 KB
  Цель диссертационной работы заключается в определении семантической структуры субстандартных дериватов английского и русского языков и установлении системы когнитивных моделей субстандартных глаголов умственной деятельности указанных языков с точки зрения когнитивной лингвистики.
1484. СПЕЦИАЛИЗИРОВАННАЯ ПСИХОЛОГИЧЕСКАЯ ПОМОЩЬ ВЫПУСКНИКАМ КЛАССОВ КОРРЕКЦИОННО-РАЗВИВАЮЩЕГО ОБУЧЕНИЯ С КОНСТИТУЦИОНАЛЬНО-ТИПОЛОГИЧЕСКОЙ ПРЕДИСПОЗИЦИЕЙ ЛИЧНОСТИ 1018.64 KB
  Теоретическое обоснование проблемы конституционально-психотипологической предиспозиции личности в российской психологии. Материал, методы исследования и психологического сопровождения выпускников классов коррекционно-развивающего (компенсирующего) обучения, имеющих конституционально-психотипологическую предиспозицию личности. Сравнительный эмпирический и экспериментально-психологический анализ обследованных подростков.
1485. ПСИХОЛОГО-ПЕДАГОГИЧЕСКОЕ СОПРОВОЖДЕНИЕ ДЕТЕЙ-СИРОТ КАК СРЕДСТВО ИХ СОЦИАЛИЗАЦИИ 1017.35 KB
  Научно-теоретические основы психолого-педагогического сопровождения детей-сирот в условиях детского дома. Организационно-содержательные условия психолого- педагогического сопровождения детей-сирот в условиях детского дома. Модель психолого-педагогического сопровождения детей-сирот в условиях детского дома.
1486. СИМВОЛИКА АРХИТЕКТУРНОГО ЛАНДШАФТА МОСКОВСКОГО КРЕМЛЯ И ОСТРОВА СИТЕ (ПАРИЖ) В ВОСПРИЯТИИ ПРЕДСТАВИТЕЛЕЙ РОССИЙСКИХ И ФРАНЦУЗСКИХ СУБКУЛЬТУР ХIХ – НАЧАЛА ХХ ВВ. 1016.13 KB
  Восприятие символики архитектурных ландшафтов: теоретический обзор в контексте исследования Символика архитектурного ландшафта Московского Кремля в восприятии представителей французских субкультур начала - середины XIX в. Символика архитектурного ландшафта острова Сите в восприятии представителей российских субкультур начала ХIХ в.
1487. СОВЕРШЕНСТВОВАНИЕ ГОСУДАРСТВЕННОГО РЕГУЛИРОВАНИЯ ИННОВАЦИОННОЙ ДЕЯТЕЛЬНОСТИ В ПРОМЫШЛЕННОСТИ 1014.86 KB
  Инновационное развитие в современной экономике (теоретический аспект). Инновационное развитие в промышленности Хабаровского края. Формы и механизмы государственного регулирования инновационной деятельности.
1488. СОВЕРШЕНСТВОВАНИЕ БИОТЕХНОЛОГИИ ПРОИЗВОДСТВА ПИТАТЕЛЬНЫХ СРЕД ДЛЯ КУЛЬТИВИРОВАНИЯ ЧУМНОГО МИКРОБА НА ОСНОВЕ СЫРЬЯ ЖИВОТНОГО И РАСТИТЕЛЬНОГО ПРОИСХОЖДЕНИЯ 1010.59 KB
  Среды на основе сырья животного происхождения и их использование при культивировании чумного микроба. Разработка ускоренного способа приготовления ферментативных мясных гидролизатов. Оценка качества сред по пигменто- и индолообразованию тест-штаммов. Сравнительное изучение ростовых качеств питательных сред, приготовленных с использованием ферментативного гидролизата сои (бобов).
1489. Измерительные системы автоматизации работы железнодорожного транспорта 50.68 KB
  Внедрение современных многофункциональных и высокопроизводительных измерительных систем и мобильных комплексов (МИКАР) позволит автоматизировать многие технологические операции и, как следствие, сократить трудозатраты.
1490. Разработка схемы выпрямителя 119.13 KB
  Схема выпрямителя с П-образным LC-фильтром, номинальное напряжение нагрузки 600 Вольт, номинальная мощность 100 Ватт, допустимый коэффициент пульсации 1%, напряжение сети переменного тока 110 В при частоте 400 Гц.
1491. Индуктивная связь между катушками 83.68 KB
  Определим токи во всех ветвях схемы. Построим диаграмму токов и топографическую диаграмму напряжений. Составим баланс активных и реактивных мощностей. Построим на одном графике кривые мгновенных значений e1 и i3. Определим показания ваттметра.